[Home] [Help]
36: -- to change i.e. for eg. X.6 to X.7.
37:
38: l_api_version CONSTANT NUMBER := 1.0;
39:
40: Mctx INV_ITEM_MSG.Msg_Ctx_type;
41:
42: Processing_Error EXCEPTION;
43:
44: ret_code NUMBER := 0;
73: IF FND_API.to_Boolean( p_init_msg_list ) THEN
74: FND_MSG_PUB.initialize;
75: END IF;
76:
77: INV_ITEM_MSG.set_Message_Mode('PLSQL');
78:
79: -- Set message level
80: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
81: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
77: INV_ITEM_MSG.set_Message_Mode('PLSQL');
78:
79: -- Set message level
80: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
81: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
82: END IF;
83:
84: -- Define message context
85: Mctx.Package_Name := G_PKG_NAME;
86: Mctx.Procedure_Name := l_api_name;
87:
88: -- Set global package variables for the current import session
89:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
88: -- Set global package variables for the current import session
89:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
89:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
98: x_return_status := fnd_api.g_RET_STS_SUCCESS;
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
98: x_return_status := fnd_api.g_RET_STS_SUCCESS;
99: ------------------------------------------------------------------------------------------
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
98: x_return_status := fnd_api.g_RET_STS_SUCCESS;
99: ------------------------------------------------------------------------------------------
100: -- Process step 1: Loop through item catlog group elements interface records --
99: ------------------------------------------------------------------------------------------
100: -- Process step 1: Loop through item catlog group elements interface records --
101: -- (a) Check for duplicate records in the interface table table --
102: ------------------------------------------------------------------------------------------
103: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step1');
104: l_item_desc_element_table := p_item_desc_element_table;
105: FOR icoi_rec IN l_item_desc_element_table.first .. l_item_desc_element_table.last-1 LOOP --{
106: FOR icoi_rec_dup IN icoi_rec+1 .. l_item_desc_element_table.last LOOP --{
107: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
106: FOR icoi_rec_dup IN icoi_rec+1 .. l_item_desc_element_table.last LOOP --{
107: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
108: IF (l_item_desc_element_table(icoi_rec).ELEMENT_NAME = l_item_desc_element_table(icoi_rec_dup).ELEMENT_NAME)
109: THEN
110: INV_ITEM_MSG.Debug(Mctx, 'Duplicate record found' || to_char(icoi_rec_dup) );
111: INV_ITEM_MSG.Add_Message
112: ( p_Msg_Name => 'INV_CEOI_DUP_ELEM_REC'
113: , p_token1 => 'ELEMENT_NAME'
114: , p_value1 => l_item_desc_element_table(icoi_rec).ELEMENT_NAME
107: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
108: IF (l_item_desc_element_table(icoi_rec).ELEMENT_NAME = l_item_desc_element_table(icoi_rec_dup).ELEMENT_NAME)
109: THEN
110: INV_ITEM_MSG.Debug(Mctx, 'Duplicate record found' || to_char(icoi_rec_dup) );
111: INV_ITEM_MSG.Add_Message
112: ( p_Msg_Name => 'INV_CEOI_DUP_ELEM_REC'
113: , p_token1 => 'ELEMENT_NAME'
114: , p_value1 => l_item_desc_element_table(icoi_rec).ELEMENT_NAME
115: );
119: END IF;
120: END LOOP;--} icoi_csr_dup
121: END LOOP; --} icoi_csr
122:
123: INV_ITEM_MSG.Debug(Mctx, 'Write all accumulated messages' );
124: -- Write all accumulated messages
125: INV_ITEM_MSG.Write_List (p_delete => TRUE);
126:
127: ------------------------------------------------------------------------------------------
121: END LOOP; --} icoi_csr
122:
123: INV_ITEM_MSG.Debug(Mctx, 'Write all accumulated messages' );
124: -- Write all accumulated messages
125: INV_ITEM_MSG.Write_List (p_delete => TRUE);
126:
127: ------------------------------------------------------------------------------------------
128: -- Process step 2: Loop through item catlog group elements interface records --
129: -- (a) call the API to create item catalog group element values assignment record in the production table --
129: -- (a) call the API to create item catalog group element values assignment record in the production table --
130: -- (b) update the current interface record process_flag and other converted values --
131: ------------------------------------------------------------------------------------------
132:
133: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step2');
134:
135: FOR icoi_rec IN l_item_desc_element_table.first .. l_item_desc_element_table.last LOOP --{
136:
137: l_return_status := fnd_api.g_RET_STS_SUCCESS;
139: -- call the API to process item catalog element values
140:
141: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
142:
143: INV_ITEM_MSG.Debug(Mctx, 'calling INV_ITEM_CATALOG_ELE_PVT.Create_Catalog_group_ele_Assignment');
144: INV_ITEM_MSG.Debug(Mctx, 'Element Name:'||l_item_desc_element_table(icoi_rec).ELEMENT_NAME);
145:
146: INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment
147: (
140:
141: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
142:
143: INV_ITEM_MSG.Debug(Mctx, 'calling INV_ITEM_CATALOG_ELE_PVT.Create_Catalog_group_ele_Assignment');
144: INV_ITEM_MSG.Debug(Mctx, 'Element Name:'||l_item_desc_element_table(icoi_rec).ELEMENT_NAME);
145:
146: INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment
147: (
148: p_api_version => 1.0
161:
162: IF ( l_return_status = fnd_api.g_RET_STS_SUCCESS ) THEN
163: NULL;
164: ELSE
165: INV_ITEM_MSG.Debug(Mctx, 'error in Catalog_Grp_Ele_Val_Assignment. Msg count=' || TO_CHAR(INV_ITEM_MSG.Count_Msg));
166: x_return_status := l_return_status;
167: END IF; -- l_return_status
168:
169: -- If unexpected error in Catalog_Grp_Ele_Val_Assignment API, stop the processing
173: END IF;
174:
175: END IF; -- p_item_desc_element_table.EXISTS
176: -- Write all accumulated messages
177: INV_ITEM_MSG.Write_List (p_delete => TRUE);
178:
179: END LOOP; --} icoi_csr
180:
181: INVICGDS.inv_get_icg_desc(
202: EXCEPTION
203: WHEN Processing_Error THEN
204: ROLLBACK TO Process_item_descr_elem_PUB;
205: -- Write all accumulated messages
206: INV_ITEM_MSG.Write_List (p_delete => TRUE);
207:
208: FND_MSG_PUB.Count_And_Get
209: ( p_count => x_msg_count,
210: p_data => x_msg_data
213: WHEN others THEN
214: ROLLBACK TO Process_item_descr_elem_PUB;
215: l_err_text := SUBSTRB(SQLERRM, 1,240);
216: x_return_status := fnd_api.g_RET_STS_UNEXP_ERROR;
217: INV_ITEM_MSG.Add_Message
218: ( p_Msg_Name => 'INV_ITEM_UNEXPECTED_ERROR'
219: , p_token1 => 'PKG_NAME'
220: , p_value1 => G_PKG_NAME
221: , p_token2 => 'PROCEDURE_NAME'
224: , p_value3 => l_err_text
225: );
226:
227: -- Write all accumulated messages
228: INV_ITEM_MSG.Write_List (p_delete => TRUE);
229:
230: FND_MSG_PUB.Count_And_Get
231: ( p_count => x_msg_count,
232: p_data => x_msg_data
253: , p_login_id IN NUMBER
254: )
255: IS
256: l_api_name CONSTANT VARCHAR2(30) := 'process_Item_Catalog_grp_recs';
257: Mctx INV_ITEM_MSG.Msg_Ctx_type;
258:
259: --
260: -- Cursor for the duplicate check (Create_Catalog_group_Assignment)
261: --
326: item_id NUMBER;
327:
328: BEGIN
329:
330: INV_ITEM_MSG.Initialize;
331:
332: INV_ITEM_MSG.set_Message_Mode ('CP_LOG');
333:
334: -- Set message level
328: BEGIN
329:
330: INV_ITEM_MSG.Initialize;
331:
332: INV_ITEM_MSG.set_Message_Mode ('CP_LOG');
333:
334: -- Set message level
335:
336: -- INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Statement);
332: INV_ITEM_MSG.set_Message_Mode ('CP_LOG');
333:
334: -- Set message level
335:
336: -- INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Statement);
337: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
338:
339: -- Define message context
340: Mctx.Package_Name := G_PKG_NAME;
333:
334: -- Set message level
335:
336: -- INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Statement);
337: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
338:
339: -- Define message context
340: Mctx.Package_Name := G_PKG_NAME;
341: Mctx.Procedure_Name := l_api_name;
339: -- Define message context
340: Mctx.Package_Name := G_PKG_NAME;
341: Mctx.Procedure_Name := l_api_name;
342:
343: INV_ITEM_MSG.Debug(Mctx, 'start rec_set_id = '|| TO_CHAR(p_rec_set_id));
344:
345: -- Set global package variables for the current import session
346:
347: g_xset_id := p_rec_set_id;
351: g_Prog_appid := NVL(p_prog_appid, FND_GLOBAL.prog_appl_id );
352: g_Prog_id := NVL(p_prog_id, FND_GLOBAL.conc_program_id );
353: g_Request_id := NVL(p_request_id, FND_GLOBAL.conc_request_id );
354:
355: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
356:
357: INV_ITEM_MSG.g_User_id := g_User_id;
358: INV_ITEM_MSG.g_Login_id := g_Login_id;
359: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
353: g_Request_id := NVL(p_request_id, FND_GLOBAL.conc_request_id );
354:
355: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
356:
357: INV_ITEM_MSG.g_User_id := g_User_id;
358: INV_ITEM_MSG.g_Login_id := g_Login_id;
359: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
360: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
361: INV_ITEM_MSG.g_Request_id := g_Request_id;
354:
355: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
356:
357: INV_ITEM_MSG.g_User_id := g_User_id;
358: INV_ITEM_MSG.g_Login_id := g_Login_id;
359: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
360: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
361: INV_ITEM_MSG.g_Request_id := g_Request_id;
362:
355: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
356:
357: INV_ITEM_MSG.g_User_id := g_User_id;
358: INV_ITEM_MSG.g_Login_id := g_Login_id;
359: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
360: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
361: INV_ITEM_MSG.g_Request_id := g_Request_id;
362:
363: IF ( p_commit_flag = 1 ) THEN
356:
357: INV_ITEM_MSG.g_User_id := g_User_id;
358: INV_ITEM_MSG.g_Login_id := g_Login_id;
359: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
360: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
361: INV_ITEM_MSG.g_Request_id := g_Request_id;
362:
363: IF ( p_commit_flag = 1 ) THEN
364: l_commit := fnd_api.g_TRUE;
357: INV_ITEM_MSG.g_User_id := g_User_id;
358: INV_ITEM_MSG.g_Login_id := g_Login_id;
359: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
360: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
361: INV_ITEM_MSG.g_Request_id := g_Request_id;
362:
363: IF ( p_commit_flag = 1 ) THEN
364: l_commit := fnd_api.g_TRUE;
365: ELSE
371: ---------------------------------------------------------------------------------------
372: -- Process step 1: Set process flag to 2 --
373: ---------------------------------------------------------------------------------------
374:
375: INV_ITEM_MSG.Debug(Mctx, ' Set process flag to 2');
376:
377: UPDATE mtl_desc_elem_val_interface mdei
378: SET process_flag = 2
379: WHERE
384: -- Process step 2: Loop through item catlog group elements interface records --
385: -- (a) convert the item_number to irem_id --
386: -- (b) update the interface records accordingly --
387: ------------------------------------------------------------------------------------------
388: INV_ITEM_MSG.Debug(Mctx, 'starting the ICatalogOI loop to convert the item_number');
389:
390: IF p_upload_rec_flag = 1 THEN
391:
392: SELECT mtl_system_items_interface_s.NEXTVAL
441: l_token_value := l_item_number||item_id;
442: l_column_name := 'ITEM_NUMBER';
443: END IF;
444: IF (l_return_status = fnd_api.g_RET_STS_ERROR) THEN
445: INV_ITEM_MSG.Add_Message
446: ( p_Msg_Name => l_msg_name
447: , p_token1 => l_token
448: , p_value1 => l_token_value
449: , p_column_name => l_column_name
470: IF ( FND_API.To_Boolean(l_commit) ) THEN
471: COMMIT WORK;
472: END IF;
473: -- Write all accumulated messages
474: INV_ITEM_MSG.Write_List (p_delete => TRUE);
475:
476: ------------------------------------------------------------------------------------------
477: -- Process step 3: Loop through item catlog group elements interface records --
478: -- (a) Check for duplicate records in the interface table table --
477: -- Process step 3: Loop through item catlog group elements interface records --
478: -- (a) Check for duplicate records in the interface table table --
479: -- (b) update the duplicate interface records process_flag --
480: ------------------------------------------------------------------------------------------
481: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step3');
482:
483: SELECT mtl_system_items_interface_s.NEXTVAL
484: INTO l_transaction_id
485: FROM dual;
485: FROM dual;
486:
487: FOR icoi_rec_dup IN icoi_csr_dup LOOP --{
488:
489: INV_ITEM_MSG.Add_Message
490: ( p_Msg_Name => 'INV_CEOI_DUP_ELEM_REC'
491: , p_token1 => 'ELEMENT_NAME'
492: , p_value1 => icoi_rec_dup.ELEMENT_NAME
493: , p_transaction_id => l_transaction_id
508: IF ( FND_API.To_Boolean(l_commit) ) THEN
509: COMMIT WORK;
510: END IF;
511: -- Write all accumulated messages
512: INV_ITEM_MSG.Write_List (p_delete => TRUE);
513:
514: ------------------------------------------------------------------------------------------
515: -- Process step 4: Loop through item catlog group elements interface records --
516: -- (a) call the API to create item catalog group element values assignment record in the production table --
516: -- (a) call the API to create item catalog group element values assignment record in the production table --
517: -- (b) update the current interface record process_flag and other converted values --
518: ------------------------------------------------------------------------------------------
519:
520: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step4');
521:
522: SELECT mtl_system_items_interface_s.NEXTVAL
523: INTO l_transaction_id
524: FROM dual;
544: -- call the API to process item catalog element values
545:
546: IF ( l_process_flag = 4 AND p_upload_rec_flag = 1 ) THEN
547:
548: INV_ITEM_MSG.Debug(Mctx, 'calling INV_ITEM_CATALOG_ELE_PVT.Create_Catalog_group_ele_Assignment:'||l_element_name);
549:
550: INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment
551: (
552: p_api_version => 1.0
566: IF ( l_return_status = fnd_api.g_RET_STS_SUCCESS ) THEN
567: l_process_flag := 7;
568: ELSE
569: l_process_flag := 3;
570: INV_ITEM_MSG.Debug(Mctx, 'error in Catalog_Grp_Ele_Val_Assignment. Msg count=' || TO_CHAR(INV_ITEM_MSG.Count_Msg));
571: l_RETCODE := G_WARNING;
572: END IF; -- l_return_status
573:
574: -- If unexpected error in Catalog_Grp_Ele_Val_Assignment API, stop the processing
579:
580: END IF; -- process_flag = 4 AND p_upload_rec_flag = 1
581:
582: -- Write all accumulated messages
583: INV_ITEM_MSG.Write_List (p_delete => TRUE);
584:
585: --
586: -- Update the current interface record
587: --
585: --
586: -- Update the current interface record
587: --
588:
589: INV_ITEM_MSG.Debug(Mctx, 'update interface record');
590:
591: UPDATE mtl_desc_elem_val_interface
592: SET
593: transaction_id = l_transaction_id
616: --
617:
618: IF (p_delete_rec_flag = 1) THEN
619:
620: INV_ITEM_MSG.Debug(Mctx, 'calling delete_OI_records');
621:
622: INV_ITEM_CATALOG_ELEM_PUB.delete_OI_records
623: ( p_commit => l_commit
624: , p_rec_set_id => g_xset_id
624: , p_rec_set_id => g_xset_id
625: , x_return_status => l_return_status
626: );
627:
628: INV_ITEM_MSG.Debug(Mctx, 'done delete_OI_records: return_status=' || l_return_status);
629:
630: IF ( l_return_status <> fnd_api.g_RET_STS_SUCCESS ) THEN
631: RAISE Processing_Error;
632: END IF;
631: RAISE Processing_Error;
632: END IF;
633:
634: -- Write all accumulated messages
635: INV_ITEM_MSG.Write_List (p_delete => TRUE);
636:
637: END IF; -- p_delete_rec_flag = 1
638:
639: --
655: RETCODE := G_ERROR;
656: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
657:
658: -- Write all accumulated messages
659: INV_ITEM_MSG.Write_List (p_delete => TRUE);
660:
661: -- Check of commit
662: IF ( FND_API.To_Boolean(l_commit) ) THEN
663: COMMIT WORK;
668: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
669:
670: l_err_text := SUBSTRB(SQLERRM, 1,240);
671:
672: INV_ITEM_MSG.Add_Message
673: ( p_Msg_Name => 'INV_ITEM_UNEXPECTED_ERROR'
674: , p_token1 => 'PACKAGE_NAME'
675: , p_value1 => G_PKG_NAME
676: , p_token2 => 'PROCEDURE_NAME'
680: , p_transaction_id => l_transaction_id
681: );
682:
683: -- Write all accumulated messages
684: INV_ITEM_MSG.Write_List (p_delete => TRUE);
685:
686: -- Check of commit
687: IF ( FND_API.To_Boolean(l_commit) ) THEN
688: COMMIT WORK;
700: , x_return_status OUT NOCOPY VARCHAR2
701: )
702: IS
703: l_api_name CONSTANT VARCHAR2(30) := 'delete_OI_records';
704: Mctx INV_ITEM_MSG.Msg_Ctx_type;
705:
706: l_del_process_flag NUMBER := 7; -- process_flag value for records to be deleted
707: BEGIN
708:
708:
709: Mctx.Package_Name := G_PKG_NAME;
710: Mctx.Procedure_Name := l_api_name;
711:
712: INV_ITEM_MSG.Debug(Mctx, 'begin');
713:
714: -- Initialize API return status to success
715: x_return_status := FND_API.g_RET_STS_SUCCESS;
716:
721: AND rownum < G_ROWS_TO_COMMIT;
722:
723: EXIT WHEN SQL%NOTFOUND;
724:
725: INV_ITEM_MSG.Debug(Mctx, 'deleted ' || TO_CHAR(SQL%ROWCOUNT) || ' record(s)');
726:
727: -- Check of commit
728: IF ( FND_API.To_Boolean(p_commit) ) THEN
729: COMMIT WORK;
735:
736: WHEN others THEN
737: x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
738:
739: INV_ITEM_MSG.Add_Unexpected_Error (Mctx, SQLERRM);
740:
741: -- Check of commit
742: IF ( FND_API.To_Boolean(p_commit) ) THEN
743: COMMIT WORK;