DBA Data[Home] [Help]

APPS.WSMPUTIL dependencies on WSMPUTIL

Line 1: PACKAGE BODY WSMPUTIL AS

1: PACKAGE BODY WSMPUTIL AS
2: /* $Header: WSMUTILB.pls 120.6.12010000.3 2008/10/22 10:42:02 ybabulal 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 4102: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Updated '||sql%rowcount|| ' LBJ records to ERROR.');

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

Line 4119: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Successfully updated status of '||sql%rowcount|| ' records to FAILED CLOSE.');

4115: and wt.wip_entity_id = we.wip_entity_id
4116: and we.entity_type = 5); -- we will touch only the LBJs.
4117:
4118: if (l_debug = 'Y') then
4119: fnd_file.put_line(fnd_file.log, 'WSMPUTIL.validate_lbj_before_close: Successfully updated status of '||sql%rowcount|| ' records to FAILED CLOSE.');
4120: end if;
4121:
4122: if (sql%rowcount > 0) then
4123: fnd_file.put_line(fnd_file.log, 'Following jobs failed the close process because of unprocessed/uncosted WIP lot transactions:');

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

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

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

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

Line 4211: WSMPUTIL.find_common_routing(

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

Line 4226: WSMPUTIL.find_routing_start ( l_common_routing_sequence_id,

4222:
4223:
4224: l_stmt_num := 40;
4225:
4226: WSMPUTIL.find_routing_start ( l_common_routing_sequence_id,
4227: p_rtg_rev_date,
4228: l_start_op_seq_id,
4229: l_error_code,
4230: l_err_msg );

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Line 5552: WSMPUTIL.replacement_op_seq_id (p_operation_sequence_id

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

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

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

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

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

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

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

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

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

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

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

Line 6400: END WSMPUTIL;

6396: END validate_job_network;
6397:
6398:
6399:
6400: END WSMPUTIL;