[Home] [Help]
3070: x_msg_data OUT NOCOPY VARCHAR2,
3071: x_msg_count OUT NOCOPY NUMBER,
3072: x_ahl_mtltxn_rec OUT NOCOPY AHL_PRD_MTLTXN_PVT.Ahl_Mtltxn_Rec_Type)
3073: IS
3074: -- FND Logging Constants
3075: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3076: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3077: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3078: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3071: x_msg_count OUT NOCOPY NUMBER,
3072: x_ahl_mtltxn_rec OUT NOCOPY AHL_PRD_MTLTXN_PVT.Ahl_Mtltxn_Rec_Type)
3073: IS
3074: -- FND Logging Constants
3075: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3076: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3077: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3078: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3079:
3072: x_ahl_mtltxn_rec OUT NOCOPY AHL_PRD_MTLTXN_PVT.Ahl_Mtltxn_Rec_Type)
3073: IS
3074: -- FND Logging Constants
3075: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3076: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3077: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3078: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3079:
3080: l_debug_module VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator';
3073: IS
3074: -- FND Logging Constants
3075: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3076: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3077: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3078: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3079:
3080: l_debug_module VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator';
3081:
3074: -- FND Logging Constants
3075: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3076: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3077: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3078: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3079:
3080: l_debug_module VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator';
3081:
3082: CURSOR ahl_disp_csr (p_disposition_id IN NUMBER,
3115: BEGIN
3116:
3117: -- log debug message.
3118: IF (l_debug_proc >= l_debug_level) THEN
3119: fnd_log.string(l_debug_proc,l_debug_module,
3120: 'At Start of procedure AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator');
3121: END IF;
3122:
3123: -- Standard start of API savepoint
3132: x_return_status := FND_API.G_RET_STS_SUCCESS;
3133:
3134: -- log debug message.
3135: IF (l_debug_stmt >= l_debug_level) THEN
3136: fnd_log.string(l_debug_stmt,l_debug_module,
3137: 'Input disposition_id:' || p_disposition_id);
3138: fnd_log.string(l_debug_stmt,l_debug_module,
3139: 'Input Parts_Change_id:' || p_part_change_id);
3140: END IF;
3134: -- log debug message.
3135: IF (l_debug_stmt >= l_debug_level) THEN
3136: fnd_log.string(l_debug_stmt,l_debug_module,
3137: 'Input disposition_id:' || p_disposition_id);
3138: fnd_log.string(l_debug_stmt,l_debug_module,
3139: 'Input Parts_Change_id:' || p_part_change_id);
3140: END IF;
3141:
3142: -- get count of existing messages.
3222: x_msg_data => x_msg_data );
3223:
3224: IF (l_debug_stmt >= l_debug_level)
3225: THEN
3226: fnd_log.string
3227: (
3228: l_debug_stmt,
3229: l_debug_module,
3230: 'After call to AHL_PRD_MTLTXN_PVT.PERFORM_MTL_TXN. Return status:' || x_return_status
3228: l_debug_stmt,
3229: l_debug_module,
3230: 'After call to AHL_PRD_MTLTXN_PVT.PERFORM_MTL_TXN. Return status:' || x_return_status
3231: );
3232: fnd_log.string
3233: (
3234: l_debug_stmt,
3235: l_debug_module,
3236: 'After call to AHL_PRD_MTLTXN_PVT.PERFORM_MTL_TXN. Error count:' || x_msg_count
3252: END LOOP;
3253:
3254: -- log debug message.
3255: IF (l_debug_proc >= l_debug_level) THEN
3256: fnd_log.string(l_debug_proc,l_debug_module,
3257: '');
3258: END IF;
3259:
3260: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3279: p_x_disp_mtl_txn_tbl => l_disp_Mtl_Txn_Tbl);
3280:
3281: IF (l_debug_stmt >= l_debug_level)
3282: THEN
3283: fnd_log.string
3284: (
3285: l_debug_stmt,
3286: l_debug_module,
3287: 'After call to AHL_PRD_DISP_MTL_TXN_PVT.Process_Disp_Mtl_Txn. Return status:' || x_return_status
3285: l_debug_stmt,
3286: l_debug_module,
3287: 'After call to AHL_PRD_DISP_MTL_TXN_PVT.Process_Disp_Mtl_Txn. Return status:' || x_return_status
3288: );
3289: fnd_log.string
3290: (
3291: l_debug_stmt,
3292: l_debug_module,
3293: 'After call to AHL_PRD_DISP_MTL_TXN_PVT.Process_Disp_Mtl_Txn. Error count:' || x_msg_count
3301: END IF;
3302:
3303: -- log debug message.
3304: IF (l_debug_proc >= l_debug_level) THEN
3305: fnd_log.string(l_debug_proc,l_debug_module,
3306: 'At End of procedure AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator');
3307: END IF;
3308:
3309: EXCEPTION
3376: BEGIN
3377: -- Standard start of API savepoint
3378: SAVEPOINT MOVE_INSTANCE_LOCATION;
3379:
3380: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3381: fnd_log.string
3382: (
3383: fnd_log.level_procedure,
3384: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3377: -- Standard start of API savepoint
3378: SAVEPOINT MOVE_INSTANCE_LOCATION;
3379:
3380: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3381: fnd_log.string
3382: (
3383: fnd_log.level_procedure,
3384: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3385: 'At the start of PLSQL procedure'
3379:
3380: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3381: fnd_log.string
3382: (
3383: fnd_log.level_procedure,
3384: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3385: 'At the start of PLSQL procedure'
3386: );
3387: END IF;
3407: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3408: RAISE FND_API.G_EXC_ERROR;
3409: END IF;
3410:
3411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3412: fnd_log.string
3413: (
3414: fnd_log.level_statement,
3415: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3408: RAISE FND_API.G_EXC_ERROR;
3409: END IF;
3410:
3411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3412: fnd_log.string
3413: (
3414: fnd_log.level_statement,
3415: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3416: 'Created CSI Transaction'
3410:
3411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3412: fnd_log.string
3413: (
3414: fnd_log.level_statement,
3415: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3416: 'Created CSI Transaction'
3417: );
3418: END IF;
3422: FETCH ahl_wip_location_csr INTO l_location_id ;
3423: CLOSE ahl_wip_location_csr;*/
3424:
3425: FOR i IN p_move_item_instance_tbl.FIRST..p_move_item_instance_tbl.LAST LOOP
3426: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3427: fnd_log.string
3428: (
3429: fnd_log.level_statement,
3430: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3423: CLOSE ahl_wip_location_csr;*/
3424:
3425: FOR i IN p_move_item_instance_tbl.FIRST..p_move_item_instance_tbl.LAST LOOP
3426: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3427: fnd_log.string
3428: (
3429: fnd_log.level_statement,
3430: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3431: 'p_move_item_instance_tbl(i).instance_id : ' || p_move_item_instance_tbl(i).instance_id
3425: FOR i IN p_move_item_instance_tbl.FIRST..p_move_item_instance_tbl.LAST LOOP
3426: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3427: fnd_log.string
3428: (
3429: fnd_log.level_statement,
3430: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3431: 'p_move_item_instance_tbl(i).instance_id : ' || p_move_item_instance_tbl(i).instance_id
3432: );
3433: END IF;
3430: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3431: 'p_move_item_instance_tbl(i).instance_id : ' || p_move_item_instance_tbl(i).instance_id
3432: );
3433: END IF;
3434: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3435: fnd_log.string
3436: (
3437: fnd_log.level_statement,
3438: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3431: 'p_move_item_instance_tbl(i).instance_id : ' || p_move_item_instance_tbl(i).instance_id
3432: );
3433: END IF;
3434: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3435: fnd_log.string
3436: (
3437: fnd_log.level_statement,
3438: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3439: 'p_move_item_instance_tbl(i).quantity : ' || p_move_item_instance_tbl(i).quantity
3433: END IF;
3434: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3435: fnd_log.string
3436: (
3437: fnd_log.level_statement,
3438: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3439: 'p_move_item_instance_tbl(i).quantity : ' || p_move_item_instance_tbl(i).quantity
3440: );
3441: END IF;
3446: x_serialized => l_serialized,
3447: x_Return_Status => X_Return_Status
3448: );
3449: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3450: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3451: fnd_log.string
3452: (
3453: fnd_log.level_error,
3454: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3447: x_Return_Status => X_Return_Status
3448: );
3449: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3450: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3451: fnd_log.string
3452: (
3453: fnd_log.level_error,
3454: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3455: 'get_dest_instance_rec returned error'
3449: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3450: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3451: fnd_log.string
3452: (
3453: fnd_log.level_error,
3454: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3455: 'get_dest_instance_rec returned error'
3456: );
3457: END IF;
3468: p_x_csi_transaction_rec => l_csi_transaction_rec,
3469: x_Return_Status => X_Return_Status
3470: );
3471: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3472: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3473: fnd_log.string
3474: (
3475: fnd_log.level_error,
3476: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3469: x_Return_Status => X_Return_Status
3470: );
3471: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3472: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3473: fnd_log.string
3474: (
3475: fnd_log.level_error,
3476: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3477: 'serialized move: update_csi_item_instance returned error'
3471: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3472: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3473: fnd_log.string
3474: (
3475: fnd_log.level_error,
3476: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3477: 'serialized move: update_csi_item_instance returned error'
3478: );
3479: END IF;
3489: p_x_csi_transaction_rec => l_csi_transaction_rec,
3490: x_Return_Status => X_Return_Status
3491: );
3492: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3493: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3494: fnd_log.string
3495: (
3496: fnd_log.level_error,
3497: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3490: x_Return_Status => X_Return_Status
3491: );
3492: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3493: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3494: fnd_log.string
3495: (
3496: fnd_log.level_error,
3497: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3498: 'non serialized move: move_nonser_instance returned error'
3492: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3493: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3494: fnd_log.string
3495: (
3496: fnd_log.level_error,
3497: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3498: 'non serialized move: move_nonser_instance returned error'
3499: );
3500: END IF;
3515: ( p_count => x_msg_count,
3516: p_data => x_msg_data,
3517: p_encoded => fnd_api.g_false);
3518:
3519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3520: fnd_log.string
3521: (
3522: fnd_log.level_procedure,
3523: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
3516: p_data => x_msg_data,
3517: p_encoded => fnd_api.g_false);
3518:
3519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3520: fnd_log.string
3521: (
3522: fnd_log.level_procedure,
3523: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
3524: 'At the end of PLSQL procedure'
3518:
3519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3520: fnd_log.string
3521: (
3522: fnd_log.level_procedure,
3523: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
3524: 'At the end of PLSQL procedure'
3525: );
3526: END IF;
3626: AND A.visit_id = B.visit_id;
3627:
3628:
3629: BEGIN
3630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3631: fnd_log.string
3632: (
3633: fnd_log.level_procedure,
3634: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3627:
3628:
3629: BEGIN
3630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3631: fnd_log.string
3632: (
3633: fnd_log.level_procedure,
3634: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3635: 'At the start of PLSQL procedure'
3629: BEGIN
3630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3631: fnd_log.string
3632: (
3633: fnd_log.level_procedure,
3634: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3635: 'At the start of PLSQL procedure'
3636: );
3637: END IF;
3640: IF(p_module_type = 'JSP' AND p_move_item_instance_rec.from_workorder_number IS NOT NULL) THEN
3641: OPEN wip_entity_wonum_csr(p_move_item_instance_rec.from_workorder_number);
3642: FETCH wip_entity_wonum_csr INTO l_from_wip_entity_id,l_status_code;
3643: IF (wip_entity_wonum_csr%NOTFOUND OR l_status_code IN ('1','5','7','12','17','22')) THEN
3644: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3645: fnd_log.string
3646: (
3647: fnd_log.level_error,
3648: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3641: OPEN wip_entity_wonum_csr(p_move_item_instance_rec.from_workorder_number);
3642: FETCH wip_entity_wonum_csr INTO l_from_wip_entity_id,l_status_code;
3643: IF (wip_entity_wonum_csr%NOTFOUND OR l_status_code IN ('1','5','7','12','17','22')) THEN
3644: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3645: fnd_log.string
3646: (
3647: fnd_log.level_error,
3648: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3649: 'wip_entity_not_found for from_workorder_number'
3643: IF (wip_entity_wonum_csr%NOTFOUND OR l_status_code IN ('1','5','7','12','17','22')) THEN
3644: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3645: fnd_log.string
3646: (
3647: fnd_log.level_error,
3648: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3649: 'wip_entity_not_found for from_workorder_number'
3650: );
3651: END IF;
3657: ELSIF p_move_item_instance_rec.from_workorder_id IS NOT NULL THEN
3658: OPEN wip_entity_woid_csr(p_move_item_instance_rec.from_workorder_id);
3659: FETCH wip_entity_woid_csr INTO l_from_wip_entity_id,l_status_code;
3660: IF (wip_entity_woid_csr%NOTFOUND OR l_status_code IN ('1','5','7','12','17','22')) THEN
3661: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3662: fnd_log.string
3663: (
3664: fnd_log.level_error,
3665: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3658: OPEN wip_entity_woid_csr(p_move_item_instance_rec.from_workorder_id);
3659: FETCH wip_entity_woid_csr INTO l_from_wip_entity_id,l_status_code;
3660: IF (wip_entity_woid_csr%NOTFOUND OR l_status_code IN ('1','5','7','12','17','22')) THEN
3661: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3662: fnd_log.string
3663: (
3664: fnd_log.level_error,
3665: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3666: 'wip_entity_not_found for from_workorder_id'
3660: IF (wip_entity_woid_csr%NOTFOUND OR l_status_code IN ('1','5','7','12','17','22')) THEN
3661: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3662: fnd_log.string
3663: (
3664: fnd_log.level_error,
3665: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3666: 'wip_entity_not_found for from_workorder_id'
3667: );
3668: END IF;
3677: IF(p_module_type = 'JSP' AND p_move_item_instance_rec.to_workorder_number IS NOT NULL) THEN
3678: OPEN wip_entity_wonum_csr(p_move_item_instance_rec.to_workorder_number);
3679: FETCH wip_entity_wonum_csr INTO l_to_wip_entity_id, l_status_code;
3680: IF (wip_entity_wonum_csr%NOTFOUND OR l_status_code IN ('1','4','5','6','7','12','17','21','22')) THEN
3681: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3682: fnd_log.string
3683: (
3684: fnd_log.level_error,
3685: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3678: OPEN wip_entity_wonum_csr(p_move_item_instance_rec.to_workorder_number);
3679: FETCH wip_entity_wonum_csr INTO l_to_wip_entity_id, l_status_code;
3680: IF (wip_entity_wonum_csr%NOTFOUND OR l_status_code IN ('1','4','5','6','7','12','17','21','22')) THEN
3681: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3682: fnd_log.string
3683: (
3684: fnd_log.level_error,
3685: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3686: 'wip_entity_not_found for to_workorder_number'
3680: IF (wip_entity_wonum_csr%NOTFOUND OR l_status_code IN ('1','4','5','6','7','12','17','21','22')) THEN
3681: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3682: fnd_log.string
3683: (
3684: fnd_log.level_error,
3685: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3686: 'wip_entity_not_found for to_workorder_number'
3687: );
3688: END IF;
3694: ELSE
3695: OPEN wip_entity_woid_csr(p_move_item_instance_rec.to_workorder_id);
3696: FETCH wip_entity_woid_csr INTO l_to_wip_entity_id, l_status_code;
3697: IF (wip_entity_woid_csr%NOTFOUND OR l_status_code IN ('1','4','5','6','7','12','17','21','22')) THEN
3698: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3699: fnd_log.string
3700: (
3701: fnd_log.level_error,
3702: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3695: OPEN wip_entity_woid_csr(p_move_item_instance_rec.to_workorder_id);
3696: FETCH wip_entity_woid_csr INTO l_to_wip_entity_id, l_status_code;
3697: IF (wip_entity_woid_csr%NOTFOUND OR l_status_code IN ('1','4','5','6','7','12','17','21','22')) THEN
3698: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3699: fnd_log.string
3700: (
3701: fnd_log.level_error,
3702: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3703: 'wip_entity_not_found for to_workorder_id'
3697: IF (wip_entity_woid_csr%NOTFOUND OR l_status_code IN ('1','4','5','6','7','12','17','21','22')) THEN
3698: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3699: fnd_log.string
3700: (
3701: fnd_log.level_error,
3702: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3703: 'wip_entity_not_found for to_workorder_id'
3704: );
3705: END IF;
3735: l_current_quantity,
3736: l_curr_wip_entity_id;
3737:
3738: IF (csi_item_instance_num_csr%NOTFOUND) THEN
3739: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3740: fnd_log.string
3741: (
3742: fnd_log.level_error,
3743: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3736: l_curr_wip_entity_id;
3737:
3738: IF (csi_item_instance_num_csr%NOTFOUND) THEN
3739: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3740: fnd_log.string
3741: (
3742: fnd_log.level_error,
3743: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3744: 'removed instance_num not found ' || p_move_item_instance_rec.instance_number
3738: IF (csi_item_instance_num_csr%NOTFOUND) THEN
3739: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3740: fnd_log.string
3741: (
3742: fnd_log.level_error,
3743: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3744: 'removed instance_num not found ' || p_move_item_instance_rec.instance_number
3745: );
3746: END IF;
3750: FND_MSG_PUB.ADD;
3751: END IF;
3752: CLOSE csi_item_instance_num_csr;
3753: ELSE
3754: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3755: fnd_log.string
3756: (
3757: fnd_log.level_statement,
3758: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3751: END IF;
3752: CLOSE csi_item_instance_num_csr;
3753: ELSE
3754: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3755: fnd_log.string
3756: (
3757: fnd_log.level_statement,
3758: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3759: 'p_move_item_instance_rec.instance_id : ' || p_move_item_instance_rec.instance_id
3753: ELSE
3754: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3755: fnd_log.string
3756: (
3757: fnd_log.level_statement,
3758: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3759: 'p_move_item_instance_rec.instance_id : ' || p_move_item_instance_rec.instance_id
3760: );
3761: END IF;
3766: l_serial_number,
3767: l_current_quantity,
3768: l_curr_wip_entity_id;
3769: IF (csi_item_instance_id_csr%NOTFOUND) THEN
3770: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3771: fnd_log.string
3772: (
3773: fnd_log.level_error,
3774: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3767: l_current_quantity,
3768: l_curr_wip_entity_id;
3769: IF (csi_item_instance_id_csr%NOTFOUND) THEN
3770: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3771: fnd_log.string
3772: (
3773: fnd_log.level_error,
3774: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3775: 'removed instance_id not found ' || p_move_item_instance_rec.instance_id
3769: IF (csi_item_instance_id_csr%NOTFOUND) THEN
3770: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3771: fnd_log.string
3772: (
3773: fnd_log.level_error,
3774: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3775: 'removed instance_id not found ' || p_move_item_instance_rec.instance_id
3776: );
3777: END IF;
3783: CLOSE csi_item_instance_id_csr;
3784: END IF;
3785:
3786:
3787: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3788: fnd_log.string
3789: (
3790: fnd_log.level_statement,
3791: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3784: END IF;
3785:
3786:
3787: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3788: fnd_log.string
3789: (
3790: fnd_log.level_statement,
3791: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3792: 'checking whether item is serialized'
3786:
3787: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3788: fnd_log.string
3789: (
3790: fnd_log.level_statement,
3791: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3792: 'checking whether item is serialized'
3793: );
3794: END IF;
3804: CLOSE check_inst_nonserial;
3805:
3806: IF FND_API.To_Boolean(x_serialized) THEN
3807: IF(NVL(p_move_item_instance_rec.quantity,1) <> 1)THEN
3808: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3809: fnd_log.string
3810: (
3811: fnd_log.level_error,
3812: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3805:
3806: IF FND_API.To_Boolean(x_serialized) THEN
3807: IF(NVL(p_move_item_instance_rec.quantity,1) <> 1)THEN
3808: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3809: fnd_log.string
3810: (
3811: fnd_log.level_error,
3812: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3813: 'invalid qty for serialized item ' || p_move_item_instance_rec.quantity
3807: IF(NVL(p_move_item_instance_rec.quantity,1) <> 1)THEN
3808: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3809: fnd_log.string
3810: (
3811: fnd_log.level_error,
3812: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3813: 'invalid qty for serialized item ' || p_move_item_instance_rec.quantity
3814: );
3815: END IF;
3819: END IF;
3820: ELSE
3821: IF ((NVL(p_move_item_instance_rec.quantity,1) < 0) OR
3822: (NVL(p_move_item_instance_rec.quantity,1) > l_current_quantity))THEN
3823: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3824: fnd_log.string
3825: (
3826: fnd_log.level_error,
3827: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3820: ELSE
3821: IF ((NVL(p_move_item_instance_rec.quantity,1) < 0) OR
3822: (NVL(p_move_item_instance_rec.quantity,1) > l_current_quantity))THEN
3823: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3824: fnd_log.string
3825: (
3826: fnd_log.level_error,
3827: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3828: 'invalid qty for non serialized item ' || p_move_item_instance_rec.quantity
3822: (NVL(p_move_item_instance_rec.quantity,1) > l_current_quantity))THEN
3823: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3824: fnd_log.string
3825: (
3826: fnd_log.level_error,
3827: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3828: 'invalid qty for non serialized item ' || p_move_item_instance_rec.quantity
3829: );
3830: END IF;
3835: END IF;
3836: END IF;
3837:
3838: IF(l_curr_wip_entity_id <> l_from_wip_entity_id) THEN
3839: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3840: fnd_log.string
3841: (
3842: fnd_log.level_error,
3843: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3836: END IF;
3837:
3838: IF(l_curr_wip_entity_id <> l_from_wip_entity_id) THEN
3839: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3840: fnd_log.string
3841: (
3842: fnd_log.level_error,
3843: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3844: 'item not in from wip_entity_id location ' || l_from_wip_entity_id
3838: IF(l_curr_wip_entity_id <> l_from_wip_entity_id) THEN
3839: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3840: fnd_log.string
3841: (
3842: fnd_log.level_error,
3843: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3844: 'item not in from wip_entity_id location ' || l_from_wip_entity_id
3845: );
3846: END IF;
3858: l_instance_rec.quantity := NVL(p_move_item_instance_rec.quantity,1);
3859: x_instance_rec := l_instance_rec;
3860:
3861:
3862: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3863: fnd_log.string
3864: (
3865: fnd_log.level_statement,
3866: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3859: x_instance_rec := l_instance_rec;
3860:
3861:
3862: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3863: fnd_log.string
3864: (
3865: fnd_log.level_statement,
3866: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3867: 'x_instance_rec.instance_id ' || x_instance_rec.instance_id
3861:
3862: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3863: fnd_log.string
3864: (
3865: fnd_log.level_statement,
3866: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3867: 'x_instance_rec.instance_id ' || x_instance_rec.instance_id
3868: );
3869: fnd_log.string
3865: fnd_log.level_statement,
3866: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3867: 'x_instance_rec.instance_id ' || x_instance_rec.instance_id
3868: );
3869: fnd_log.string
3870: (
3871: fnd_log.level_statement,
3872: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3873: 'x_instance_rec.wip_job_id ' || x_instance_rec.wip_job_id
3867: 'x_instance_rec.instance_id ' || x_instance_rec.instance_id
3868: );
3869: fnd_log.string
3870: (
3871: fnd_log.level_statement,
3872: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3873: 'x_instance_rec.wip_job_id ' || x_instance_rec.wip_job_id
3874: );
3875: fnd_log.string
3871: fnd_log.level_statement,
3872: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3873: 'x_instance_rec.wip_job_id ' || x_instance_rec.wip_job_id
3874: );
3875: fnd_log.string
3876: (
3877: fnd_log.level_statement,
3878: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3879: 'x_instance_rec.quantity ' || x_instance_rec.quantity
3873: 'x_instance_rec.wip_job_id ' || x_instance_rec.wip_job_id
3874: );
3875: fnd_log.string
3876: (
3877: fnd_log.level_statement,
3878: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3879: 'x_instance_rec.quantity ' || x_instance_rec.quantity
3880: );
3881: END IF;
3879: 'x_instance_rec.quantity ' || x_instance_rec.quantity
3880: );
3881: END IF;
3882:
3883: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3884: fnd_log.string
3885: (
3886: fnd_log.level_procedure,
3887: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
3880: );
3881: END IF;
3882:
3883: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3884: fnd_log.string
3885: (
3886: fnd_log.level_procedure,
3887: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
3888: 'At the end of PLSQL procedure'
3882:
3883: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3884: fnd_log.string
3885: (
3886: fnd_log.level_procedure,
3887: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
3888: 'At the end of PLSQL procedure'
3889: );
3890: END IF;
3940: l_junk VARCHAR2(1);*/
3941:
3942:
3943: BEGIN
3944: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3945: fnd_log.string
3946: (
3947: fnd_log.level_procedure,
3948: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3941:
3942:
3943: BEGIN
3944: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3945: fnd_log.string
3946: (
3947: fnd_log.level_procedure,
3948: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3949: 'At the start of PLSQL procedure'
3943: BEGIN
3944: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3945: fnd_log.string
3946: (
3947: fnd_log.level_procedure,
3948: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3949: 'At the start of PLSQL procedure'
3950: );
3951: END IF;
3951: END IF;
3952:
3953: -- populate l_instance_rec
3954: l_instance_rec := p_instance_rec;
3955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3956: fnd_log.string
3957: (
3958: fnd_log.level_statement,
3959: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3952:
3953: -- populate l_instance_rec
3954: l_instance_rec := p_instance_rec;
3955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3956: fnd_log.string
3957: (
3958: fnd_log.level_statement,
3959: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3960: 'l_instance_rec.instance_id : ' || l_instance_rec.instance_id
3954: l_instance_rec := p_instance_rec;
3955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3956: fnd_log.string
3957: (
3958: fnd_log.level_statement,
3959: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3960: 'l_instance_rec.instance_id : ' || l_instance_rec.instance_id
3961: );
3962: fnd_log.string
3958: fnd_log.level_statement,
3959: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3960: 'l_instance_rec.instance_id : ' || l_instance_rec.instance_id
3961: );
3962: fnd_log.string
3963: (
3964: fnd_log.level_statement,
3965: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3966: 'l_instance_rec.quantity : ' || l_instance_rec.quantity
3960: 'l_instance_rec.instance_id : ' || l_instance_rec.instance_id
3961: );
3962: fnd_log.string
3963: (
3964: fnd_log.level_statement,
3965: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3966: 'l_instance_rec.quantity : ' || l_instance_rec.quantity
3967: );
3968: fnd_log.string
3964: fnd_log.level_statement,
3965: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3966: 'l_instance_rec.quantity : ' || l_instance_rec.quantity
3967: );
3968: fnd_log.string
3969: (
3970: fnd_log.level_statement,
3971: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3972: 'l_instance_rec.active_end_date : ' || to_char(l_instance_rec.active_end_date)
3966: 'l_instance_rec.quantity : ' || l_instance_rec.quantity
3967: );
3968: fnd_log.string
3969: (
3970: fnd_log.level_statement,
3971: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
3972: 'l_instance_rec.active_end_date : ' || to_char(l_instance_rec.active_end_date)
3973: );
3974: END IF;
4010: ,x_instance_id_lst => l_instance_id_lst
4011: ,x_return_status => x_return_status
4012: ,x_msg_count => l_msg_count
4013: ,x_msg_data => l_msg_data );
4014: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4015: fnd_log.string
4016: (
4017: fnd_log.level_procedure,
4018: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
4011: ,x_return_status => x_return_status
4012: ,x_msg_count => l_msg_count
4013: ,x_msg_data => l_msg_data );
4014: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4015: fnd_log.string
4016: (
4017: fnd_log.level_procedure,
4018: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
4019: 'At the end of PLSQL procedure'
4013: ,x_msg_data => l_msg_data );
4014: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4015: fnd_log.string
4016: (
4017: fnd_log.level_procedure,
4018: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
4019: 'At the end of PLSQL procedure'
4020: );
4021: END IF;
4136: l_open_wip_job_dest BOOLEAN;
4137:
4138:
4139: BEGIN
4140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4141: fnd_log.string
4142: (
4143: fnd_log.level_procedure,
4144: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4137:
4138:
4139: BEGIN
4140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4141: fnd_log.string
4142: (
4143: fnd_log.level_procedure,
4144: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4145: 'At the start of PLSQL procedure'
4139: BEGIN
4140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4141: fnd_log.string
4142: (
4143: fnd_log.level_procedure,
4144: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4145: 'At the start of PLSQL procedure'
4146: );
4147: END IF;
4190: -- add to dest instance quantity
4191: l_instance_rec.instance_id := l_dest_instance_rec.instance_id;
4192: l_instance_rec.quantity := l_dest_instance_rec.quantity + p_move_quantity;
4193: l_instance_rec.object_version_number := l_dest_instance_rec.object_version_number;
4194: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4197: fnd_log.level_statement,
4198: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4191: l_instance_rec.instance_id := l_dest_instance_rec.instance_id;
4192: l_instance_rec.quantity := l_dest_instance_rec.quantity + p_move_quantity;
4193: l_instance_rec.object_version_number := l_dest_instance_rec.object_version_number;
4194: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4197: fnd_log.level_statement,
4198: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4199: 'Item Found in destination'
4193: l_instance_rec.object_version_number := l_dest_instance_rec.object_version_number;
4194: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4197: fnd_log.level_statement,
4198: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4199: 'Item Found in destination'
4200: );
4201: fnd_log.string
4197: fnd_log.level_statement,
4198: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4199: 'Item Found in destination'
4200: );
4201: fnd_log.string
4202: (
4203: fnd_log.level_statement,
4204: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4205: 'l_dest_instance_rec.instance_id ' || l_dest_instance_rec.instance_id
4199: 'Item Found in destination'
4200: );
4201: fnd_log.string
4202: (
4203: fnd_log.level_statement,
4204: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4205: 'l_dest_instance_rec.instance_id ' || l_dest_instance_rec.instance_id
4206: );
4207: END IF;
4211: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4212: x_Return_Status => X_Return_Status
4213: );
4214: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4215: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4216: fnd_log.string
4217: (
4218: fnd_log.level_error,
4219: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4212: x_Return_Status => X_Return_Status
4213: );
4214: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4215: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4216: fnd_log.string
4217: (
4218: fnd_log.level_error,
4219: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4220: 'Item in destination: dest Non Serialized update_csi_item_instance returned error '
4214: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4215: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4216: fnd_log.string
4217: (
4218: fnd_log.level_error,
4219: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4220: 'Item in destination: dest Non Serialized update_csi_item_instance returned error '
4221: );
4222: END IF;
4232: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4233: x_Return_Status => X_Return_Status
4234: );
4235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4237: fnd_log.string
4238: (
4239: fnd_log.level_error,
4240: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4233: x_Return_Status => X_Return_Status
4234: );
4235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4237: fnd_log.string
4238: (
4239: fnd_log.level_error,
4240: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4241: 'Item in destination: source Non Serialized update_csi_item_instance returned error '
4235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4237: fnd_log.string
4238: (
4239: fnd_log.level_error,
4240: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4241: 'Item in destination: source Non Serialized update_csi_item_instance returned error '
4242: );
4243: END IF;
4256: ELSE
4257: l_instance_rec.quantity := l_dest_instance_rec.quantity + p_move_quantity;
4258: END IF;
4259: l_instance_rec.object_version_number := l_dest_instance_rec.object_version_number;
4260: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4261: fnd_log.string
4262: (
4263: fnd_log.level_statement,
4264: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4257: l_instance_rec.quantity := l_dest_instance_rec.quantity + p_move_quantity;
4258: END IF;
4259: l_instance_rec.object_version_number := l_dest_instance_rec.object_version_number;
4260: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4261: fnd_log.string
4262: (
4263: fnd_log.level_statement,
4264: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4265: 'Item Found in destination'
4259: l_instance_rec.object_version_number := l_dest_instance_rec.object_version_number;
4260: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4261: fnd_log.string
4262: (
4263: fnd_log.level_statement,
4264: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4265: 'Item Found in destination'
4266: );
4267: fnd_log.string
4263: fnd_log.level_statement,
4264: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4265: 'Item Found in destination'
4266: );
4267: fnd_log.string
4268: (
4269: fnd_log.level_statement,
4270: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4271: 'l_dest_instance_rec.instance_id ' || l_dest_instance_rec.instance_id
4265: 'Item Found in destination'
4266: );
4267: fnd_log.string
4268: (
4269: fnd_log.level_statement,
4270: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4271: 'l_dest_instance_rec.instance_id ' || l_dest_instance_rec.instance_id
4272: );
4273: END IF;
4277: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4278: x_Return_Status => X_Return_Status
4279: );
4280: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4281: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4282: fnd_log.string
4283: (
4284: fnd_log.level_error,
4285: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4278: x_Return_Status => X_Return_Status
4279: );
4280: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4281: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4282: fnd_log.string
4283: (
4284: fnd_log.level_error,
4285: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4286: 'Item in destination: dest Non Serialized update_csi_item_instance returned error '
4280: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4281: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4282: fnd_log.string
4283: (
4284: fnd_log.level_error,
4285: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4286: 'Item in destination: dest Non Serialized update_csi_item_instance returned error '
4287: );
4288: END IF;
4305: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4306: x_Return_Status => X_Return_Status
4307: );
4308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4309: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4310: fnd_log.string
4311: (
4312: fnd_log.level_error,
4313: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4306: x_Return_Status => X_Return_Status
4307: );
4308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4309: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4310: fnd_log.string
4311: (
4312: fnd_log.level_error,
4313: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4314: 'Item in destination: source Non Serialized update_csi_item_instance returned error '
4308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4309: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4310: fnd_log.string
4311: (
4312: fnd_log.level_error,
4313: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4314: 'Item in destination: source Non Serialized update_csi_item_instance returned error '
4315: );
4316: END IF;
4316: END IF;
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319: ELSE -- no item in destination
4320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4321: fnd_log.string
4322: (
4323: fnd_log.level_statement,
4324: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319: ELSE -- no item in destination
4320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4321: fnd_log.string
4322: (
4323: fnd_log.level_statement,
4324: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4325: 'Active Item Not Found in destination'
4319: ELSE -- no item in destination
4320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4321: fnd_log.string
4322: (
4323: fnd_log.level_statement,
4324: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4325: 'Active Item Not Found in destination'
4326: );
4327: fnd_log.string
4323: fnd_log.level_statement,
4324: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4325: 'Active Item Not Found in destination'
4326: );
4327: fnd_log.string
4328: (
4329: fnd_log.level_statement,
4330: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4331: 'l_source_inst_rec.instance_id ' || l_source_inst_rec.instance_id
4325: 'Active Item Not Found in destination'
4326: );
4327: fnd_log.string
4328: (
4329: fnd_log.level_statement,
4330: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4331: 'l_source_inst_rec.instance_id ' || l_source_inst_rec.instance_id
4332: );
4333: fnd_log.string
4329: fnd_log.level_statement,
4330: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4331: 'l_source_inst_rec.instance_id ' || l_source_inst_rec.instance_id
4332: );
4333: fnd_log.string
4334: (
4335: fnd_log.level_statement,
4336: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4337: 'l_source_inst_rec.quantity ' || l_source_inst_rec.quantity
4331: 'l_source_inst_rec.instance_id ' || l_source_inst_rec.instance_id
4332: );
4333: fnd_log.string
4334: (
4335: fnd_log.level_statement,
4336: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4337: 'l_source_inst_rec.quantity ' || l_source_inst_rec.quantity
4338: );
4339: fnd_log.string
4335: fnd_log.level_statement,
4336: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4337: 'l_source_inst_rec.quantity ' || l_source_inst_rec.quantity
4338: );
4339: fnd_log.string
4340: (
4341: fnd_log.level_statement,
4342: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4343: 'p_dest_wip_job_id ' || p_dest_wip_job_id
4337: 'l_source_inst_rec.quantity ' || l_source_inst_rec.quantity
4338: );
4339: fnd_log.string
4340: (
4341: fnd_log.level_statement,
4342: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4343: 'p_dest_wip_job_id ' || p_dest_wip_job_id
4344: );
4345: fnd_log.string
4341: fnd_log.level_statement,
4342: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4343: 'p_dest_wip_job_id ' || p_dest_wip_job_id
4344: );
4345: fnd_log.string
4346: (
4347: fnd_log.level_statement,
4348: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4349: 'p_move_quantity ' || p_move_quantity
4343: 'p_dest_wip_job_id ' || p_dest_wip_job_id
4344: );
4345: fnd_log.string
4346: (
4347: fnd_log.level_statement,
4348: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4349: 'p_move_quantity ' || p_move_quantity
4350: );
4351: END IF;
4353: OPEN dest_inactive_instance_csr(p_source_instance_id,p_dest_wip_job_id);
4354: FETCH dest_inactive_instance_csr INTO l_junk;
4355: IF(dest_inactive_instance_csr%NOTFOUND)THEN
4356: l_inactive_item_found := FALSE;
4357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4358: fnd_log.string
4359: (
4360: fnd_log.level_statement,
4361: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4354: FETCH dest_inactive_instance_csr INTO l_junk;
4355: IF(dest_inactive_instance_csr%NOTFOUND)THEN
4356: l_inactive_item_found := FALSE;
4357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4358: fnd_log.string
4359: (
4360: fnd_log.level_statement,
4361: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4362: 'No inactive item either in destination '
4356: l_inactive_item_found := FALSE;
4357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4358: fnd_log.string
4359: (
4360: fnd_log.level_statement,
4361: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4362: 'No inactive item either in destination '
4363: );
4364: END IF;
4374: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4375: x_Return_Status => X_Return_Status
4376: );
4377: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4378: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4379: fnd_log.string
4380: (
4381: fnd_log.level_error,
4382: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4375: x_Return_Status => X_Return_Status
4376: );
4377: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4378: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4379: fnd_log.string
4380: (
4381: fnd_log.level_error,
4382: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4383: 'Item NOT in destination: Full Move update_csi_item_instance returned error '
4377: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4378: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4379: fnd_log.string
4380: (
4381: fnd_log.level_error,
4382: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4383: 'Item NOT in destination: Full Move update_csi_item_instance returned error '
4384: );
4385: END IF;
4395: x_dest_instance_id => l_dest_instance_id,
4396: x_return_status => X_Return_Status
4397: );
4398: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4399: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4400: fnd_log.string
4401: (
4402: fnd_log.level_error,
4403: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4396: x_return_status => X_Return_Status
4397: );
4398: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4399: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4400: fnd_log.string
4401: (
4402: fnd_log.level_error,
4403: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4404: 'Item NOT in destination: Partial Move create_similar_instance returned error '
4398: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4399: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4400: fnd_log.string
4401: (
4402: fnd_log.level_error,
4403: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4404: 'Item NOT in destination: Partial Move create_similar_instance returned error '
4405: );
4406: END IF;
4415: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4416: x_Return_Status => X_Return_Status
4417: );
4418: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4420: fnd_log.string
4421: (
4422: fnd_log.level_error,
4423: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4416: x_Return_Status => X_Return_Status
4417: );
4418: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4420: fnd_log.string
4421: (
4422: fnd_log.level_error,
4423: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4424: 'Item NOT in destination: Partial Move/Update Source qty update_csi_item_instance returned error '
4418: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4420: fnd_log.string
4421: (
4422: fnd_log.level_error,
4423: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4424: 'Item NOT in destination: Partial Move/Update Source qty update_csi_item_instance returned error '
4425: );
4426: END IF;
4428: END IF;
4429: END IF;
4430: END IF;
4431:
4432: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4433: fnd_log.string
4434: (
4435: fnd_log.level_procedure,
4436: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
4429: END IF;
4430: END IF;
4431:
4432: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4433: fnd_log.string
4434: (
4435: fnd_log.level_procedure,
4436: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
4437: 'At the end of PLSQL procedure'
4431:
4432: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4433: fnd_log.string
4434: (
4435: fnd_log.level_procedure,
4436: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.end',
4437: 'At the end of PLSQL procedure'
4438: );
4439: END IF;
4514:
4515: l_copy_instance BOOLEAN;
4516:
4517: BEGIN
4518: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4519: fnd_log.string
4520: (
4521: fnd_log.level_procedure,
4522: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4515: l_copy_instance BOOLEAN;
4516:
4517: BEGIN
4518: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4519: fnd_log.string
4520: (
4521: fnd_log.level_procedure,
4522: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4523: 'At the start of PLSQL procedure'
4517: BEGIN
4518: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4519: fnd_log.string
4520: (
4521: fnd_log.level_procedure,
4522: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4523: 'At the start of PLSQL procedure'
4524: );
4525: END IF;
4527: l_copy_instance := TRUE;
4528: OPEN dest_instance_csr(p_dest_wip_job_id,p_source_instance_id );
4529: FETCH dest_instance_csr INTO l_dest_instance_rec.instance_id;
4530: IF(dest_instance_csr%FOUND)THEN
4531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4532: fnd_log.string
4533: (
4534: fnd_log.level_statement,
4535: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4528: OPEN dest_instance_csr(p_dest_wip_job_id,p_source_instance_id );
4529: FETCH dest_instance_csr INTO l_dest_instance_rec.instance_id;
4530: IF(dest_instance_csr%FOUND)THEN
4531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4532: fnd_log.string
4533: (
4534: fnd_log.level_statement,
4535: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4536: 'Expired instance found'
4530: IF(dest_instance_csr%FOUND)THEN
4531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4532: fnd_log.string
4533: (
4534: fnd_log.level_statement,
4535: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4536: 'Expired instance found'
4537: );
4538: END IF;
4540: END IF;
4541: CLOSE dest_instance_csr;
4542:
4543: IF(l_copy_instance)THEN
4544: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4545: fnd_log.string
4546: (
4547: fnd_log.level_statement,
4548: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4541: CLOSE dest_instance_csr;
4542:
4543: IF(l_copy_instance)THEN
4544: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4545: fnd_log.string
4546: (
4547: fnd_log.level_statement,
4548: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4549: 'Searching for a dummy one'
4543: IF(l_copy_instance)THEN
4544: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4545: fnd_log.string
4546: (
4547: fnd_log.level_statement,
4548: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4549: 'Searching for a dummy one'
4550: );
4551: END IF;
4551: END IF;
4552: OPEN dest_instance_csr1(p_dest_wip_job_id,p_source_instance_id );
4553: FETCH dest_instance_csr1 INTO l_dest_instance_rec.instance_id;
4554: IF(dest_instance_csr1%FOUND)THEN
4555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4556: fnd_log.string
4557: (
4558: fnd_log.level_statement,
4559: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4552: OPEN dest_instance_csr1(p_dest_wip_job_id,p_source_instance_id );
4553: FETCH dest_instance_csr1 INTO l_dest_instance_rec.instance_id;
4554: IF(dest_instance_csr1%FOUND)THEN
4555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4556: fnd_log.string
4557: (
4558: fnd_log.level_statement,
4559: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4560: 'Dummy instance found '
4554: IF(dest_instance_csr1%FOUND)THEN
4555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4556: fnd_log.string
4557: (
4558: fnd_log.level_statement,
4559: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4560: 'Dummy instance found '
4561: );
4562: END IF;
4574: l_source_instance_rec.LOCATION_ID,
4575: l_source_instance_rec.INSTANCE_STATUS_ID;
4576: CLOSE get_instance_attrib_csr;
4577:
4578: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4579: fnd_log.string
4580: (
4581: fnd_log.level_statement,
4582: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4575: l_source_instance_rec.INSTANCE_STATUS_ID;
4576: CLOSE get_instance_attrib_csr;
4577:
4578: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4579: fnd_log.string
4580: (
4581: fnd_log.level_statement,
4582: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4583: 'l_source_instance_rec.instance_id ' || l_source_instance_rec.instance_id
4577:
4578: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4579: fnd_log.string
4580: (
4581: fnd_log.level_statement,
4582: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4583: 'l_source_instance_rec.instance_id ' || l_source_instance_rec.instance_id
4584: );
4585: fnd_log.string
4581: fnd_log.level_statement,
4582: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4583: 'l_source_instance_rec.instance_id ' || l_source_instance_rec.instance_id
4584: );
4585: fnd_log.string
4586: (
4587: fnd_log.level_statement,
4588: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4589: 'l_source_instance_rec.object_version_number ' || l_source_instance_rec.object_version_number
4583: 'l_source_instance_rec.instance_id ' || l_source_instance_rec.instance_id
4584: );
4585: fnd_log.string
4586: (
4587: fnd_log.level_statement,
4588: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4589: 'l_source_instance_rec.object_version_number ' || l_source_instance_rec.object_version_number
4590: );
4591: fnd_log.string
4587: fnd_log.level_statement,
4588: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4589: 'l_source_instance_rec.object_version_number ' || l_source_instance_rec.object_version_number
4590: );
4591: fnd_log.string
4592: (
4593: fnd_log.level_statement,
4594: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4595: 'p_dest_quantity ' || p_dest_quantity
4589: 'l_source_instance_rec.object_version_number ' || l_source_instance_rec.object_version_number
4590: );
4591: fnd_log.string
4592: (
4593: fnd_log.level_statement,
4594: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4595: 'p_dest_quantity ' || p_dest_quantity
4596: );
4597: fnd_log.string
4593: fnd_log.level_statement,
4594: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4595: 'p_dest_quantity ' || p_dest_quantity
4596: );
4597: fnd_log.string
4598: (
4599: fnd_log.level_statement,
4600: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4601: 'p_dest_wip_job_id ' || p_dest_wip_job_id
4595: 'p_dest_quantity ' || p_dest_quantity
4596: );
4597: fnd_log.string
4598: (
4599: fnd_log.level_statement,
4600: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4601: 'p_dest_wip_job_id ' || p_dest_wip_job_id
4602: );
4603: END IF;
4624: ,x_msg_data => l_msg_data
4625: );
4626:
4627: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4628: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4629: fnd_log.string
4630: (
4631: fnd_log.level_error,
4632: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4625: );
4626:
4627: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4628: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4629: fnd_log.string
4630: (
4631: fnd_log.level_error,
4632: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4633: 'CSI_ITEM_INSTANCE_PUB.copy_item_instance returned error '
4627: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4628: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4629: fnd_log.string
4630: (
4631: fnd_log.level_error,
4632: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4633: 'CSI_ITEM_INSTANCE_PUB.copy_item_instance returned error '
4634: );
4635: END IF;
4635: END IF;
4636: RAISE FND_API.G_EXC_ERROR;
4637: END IF;
4638:
4639: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4640: fnd_log.string
4641: (
4642: fnd_log.level_statement,
4643: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4636: RAISE FND_API.G_EXC_ERROR;
4637: END IF;
4638:
4639: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4640: fnd_log.string
4641: (
4642: fnd_log.level_statement,
4643: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4644: 'Instance copied successfully'
4638:
4639: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4640: fnd_log.string
4641: (
4642: fnd_log.level_statement,
4643: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4644: 'Instance copied successfully'
4645: );
4646: fnd_log.string
4642: fnd_log.level_statement,
4643: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4644: 'Instance copied successfully'
4645: );
4646: fnd_log.string
4647: (
4648: fnd_log.level_statement,
4649: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4650: 'l_new_instance_tbl(1).instance_id : ' ||l_new_instance_tbl(1).instance_id
4644: 'Instance copied successfully'
4645: );
4646: fnd_log.string
4647: (
4648: fnd_log.level_statement,
4649: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4650: 'l_new_instance_tbl(1).instance_id : ' ||l_new_instance_tbl(1).instance_id
4651: );
4652:
4682: p_x_csi_transaction_rec => p_x_csi_transaction_rec,
4683: x_Return_Status => X_Return_Status
4684: );
4685: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4686: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4687: fnd_log.string
4688: (
4689: fnd_log.level_error,
4690: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4683: x_Return_Status => X_Return_Status
4684: );
4685: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4686: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4687: fnd_log.string
4688: (
4689: fnd_log.level_error,
4690: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4691: 'Updating copied instance loc: update_csi_item_instance returned error '
4685: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4686: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
4687: fnd_log.string
4688: (
4689: fnd_log.level_error,
4690: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
4691: 'Updating copied instance loc: update_csi_item_instance returned error '
4692: );
4693: END IF;
4695: END IF;
4696: x_dest_instance_id := l_dest_instance_rec.instance_id;
4697:
4698:
4699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4700: fnd_log.string
4701: (
4702: fnd_log.level_procedure,
4703: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4696: x_dest_instance_id := l_dest_instance_rec.instance_id;
4697:
4698:
4699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4700: fnd_log.string
4701: (
4702: fnd_log.level_procedure,
4703: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4704: 'At the end of PLSQL procedure'
4698:
4699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4700: fnd_log.string
4701: (
4702: fnd_log.level_procedure,
4703: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name ||'.begin',
4704: 'At the end of PLSQL procedure'
4705: );
4706: END IF;