3133: WSH_UTIL_CORE.PRINTMSG;
3134:
3135:
3136: IF G_COMP_STATUS = G_NORMAL THEN
3137: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL','');
3138: ELSE
3139: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','');
3140: END IF;
3141:
3135:
3136: IF G_COMP_STATUS = G_NORMAL THEN
3137: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL','');
3138: ELSE
3139: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','');
3140: END IF;
3141:
3142: EXCEPTION
3143:
3150: WSH_UTIL_CORE.PRINTMSG(' ITEM NUM => ' || p_item_num);
3151: WSH_UTIL_CORE.PRINTMSG(' CUSTOMER => ' || p_cust_num);
3152: WSH_UTIL_CORE.PRINTMSG(' FROM DATE => ' || p_from_ship_date);
3153: WSH_UTIL_CORE.PRINTMSG(' TO DATE => ' || p_to_ship_date);
3154: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','');
3155:
3156: WHEN OTHERS THEN
3157: WSH_UTIL_CORE.PRINTMSG;
3158: WSH_UTIL_CORE.PRINTMSG(c_event_separator);
3157: WSH_UTIL_CORE.PRINTMSG;
3158: WSH_UTIL_CORE.PRINTMSG(c_event_separator);
3159: WSH_UTIL_CORE.PRINTMSG(' ERR NUM => ' || SQLERRM);
3160: WSH_UTIL_CORE.PRINTMSG(' ERR MSG => ' || SQLCODE);
3161: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3162:
3163: END AUTO_ALLOC_CONFIRM_SRS;
3164:
3165: --Procedure