[Home] [Help]
534: l_loc_wt_uom VARCHAR2(3);
535: l_loc_vol_uom VARCHAR2(3);
536:
537: BEGIN
538: -- Standard Start of API savepoint
539: SAVEPOINT WMS_Update_Locator_Capacity;
540:
541: x_return_status := fnd_api.g_ret_sts_success ; --set to Success by default.
542:
737: l_IN_rec WSH_GLBL_VAR_STRCT_GRP.detailInRecType;
738: l_OUT_rec WSH_GLBL_VAR_STRCT_GRP.detailOutRecType;
739:
740: BEGIN
741: -- Standard Start of API savepoint
742: SAVEPOINT CREATE_LPNS_PVT;
743:
744: -- Standard call to check for call compatibility.
745: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
740: BEGIN
741: -- Standard Start of API savepoint
742: SAVEPOINT CREATE_LPNS_PVT;
743:
744: -- Standard call to check for call compatibility.
745: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
746: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
747: fnd_msg_pub.ADD;
748: RAISE fnd_api.g_exc_unexpected_error;
1070: END IF;
1071:
1072: l_progress := 'End of API body';
1073:
1074: -- Standard check of p_commit.
1075: IF fnd_api.to_boolean(p_commit) THEN
1076: COMMIT WORK;
1077: END IF;
1078:
1075: IF fnd_api.to_boolean(p_commit) THEN
1076: COMMIT WORK;
1077: END IF;
1078:
1079: -- Standard call to get message count and data
1080: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: x_return_status := fnd_api.g_ret_sts_error;
1167: l_current_number NUMBER;
1168: l_padded_length NUMBER;
1169:
1170: BEGIN
1171: -- Standard Start of API savepoint
1172: SAVEPOINT AUTO_CREATE_LPNS_PVT;
1173:
1174: -- Standard call to check for call compatibility.
1175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1170: BEGIN
1171: -- Standard Start of API savepoint
1172: SAVEPOINT AUTO_CREATE_LPNS_PVT;
1173:
1174: -- Standard call to check for call compatibility.
1175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1177: fnd_msg_pub.ADD;
1178: RAISE fnd_api.g_exc_unexpected_error;
1535: END IF;
1536:
1537: x_created_lpns := l_lpn_tab;
1538:
1539: -- Standard check of p_commit.
1540: IF fnd_api.to_boolean(p_commit) THEN
1541: COMMIT WORK;
1542: END IF;
1543:
1540: IF fnd_api.to_boolean(p_commit) THEN
1541: COMMIT WORK;
1542: END IF;
1543:
1544: -- Standard call to get message count and data
1545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1546: EXCEPTION
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := fnd_api.g_ret_sts_error;
1766: --Bug number 5639121
1767: l_internal_order_flag NUMBER := 0;
1768:
1769: BEGIN
1770: -- Standard Start of API savepoint
1771: SAVEPOINT MODIFY_LPNS_PVT;
1772:
1773: -- Standard call to check for call compatibility.
1774: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1769: BEGIN
1770: -- Standard Start of API savepoint
1771: SAVEPOINT MODIFY_LPNS_PVT;
1772:
1773: -- Standard call to check for call compatibility.
1774: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1775: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1776: fnd_msg_pub.ADD;
1777: RAISE fnd_api.g_exc_unexpected_error;
3537: mdebug('Bulk Updated outermost WLPN count='||SQL%ROWCOUNT, G_INFO);
3538: END IF;
3539: END IF;
3540:
3541: -- Standard check of p_commit.
3542: IF fnd_api.to_boolean(p_commit) THEN
3543: COMMIT WORK;
3544: END IF;
3545:
3542: IF fnd_api.to_boolean(p_commit) THEN
3543: COMMIT WORK;
3544: END IF;
3545:
3546: -- Standard call to get message count and data
3547: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3548: EXCEPTION
3549: WHEN FND_API.G_EXC_ERROR THEN
3550: x_return_status := fnd_api.g_ret_sts_error;
3766: --mdebug('scrtype=' ||p_source_type_id|| ' srchdr=' ||p_source_header_id|| ' srcname=' ||p_source_name|| ' srcln=' ||p_source_line_id||' srclndet='||p_source_line_detail_id, G_INFO);
3767: --mdebug('p_total_length='||p_total_length||', p_ucc_128_suf='||p_ucc_128_suffix_flag);
3768: END IF;
3769:
3770: -- Standard call to check for call compatibility.
3771: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3772: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3773: fnd_msg_pub.ADD;
3774: RAISE fnd_api.g_exc_unexpected_error;
3846: ELSE
3847: RAISE fnd_api.g_exc_error;
3848: END IF;
3849:
3850: -- Standard check of p_commit.
3851: IF fnd_api.to_boolean(p_commit) THEN
3852: COMMIT WORK;
3853: END IF;
3854:
3851: IF fnd_api.to_boolean(p_commit) THEN
3852: COMMIT WORK;
3853: END IF;
3854:
3855: -- Standard call to get message count and if count is 1,
3856: -- get message info.
3857: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3858: EXCEPTION
3859: WHEN fnd_api.g_exc_error THEN
3912: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3913:
3914: l_lpn_tbl WMS_Data_Type_Definitions_PUB.LPNTableType;
3915: BEGIN
3916: -- Standard Start of API savepoint
3917: SAVEPOINT ASSOCIATE_LPN_PVT;
3918:
3919: -- Standard call to check for call compatibility.
3920: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3915: BEGIN
3916: -- Standard Start of API savepoint
3917: SAVEPOINT ASSOCIATE_LPN_PVT;
3918:
3919: -- Standard call to check for call compatibility.
3920: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3921: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3922: fnd_msg_pub.ADD;
3923: RAISE fnd_api.g_exc_unexpected_error;
3974: END IF;
3975:
3976: -- End of API body
3977:
3978: -- Standard check of p_commit.
3979: IF fnd_api.to_boolean(p_commit) THEN
3980: COMMIT WORK;
3981: END IF;
3982:
3979: IF fnd_api.to_boolean(p_commit) THEN
3980: COMMIT WORK;
3981: END IF;
3982:
3983: -- Standard call to get message count and if count is 1,
3984: -- get message info.
3985: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3986: EXCEPTION
3987: WHEN fnd_api.g_exc_error THEN
4040:
4041: l_lpn_tbl WMS_Data_Type_Definitions_PUB.LPNTableType;
4042:
4043: BEGIN
4044: -- Standard Start of API savepoint
4045: SAVEPOINT CREATE_LPN_PVT;
4046:
4047: -- Standard call to check for call compatibility.
4048: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4043: BEGIN
4044: -- Standard Start of API savepoint
4045: SAVEPOINT CREATE_LPN_PVT;
4046:
4047: -- Standard call to check for call compatibility.
4048: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4049: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4050: fnd_msg_pub.ADD;
4051: RAISE fnd_api.g_exc_unexpected_error;
4099: ELSE
4100: RAISE fnd_api.g_exc_error;
4101: END IF;
4102:
4103: -- Standard check of p_commit.
4104: IF fnd_api.to_boolean(p_commit) THEN
4105: COMMIT WORK;
4106: END IF;
4107:
4104: IF fnd_api.to_boolean(p_commit) THEN
4105: COMMIT WORK;
4106: END IF;
4107:
4108: -- Standard call to get message count and if count is 1,
4109: -- get message info.
4110: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4111: EXCEPTION
4112: WHEN FND_API.G_EXC_ERROR THEN
4324: START WITH lpn_id = p_lpn_id
4325: CONNECT BY parent_lpn_id = PRIOR lpn_id;
4326:
4327: BEGIN
4328: -- Standard Start of API savepoint
4329: SAVEPOINT PACKUNPACK_CONTAINER;
4330:
4331: -- Standard call to check for call compatibility.
4332: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4327: BEGIN
4328: -- Standard Start of API savepoint
4329: SAVEPOINT PACKUNPACK_CONTAINER;
4330:
4331: -- Standard call to check for call compatibility.
4332: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4333: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4334: fnd_msg_pub.ADD;
4335: RAISE fnd_api.g_exc_unexpected_error;
5821: , p_sec_quantity --INVCONV kkillams
5822: , p_sec_uom --INVCONV kkillams
5823: );
5824:
5825: -- Standard check of p_commit.
5826: IF fnd_api.to_boolean(p_commit) THEN
5827: COMMIT WORK;
5828: END IF;
5829:
5974:
5975: l_lpn WMS_Data_Type_Definitions_PUB.LPNTableType;
5976:
5977: BEGIN
5978: -- Standard Start of API savepoint
5979: SAVEPOINT MODIFY_LPN_WRAPPER_PVT;
5980:
5981: -- Standard call to check for call compatibility.
5982: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
5977: BEGIN
5978: -- Standard Start of API savepoint
5979: SAVEPOINT MODIFY_LPN_WRAPPER_PVT;
5980:
5981: -- Standard call to check for call compatibility.
5982: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
5983: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
5984: fnd_msg_pub.ADD;
5985: RAISE fnd_api.g_exc_unexpected_error;
6032: -- Modify LPN should put the appropriate error message in the stack
6033: RAISE fnd_api.g_exc_error;
6034: END IF;
6035:
6036: -- Standard check of p_commit.
6037: IF fnd_api.to_boolean(p_commit) THEN
6038: COMMIT WORK;
6039: END IF;
6040:
6144: AND organization_id = p_organization_id);
6145:
6146: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6147: BEGIN
6148: -- Standard Start of API savepoint
6149: SAVEPOINT CONTAINER_REQUIRED_QTY_PVT;
6150: -- Standard call to check for call compatibility.
6151: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
6152: p_api_version ,
6146: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6147: BEGIN
6148: -- Standard Start of API savepoint
6149: SAVEPOINT CONTAINER_REQUIRED_QTY_PVT;
6150: -- Standard call to check for call compatibility.
6151: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
6152: p_api_version ,
6153: l_api_name ,
6154: G_PKG_NAME )
6388: END IF;
6389: END IF;
6390: -- End of API body
6391:
6392: -- Standard check of p_commit.
6393: IF FND_API.To_Boolean( p_commit ) THEN
6394: COMMIT WORK;
6395: END IF;
6396: -- Standard call to get message count and if count is 1,
6392: -- Standard check of p_commit.
6393: IF FND_API.To_Boolean( p_commit ) THEN
6394: COMMIT WORK;
6395: END IF;
6396: -- Standard call to get message count and if count is 1,
6397: -- get message info.
6398: FND_MSG_PUB.Count_And_Get
6399: ( p_count => x_msg_count,
6400: p_data => x_msg_data
6471: ret BOOLEAN;
6472: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6473:
6474: BEGIN
6475: -- Standard Start of API savepoint
6476: SAVEPOINT PREPACK_LPN_CP_PVT;
6477:
6478: -- Standard call to check for call compatibility.
6479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6474: BEGIN
6475: -- Standard Start of API savepoint
6476: SAVEPOINT PREPACK_LPN_CP_PVT;
6477:
6478: -- Standard call to check for call compatibility.
6479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6480: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6481: fnd_msg_pub.ADD;
6482: RAISE fnd_api.g_exc_unexpected_error;
6525: retcode := 2;
6526: errbuf := x_msg_data;
6527: END IF;
6528:
6529: -- Standard call to get message count and if count is 1,
6530: -- get message info.
6531: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6532: EXCEPTION
6533: WHEN fnd_api.g_exc_error THEN
6673: AND msnt1.transaction_temp_id(+) = mtlt.serial_transaction_temp_id
6674: AND msnt2.transaction_temp_id(+) = mmtt.transaction_temp_id;
6675:
6676: BEGIN
6677: -- Standard Start of API savepoint
6678: SAVEPOINT prepack_lpn_pub;
6679:
6680: -- Standard call to check for call compatibility.
6681: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6676: BEGIN
6677: -- Standard Start of API savepoint
6678: SAVEPOINT prepack_lpn_pub;
6679:
6680: -- Standard call to check for call compatibility.
6681: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6682: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6683: fnd_msg_pub.ADD;
6684: RAISE fnd_api.g_exc_unexpected_error;
7392: END IF;
7393:
7394: -- End of API body
7395:
7396: -- Standard check of p_commit.
7397: IF fnd_api.to_boolean(p_commit) THEN
7398: COMMIT WORK;
7399: END IF;
7400:
7397: IF fnd_api.to_boolean(p_commit) THEN
7398: COMMIT WORK;
7399: END IF;
7400:
7401: -- Standard call to get message count and if count is 1,
7402: -- get message info.
7403: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7404: EXCEPTION
7405: WHEN fnd_api.g_exc_error THEN
7463:
7464: l_padded_length NUMBER;
7465: l_current_number NUMBER;
7466: BEGIN
7467: -- Standard Start of API savepoint
7468: SAVEPOINT PACK_PREPACK_CONTAINER;
7469:
7470: -- Standard call to check for call compatibility.
7471: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7466: BEGIN
7467: -- Standard Start of API savepoint
7468: SAVEPOINT PACK_PREPACK_CONTAINER;
7469:
7470: -- Standard call to check for call compatibility.
7471: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7472: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7473: fnd_msg_pub.ADD;
7474: RAISE fnd_api.g_exc_unexpected_error;
7559: END IF;
7560: END IF;
7561: -- End of API body
7562:
7563: -- Standard check of p_commit.
7564: IF fnd_api.to_boolean(p_commit) THEN
7565: COMMIT WORK;
7566: END IF;
7567:
7564: IF fnd_api.to_boolean(p_commit) THEN
7565: COMMIT WORK;
7566: END IF;
7567:
7568: -- Standard call to get message count and if count is 1,
7569: -- get message info.
7570: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7571: EXCEPTION
7572: WHEN fnd_api.g_exc_error THEN
7645: -- bug 5103594, added the Order By clause
7646: ORDER BY inventory_item_id, revision, lot_number, serial_number;
7647:
7648: BEGIN
7649: -- Standard Start of API savepoint
7650: SAVEPOINT EXPLODE_LPN;
7651:
7652: IF (l_debug = 1) THEN
7653: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
7653: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
7654: mdebug('ver='||p_api_version||' initmsg='||p_init_msg_list||' commit='||p_commit||' lpn='||p_lpn_id||' explvl='||p_explosion_level, G_INFO);
7655: END IF;
7656:
7657: -- Standard call to check for call compatibility.
7658: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7659: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7660: fnd_msg_pub.ADD;
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7823: IF (l_debug = 1) THEN
7824: mdebug(l_api_name || ' Exit x_content_tbl count=' ||x_content_tbl.last, G_INFO);
7825: END IF;
7826:
7827: -- Standard check of p_commit.
7828: IF FND_API.To_Boolean( p_commit ) THEN
7829: COMMIT WORK;
7830: END IF;
7831:
7828: IF FND_API.To_Boolean( p_commit ) THEN
7829: COMMIT WORK;
7830: END IF;
7831:
7832: -- Standard call to get message count and if count is 1,
7833: -- get message info.
7834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7835: EXCEPTION
7836: WHEN FND_API.G_EXC_ERROR THEN
8196:
8197: l_crnt_ser_rec LPN_serial_cur%ROWTYPE;
8198:
8199: BEGIN
8200: -- Standard Start of API savepoint
8201: SAVEPOINT MERGE_UP_LPN;
8202:
8203: -- Initialize message list if p_init_msg_list is set to TRUE.
8204: IF fnd_api.to_boolean(p_init_msg_list) THEN
8221: FROM DUAL;
8222:
8223: FOR Nested_LPN_rec IN Nested_LPN_cur LOOP
8224: -- Insert an 'UNPACK' transaction of child LPN from parent LPN into
8225: -- MTL_MATERIAL_TRANSACTIONS_TEMP using standard MMTT insert API
8226: l_return_status := INV_TRX_UTIL_PUB.INSERT_LINE_TRX (
8227: p_trx_hdr_id => l_trx_hdr_id
8228: , p_item_id => -1
8229: , p_org_id => p_organization_id
8538: IF ( l_debug = 1 ) THEN
8539: mdebug('Called INV_LABEL.PRINT_LABEL, return_status='||l_label_return||' label stat='||l_label_status, 1);
8540: END IF;
8541:
8542: -- Standard check of p_commit.
8543: IF FND_API.To_Boolean( p_commit ) THEN
8544: COMMIT WORK;
8545: END IF;
8546:
8594: l_label_return VARCHAR2(1);
8595: l_input_param_rec_tbl INV_LABEL.input_parameter_rec_type;
8596:
8597: BEGIN
8598: -- Standard Start of API savepoint
8599: SAVEPOINT BREAK_DOWN_LPN;
8600:
8601: -- Standard call to check for call compatibility.
8602: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8597: BEGIN
8598: -- Standard Start of API savepoint
8599: SAVEPOINT BREAK_DOWN_LPN;
8600:
8601: -- Standard call to check for call compatibility.
8602: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8603: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8604: fnd_msg_pub.ADD;
8605: RAISE fnd_api.g_exc_unexpected_error;
8624:
8625: --Every nested lpn will need to be deconsolidated from the outermost lpn,
8626: FOR lpn_rec IN nested_lpn_cursor LOOP
8627: -- Insert an 'UNPACK' transaction of child LPN from parent LPN into
8628: -- MTL_MATERIAL_TRANSACTIONS_TEMP using standard MMTT insert API
8629: l_return_status := INV_TRX_UTIL_PUB.INSERT_LINE_TRX (
8630: p_trx_hdr_id => l_trx_hdr_id
8631: , p_item_id => -1
8632: , p_org_id => p_organization_id
8683: IF ( l_debug = 1 ) THEN
8684: mdebug('Called INV_LABEL.PRINT_LABEL, return_status='||l_label_return||' label stat='||l_label_status, 1);
8685: END IF;
8686:
8687: -- Standard check of p_commit.
8688: IF FND_API.To_Boolean( p_commit ) THEN
8689: COMMIT WORK;
8690: END IF;
8691:
8730: WHERE organization_id = p_organization_id
8731: AND outermost_lpn_id = p_outermost_lpn_id;
8732:
8733: BEGIN
8734: -- Standard Start of API savepoint
8735: SAVEPOINT INITIALIZE_LPN;
8736:
8737: -- Standard call to check for call compatibility.
8738: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8733: BEGIN
8734: -- Standard Start of API savepoint
8735: SAVEPOINT INITIALIZE_LPN;
8736:
8737: -- Standard call to check for call compatibility.
8738: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8739: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8740: fnd_msg_pub.ADD;
8741: RAISE fnd_api.g_exc_unexpected_error;
8778: , last_updated_by = fnd_global.user_id
8779: WHERE rowid = lpn_rec.rowid;
8780: END LOOP;
8781:
8782: -- Standard check of p_commit.
8783: IF FND_API.To_Boolean( p_commit ) THEN
8784: COMMIT WORK;
8785: END IF;
8786: