DBA Data[Home] [Help]

APPS.WSM_JOBCOPIES_PVT dependencies on WSM_JOBCOPIES_PVT

Line 1: PACKAGE BODY WSM_JobCopies_PVT AS

1: PACKAGE BODY WSM_JobCopies_PVT AS
2: /* $Header: WSMVCPYB.pls 120.23.12010000.2 2008/11/27 12:30:01 lmente ship $ */
3:
4: /*-------------------------------------------------------------+
5: | Name : Get_Job_Curr_Op_Info

Line 107: x_err_buf := 'WSM_JobCopies_PVT.Get_Job_Curr_Op_Info('||l_stmt_num||'): Warning ! No operations in the job';

103: END IF;
104:
105: IF (p_op_seq_num IS NULL) THEN -- Job creation : No records in WO for this p_wip_entity_id
106: x_err_code := -1;
107: x_err_buf := 'WSM_JobCopies_PVT.Get_Job_Curr_Op_Info('||l_stmt_num||'): Warning ! No operations in the job';
108: IF (g_debug = 'Y') THEN
109: fnd_file.put_line(fnd_file.log, x_err_buf);
110: END IF;
111: return;

Line 164: x_err_buf := 'WSM_JobCopies_PVT.Get_Job_Curr_Op_Info('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);

160:
161: EXCEPTION
162: WHEN OTHERS THEN
163: x_err_code := SQLCODE;
164: x_err_buf := 'WSM_JobCopies_PVT.Get_Job_Curr_Op_Info('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
165: fnd_file.put_line(fnd_file.log, x_err_buf);
166:
167: END Get_Job_Curr_Op_Info;
168:

Line 968: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

964: THEN
965: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
966: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'Primary Item ID in Job');
967: x_err_buf := fnd_message.get;
968: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
969: x_err_code := -2; -- Error
970: return;
971: END IF;
972:

Line 979: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

975: THEN
976: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
977: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'Routing Item ID in Job');
978: x_err_buf := fnd_message.get;
979: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
980: x_err_code := -2; -- Error
981: return;
982: END IF;
983:

Line 990: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

986: THEN
987: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
988: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'Common Routing Sequence ID in Job');
989: x_err_buf := fnd_message.get;
990: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
991: x_err_code := -2; -- Error
992: return;
993: END IF;
994:

Line 1000: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

996: THEN
997: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
998: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'Routing Revision Date in Job');
999: x_err_buf := fnd_message.get;
1000: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
1001: x_err_code := -2; -- Error
1002: return;
1003: END IF;
1004:

Line 1011: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

1007: THEN
1008: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
1009: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'Supply Type in Job');
1010: x_err_buf := fnd_message.get;
1011: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
1012: x_err_code := -2; -- Error
1013: return;
1014: END IF;
1015: -- End : Basic validations for the input parameters --

Line 1030: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

1026: THEN
1027: -- Invalid Infinite Scheduling Mode
1028: fnd_message.set_name('WSM', 'WSM_INVALID_INFSCH_MODE');
1029: x_err_buf := fnd_message.get;
1030: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
1031: x_err_code := -2; -- Error
1032: return;
1033: END IF;
1034:

Line 1058: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||

1054: WHERE wip_entity_id = p_wip_entity_id
1055: AND wsm_op_seq_num IS NULL;
1056: EXCEPTION
1057: WHEN OTHERS THEN
1058: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||
1059: '): Cannot upgrade wip_operations.wsm_op_seq_num for wip_entity_id '||p_wip_entity_id);
1060: END;
1061: end if;--check on p_insert_wip
1062: l_stmt_num := 15;

Line 1236: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);

1232: IF v_job_ops.count = 0 THEN
1233: -- No valid operations exist for the job
1234: fnd_message.set_name('WSM', 'WSM_NO_VALID_OPS');
1235: x_err_buf := fnd_message.get;
1236: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);
1237: x_err_code := -2; -- Error
1238:
1239: return;
1240: END IF;

Line 1368: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);

1364:
1365: -- No valid network links exist for the job
1366: fnd_message.set_name('WSM', 'WSM_NO_VALID_NWK_LINKS');
1367: x_err_buf := fnd_message.get;
1368: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);
1369: x_err_code := -2; -- Error
1370:
1371: return; -- This should not be commented out, since later it may get overwritten.
1372: -- Fixed bug #3465125

Line 1440: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

1436: else
1437: fnd_message.set_name('WSM', 'WSM_NET_START_NOT_EFFECTIVE');
1438: --x_err_buf := fnd_message.get;
1439: x_err_buf := 'l_count is'||to_char(l_start_op_seq_id);
1440: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
1441: x_err_code := -1; -- Warning
1442: --Bug 4264364:Added exception handling
1443: INSERT into WSM_LOT_BASED_JOBS
1444: (WIP_ENTITY_ID,

Line 1492: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);

1488: else
1489: l_reco_path_seq_num := -1;
1490: fnd_message.set_name('WSM', 'WSM_NET_END_NOT_EFFECTIVE');
1491: x_err_buf := fnd_message.get;
1492: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);
1493: x_err_code := -1; -- Warning
1494:
1495: --Bug 4264364:Added exception handling
1496: INSERT into WSM_LOT_BASED_JOBS

Line 1568: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);

1564: l_stmt_num := 40.1;
1565: If l_curr_opseq_id <> l_start_op_seq_id or l_reco_path_seq_num = -1 then
1566: fnd_message.set_name('WSM', 'WSM_DISABLED_PRIMARY_PATH');
1567: x_err_buf := fnd_message.get;
1568: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.process_job_op_nw('||l_stmt_num||'): '||x_err_buf);
1569: x_err_code := -1; -- Warning
1570: l_inf_sch_flag := 'N'; -- Do not infinite schedule this job
1571: END IF;
1572:

Line 3701: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);

3697: IF (SQL%ROWCOUNT = 0) THEN
3698: -- No record created in WSM_LOT_BASED_JOBS
3699: fnd_message.set_name('WSM', 'WSM_NO_WLBJ_REC');
3700: x_err_buf := fnd_message.get;
3701: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||x_err_buf);
3702: x_err_code := -2; -- Error
3703:
3704: return;
3705: ELSE

Line 3767: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||

3763: p_charges_exist => p_charges_exist
3764: );
3765:
3766: IF (g_debug = 'Y') THEN
3767: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||
3768: '): WSM_infinite_scheduler_PVT.schedule returned '||l_inf_sch_returnStatus);
3769: END IF;
3770:
3771: -- Start : We do not need to error if Inf Sch fails, since dates will be calculated while moving --

Line 3807: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;

3803:
3804:
3805: EXCEPTION
3806: WHEN be_exploder_exception THEN
3807: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;
3808: fnd_file.put_line(fnd_file.log, x_err_buf);
3809:
3810: WHEN loop_in_bom_exception THEN
3811: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;

Line 3811: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;

3807: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;
3808: fnd_file.put_line(fnd_file.log, x_err_buf);
3809:
3810: WHEN loop_in_bom_exception THEN
3811: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;
3812: fnd_file.put_line(fnd_file.log, x_err_buf);
3813:
3814: WHEN e_proc_error THEN
3815: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;

Line 3815: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;

3811: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;
3812: fnd_file.put_line(fnd_file.log, x_err_buf);
3813:
3814: WHEN e_proc_error THEN
3815: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;
3816: fnd_file.put_line(fnd_file.log, x_err_buf);
3817:
3818: --Bug 4264364:Added exception handling
3819: WHEN e_noneff_op THEN

Line 3820: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;

3816: fnd_file.put_line(fnd_file.log, x_err_buf);
3817:
3818: --Bug 4264364:Added exception handling
3819: WHEN e_noneff_op THEN
3820: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||') : '||x_err_buf;
3821: fnd_file.put_line(fnd_file.log, x_err_buf);
3822:
3823: WHEN others THEN
3824: x_err_code := SQLCODE;

Line 3825: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);

3821: fnd_file.put_line(fnd_file.log, x_err_buf);
3822:
3823: WHEN others THEN
3824: x_err_code := SQLCODE;
3825: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
3826: fnd_file.put_line(fnd_file.log, x_err_buf);
3827:
3828: END Create_JobCopies;
3829:

Line 3919: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): Invalid Infinite Scheduling Mode';

3915: )
3916: )
3917: THEN
3918: x_err_code := -1;
3919: x_err_buf := 'WSM_JobCopies_PVT.Create_JobCopies('||l_stmt_num||'): Invalid Infinite Scheduling Mode';
3920: fnd_file.put_line(fnd_file.log, x_err_buf);
3921: return;
3922: END IF;
3923:

Line 4694: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||'): '||

4690: IF (x_err_code = -1) -- No WO records
4691: OR (x_err_code = -2) -- Invalid job
4692: OR (x_err_code <> 0) -- Some other error
4693: THEN
4694: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||'): '||
4695: 'Get_Job_Curr_Op_Info returned '||x_err_code);
4696: fnd_file.put_line(fnd_file.log, 'Get_Job_Curr_Op_Info returned l_curr_op_seq_num='||l_curr_op_seq_num);
4697: return;
4698: END IF;

Line 4734: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||

4730: );
4731:
4732:
4733: IF (g_debug = 'Y') THEN
4734: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||
4735: '): WSM_infinite_scheduler_PVT.schedule returned '||l_inf_sch_returnStatus);
4736: END IF;
4737:
4738: -- Start : We do not need to error if Inf Sch fails, since dates will be calculated while moving --

Line 4754: x_err_buf := 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||') : '||x_err_buf;

4750: EXCEPTION
4751:
4752: WHEN e_proc_error THEN
4753: -- x_err_code := SQLCODE;
4754: x_err_buf := 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||') : '||x_err_buf;
4755: fnd_file.put_line(fnd_file.log, x_err_buf);
4756:
4757: WHEN others THEN
4758: x_err_code := SQLCODE;

Line 4759: x_err_buf := 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);

4755: fnd_file.put_line(fnd_file.log, x_err_buf);
4756:
4757: WHEN others THEN
4758: x_err_code := SQLCODE;
4759: x_err_buf := 'WSM_JobCopies_PVT.Create_RepJobCopies('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
4760: fnd_file.put_line(fnd_file.log, x_err_buf);
4761:
4762: END Create_RepJobCopies;
4763:

Line 4902: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||

4898:
4899: l_stmt_num := 40;
4900:
4901: IF (to_number(fnd_profile.value('WSM_CREATE_LBJ_COPY_ROUTING')) = 1) THEN
4902: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||
4903: '): Value of profile "WSM: Create Lot Based Jobs Copy Routing" is YES.');
4904: fnd_file.put_line(fnd_file.log, 'Oracle Shopfloor Management is already upgraded to create Lot Based Job Copy Routing. Upgrade failed.');
4905: raise e_upg_error;
4906: ELSIF (to_number(fnd_profile.value('WSM_CREATE_LBJ_COPY_ROUTING')) = 2) THEN

Line 4907: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||

4903: '): Value of profile "WSM: Create Lot Based Jobs Copy Routing" is YES.');
4904: fnd_file.put_line(fnd_file.log, 'Oracle Shopfloor Management is already upgraded to create Lot Based Job Copy Routing. Upgrade failed.');
4905: raise e_upg_error;
4906: ELSIF (to_number(fnd_profile.value('WSM_CREATE_LBJ_COPY_ROUTING')) = 2) THEN
4907: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||
4908: '): Value of profile "WSM: Create Lot Based Jobs Copy Routing" is NO.');
4909: fnd_file.put_line(fnd_file.log, 'Upgrading Lot Based Jobs to Use Copy Routings ...');
4910: ELSE
4911: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||

Line 4911: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||

4907: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||
4908: '): Value of profile "WSM: Create Lot Based Jobs Copy Routing" is NO.');
4909: fnd_file.put_line(fnd_file.log, 'Upgrading Lot Based Jobs to Use Copy Routings ...');
4910: ELSE
4911: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||
4912: '): Not able to fetch the value of the profile "WSM: Create Lot Based Jobs Copy Routing".');
4913: raise e_profile_error;
4914: END IF;
4915:

Line 4949: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||

4945:
4946: l_curr_rows := upgrade_jobs%rowcount;
4947: CLOSE upgrade_jobs;
4948:
4949: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||
4950: '): Number of rows loaded for the current batch: '||l_curr_rows);
4951: IF (l_curr_rows = 0) THEN
4952: exit;
4953: END IF;

Line 4973: WSM_JobCopies_PVT.Create_JobCopies -- Call #1

4969: x_err_buf := NULL;
4970:
4971: l_stmt_num := 60;
4972:
4973: WSM_JobCopies_PVT.Create_JobCopies -- Call #1
4974: (
4975: x_err_buf => x_err_buf,
4976: x_err_code => x_err_code,
4977: p_wip_entity_id => v_job_wip_entity_id (l_counter),

Line 5194: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||')'||

5190:
5191: l_stmt_num := 144;
5192: t_err_upgrade_jobs.delete;
5193:
5194: fnd_file.put_line(fnd_file.log, 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||')'||
5195: 'Please correct the problem and run Refresh Open Jobs Copies for the above '||l_err_ctr||' jobs. ');
5196:
5197: l_stmt_num := 150;
5198:

Line 5217: x_err_buf := 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);

5213: raise_application_error (-20000, 'ERROR at line '||l_stmt_num||': Not able to fetch the value of the profile "WSM: Create Lot Based Jobs Copy Routing"');
5214:
5215: WHEN others THEN
5216: x_err_code := SQLCODE;
5217: x_err_buf := 'WSM_JobCopies_PVT.Upgrade_JobCopies('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
5218: fnd_file.put_line(fnd_file.log, x_err_buf);
5219:
5220: END Upgrade_JobCopies;
5221:

Line 5805: x_err_buf := 'WSM_JobCopies_PVT.process_wip_info('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);

5801:
5802: exception
5803: WHEN others THEN
5804: x_err_code := SQLCODE;
5805: x_err_buf := 'WSM_JobCopies_PVT.process_wip_info('||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
5806: fnd_file.put_line(fnd_file.log, x_err_buf);
5807: END process_wip_info;
5808:
5809: FUNCTION max_res_seq (p_op_seq_id NUMBER) return NUMBER

Line 5816: END WSM_JobCopies_PVT;

5812: BEGIN
5813: return(v_max_res_seq(p_op_seq_id));
5814: END max_res_seq;
5815:
5816: END WSM_JobCopies_PVT;