2828: l_proj_template_id NUMBER;
2829:
2830: -- Define local record datatypes
2831: l_visit_rec Visit_Rec_Type := p_x_visit_rec;
2832: l_workorder_rec AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REC;
2833: l_workoper_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKOPER_TBL;
2834: l_Space_Assignment_Rec ahl_ltp_space_assign_pub.Space_Assignment_Rec;
2835:
2836: -- Define local Cursors
2829:
2830: -- Define local record datatypes
2831: l_visit_rec Visit_Rec_Type := p_x_visit_rec;
2832: l_workorder_rec AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REC;
2833: l_workoper_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKOPER_TBL;
2834: l_Space_Assignment_Rec ahl_ltp_space_assign_pub.Space_Assignment_Rec;
2835:
2836: -- Define local Cursors
2837: -- To find visit related information
3355: IF c_visit_WO%FOUND THEN
3356: CLOSE c_visit_WO;
3357:
3358: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3359: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3360: END IF;
3361:
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3363: (p_api_version => 1.0,
3358: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3359: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3360: END IF;
3361:
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_TRUE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3373: p_unit_effectivity_id => NULL,
3374: p_workorder_id => NULL);
3375:
3376: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3377: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3378: END IF;
3379:
3380: IF l_return_status <> 'S' THEN
3381: RAISE Fnd_Api.G_EXC_ERROR;
3397: IF c_visit_WO%found THEN
3398: close c_visit_WO;
3399:
3400: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3402: END IF;
3403:
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3405: (p_api_version => 1.0,
3400: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3402: END IF;
3403:
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3405: (p_api_version => 1.0,
3406: p_init_msg_list => FND_API.G_TRUE,
3407: p_commit => FND_API.G_FALSE,
3408: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3415: p_unit_effectivity_id => NULL,
3416: p_workorder_id => NULL);
3417:
3418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3419: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3420: END IF;
3421:
3422: IF l_return_status <> 'S' THEN
3423: RAISE Fnd_Api.G_EXC_ERROR;
3441: -- l_workorder_rec.SCHEDULED_START_DATE := l_date_time_start;
3442: -- l_workorder_rec.SCHEDULED_END_DATE := l_visit_end_date;
3443:
3444: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3445: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - Before calling AHL_PRD_WORKORDER_PVT.update_job API');
3446: END IF;
3447:
3448: AHL_PRD_WORKORDER_PVT.update_job
3449: ( p_api_version =>1.0,
3444: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3445: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - Before calling AHL_PRD_WORKORDER_PVT.update_job API');
3446: END IF;
3447:
3448: AHL_PRD_WORKORDER_PVT.update_job
3449: ( p_api_version =>1.0,
3450: p_init_msg_list =>fnd_api.g_false,
3451: p_commit =>fnd_api.g_false,
3452: p_validation_level =>p_validation_level,
3465: RAISE Fnd_Api.G_EXC_ERROR;
3466: END IF;
3467:
3468: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3469: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - After calling AHL_PRD_WORKORDER_PVT.update_job API - l_return_status : '||l_return_status);
3470: END IF;
3471: END IF; -- End of visit workorder found
3472: CLOSE c_visit_WO;
3473:
3500: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
3501:
3502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
3504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
3505: END IF;
3506:
3507: AHL_PRD_WORKORDER_PVT.update_job
3508: ( p_api_version =>1.0,
3503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
3504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
3505: END IF;
3506:
3507: AHL_PRD_WORKORDER_PVT.update_job
3508: ( p_api_version =>1.0,
3509: p_init_msg_list =>fnd_api.g_false,
3510: p_commit =>fnd_api.g_false,
3511: p_validation_level =>p_validation_level,
3519: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
3520: );
3521:
3522: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3523: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
3524: END IF;
3525:
3526: IF l_return_status <> 'S' THEN
3527: CLOSE c_Task_WO;
4045:
4046: l_tasks_rec c_tasks_csr%ROWTYPE;
4047:
4048: -- Local record of Workorder used while calling update job method.
4049: l_prd_workorder_rec AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REC;
4050: l_workorder_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKOPER_TBL;
4051:
4052: BEGIN
4053: --------------------- Initialize -----------------------
4046: l_tasks_rec c_tasks_csr%ROWTYPE;
4047:
4048: -- Local record of Workorder used while calling update job method.
4049: l_prd_workorder_rec AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REC;
4050: l_workorder_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKOPER_TBL;
4051:
4052: BEGIN
4053: --------------------- Initialize -----------------------
4054: SAVEPOINT Delete_Visit;
4223: l_prd_workorder_rec.object_version_number := l_active_workorder_rec.object_version_number;
4224: l_prd_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
4225:
4226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4227: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_PRD_WORKORDER_PVT.update_job - Workorder Id : '||l_prd_workorder_rec.workorder_id);
4228: END IF;
4229:
4230: AHL_PRD_WORKORDER_PVT.update_job
4231: ( p_api_version =>1.0,
4226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4227: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_PRD_WORKORDER_PVT.update_job - Workorder Id : '||l_prd_workorder_rec.workorder_id);
4228: END IF;
4229:
4230: AHL_PRD_WORKORDER_PVT.update_job
4231: ( p_api_version =>1.0,
4232: p_init_msg_list =>fnd_api.g_false,
4233: p_commit =>fnd_api.g_false,
4234: p_validation_level =>p_validation_level,
4242: p_x_prd_workoper_tbl =>l_workorder_tbl
4243: );
4244:
4245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4246: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
4247: END IF;
4248:
4249: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4250: CLOSE c_active_workorder;
5250: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252:
5253: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5254: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
5255: END IF;
5256: -- Added by shbhanda for Transit check changes on 06/25/2004
5257: -- Code Start
5258: -- Call Cancel_Visit_Jobs API
5255: END IF;
5256: -- Added by shbhanda for Transit check changes on 06/25/2004
5257: -- Code Start
5258: -- Call Cancel_Visit_Jobs API
5259: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
5260: (p_api_version => 1.0,
5261: p_init_msg_list => FND_API.G_TRUE,
5262: p_commit => FND_API.G_FALSE,
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5270: p_unit_effectivity_id => NULL,
5271: p_workorder_id => NULL);
5272:
5273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5274: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
5275: END IF;
5276:
5277: -- Check return status.
5278: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5814: END IF;
5815:
5816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
5818: END IF;
5819:
5820: AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS(
5821: P_API_VERSION => l_api_version,
5816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
5818: END IF;
5819:
5820: AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS(
5821: P_API_VERSION => l_api_version,
5822: X_RETURN_STATUS => l_return_status,
5823: X_MSG_COUNT => l_msg_count,
5824: X_MSG_DATA => l_msg_data,
5826: p_x_scheduled_start_date => l_visit_rec.START_DATE,
5827: p_x_scheduled_end_date => l_visit_rec.PLAN_END_DATE);
5828:
5829: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5830: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
5831: END IF;
5832:
5833: IF l_return_status <> 'S' THEN
5834: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;