DBA Data[Home] [Help]

APPS.PO_RELGEN_PKG dependencies on FND_LOG

Line 888: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

884:
885: --
886: l_return_status := FND_API.G_RET_STS_SUCCESS;
887: IF (g_fnd_debug = 'Y') THEN
888: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
889: FND_LOG.string (
890: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
891: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
892: MESSAGE => 'Start create release shipments'

Line 889: FND_LOG.string (

885: --
886: l_return_status := FND_API.G_RET_STS_SUCCESS;
887: IF (g_fnd_debug = 'Y') THEN
888: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
889: FND_LOG.string (
890: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
891: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
892: MESSAGE => 'Start create release shipments'
893: );

Line 890: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,

886: l_return_status := FND_API.G_RET_STS_SUCCESS;
887: IF (g_fnd_debug = 'Y') THEN
888: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
889: FND_LOG.string (
890: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
891: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
892: MESSAGE => 'Start create release shipments'
893: );
894: END IF;

Line 949: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

945:
946: --
947: l_progress := '002';
948: IF (g_fnd_debug = 'Y') THEN
949: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
950: FND_LOG.string (
951: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
952: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
953: MESSAGE => x_ship_to_location_id

Line 950: FND_LOG.string (

946: --
947: l_progress := '002';
948: IF (g_fnd_debug = 'Y') THEN
949: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
950: FND_LOG.string (
951: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
952: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
953: MESSAGE => x_ship_to_location_id
954: );

Line 951: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,

947: l_progress := '002';
948: IF (g_fnd_debug = 'Y') THEN
949: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
950: FND_LOG.string (
951: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
952: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
953: MESSAGE => x_ship_to_location_id
954: );
955: END IF;

Line 1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1338: WHEN OTHERS THEN
1339: FND_FILE.put_line(FND_FILE.LOG,
1340: c_log_head || l_api_name || ' exception; location: '
1341: || l_progress || ' SQL code: ' || sqlcode);
1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1343: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||
1344: l_api_name || '.others_exception', 'EXCEPTION: Location is '
1345: || l_progress || ' SQL CODE is '||sqlcode);
1346: END IF;

Line 1343: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||

1339: FND_FILE.put_line(FND_FILE.LOG,
1340: c_log_head || l_api_name || ' exception; location: '
1341: || l_progress || ' SQL code: ' || sqlcode);
1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1343: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||
1344: l_api_name || '.others_exception', 'EXCEPTION: Location is '
1345: || l_progress || ' SQL CODE is '||sqlcode);
1346: END IF;
1347: raise_application_error(-20001,sqlerrm||'---'||msgbuf);

Line 2555: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2551: x_check_status := FND_API.G_RET_STS_SUCCESS;
2552:
2553: l_progress := '000';
2554: IF g_fnd_debug = 'Y' THEN
2555: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2556: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2557: || l_progress,'PO REQ: Price, Amount Toleance check');
2558: END IF;
2559: END IF;

Line 2556: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2552:
2553: l_progress := '000';
2554: IF g_fnd_debug = 'Y' THEN
2555: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2556: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2557: || l_progress,'PO REQ: Price, Amount Toleance check');
2558: END IF;
2559: END IF;
2560:

Line 2572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2568: FROM po_system_parameters;
2569:
2570: l_progress := '001';
2571: IF g_fnd_debug = 'Y' THEN
2572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2573: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2574: || l_progress,'Is price tol check enforced '||l_enforce_price_tolerance
2575: || ' Is price amount check enforced ' || l_enforce_price_amount);
2576: END IF;

Line 2573: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2569:
2570: l_progress := '001';
2571: IF g_fnd_debug = 'Y' THEN
2572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2573: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2574: || l_progress,'Is price tol check enforced '||l_enforce_price_tolerance
2575: || ' Is price amount check enforced ' || l_enforce_price_amount);
2576: END IF;
2577: END IF;

Line 2624: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2620: --Do price tolerance check
2621: IF l_enforce_price_tolerance = 'Y' THEN
2622:
2623: IF g_fnd_debug = 'Y' THEN
2624: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2625: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2626: || l_progress,'Doing Price Tolerance check');
2627: END IF;
2628: END IF;

Line 2625: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2621: IF l_enforce_price_tolerance = 'Y' THEN
2622:
2623: IF g_fnd_debug = 'Y' THEN
2624: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2625: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2626: || l_progress,'Doing Price Tolerance check');
2627: END IF;
2628: END IF;
2629: OPEN req_price_tol_cursor(l_line_location_id(shipment_line));

Line 2738: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2734:
2735: --Do price 'not to exceed' amount check
2736: IF l_enforce_price_amount = 'Y' THEN
2737: IF g_fnd_debug = 'Y' THEN
2738: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2739: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2740: || l_progress,'Doing Not to exceed amt check');
2741: END IF;
2742: END IF;

Line 2739: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2735: --Do price 'not to exceed' amount check
2736: IF l_enforce_price_amount = 'Y' THEN
2737: IF g_fnd_debug = 'Y' THEN
2738: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2739: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2740: || l_progress,'Doing Not to exceed amt check');
2741: END IF;
2742: END IF;
2743:

Line 2822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

2818: WHEN OTHERS THEN
2819: FND_FILE.put_line(FND_FILE.LOG,
2820: c_log_head || l_api_name || ' exception; location: '
2821: || l_progress || ' SQL code: ' || sqlcode);
2822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2823: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||
2824: l_api_name || '.others_exception', 'EXCEPTION: Location is '
2825: || l_progress || ' SQL CODE is '||sqlcode);
2826: END IF;

Line 2823: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||

2819: FND_FILE.put_line(FND_FILE.LOG,
2820: c_log_head || l_api_name || ' exception; location: '
2821: || l_progress || ' SQL code: ' || sqlcode);
2822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2823: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||
2824: l_api_name || '.others_exception', 'EXCEPTION: Location is '
2825: || l_progress || ' SQL CODE is '||sqlcode);
2826: END IF;
2827: raise_application_error(-20001,sqlerrm||'---'||msgbuf);

Line 2881: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2877: l_federal_instance := PO_CORE_S.Check_Federal_Instance(
2878: PO_MOAC_UTILS_PVT.Get_Current_Org_Id);
2879: --
2880: IF g_fnd_debug = 'Y' THEN
2881: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2882: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2883: || l_progress,'Perform pre-approval checks on the release');
2884: END IF;
2885: END IF;

Line 2882: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2878: PO_MOAC_UTILS_PVT.Get_Current_Org_Id);
2879: --
2880: IF g_fnd_debug = 'Y' THEN
2881: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2882: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2883: || l_progress,'Perform pre-approval checks on the release');
2884: END IF;
2885: END IF;
2886:

Line 2900: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2896: ----------------------------------------------
2897:
2898: l_progress := '012';
2899: IF g_fnd_debug = 'Y' THEN
2900: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2901: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2902: || l_progress,'REL 12: Amount released check for min release amt');
2903: END IF;
2904: END IF;

Line 2901: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2897:
2898: l_progress := '012';
2899: IF g_fnd_debug = 'Y' THEN
2900: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2901: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2902: || l_progress,'REL 12: Amount released check for min release amt');
2903: END IF;
2904: END IF;
2905:

Line 2943: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2939: ----------------------------------------------
2940:
2941: l_progress := '013';
2942: IF g_fnd_debug = 'Y' THEN
2943: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2944: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2945: || l_progress,'REL 13: GL date check ');
2946: END IF;
2947: END IF;

Line 2944: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

2940:
2941: l_progress := '013';
2942: IF g_fnd_debug = 'Y' THEN
2943: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2944: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
2945: || l_progress,'REL 13: GL date check ');
2946: END IF;
2947: END IF;
2948:

Line 3011: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3007: ----------------------------------------------
3008:
3009: l_progress := '014';
3010: IF g_fnd_debug = 'Y' THEN
3011: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3012: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3013: || l_progress,'Rel 14: UOM Interclass conversions check');
3014: END IF;
3015: END IF;

Line 3012: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

3008:
3009: l_progress := '014';
3010: IF g_fnd_debug = 'Y' THEN
3011: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3012: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3013: || l_progress,'Rel 14: UOM Interclass conversions check');
3014: END IF;
3015: END IF;
3016:

Line 3060: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3056: --------------------------------------------------
3057:
3058: l_progress := '015';
3059: IF g_fnd_debug = 'Y' THEN
3060: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3061: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3062: || l_progress,'REL 15: Item restricted check ');
3063: END IF;
3064: END IF;

Line 3061: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

3057:
3058: l_progress := '015';
3059: IF g_fnd_debug = 'Y' THEN
3060: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3061: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3062: || l_progress,'REL 15: Item restricted check ');
3063: END IF;
3064: END IF;
3065:

Line 3132: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3128: ---------------------------------------------
3129:
3130: l_progress := '016';
3131: IF g_fnd_debug = 'Y' THEN
3132: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3133: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3134: || l_progress,'REL 16: ASL Debarred check ');
3135: END IF;
3136: END IF;

Line 3133: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

3129:
3130: l_progress := '016';
3131: IF g_fnd_debug = 'Y' THEN
3132: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3133: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3134: || l_progress,'REL 16: ASL Debarred check ');
3135: END IF;
3136: END IF;
3137:

Line 3212: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3208: -- Check if vendor site has a valid Central Contractor Registration(CCR)
3209: l_progress := '017';
3210:
3211: IF g_fnd_debug = 'Y' THEN
3212: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3213: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name
3214: ||'.'|| l_progress,'Vendor site registration check ');
3215: END IF;
3216: END IF;

Line 3213: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name

3209: l_progress := '017';
3210:
3211: IF g_fnd_debug = 'Y' THEN
3212: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3213: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name
3214: ||'.'|| l_progress,'Vendor site registration check ');
3215: END IF;
3216: END IF;
3217:

Line 3254: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3250:
3251: --
3252: l_progress := '018';
3253: IF g_fnd_debug = 'Y' THEN
3254: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3255: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3256: || l_progress,'LCM enabled release shipment should have invoice match option as receipt');
3257: END IF;
3258: END IF;

Line 3255: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

3251: --
3252: l_progress := '018';
3253: IF g_fnd_debug = 'Y' THEN
3254: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3255: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3256: || l_progress,'LCM enabled release shipment should have invoice match option as receipt');
3257: END IF;
3258: END IF;
3259: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_REL_SHIP_INV_MATCH_NE_R');

Line 3279: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3275: END IF;
3276:
3277: l_progress := '019';
3278: IF g_fnd_debug = 'Y' THEN
3279: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3280: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3281: || l_progress,'LCM enabled release distribution should have destination type as Inventory');
3282: END IF;
3283: END IF;

Line 3280: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'

3276:
3277: l_progress := '019';
3278: IF g_fnd_debug = 'Y' THEN
3279: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3280: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head || '.'||l_api_name||'.'
3281: || l_progress,'LCM enabled release distribution should have destination type as Inventory');
3282: END IF;
3283: END IF;
3284:

Line 3312: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3308: WHEN OTHERS THEN
3309: FND_FILE.put_line(FND_FILE.LOG,
3310: c_log_head || l_api_name || ' exception; location: '
3311: || l_progress || ' SQL code: ' || sqlcode);
3312: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3313: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||
3314: l_api_name || '.others_exception', 'EXCEPTION: Location is '
3315: || l_progress || ' SQL CODE is '||sqlcode);
3316: END IF;

Line 3313: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||

3309: FND_FILE.put_line(FND_FILE.LOG,
3310: c_log_head || l_api_name || ' exception; location: '
3311: || l_progress || ' SQL code: ' || sqlcode);
3312: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3313: FND_LOG.string(FND_LOG.level_unexpected, c_log_head ||
3314: l_api_name || '.others_exception', 'EXCEPTION: Location is '
3315: || l_progress || ' SQL CODE is '||sqlcode);
3316: END IF;
3317: raise_application_error(-20001,sqlerrm||'---'||msgbuf);

Line 3358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3354: BEGIN
3355: l_return_status := FND_API.G_RET_STS_SUCCESS;
3356:
3357: IF (g_fnd_debug = 'Y') THEN
3358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3359: FND_LOG.string (
3360: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
3361: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
3362: MESSAGE => 'Start create delivery record for approved Blanket Release'

Line 3359: FND_LOG.string (

3355: l_return_status := FND_API.G_RET_STS_SUCCESS;
3356:
3357: IF (g_fnd_debug = 'Y') THEN
3358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3359: FND_LOG.string (
3360: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
3361: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
3362: MESSAGE => 'Start create delivery record for approved Blanket Release'
3363: );

Line 3360: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,

3356:
3357: IF (g_fnd_debug = 'Y') THEN
3358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3359: FND_LOG.string (
3360: LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
3361: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
3362: MESSAGE => 'Start create delivery record for approved Blanket Release'
3363: );
3364: END IF;

Line 3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3414: );
3415: END IF;
3416:
3417: IF (g_fnd_debug = 'Y') THEN
3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3419: FND_LOG.string(
3420: LOG_LEVEL => FND_LOG.level_unexpected,
3421: MODULE => c_log_head ||'.'||l_api_name||'.others_exception',
3422: MESSAGE => FND_MSG_PUB.get(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F')

Line 3419: FND_LOG.string(

3415: END IF;
3416:
3417: IF (g_fnd_debug = 'Y') THEN
3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3419: FND_LOG.string(
3420: LOG_LEVEL => FND_LOG.level_unexpected,
3421: MODULE => c_log_head ||'.'||l_api_name||'.others_exception',
3422: MESSAGE => FND_MSG_PUB.get(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F')
3423: );

Line 3420: LOG_LEVEL => FND_LOG.level_unexpected,

3416:
3417: IF (g_fnd_debug = 'Y') THEN
3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3419: FND_LOG.string(
3420: LOG_LEVEL => FND_LOG.level_unexpected,
3421: MODULE => c_log_head ||'.'||l_api_name||'.others_exception',
3422: MESSAGE => FND_MSG_PUB.get(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F')
3423: );
3424: END IF;

Line 3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3537: c_log_head || l_api_name || ' exception; location: '
3538: || l_progress || ' SQL code: ' || sqlcode);
3539:
3540: IF (g_fnd_debug = 'Y') THEN
3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3542: FND_LOG.string(
3543: LOG_LEVEL => FND_LOG.level_unexpected,
3544: MODULE => c_log_head||l_api_name||'.error_exception',
3545: MESSAGE => 'EXCEPTION ' || l_progress || ': SQL CODE is '||sqlcode

Line 3542: FND_LOG.string(

3538: || l_progress || ' SQL code: ' || sqlcode);
3539:
3540: IF (g_fnd_debug = 'Y') THEN
3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3542: FND_LOG.string(
3543: LOG_LEVEL => FND_LOG.level_unexpected,
3544: MODULE => c_log_head||l_api_name||'.error_exception',
3545: MESSAGE => 'EXCEPTION ' || l_progress || ': SQL CODE is '||sqlcode
3546: );

Line 3543: LOG_LEVEL => FND_LOG.level_unexpected,

3539:
3540: IF (g_fnd_debug = 'Y') THEN
3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3542: FND_LOG.string(
3543: LOG_LEVEL => FND_LOG.level_unexpected,
3544: MODULE => c_log_head||l_api_name||'.error_exception',
3545: MESSAGE => 'EXCEPTION ' || l_progress || ': SQL CODE is '||sqlcode
3546: );
3547: END IF;