1272:
1273: -- Initialize error message stack by default
1274: FND_MSG_PUB.Initialize;
1275:
1276: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1277: fnd_file.put_line(fnd_file.log, 'API inputs p_api_version -> '||p_api_version);
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1273: -- Initialize error message stack by default
1274: FND_MSG_PUB.Initialize;
1275:
1276: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1277: fnd_file.put_line(fnd_file.log, 'API inputs p_api_version -> '||p_api_version);
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1274: FND_MSG_PUB.Initialize;
1275:
1276: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1277: fnd_file.put_line(fnd_file.log, 'API inputs p_api_version -> '||p_api_version);
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1275:
1276: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1277: fnd_file.put_line(fnd_file.log, 'API inputs p_api_version -> '||p_api_version);
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1276: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1277: fnd_file.put_line(fnd_file.log, 'API inputs p_api_version -> '||p_api_version);
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1284: fnd_file.put_line(fnd_file.log, 'API inputs p_employee_id -> '||p_employee_id);
1277: fnd_file.put_line(fnd_file.log, 'API inputs p_api_version -> '||p_api_version);
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1284: fnd_file.put_line(fnd_file.log, 'API inputs p_employee_id -> '||p_employee_id);
1285: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1278: fnd_file.put_line(fnd_file.log, 'API inputs p_visit_id -> '||p_visit_id);
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1284: fnd_file.put_line(fnd_file.log, 'API inputs p_employee_id -> '||p_employee_id);
1285: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1286:
1279: fnd_file.put_line(fnd_file.log, 'API inputs p_stage_id -> '||p_stage_id);
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1284: fnd_file.put_line(fnd_file.log, 'API inputs p_employee_id -> '||p_employee_id);
1285: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1286:
1287: l_query_string := ' select
1280: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_from -> '||p_wo_no_from);
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1284: fnd_file.put_line(fnd_file.log, 'API inputs p_employee_id -> '||p_employee_id);
1285: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1286:
1287: l_query_string := ' select
1288: wo.workorder_id
1281: fnd_file.put_line(fnd_file.log, 'API inputs p_wo_no_to -> '||p_wo_no_to);
1282: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_from -> '||p_sch_start_from);
1283: fnd_file.put_line(fnd_file.log, 'API inputs p_sch_start_to -> '||p_sch_start_to);
1284: fnd_file.put_line(fnd_file.log, 'API inputs p_employee_id -> '||p_employee_id);
1285: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1286:
1287: l_query_string := ' select
1288: wo.workorder_id
1289: from
1332: l_bind_value_tbl(l_bind_index) := fnd_date.canonical_to_date(p_sch_start_to);
1333: l_bind_index := l_bind_index + 1;
1334: END IF;
1335:
1336: fnd_file.put_line(fnd_file.log, l_query_string);
1337:
1338: AHL_OSP_UTIL_PKG.OPEN_SEARCH_CURSOR(l_vst_wocard_csr, l_bind_value_tbl, l_query_string);
1339:
1340: i := 1;
1347:
1348: CLOSE l_vst_wocard_csr;
1349:
1350:
1351: fnd_file.put_line(fnd_file.log, 'No of workorders ->'||l_workorder_tbl.COUNT);
1352:
1353: IF l_workorder_tbl.COUNT > 0
1354: THEN
1355: Gen_Wo_Xml(
1374: l_chunk_size := 3000;
1375: l_clob_size := dbms_lob.getlength(l_clob);
1376:
1377: WHILE (l_clob_size > 0) LOOP
1378: fnd_file.put(fnd_file.log, dbms_lob.substr (l_clob, l_chunk_size, l_offset));
1379: l_clob_size := l_clob_size - l_chunk_size;
1380: l_offset := l_offset + l_chunk_size;
1381: END LOOP;
1382:
1387: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
1388: THEN
1389: retcode := 1; -- warning based on return status + msg count
1390: ELSE
1391: --fnd_file.put_line(fnd_file.output, dbms_lob.substr(l_clob, dbms_lob.getlength(l_clob), 1));
1392:
1393: l_offset := 1;
1394: l_chunk_size := 3000;
1395: l_clob_size := dbms_lob.getlength(l_clob);
1394: l_chunk_size := 3000;
1395: l_clob_size := dbms_lob.getlength(l_clob);
1396:
1397: WHILE (l_clob_size > 0) LOOP
1398: fnd_file.put(fnd_file.output, dbms_lob.substr (l_clob, l_chunk_size, l_offset));
1399: l_clob_size := l_clob_size - l_chunk_size;
1400: l_offset := l_offset + l_chunk_size;
1401: END LOOP;
1402:
4025: l_err_update_status VARCHAR2(30);
4026:
4027: BEGIN
4028: l_conc_request_id := fnd_global.conc_request_id;
4029: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4030: fnd_file.put_line(FND_FILE.LOG,'Entered AHL_PRD_PRINT_PVT.Generate_JCG_Request: cc id : ' || l_conc_request_id );
4031: fnd_file.new_line(FND_FILE.LOG,1);
4032: -- initialize return status.
4033: retcode := 0;
4026:
4027: BEGIN
4028: l_conc_request_id := fnd_global.conc_request_id;
4029: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4030: fnd_file.put_line(FND_FILE.LOG,'Entered AHL_PRD_PRINT_PVT.Generate_JCG_Request: cc id : ' || l_conc_request_id );
4031: fnd_file.new_line(FND_FILE.LOG,1);
4032: -- initialize return status.
4033: retcode := 0;
4034: l_return_status := FND_API.G_RET_STS_SUCCESS;
4027: BEGIN
4028: l_conc_request_id := fnd_global.conc_request_id;
4029: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4030: fnd_file.put_line(FND_FILE.LOG,'Entered AHL_PRD_PRINT_PVT.Generate_JCG_Request: cc id : ' || l_conc_request_id );
4031: fnd_file.new_line(FND_FILE.LOG,1);
4032: -- initialize return status.
4033: retcode := 0;
4034: l_return_status := FND_API.G_RET_STS_SUCCESS;
4035: fnd_global.apps_initialize(p_user_id, p_resp_id , 867/*APPLICATION ID for AHL constant */);
4039: FETCH get_jcg_details INTO l_jcg_id,l_object_type_code,l_object_id,l_split_flag;
4040: IF(get_jcg_details%NOTFOUND)THEN
4041: close get_jcg_details;
4042: retcode := 1;
4043: fnd_file.put_line(fnd_file.log,'Request Identifier could not be found : p_jcg_id : ' || p_jcg_id);
4044: fnd_file.put_line(FND_FILE.LOG,'Another user may have issued a print request for same object at a later time.');
4045: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4046: RETURN;
4047: END IF;
4040: IF(get_jcg_details%NOTFOUND)THEN
4041: close get_jcg_details;
4042: retcode := 1;
4043: fnd_file.put_line(fnd_file.log,'Request Identifier could not be found : p_jcg_id : ' || p_jcg_id);
4044: fnd_file.put_line(FND_FILE.LOG,'Another user may have issued a print request for same object at a later time.');
4045: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4046: RETURN;
4047: END IF;
4048: CLOSE get_jcg_details;
4041: close get_jcg_details;
4042: retcode := 1;
4043: fnd_file.put_line(fnd_file.log,'Request Identifier could not be found : p_jcg_id : ' || p_jcg_id);
4044: fnd_file.put_line(FND_FILE.LOG,'Another user may have issued a print request for same object at a later time.');
4045: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4046: RETURN;
4047: END IF;
4048: CLOSE get_jcg_details;
4049: l_enigma_request_id :=to_char(l_jcg_id) ||':'|| to_char(p_user_id) || ':'||to_char(p_resp_id) ;
4047: END IF;
4048: CLOSE get_jcg_details;
4049: l_enigma_request_id :=to_char(l_jcg_id) ||':'|| to_char(p_user_id) || ':'||to_char(p_resp_id) ;
4050:
4051: fnd_file.put_line(FND_FILE.LOG,'Calling Generate_JCG_XML');
4052:
4053: Generate_JCG_XML
4054: (p_api_version => 1.0,
4055: p_init_msg_list => FND_API.G_TRUE,
4069: retcode := 2; -- error based only on return status
4070: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4071: retcode := 1; -- warning based on return status + msg count
4072: END IF;
4073: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_count : ' || l_msg_count);
4074: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_return_status : ' || l_return_status);
4075: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML retcode : ' || retcode);
4076: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_data : ' || l_msg_data);
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4070: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4071: retcode := 1; -- warning based on return status + msg count
4072: END IF;
4073: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_count : ' || l_msg_count);
4074: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_return_status : ' || l_return_status);
4075: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML retcode : ' || retcode);
4076: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_data : ' || l_msg_data);
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4078: fnd_file.new_line(FND_FILE.LOG,1);
4071: retcode := 1; -- warning based on return status + msg count
4072: END IF;
4073: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_count : ' || l_msg_count);
4074: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_return_status : ' || l_return_status);
4075: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML retcode : ' || retcode);
4076: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_data : ' || l_msg_data);
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4078: fnd_file.new_line(FND_FILE.LOG,1);
4079:
4072: END IF;
4073: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_count : ' || l_msg_count);
4074: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_return_status : ' || l_return_status);
4075: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML retcode : ' || retcode);
4076: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_data : ' || l_msg_data);
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4078: fnd_file.new_line(FND_FILE.LOG,1);
4079:
4080: IF( retcode = 2 ) THEN
4073: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_count : ' || l_msg_count);
4074: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_return_status : ' || l_return_status);
4075: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML retcode : ' || retcode);
4076: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_data : ' || l_msg_data);
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4078: fnd_file.new_line(FND_FILE.LOG,1);
4079:
4080: IF( retcode = 2 ) THEN
4081: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML returned errors');
4074: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_return_status : ' || l_return_status);
4075: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML retcode : ' || retcode);
4076: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_msg_data : ' || l_msg_data);
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4078: fnd_file.new_line(FND_FILE.LOG,1);
4079:
4080: IF( retcode = 2 ) THEN
4081: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML returned errors');
4082: RAISE FND_API.G_EXC_ERROR;
4077: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML l_xml_file_name : ' || l_xml_file_name);
4078: fnd_file.new_line(FND_FILE.LOG,1);
4079:
4080: IF( retcode = 2 ) THEN
4081: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML returned errors');
4082: RAISE FND_API.G_EXC_ERROR;
4083: END IF;
4084: fnd_file.put_line(fnd_file.log,'Calling Process_JCG_Request');
4085:
4080: IF( retcode = 2 ) THEN
4081: fnd_file.put_line(FND_FILE.LOG,'Generate_JCG_XML returned errors');
4082: RAISE FND_API.G_EXC_ERROR;
4083: END IF;
4084: fnd_file.put_line(fnd_file.log,'Calling Process_JCG_Request');
4085:
4086: OPEN get_jcg_details(p_jcg_id);
4087: FETCH get_jcg_details INTO l_jcg_id,l_object_type_code,l_object_id,l_split_flag;
4088: IF(get_jcg_details%NOTFOUND)THEN
4087: FETCH get_jcg_details INTO l_jcg_id,l_object_type_code,l_object_id,l_split_flag;
4088: IF(get_jcg_details%NOTFOUND)THEN
4089: close get_jcg_details;
4090: retcode := 0;
4091: fnd_file.put_line(fnd_file.log,'Point 2: Request Identifier could not be found : p_jcg_id : ' || p_jcg_id);
4092: fnd_file.put_line(FND_FILE.LOG,'A print request issued later than this one has completed.');
4093: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4094: RETURN;
4095: end if;
4088: IF(get_jcg_details%NOTFOUND)THEN
4089: close get_jcg_details;
4090: retcode := 0;
4091: fnd_file.put_line(fnd_file.log,'Point 2: Request Identifier could not be found : p_jcg_id : ' || p_jcg_id);
4092: fnd_file.put_line(FND_FILE.LOG,'A print request issued later than this one has completed.');
4093: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4094: RETURN;
4095: end if;
4096: CLOSE get_jcg_details;
4089: close get_jcg_details;
4090: retcode := 0;
4091: fnd_file.put_line(fnd_file.log,'Point 2: Request Identifier could not be found : p_jcg_id : ' || p_jcg_id);
4092: fnd_file.put_line(FND_FILE.LOG,'A print request issued later than this one has completed.');
4093: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4094: RETURN;
4095: end if;
4096: CLOSE get_jcg_details;
4097:
4121: retcode := 2; -- error based only on return status
4122: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4123: retcode := 1; -- warning based on return status + msg count
4124: END IF;
4125: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_count : ' || l_msg_count);
4126: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_return_status : ' || l_return_status);
4127: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request retcode : ' || retcode);
4128: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_data : ' || l_msg_data);
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4122: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4123: retcode := 1; -- warning based on return status + msg count
4124: END IF;
4125: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_count : ' || l_msg_count);
4126: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_return_status : ' || l_return_status);
4127: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request retcode : ' || retcode);
4128: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_data : ' || l_msg_data);
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4130: fnd_file.new_line(FND_FILE.LOG,1);
4123: retcode := 1; -- warning based on return status + msg count
4124: END IF;
4125: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_count : ' || l_msg_count);
4126: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_return_status : ' || l_return_status);
4127: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request retcode : ' || retcode);
4128: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_data : ' || l_msg_data);
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4130: fnd_file.new_line(FND_FILE.LOG,1);
4131:
4124: END IF;
4125: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_count : ' || l_msg_count);
4126: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_return_status : ' || l_return_status);
4127: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request retcode : ' || retcode);
4128: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_data : ' || l_msg_data);
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4130: fnd_file.new_line(FND_FILE.LOG,1);
4131:
4132: IF( retcode =2 ) THEN
4125: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_count : ' || l_msg_count);
4126: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_return_status : ' || l_return_status);
4127: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request retcode : ' || retcode);
4128: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_data : ' || l_msg_data);
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4130: fnd_file.new_line(FND_FILE.LOG,1);
4131:
4132: IF( retcode =2 ) THEN
4133: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request returned errors');
4126: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_return_status : ' || l_return_status);
4127: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request retcode : ' || retcode);
4128: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_msg_data : ' || l_msg_data);
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4130: fnd_file.new_line(FND_FILE.LOG,1);
4131:
4132: IF( retcode =2 ) THEN
4133: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request returned errors');
4134: RAISE FND_API.G_EXC_ERROR;
4129: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request l_jcg_id : ' || l_jcg_id);
4130: fnd_file.new_line(FND_FILE.LOG,1);
4131:
4132: IF( retcode =2 ) THEN
4133: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request returned errors');
4134: RAISE FND_API.G_EXC_ERROR;
4135: END IF;
4136:
4137: fnd_file.put_line(FND_FILE.LOG,'Preparing to request Enigma to print');
4133: fnd_file.put_line(FND_FILE.LOG,'Process_JCG_Request returned errors');
4134: RAISE FND_API.G_EXC_ERROR;
4135: END IF;
4136:
4137: fnd_file.put_line(FND_FILE.LOG,'Preparing to request Enigma to print');
4138: l_xml_file_name := FND_PROFILE.VALUE('AHL_ENIGMA_JCG_XML_FILEPATH') ||'/' ||l_xml_file_name;
4139:
4140: /*l_xmldocument := '
4141: '
4142: --'JCG'-- fnd_global.user_name
4143: fnd_global.user_name
4144: || '';
4145:
4146: fnd_file.put_line(FND_FILE.LOG,'Event Data : ' || l_xmldocument);
4147: fnd_file.new_line(FND_FILE.LOG,1);
4148:
4149: dbms_lob.createtemporary(l_eventdata, FALSE, DBMS_LOB.CALL);
4150: dbms_lob.write(l_eventdata, length(l_xmldocument), 1,
4143: fnd_global.user_name
4144: || '';
4145:
4146: fnd_file.put_line(FND_FILE.LOG,'Event Data : ' || l_xmldocument);
4147: fnd_file.new_line(FND_FILE.LOG,1);
4148:
4149: dbms_lob.createtemporary(l_eventdata, FALSE, DBMS_LOB.CALL);
4150: dbms_lob.write(l_eventdata, length(l_xmldocument), 1,
4151: l_xmldocument);
4149: dbms_lob.createtemporary(l_eventdata, FALSE, DBMS_LOB.CALL);
4150: dbms_lob.write(l_eventdata, length(l_xmldocument), 1,
4151: l_xmldocument);
4152: -- Raise the Event with the message
4153: fnd_file.put_line(FND_FILE.LOG,'Raising event with key : ' || l_jcg_id);
4154: fnd_file.new_line(FND_FILE.LOG,1);
4155: wf_event.raise(
4156: p_event_name => 'oracle.apps.ahl.prd.EnigmaJCGEvent',
4157: p_event_key => l_enigma_request_id ,
4150: dbms_lob.write(l_eventdata, length(l_xmldocument), 1,
4151: l_xmldocument);
4152: -- Raise the Event with the message
4153: fnd_file.put_line(FND_FILE.LOG,'Raising event with key : ' || l_jcg_id);
4154: fnd_file.new_line(FND_FILE.LOG,1);
4155: wf_event.raise(
4156: p_event_name => 'oracle.apps.ahl.prd.EnigmaJCGEvent',
4157: p_event_key => l_enigma_request_id ,
4158: p_event_data => l_eventdata,
4158: p_event_data => l_eventdata,
4159: p_parameters => l_parameter_list);
4160:
4161: l_parameter_list.DELETE;
4162: fnd_file.put_line(FND_FILE.LOG,'Done Raising event with key : ' || l_jcg_id);*/
4163:
4164: soap_request:= '
4165:
4176: /* invoke BPEL process AhlTestJCGHandlerService - populate from profile*/
4177: l_bpel_process_end_point := FND_PROFILE.VALUE('AHL_ENIGMA_JCGHBPEL_EPOINT');
4178: --l_bpel_process_end_point := 'http://rws60140rems.us.oracle.com:7777/orabpel/Ebsmh0yd212domain1/AhlJCGHandlerService/1.0';
4179:
4180: fnd_file.put_line(FND_FILE.LOG,'BPEL process Address:' || l_bpel_process_end_point);
4181: fnd_file.put_line(FND_FILE.LOG,'XML file name for printing: :' || l_xml_file_name);
4182: fnd_file.put_line(FND_FILE.LOG,'initiating BPEL process:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4183: http_req:= utl_http.begin_request( l_bpel_process_end_point, 'POST', 'HTTP/1.1');
4184: utl_http.set_header(http_req, 'Content-Type', 'text/xml');
4177: l_bpel_process_end_point := FND_PROFILE.VALUE('AHL_ENIGMA_JCGHBPEL_EPOINT');
4178: --l_bpel_process_end_point := 'http://rws60140rems.us.oracle.com:7777/orabpel/Ebsmh0yd212domain1/AhlJCGHandlerService/1.0';
4179:
4180: fnd_file.put_line(FND_FILE.LOG,'BPEL process Address:' || l_bpel_process_end_point);
4181: fnd_file.put_line(FND_FILE.LOG,'XML file name for printing: :' || l_xml_file_name);
4182: fnd_file.put_line(FND_FILE.LOG,'initiating BPEL process:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4183: http_req:= utl_http.begin_request( l_bpel_process_end_point, 'POST', 'HTTP/1.1');
4184: utl_http.set_header(http_req, 'Content-Type', 'text/xml');
4185: utl_http.set_header(http_req, 'Content-Length', length(soap_request));
4178: --l_bpel_process_end_point := 'http://rws60140rems.us.oracle.com:7777/orabpel/Ebsmh0yd212domain1/AhlJCGHandlerService/1.0';
4179:
4180: fnd_file.put_line(FND_FILE.LOG,'BPEL process Address:' || l_bpel_process_end_point);
4181: fnd_file.put_line(FND_FILE.LOG,'XML file name for printing: :' || l_xml_file_name);
4182: fnd_file.put_line(FND_FILE.LOG,'initiating BPEL process:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4183: http_req:= utl_http.begin_request( l_bpel_process_end_point, 'POST', 'HTTP/1.1');
4184: utl_http.set_header(http_req, 'Content-Type', 'text/xml');
4185: utl_http.set_header(http_req, 'Content-Length', length(soap_request));
4186: utl_http.set_header(http_req, 'SOAPAction', 'initiate');
4186: utl_http.set_header(http_req, 'SOAPAction', 'initiate');
4187: utl_http.write_text(http_req, soap_request);
4188: http_resp:= utl_http.get_response(http_req);-- do not try to read response
4189: utl_http.end_response(http_resp);
4190: fnd_file.put_line(FND_FILE.LOG,'Done initiating BPEL process:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4191: fnd_file.new_line(FND_FILE.LOG,1);
4192: commit;
4193: fnd_file.put_line(FND_FILE.LOG,'End time:CC:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4194:
4187: utl_http.write_text(http_req, soap_request);
4188: http_resp:= utl_http.get_response(http_req);-- do not try to read response
4189: utl_http.end_response(http_resp);
4190: fnd_file.put_line(FND_FILE.LOG,'Done initiating BPEL process:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4191: fnd_file.new_line(FND_FILE.LOG,1);
4192: commit;
4193: fnd_file.put_line(FND_FILE.LOG,'End time:CC:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4194:
4195: EXCEPTION
4189: utl_http.end_response(http_resp);
4190: fnd_file.put_line(FND_FILE.LOG,'Done initiating BPEL process:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4191: fnd_file.new_line(FND_FILE.LOG,1);
4192: commit;
4193: fnd_file.put_line(FND_FILE.LOG,'End time:CC:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
4194:
4195: EXCEPTION
4196: WHEN FND_API.G_EXC_ERROR THEN
4197: retcode := 2;
4199: p_data => l_msg_data,
4200: p_encoded => fnd_api.g_false);
4201: errbuf := l_msg_data;
4202: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4203: fnd_file.put_line(FND_FILE.LOG,'Exceptions FND_API.G_EXC_ERROR: Generate_JCG_Request returned errors ');
4204: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4205: fnd_file.new_line(FND_FILE.LOG,1);
4206:
4207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: p_encoded => fnd_api.g_false);
4201: errbuf := l_msg_data;
4202: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4203: fnd_file.put_line(FND_FILE.LOG,'Exceptions FND_API.G_EXC_ERROR: Generate_JCG_Request returned errors ');
4204: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4205: fnd_file.new_line(FND_FILE.LOG,1);
4206:
4207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4208: retcode := 2;
4201: errbuf := l_msg_data;
4202: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4203: fnd_file.put_line(FND_FILE.LOG,'Exceptions FND_API.G_EXC_ERROR: Generate_JCG_Request returned errors ');
4204: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4205: fnd_file.new_line(FND_FILE.LOG,1);
4206:
4207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4208: retcode := 2;
4209: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
4210: p_data => l_msg_data,
4211: p_encoded => fnd_api.g_false);
4212: errbuf := l_msg_data;
4213: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4214: fnd_file.put_line(FND_FILE.LOG,'Exceptions FND_API.G_EXC_UNEXPECTED_ERROR: Generate_JCG_Request returned errors ');
4215: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4216: fnd_file.new_line(FND_FILE.LOG,1);
4217:
4218: WHEN OTHERS THEN
4211: p_encoded => fnd_api.g_false);
4212: errbuf := l_msg_data;
4213: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4214: fnd_file.put_line(FND_FILE.LOG,'Exceptions FND_API.G_EXC_UNEXPECTED_ERROR: Generate_JCG_Request returned errors ');
4215: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4216: fnd_file.new_line(FND_FILE.LOG,1);
4217:
4218: WHEN OTHERS THEN
4219: retcode := 2;
4212: errbuf := l_msg_data;
4213: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4214: fnd_file.put_line(FND_FILE.LOG,'Exceptions FND_API.G_EXC_UNEXPECTED_ERROR: Generate_JCG_Request returned errors ');
4215: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4216: fnd_file.new_line(FND_FILE.LOG,1);
4217:
4218: WHEN OTHERS THEN
4219: retcode := 2;
4220: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4224: p_data => l_msg_data,
4225: p_encoded => fnd_api.g_false);
4226: errbuf := l_msg_data;
4227: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4228: fnd_file.put_line(FND_FILE.LOG,'Exceptions OTHERS: Generate_JCG_Request returned errors ');
4229: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4230: fnd_file.new_line(FND_FILE.LOG,1);
4231: END generate_jcg_request;
4232:
4225: p_encoded => fnd_api.g_false);
4226: errbuf := l_msg_data;
4227: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4228: fnd_file.put_line(FND_FILE.LOG,'Exceptions OTHERS: Generate_JCG_Request returned errors ');
4229: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4230: fnd_file.new_line(FND_FILE.LOG,1);
4231: END generate_jcg_request;
4232:
4233: -- Start of Comments --
4226: errbuf := l_msg_data;
4227: l_err_update_status := HANDLE_JCG_ERRORS(l_enigma_request_id , to_char(l_conc_request_id) || ':' || l_msg_data);
4228: fnd_file.put_line(FND_FILE.LOG,'Exceptions OTHERS: Generate_JCG_Request returned errors ');
4229: fnd_file.put_line(FND_FILE.LOG,'Error Update Status :' || l_err_update_status);
4230: fnd_file.new_line(FND_FILE.LOG,1);
4231: END generate_jcg_request;
4232:
4233: -- Start of Comments --
4234: -- Procedure name : print_workcard