eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.WSMPUTIL dependencies on WSMPUTIL

Line 1: PACKAGE BODY WSMPUTIL AS

1: PACKAGE BODY WSMPUTIL AS
2: /* $Header: WSMUTILB.pls 120.6.12010000.7 2010/03/03 15:45:59 sisankar ship $ */
3:
4: /*==========================================================================+
5: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |

Line 104: x_err_msg := 'WSMPUTIL.CHECK_WSM_ORG: Success';

100: AND MP.ORGANIZATION_ID = WSM.ORGANIZATION_ID
101: AND UPPER(MP.WSM_ENABLED_FLAG)='Y';
102:
103: x_err_code := 0;
104: x_err_msg := 'WSMPUTIL.CHECK_WSM_ORG: Success';
105: return(l_rowcount);
106:
107: EXCEPTION
108: WHEN OTHERS THEN

Line 110: x_err_msg := 'WSMPUTIL.CHECK_WSM_ORG: (stmt_num='||l_stmt_num||'): '||SUBSTR(SQLERRM,1,60);

106:
107: EXCEPTION
108: WHEN OTHERS THEN
109: x_err_code := SQLCODE;
110: x_err_msg := 'WSMPUTIL.CHECK_WSM_ORG: (stmt_num='||l_stmt_num||'): '||SUBSTR(SQLERRM,1,60);
111: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
112: return(0);
113:
114: END CHECK_WSM_ORG;

Line 250: IF(NVL(WSMPUTIL.replacement_op_seq_id(

246: AND operation_sequence_id = start_op_seq_id;
247:
248: --IF (l_eff_date > l_rtg_rev_date OR l_dis_date <= l_rtg_rev_date) THEN
249: IF (l_rtg_rev_date NOT Between l_eff_date and l_dis_date ) THEN -- HH24MISS Add
250: IF(NVL(WSMPUTIL.replacement_op_seq_id(
251: start_op_seq_id,
252: l_rtg_rev_date), -1) = -1) THEN -- ADD: CZH.I_OED-2
253: x_err_code := -3;
254: FND_MESSAGE.SET_NAME('WSM','WSM_NET_START_NOT_EFFECTIVE');

Line 282: x_err_msg := 'WSMPUTIL.FIND_ROUTING_START '|| SUBSTR(SQLERRM,1,60);

278: */
279: EXCEPTION
280: WHEN OTHERS THEN
281: x_err_code := SQLCODE;
282: x_err_msg := 'WSMPUTIL.FIND_ROUTING_START '|| SUBSTR(SQLERRM,1,60);
283: -- FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
284: RETURN;
285:
286: END find_routing_start;

Line 416: IF(NVL(WSMPUTIL.replacement_op_seq_id(

412: AND operation_sequence_id = end_op_seq_id;
413:
414: --IF (l_eff_date > l_rtg_rev_date OR l_dis_date <= l_rtg_rev_date) THEN
415: IF (l_rtg_rev_date NOT Between l_eff_date and l_dis_date ) THEN -- HH24MISS Add
416: IF(NVL(WSMPUTIL.replacement_op_seq_id(
417: end_op_seq_id,
418: l_rtg_rev_date), -1) = -1) THEN -- ADD: CZH.I_OED-2
419: x_err_code := -3;
420: FND_MESSAGE.SET_NAME('WSM','WSM_NET_END_NOT_EFFECTIVE');

Line 431: x_err_msg := 'WSMPUTIL.FIND_ROUTING_END '|| SUBSTR(SQLERRM,1,60);

427:
428: EXCEPTION
429: WHEN OTHERS THEN
430: x_err_code := SQLCODE;
431: x_err_msg := 'WSMPUTIL.FIND_ROUTING_END '|| SUBSTR(SQLERRM,1,60);
432: -- BD: 1964044 -- FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg); -- ED: 1964044
433: RETURN;
434:
435: END find_routing_end;

Line 599: x_err_msg := 'WSMPUTIL.GET_SCHEDULED_DATE('||l_stmt_num||

595:
596: EXCEPTION
597: WHEN OTHERS THEN
598: x_err_code := SQLCODE;
599: x_err_msg := 'WSMPUTIL.GET_SCHEDULED_DATE('||l_stmt_num||
600: '): '|| SUBSTR(SQLERRM,1,60);
601: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
602: return SYSDATE;
603:

Line 761: l_operation_seq_id := WSMPUTIL.replacement_op_seq_id(

757: return;
758: END IF;
759:
760: --BA: CZH.I_OED-2, consider replacement
761: l_operation_seq_id := WSMPUTIL.replacement_op_seq_id(
762: l_operation_seq_id,
763: p_routing_revision_date);
764: --EA: CZH.I_OED-2
765:

Line 1397: 'WSMPUTIL.CHECK_IF_ORG_IS_VALID: (stmt_num='||

1393:
1394: WHEN OTHERS Then
1395: x_err_code := SQLCODE;
1396: x_err_msg :=
1397: 'WSMPUTIL.CHECK_IF_ORG_IS_VALID: (stmt_num='||
1398: l_stmt_num||'): '||
1399: SUBSTR(SQLERRM,1,60);
1400: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1401: return(x_err_code);

Line 1548: WSMPUTIL.find_common_routing(

1544: /*EA#1577747*/
1545: BEGIN
1546: /*BA#1577747*/
1547:
1548: WSMPUTIL.find_common_routing(
1549: p_routing_sequence_id => p_routing_sequence_id,
1550: p_common_routing_sequence_id => p_common_routing_sequence_id,
1551: x_err_code => x_err_code,
1552: x_err_msg => x_err_msg

Line 1561: WSMPUTIL.find_routing_start(

1557: End If;
1558:
1559: /*EA#1577747*/
1560:
1561: WSMPUTIL.find_routing_start(
1562: -- p_routing_sequence_id, -- bbk
1563: p_common_routing_sequence_id, -- use this to find start.
1564: SYSDATE, --CZH: call with sysdate
1565: v_operation_sequence_id ,

Line 1614: WSMPUTIL.find_common_routing(

1610:
1611: BEGIN
1612: /*BA#1577747*/
1613:
1614: WSMPUTIL.find_common_routing(
1615: p_routing_sequence_id => p_routing_sequence_id,
1616: p_common_routing_sequence_id => p_common_routing_sequence_id,
1617: x_err_code => x_err_code,
1618: x_err_msg => x_err_msg

Line 1628: WSMPUTIL.find_routing_end(

1624:
1625:
1626: /*EA#1577747*/
1627:
1628: WSMPUTIL.find_routing_end(
1629: p_common_routing_sequence_id ,
1630: SYSDATE, -- CZH, call with SYSDATE
1631: v_operation_sequence_id ,
1632: x_err_code,

Line 1704: x_err_msg := substr(('WSMPUTIL.check_coprod_relation'||SUBSTR(SQLERRM,1,1000)), 1, 1000);

1700: EXCEPTION
1701:
1702: WHEN OTHERS THEN
1703: x_err_code := SQLCODE;
1704: x_err_msg := substr(('WSMPUTIL.check_coprod_relation'||SUBSTR(SQLERRM,1,1000)), 1, 1000);
1705: x_relation_exists := FALSE;
1706: RETURN x_relation_exists;
1707:
1708: END CHECK_COPROD_RELATION;

Line 1754: l_relation_exist_boolean := WSMPUTIL.check_coprod_relation (

1750: l_err_msg VARCHAR2(1000) := NULL;
1751:
1752: BEGIN
1753:
1754: l_relation_exist_boolean := WSMPUTIL.check_coprod_relation (
1755: p_bom_bill_seq_id => p_bom_bill_seq_id
1756: , x_err_code => l_err_code
1757: , x_err_msg => l_err_msg);
1758:

Line 1843: x_err_msg := 'WSMPUTIL.check_100_percent : '||SUBSTR(SQLERRM,1,1000);

1839:
1840: EXCEPTION WHEN OTHERS THEN
1841:
1842: x_err_code := SQLCODE;
1843: x_err_msg := 'WSMPUTIL.check_100_percent : '||SUBSTR(SQLERRM,1,1000);
1844: RETURN 0;
1845: IF check_percentage_sum%ISOPEN THEN
1846: CLOSE check_percentage_sum;
1847: END IF;

Line 1995: x_err_msg := 'WSMPUTIL.operation_is_standard_repeats: Invalid operation and/or routing ('

1991: l_stmt_num := 10;
1992:
1993: IF (p_routing_sequence_id is null) then
1994: x_err_code := 1;
1995: x_err_msg := 'WSMPUTIL.operation_is_standard_repeats: Invalid operation and/or routing ('
1996: ||l_stmt_num || ') ';
1997: p_op_is_std_op := 3; -- CZH: why?
1998: p_op_repeated_times := 3; -- CZH: why?
1999: return;

Line 2034: x_err_msg := 'WSMPUTIL.operation_is_standard_repeats ('

2030: Exception
2031:
2032: WHEN NO_DATA_FOUND THEN
2033: x_err_code := 2;
2034: x_err_msg := 'WSMPUTIL.operation_is_standard_repeats ('
2035: ||l_stmt_num || '): Standard_op_id not found for this opcode.. '
2036: ||substrb(sqlerrm,1,1000);
2037:
2038: WHEN OTHERS THEN

Line 2040: x_err_msg := 'WSMPUTIL.operation_is_standard_repeats ('

2036: ||substrb(sqlerrm,1,1000);
2037:
2038: WHEN OTHERS THEN
2039: x_err_code := 3;
2040: x_err_msg := 'WSMPUTIL.operation_is_standard_repeats ('
2041: ||l_stmt_num ||'): '||substrb(sqlerrm,1,1000);
2042:
2043: End;
2044:

Line 2099: and (bos.operation_sequence_id = WSMPUTIL.replacement_op_seq_id(

2095: from bom_operation_networks bon,
2096: bom_operation_sequences bos
2097: Where bos.routing_sequence_id = p_routing_sequence_id
2098: and bos.standard_operation_id = l_std_op_id
2099: and (bos.operation_sequence_id = WSMPUTIL.replacement_op_seq_id(
2100: bon.from_op_seq_id,
2101: l_rtg_rev_date)
2102: or
2103: bos.operation_sequence_id = WSMPUTIL.replacement_op_seq_id(

Line 2103: bos.operation_sequence_id = WSMPUTIL.replacement_op_seq_id(

2099: and (bos.operation_sequence_id = WSMPUTIL.replacement_op_seq_id(
2100: bon.from_op_seq_id,
2101: l_rtg_rev_date)
2102: or
2103: bos.operation_sequence_id = WSMPUTIL.replacement_op_seq_id(
2104: bon.to_op_seq_id,
2105: l_rtg_rev_date)
2106: );
2107: -- EC: CZH.I_OED-2

Line 2158: x_err_msg := substr('WSMPUTIL.OPERATION_IS_STANDARD_REPEATS' ||sqlerrm,1,2000);

2154: End;
2155: EXCEPTION
2156: WHEN OTHERS THEN
2157: x_err_code := SQLCODE;
2158: x_err_msg := substr('WSMPUTIL.OPERATION_IS_STANDARD_REPEATS' ||sqlerrm,1,2000);
2159: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2160: return;
2161:
2162: END OPERATION_IS_STANDARD_REPEATS;

Line 2683: x_err_msg := 'WSMPUTIL.validate_non_std_references (stmt_num='||l_stmt_num||'): '||SUBSTR(SQLERRM,1,1000);

2679:
2680: exception
2681: when others then
2682: x_error_code := SQLCODE;
2683: x_err_msg := 'WSMPUTIL.validate_non_std_references (stmt_num='||l_stmt_num||'): '||SUBSTR(SQLERRM,1,1000);
2684: return;
2685:
2686: end validate_non_std_references;
2687:

Line 2754: err_msg := 'WSMPUTIL.WSM_ESA_ENABLED (stmt_num='||l_stmt_no||'): '||SUBSTR(SQLERRM,1,1000);

2750:
2751: exception
2752: when others then
2753: err_code := SQLCODE;
2754: err_msg := 'WSMPUTIL.WSM_ESA_ENABLED (stmt_num='||l_stmt_no||'): '||SUBSTR(SQLERRM,1,1000);
2755: return 0;
2756: end;
2757:
2758:

Line 2835: err_msg := 'WSMPUTIL.WSM_CHANGE_ESA_FLAG: '||SUBSTR(SQLERRM,1,1000);

2831:
2832: EXCEPTION
2833: when others then
2834: err_code := SQLCODE;
2835: err_msg := 'WSMPUTIL.WSM_CHANGE_ESA_FLAG: '||SUBSTR(SQLERRM,1,1000);
2836: return 0;
2837: end;
2838:
2839:

Line 2877: and nvl(WSMPUTIL.replacement_op_seq_id( bos.operation_sequence_id,

2873: where bos.routing_sequence_id = p_routing_sequence_id
2874: --BC: CZH.I_OED-2, should consider replacement op
2875: -- and NOT(bos.effectivity_date <= l_rtg_rev_date
2876: -- and nvl(bos.disable_date, l_rtg_rev_date+1) > l_rtg_rev_date)
2877: and nvl(WSMPUTIL.replacement_op_seq_id( bos.operation_sequence_id,
2878: l_rtg_rev_date), -1) = -1 )
2879: --EC: CZH.I_OED-2
2880: and rownum = 1; -- Added ROWNUM to limit the number of rows accessed
2881: exception

Line 2894: and nvl(WSMPUTIL.replacement_op_seq_id( bos.operation_sequence_id,

2890: where bos.routing_sequence_id = p_routing_sequence_id
2891: --BC: CZH.I_OED-2, should consider replacement op
2892: -- and NOT(bos.effectivity_date <= l_rtg_rev_date
2893: -- and nvl(bos.disable_date, l_rtg_rev_date+1) > l_rtg_rev_date)
2894: and nvl(WSMPUTIL.replacement_op_seq_id( bos.operation_sequence_id,
2895: l_rtg_rev_date), -1) = -1 )
2896: --EC: CZH.I_OED-2
2897: and rownum = 1; -- Added ROWNUM to limit the number of rows accessed
2898:

Line 2915: x_err_msg := 'WSMPUTIL.NETWORK_WITH_DISABLED_OP: '||SUBSTR(SQLERRM,1,1000);

2911: RETURN x_return;
2912:
2913: WHEN OTHERS THEN
2914: x_err_code := SQLCODE;
2915: x_err_msg := 'WSMPUTIL.NETWORK_WITH_DISABLED_OP: '||SUBSTR(SQLERRM,1,1000);
2916: RETURN -1; -- bugfix2721157: return -1 instead of 0 to distinguish between expected and unexpected errors.
2917: END network_with_disabled_op;
2918:
2919: /***************************************************************************************/

Line 2957: WSMPUTIL.FIND_ROUTING_START(

2953: -- Call find_routing_start if p_start_op_seq_id is not specified.
2954: -- If p_start_op_seq_id is specified, it should be effective,
2955: -- however, even if it is not effective it will be caught later on
2956: IF(p_start_op_seq_id IS NULL) THEN
2957: WSMPUTIL.FIND_ROUTING_START(
2958: p_routing_sequence_id,
2959: SYSDATE, -- CZH: call with SYSDATE
2960: p_start_op_seq_id,
2961: x_err_code,

Line 2997: IF( NVL(WSMPUTIL.replacement_op_seq_id(

2993: FETCH primary_cur INTO l_op_seq_id;
2994: EXIT when primary_cur%NOTFOUND;
2995:
2996: --BA: CZH.I_OED-2, test if it has a effective replacement
2997: IF( NVL(WSMPUTIL.replacement_op_seq_id(
2998: l_op_seq_id,
2999: l_rtg_rev_date), -1) = -1) THEN
3000: raise e_bad_path;
3001: END IF;

Line 3083: WSMPUTIL.find_routing_end (

3079: l_rtg_rev_date
3080: from wip_discrete_jobs
3081: where wip_entity_id = p_wip_entity_id;
3082:
3083: WSMPUTIL.find_routing_end (
3084: p_routing_sequence_id => l_rtg_seq_id,
3085: p_routing_rev_date => l_rtg_rev_date,
3086: end_op_seq_id => l_end_op_seq_id,
3087: x_err_code => x_err_code,

Line 3094: l_end_op_seq_id := WSMPUTIL.replacement_op_seq_id(

3090: return 0; -- no valid next operation, no end op in routing
3091: END IF;
3092:
3093: -- BA: CZH.I_OED-2, should use the replacement
3094: l_end_op_seq_id := WSMPUTIL.replacement_op_seq_id(
3095: l_end_op_seq_id,
3096: l_rtg_rev_date);
3097: -- EA: CZH.I_OED-2
3098:

Line 3123: --where NVL(WSMPUTIL.replacement_op_seq_id(

3119: FROM sys.dual
3120: WHERE exists(
3121: select 1
3122: from bom_operation_networks bon
3123: --where NVL(WSMPUTIL.replacement_op_seq_id(
3124: -- bon.from_op_seq_id,
3125: -- l_rtg_rev_date), -1) = l_wo_op_seq_id
3126: where bon.from_op_seq_id IN (
3127: select bos.operation_sequence_id

Line 3134: and NVL(WSMPUTIL.replacement_op_seq_id(

3130: where bos.operation_seq_num = bos2.operation_seq_num
3131: AND bos.routing_sequence_id = bos2.routing_sequence_id
3132: AND bos2.operation_sequence_id = l_wo_op_seq_id
3133: )
3134: and NVL(WSMPUTIL.replacement_op_seq_id(
3135: bon.to_op_seq_id,
3136: l_rtg_rev_date), -1) <> -1
3137: );
3138:

Line 3307: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.check_charges_exist parameters are :'||

3303: BEGIN
3304: l_stmt_num := 10;
3305:
3306: IF (l_debug = 'Y') THEN
3307: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.check_charges_exist parameters are :'||
3308: 'p_wip_entity_id='||p_wip_entity_id||
3309: ', p_organization_id='||p_organization_id||
3310: ', p_op_seq_num='||p_op_seq_num||
3311: ', p_op_seq_id='||p_op_seq_id);

Line 3404: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num

3400:
3401: WHEN NO_DATA_FOUND THEN
3402: p_manually_added_comp := 0;
3403: x_error_code := 0;
3404: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num
3405: || ') : No components have been added to this job manually or phnatom exploded. Job id= '
3406: || p_wip_entity_id;
3407:
3408: WHEN TOO_MANY_ROWS THEN

Line 3411: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3407:
3408: WHEN TOO_MANY_ROWS THEN
3409: p_manually_added_comp := 2;
3410: x_error_code := 0;
3411: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3412: || l_stmt_num
3413: || ') : Phantom Components have been exploded in this operation for this job. Job id ='
3414: || p_wip_entity_id;
3415:

Line 3418: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num

3414: || p_wip_entity_id;
3415:
3416: WHEN OTHERS THEN
3417: x_error_code := SQLCODE;
3418: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num
3419: || ') : Exception: Job id = ' || p_wip_entity_id;
3420: raise e_proc_exception;
3421:
3422: END; --check for possible phantom explosions

Line 3488: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num

3484: WHEN NO_DATA_FOUND THEN
3485: l_consider_op_seq1 := 1;
3486: WHEN OTHERS THEN
3487: x_error_code := SQLCODE;
3488: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num
3489: || ') : Exception: Job id = ' || p_wip_entity_id;
3490: raise e_proc_exception;
3491: END;
3492: END IF;

Line 3553: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num

3549:
3550: WHEN NO_DATA_FOUND THEN
3551: p_manually_added_comp := 0;
3552: x_error_code := 0;
3553: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num
3554: || ') : No components have been added to this job manually. Job id = '
3555: || p_wip_entity_id;
3556:
3557: WHEN TOO_MANY_ROWS THEN

Line 3560: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3556:
3557: WHEN TOO_MANY_ROWS THEN
3558: p_manually_added_comp := 1;
3559: x_error_code := 0;
3560: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3561: || l_stmt_num
3562: || ') : Components have been added to this job manually. Job id = '
3563: || p_wip_entity_id;
3564:

Line 3567: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num

3563: || p_wip_entity_id;
3564:
3565: WHEN OTHERS THEN
3566: x_error_code := SQLCODE;
3567: x_error_msg := 'WSMPUTIL.check_charges_exist (' || l_stmt_num
3568: || ') : Exception: Job id = ' || p_wip_entity_id;
3569: raise e_proc_exception;
3570:
3571: END; --check Manually Material Requirements

Line 3649: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3645: EXCEPTION
3646: WHEN NO_DATA_FOUND THEN
3647: p_issued_material := 0;
3648: x_error_code := 0;
3649: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3650: || l_stmt_num
3651: || ') : No matl has been issued to this job. Job id = '
3652: || p_wip_entity_id;
3653:

Line 3657: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3653:
3654: WHEN TOO_MANY_ROWS THEN
3655: p_issued_material := 1;
3656: x_error_code := 0;
3657: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3658: || l_stmt_num
3659: || ') Materials have been issued to this job. Job id = '
3660: || p_wip_entity_id;
3661:

Line 3665: ('WSMPUTIL.check_charges_exist ('

3661:
3662: WHEN OTHERS THEN
3663: x_error_code := SQLCODE;
3664: x_error_msg := substr(
3665: ('WSMPUTIL.check_charges_exist ('
3666: || l_stmt_num
3667: || ') Job id = '
3668: || p_wip_entity_id || ' : Exception = '||SQLERRM), 1, 1000);
3669: raise e_proc_exception;

Line 3731: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3727: EXCEPTION
3728: WHEN NO_DATA_FOUND THEN
3729: p_issued_resource := 0;
3730: x_error_code := 0;
3731: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3732: || l_stmt_num
3733: || ') : No resource have been issued to this job. Job id = '
3734: || p_wip_entity_id;
3735:

Line 3739: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3735:
3736: WHEN TOO_MANY_ROWS THEN
3737: p_issued_resource := 1;
3738: x_error_code := 0;
3739: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3740: || l_stmt_num
3741: || ') Resources have been issued to this job. Job id = '
3742: || p_wip_entity_id;
3743:

Line 3747: ('WSMPUTIL.check_charges_exist ('

3743:
3744: WHEN OTHERS THEN
3745: x_error_code := SQLCODE;
3746: x_error_msg := substr(
3747: ('WSMPUTIL.check_charges_exist ('
3748: || l_stmt_num
3749: || ') Job id = '
3750: || p_wip_entity_id || ' : Exception = '||SQLERRM), 1, 1000);
3751: raise e_proc_exception;

Line 3758: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3754: Else -- Qty is at TOMOVE
3755: p_issued_material := 0;
3756: p_issued_resource := 0;
3757: x_error_code := 0;
3758: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3759: || l_stmt_num
3760: || ') : Qty is at TOMOVE. Job id = '
3761: || p_wip_entity_id;
3762: End If; -- end of qty_at_tomove for materials and Resources

Line 3802: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3798:
3799: WHEN NO_DATA_FOUND THEN
3800: x_error_code := 0;
3801: p_manually_added_resource := 0;
3802: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3803: || l_stmt_num
3804: || ') : Resources have not been issued manually to this job. Job id = '
3805: || p_wip_entity_id;
3806:

Line 3810: x_error_msg := 'WSMPUTIL.check_charges_exist ('

3806:
3807: WHEN TOO_MANY_ROWS THEN
3808: p_manually_added_resource := 1;
3809: x_error_code := 0;
3810: x_error_msg := 'WSMPUTIL.check_charges_exist ('
3811: || l_stmt_num
3812: || ') Resources have been manually issued to this job. Job id = '
3813: || p_wip_entity_id;
3814:

Line 3818: ('WSMPUTIL.check_charges_exist ('

3814:
3815: WHEN OTHERS THEN
3816: x_error_code := SQLCODE;
3817: x_error_msg := substr(
3818: ('WSMPUTIL.check_charges_exist ('
3819: || l_stmt_num
3820: || ') Job id = '
3821: || p_wip_entity_id || ' : Exception = '||SQLERRM), 1, 1000);
3822: raise e_proc_exception;

Line 3846: ('WSMPUTIL.check_charges_exist ('

3842:
3843: WHEN OTHERS THEN
3844: x_error_code := sqlcode;
3845: x_error_msg := substr(
3846: ('WSMPUTIL.check_charges_exist ('
3847: || l_stmt_num
3848: || ') Job id = '
3849: || p_wip_entity_id || ' : Exception = '||SQLERRM), 1, 1000);
3850:

Line 3988: x_err_msg := 'WSMPUTIL.CHECK_PO_MOVE' ||substrb(sqlerrm, 1,1000);

3984: EXCEPTION
3985:
3986: WHEN OTHERS THEN
3987: x_err_code := SQLCODE;
3988: x_err_msg := 'WSMPUTIL.CHECK_PO_MOVE' ||substrb(sqlerrm, 1,1000);
3989: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
3990: return FALSE;
3991:
3992: END check_po_move ;

Line 4104: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Updated LBJ records to ERROR.');

4100: if sql%rowcount > 0 then
4101: x_err_code := 0; -- this is needed by WIP to figure out whether to end the request in warning or success.
4102: end if;
4103: if (l_debug = 'Y') then
4104: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Updated LBJ records to ERROR.');
4105: end if;
4106:
4107:
4108: -- Update the WDJ status type to 15

Line 4145: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Successfully cleaned up temp table by deleting '||sql%rowcount|| ' records.');

4141: and organization_id = p_organization_id
4142: and status_type = 99;
4143:
4144: if (l_debug = 'Y') then
4145: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Successfully cleaned up temp table by deleting '||sql%rowcount|| ' records.');
4146: end if;
4147:
4148: EXCEPTION
4149: when others then

Line 4150: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Unexpected Error: '||sqlerrm);

4146: end if;
4147:
4148: EXCEPTION
4149: when others then
4150: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Unexpected Error: '||sqlerrm);
4151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4152:
4153: END validate_lbj_before_close;
4154:

Line 4208: WSMPUTIL.find_common_routing(

4204:
4205:
4206: l_stmt_num := 30;
4207:
4208: WSMPUTIL.find_common_routing(
4209: p_routing_sequence_id => l_routing_seq_id,
4210: p_common_routing_sequence_id => l_common_routing_sequence_id,
4211: x_err_code => l_error_code,
4212: x_err_msg => l_err_msg);

Line 4223: WSMPUTIL.find_routing_start ( l_common_routing_sequence_id,

4219:
4220:
4221: l_stmt_num := 40;
4222:
4223: WSMPUTIL.find_routing_start ( l_common_routing_sequence_id,
4224: p_rtg_rev_date,
4225: l_start_op_seq_id,
4226: l_error_code,
4227: l_err_msg );

Line 4247: p_error_msg := substr('wsmputil.get_Kanban_rec_grp_info: stmt no: '||l_stmt_num||' '||SQLERRM,1, 2000);

4243: exception
4244:
4245: when others then
4246: p_error_code := SQLCODE;
4247: p_error_msg := substr('wsmputil.get_Kanban_rec_grp_info: stmt no: '||l_stmt_num||' '||SQLERRM,1, 2000);
4248:
4249:
4250: end get_Kanban_rec_grp_info;
4251:

Line 4286: p_error_msg := substr('wsmputil.get_max_kanban_asmbly_qty: '||' '||SQLERRM,1, 2000);

4282: exception
4283:
4284: when others then
4285: p_error_code := SQLCODE;
4286: p_error_msg := substr('wsmputil.get_max_kanban_asmbly_qty: '||' '||SQLERRM,1, 2000);
4287:
4288: end get_max_kanban_asmbly_qty;
4289:
4290: /* bug fix:7387499

Line 4315: l_eff_date := WSMPUTIL.EFFECTIVE_DATE(l_opseq_num,l_routseq_id,l_operation_type);

4311: from bom_operation_sequences
4312: where standard_operation_id = p_stdop_id
4313: and operation_sequence_id = p_opseq_id;
4314:
4315: l_eff_date := WSMPUTIL.EFFECTIVE_DATE(l_opseq_num,l_routseq_id,l_operation_type);
4316:
4317: select standard_operation_id into l_eff_stdop_id
4318: from bom_operation_sequences
4319: where effectivity_date = l_eff_date

Line 4352: l_eff_date := WSMPUTIL.EFFECTIVE_DATE(l_opseq_num,l_routseq_id,l_operation_type);

4348: from bom_operation_sequences
4349: where department_id = p_dept_id
4350: and operation_SEQUENCE_id = p_opseq_id;
4351:
4352: l_eff_date := WSMPUTIL.EFFECTIVE_DATE(l_opseq_num,l_routseq_id,l_operation_type);
4353:
4354: select department_id into l_eff_dept_id
4355: from bom_operation_sequences
4356: where effectivity_date = l_eff_date

Line 4584: p_err_msg := substr('WSMPUTIL.return_att_quantity :' ||sqlerrm, 1,2000);

4580:
4581: EXCEPTION
4582: WHEN OTHERS THEN
4583: p_err_code := SQLCODE;
4584: p_err_msg := substr('WSMPUTIL.return_att_quantity :' ||sqlerrm, 1,2000);
4585: FND_FILE.PUT_LINE(FND_FILE.LOG, p_err_msg);
4586: return;
4587: END return_att_quantity;
4588:

Line 4720: x_err_msg := 'WSMPUTIL.CHECK_WLMTI:Success';

4716: END IF;
4717: ***************************************************************/
4718:
4719: x_err_code := 0;
4720: x_err_msg := 'WSMPUTIL.CHECK_WLMTI:Success';
4721:
4722: If (l_debug = 'Y') Then
4723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPUTIL.check_wlmti: Returned Success');
4724: End If;

Line 4723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPUTIL.check_wlmti: Returned Success');

4719: x_err_code := 0;
4720: x_err_msg := 'WSMPUTIL.CHECK_WLMTI:Success';
4721:
4722: If (l_debug = 'Y') Then
4723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPUTIL.check_wlmti: Returned Success');
4724: End If;
4725:
4726: RETURN l_rowcount;
4727:

Line 4735: x_err_msg := 'WSMPUTIL.check_wlmti(stmt_num='||l_stmt_num||' :'||SUBSTR(SQLERRM,1,1000);

4731: RETURN l_rowcount;
4732:
4733: WHEN OTHERS THEN
4734: x_err_code := SQLCODE;
4735: x_err_msg := 'WSMPUTIL.check_wlmti(stmt_num='||l_stmt_num||' :'||SUBSTR(SQLERRM,1,1000);
4736: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
4737:
4738: END CHECK_WLMTI;
4739:

Line 4825: x_err_msg := 'WSMPUTIL.check_wmti('||l_stmt_num||') : Returning error';

4821: ); -- So that it doesn't pick up itself
4822:
4823:
4824: IF (l_rowcount > 0 ) THEN
4825: x_err_msg := 'WSMPUTIL.check_wmti('||l_stmt_num||') : Returning error';
4826: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
4827: RETURN l_rowcount;
4828: END IF;
4829:

Line 4850: x_err_msg := 'WSMPUTIL.check_wmti('||l_stmt_num||') : Returning error';

4846: );
4847:
4848:
4849: IF (l_rowcount > 0 ) THEN
4850: x_err_msg := 'WSMPUTIL.check_wmti('||l_stmt_num||') : Returning error';
4851: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
4852: RETURN l_rowcount;
4853: END IF;
4854:

Line 4860: x_err_msg := 'WSMPUTIL.CHECK_WMTI:Returned Success';

4856:
4857: ***************************************************************/
4858:
4859: x_err_code := 0;
4860: x_err_msg := 'WSMPUTIL.CHECK_WMTI:Returned Success';
4861: IF (l_debug = 'Y') THEN
4862: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
4863: END IF;
4864: RETURN 0;

Line 4873: x_err_msg := 'WSMPUTIL.check_wmti('||l_stmt_num||') :'||SUBSTR(SQLERRM,1,1000);

4869: return l_rowcount;
4870:
4871: WHEN OTHERS THEN
4872: x_err_code := SQLCODE;
4873: x_err_msg := 'WSMPUTIL.check_wmti('||l_stmt_num||') :'||SUBSTR(SQLERRM,1,1000);
4874: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
4875: return 1; -- return a nonzero value.
4876:
4877: END CHECK_WMTI;

Line 5017: x_err_msg := 'WSMPUTIL.check_wsmt('||l_stmt_num||') : Returning error';

5013: END IF;
5014:
5015:
5016: IF (l_sj_rowcount > 0 ) THEN
5017: x_err_msg := 'WSMPUTIL.check_wsmt('||l_stmt_num||') : Returning error';
5018: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5019: RETURN l_sj_rowcount;
5020: END IF;
5021:

Line 5077: x_err_msg := 'WSMPUTIL.check_wsmt('||l_stmt_num||') : Returning error';

5073:
5074: END IF;
5075:
5076: IF (l_rj_rowcount > 0 ) THEN
5077: x_err_msg := 'WSMPUTIL.check_wsmt('||l_stmt_num||') : Returning error';
5078: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5079: RETURN l_rj_rowcount;
5080: END IF;
5081:

Line 5149: x_err_msg := 'WSMPUTIL.check_wsmt('||l_stmt_num||') : Returning error';

5145:
5146: END IF;
5147:
5148: IF (l_rj_rowcount > 0 ) THEN
5149: x_err_msg := 'WSMPUTIL.check_wsmt('||l_stmt_num||') : Returning error';
5150: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5151: RETURN l_rj_rowcount;
5152: END IF;
5153:

Line 5157: x_err_msg := 'WSMPUTIL.CHECK_WSMT:Returned Success';

5153:
5154: END IF;
5155:
5156: x_err_code := 0;
5157: x_err_msg := 'WSMPUTIL.CHECK_WSMT:Returned Success';
5158: IF (l_debug = 'Y') THEN
5159: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5160: END IF;
5161:

Line 5170: x_err_msg := 'WSMPUTIL.CHECK_WSMT' ||'(stmt_num='||l_stmt_num||') : '||substrb(sqlerrm, 1,1000);

5166: EXCEPTION
5167:
5168: WHEN OTHERS THEN
5169: x_err_code := SQLCODE;
5170: x_err_msg := 'WSMPUTIL.CHECK_WSMT' ||'(stmt_num='||l_stmt_num||') : '||substrb(sqlerrm, 1,1000);
5171: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5172: return 1; -- return a nonzerovalue.
5173:
5174: END CHECK_WSMT;

Line 5258: x_err_msg := 'WSMPUTIL.check_wmt('||l_stmt_num||') : error: Move Txn with a later txn date found.';

5254: AND rownum = 1;
5255:
5256:
5257: IF (l_rowcount > 0 ) THEN
5258: x_err_msg := 'WSMPUTIL.check_wmt('||l_stmt_num||') : error: Move Txn with a later txn date found.';
5259: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5260: RETURN l_rowcount;
5261: END IF;
5262:

Line 5279: x_err_msg := 'WSMPUTIL.check_wmt('||l_stmt_num||') : error: Move Txn with a later txn date found.';

5275: AND rownum = 1;
5276:
5277:
5278: IF (l_rowcount > 0 ) THEN
5279: x_err_msg := 'WSMPUTIL.check_wmt('||l_stmt_num||') : error: Move Txn with a later txn date found.';
5280: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5281: RETURN l_rowcount;
5282: END IF;
5283:

Line 5294: x_err_msg := 'WSMPUTIL.CHECK_WMT:Returned Success';

5290:
5291: EXCEPTION
5292: WHEN NO_DATA_FOUND THEN
5293: l_rowcount := 0;
5294: x_err_msg := 'WSMPUTIL.CHECK_WMT:Returned Success';
5295: IF (l_debug = 'Y') THEN
5296: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5297: END IF;
5298: return l_rowcount;

Line 5302: x_err_msg := 'WSMPUTIL.check_wmt('||l_stmt_num||') :'||SUBSTR(SQLERRM,1,1000);

5298: return l_rowcount;
5299:
5300: WHEN OTHERS THEN
5301: x_err_code := SQLCODE;
5302: x_err_msg := 'WSMPUTIL.check_wmt('||l_stmt_num||') :'||SUBSTR(SQLERRM,1,1000);
5303: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5304: return 1; -- return a nonzero value.
5305:
5306: END CHECK_WMT;

Line 5340: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPUTIL.check_wsmti('||l_stmt_num||') Input parameters are ...');

5336: /***************************************************************
5337: -- Fixed bug #3453139: Stubbed out this procedure, since it is not called from anywhere.
5338:
5339: if l_debug = 'Y' then
5340: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPUTIL.check_wsmti('||l_stmt_num||') Input parameters are ...');
5341: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_wip_entity_id ='||p_wip_entity_id);
5342: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_wip_entity_name ='||p_wip_entity_name);
5343: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_organization_id ='||p_organization_id);
5344: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_transaction_date ='||to_char(p_transaction_date, 'DD-MON-YYYY HH24:MI:SS'));

Line 5376: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WSJI Txn';

5372: NULL;
5373: End;
5374:
5375: IF (l_sj_rowcount > 0 ) THEN
5376: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WSJI Txn';
5377: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5378: RETURN l_sj_rowcount;
5379:
5380: END IF;

Line 5414: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WRJI Txn';

5410: NULL;
5411: End;
5412:
5413: IF (l_rj_rowcount > 0 ) THEN
5414: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WRJI Txn';
5415: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5416: RETURN l_rj_rowcount;
5417: END IF;
5418:

Line 5450: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WSJI Txn';

5446: NULL;
5447: End;
5448:
5449: IF (l_sj_rowcount > 0 ) THEN
5450: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WSJI Txn';
5451: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5452: RETURN l_sj_rowcount;
5453:
5454: END IF;

Line 5481: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WRJI Txn';

5477: NULL;
5478: End;
5479:
5480: IF (l_rj_rowcount > 0 ) THEN
5481: x_err_msg := 'WSMPUTIL.check_wsmti('||l_stmt_num||') : Returning error - Unprocessed earlier WRJI Txn';
5482: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5483: RETURN l_rj_rowcount;
5484: END IF;
5485:

Line 5489: x_err_msg := 'WSMPUTIL.CHECK_WSMTI:Returned Success - No Unprocessed WSMTI Txns for this lot';

5485:
5486: END IF;
5487:
5488: x_err_code := 0;
5489: x_err_msg := 'WSMPUTIL.CHECK_WSMTI:Returned Success - No Unprocessed WSMTI Txns for this lot';
5490: IF (l_debug = 'Y') THEN
5491: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5492: END IF;
5493:

Line 5502: x_err_msg := 'WSMPUTIL.CHECK_WSMTI' ||'(stmt_num='||l_stmt_num||') : '||substrb(sqlerrm, 1,1000);

5498: EXCEPTION
5499:
5500: WHEN OTHERS THEN
5501: x_err_code := SQLCODE;
5502: x_err_msg := 'WSMPUTIL.CHECK_WSMTI' ||'(stmt_num='||l_stmt_num||') : '||substrb(sqlerrm, 1,1000);
5503: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5504: return 1; -- return a nonzerovalue.
5505:
5506: END CHECK_WSMTI;

Line 5549: WSMPUTIL.replacement_op_seq_id (p_operation_sequence_id

5545: from wip_discrete_jobs wdj
5546: , wip_operations wo
5547: Where wdj.wip_entity_id = wo.wip_entity_id
5548: and NVL(wo.operation_sequence_id, -99999) =
5549: WSMPUTIL.replacement_op_seq_id (p_operation_sequence_id
5550: , wdj.routing_revision_date)
5551: and wdj.status_type = WIP_CONSTANTS.RELEASED
5552: and (
5553: wo.quantity_in_queue <> 0

Line 5711: IF (WSMPUTIL.REFER_SITE_LEVEL_PROFILE = 'Y') THEN

5707:
5708: BEGIN
5709:
5710: -- Following is the strategy to be implemented in UT/ST/Cert/later for FP-J
5711: IF (WSMPUTIL.REFER_SITE_LEVEL_PROFILE = 'Y') THEN
5712: l_return_value := CREATE_LBJ_COPY_RTG_PROFILE;
5713: ELSE -- Refer to the org level setting
5714: select plan_code
5715: into l_plan_code

Line 5815: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.GET_INV_ACCT_PERIOD: '||x_err_msg

5811: fnd_message.set_name('WSM', 'WSM_ACCT_PERIOD_NOT_OPEN');
5812: x_err_code := -1;
5813: x_err_msg := FND_MESSAGE.GET;
5814: IF (l_debug = 'Y') THEN -- bug 3373637
5815: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.GET_INV_ACCT_PERIOD: '||x_err_msg
5816: || ' (organization_id = ' || p_organization_id || ')');
5817: END IF;
5818: l_acct_period_id := 0;
5819: end if;

Line 5832: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.GET_INV_ACCT_PERIOD: '||x_err_msg);

5828: /*WHEN NO_DATA_FOUND then
5829: x_err_code := -1;
5830: fnd_message.set_name('WSM', 'WSM_ACCT_PERIOD_NOT_OPEN');
5831: x_err_msg := FND_MESSAGE.GET;
5832: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.GET_INV_ACCT_PERIOD: '||x_err_msg);
5833: l_acct_period_id := 0; -- Date passed is in a NON-OPEN Period.
5834: Return l_acct_period_id;*/
5835:
5836: WHEN OTHERS THEN

Line 5838: x_err_msg := 'WSMPUTIL.GET_INV_ACCT_PERIOD: ' || substrb(sqlerrm, 1,1000);

5834: Return l_acct_period_id;*/
5835:
5836: WHEN OTHERS THEN
5837: x_err_code := SQLCODE;
5838: x_err_msg := 'WSMPUTIL.GET_INV_ACCT_PERIOD: ' || substrb(sqlerrm, 1,1000);
5839: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
5840: l_acct_period_id := 0; -- Date passed is in a NON-OPEN Period.
5841: Return l_acct_period_id;
5842: END GET_INV_ACCT_PERIOD;

Line 6033: x_err_msg := substr('WSMPUTIL.LOCK_WDJ: ' || SQLERRM, 1, 4000);

6029: x_err_code := 1;
6030:
6031: WHEN others THEN
6032: x_err_code := SQLCODE;
6033: x_err_msg := substr('WSMPUTIL.LOCK_WDJ: ' || SQLERRM, 1, 4000);
6034: END lock_wdj;
6035: --end bug 3754881
6036: --Bug 5182520:Added the following procedure to handle material status checks.
6037: Function is_status_applicable(p_wms_installed IN VARCHAR2,

Line 6398: END WSMPUTIL;

6394: END validate_job_network;
6395:
6396:
6397:
6398: END WSMPUTIL;