APPS.WSMPPCPD dependencies on UTL_FILE

Line 3426: fileHandler UTL_FILE.FILE_TYPE;

3422: l_new_full_path v$parameter.value%TYPE;
3423: l_file_dir v$parameter.value%TYPE;
3424: l_debug_flag VARCHAR2(1);
3425: l_mrp_debug VARCHAR2(1);
3426: fileHandler UTL_FILE.FILE_TYPE;
3427: -- ST Bug fix 5081436
3428:
3429: BEGIN
3430:

Line 3452: -- Pass on a directory from utl_file_dir

3448: l_mrp_debug := fnd_profile.value('mrp_debug');
3449: l_debug_flag := 'N';
3450:
3451: IF l_mrp_debug = 'Y' THEN
3452: -- Pass on a directory from utl_file_dir
3453: SELECT value
3454: INTO l_full_path
3455: FROM v$parameter
3456: WHERE name = 'utl_file_dir';

Line 3456: WHERE name = 'utl_file_dir';

3452: -- Pass on a directory from utl_file_dir
3453: SELECT value
3454: INTO l_full_path
3455: FROM v$parameter
3456: WHERE name = 'utl_file_dir';
3457:
3458: -- l_full_path contains a list of comma-separated directories
3459: WHILE(TRUE)
3460: LOOP

Line 3473: fileHandler := UTL_FILE.FOPEN(l_file_dir , 'wsmdbg.log', 'w');

3469: FROM dual;
3470:
3471: -- check if the dir is valid
3472: BEGIN
3473: fileHandler := UTL_FILE.FOPEN(l_file_dir , 'wsmdbg.log', 'w');
3474: l_debug_flag := 'Y';
3475: EXCEPTION
3476: WHEN utl_file.invalid_path THEN
3477: l_debug_flag := 'N';

Line 3476: WHEN utl_file.invalid_path THEN

3472: BEGIN
3473: fileHandler := UTL_FILE.FOPEN(l_file_dir , 'wsmdbg.log', 'w');
3474: l_debug_flag := 'Y';
3475: EXCEPTION
3476: WHEN utl_file.invalid_path THEN
3477: l_debug_flag := 'N';
3478:
3479: WHEN utl_file.invalid_operation THEN
3480: l_debug_flag := 'N';

Line 3479: WHEN utl_file.invalid_operation THEN

3475: EXCEPTION
3476: WHEN utl_file.invalid_path THEN
3477: l_debug_flag := 'N';
3478:
3479: WHEN utl_file.invalid_operation THEN
3480: l_debug_flag := 'N';
3481: END;
3482:
3483: IF l_debug_flag = 'Y' THEN -- got a valid directory