[Home] [Help]
19: g_numof_changes_kff_str NUMBER;
20: g_srs_loader_flex_name VARCHAR2(40);
21: g_default_argument CONSTANT VARCHAR2(100) := chr(0);
22: g_nvl_value CONSTANT VARCHAR2(100) := '$FLEX$.$NULL$';
23: g_null_value_constant CONSTANT VARCHAR2(100) := fnd_load_util.null_value();
24: g_null_value VARCHAR2(100);
25: g_lock_handle VARCHAR2(128);
26: g_root_error VARCHAR2(32000);
27: g_call_stack VARCHAR2(32000);
776: -- Set File (Source) WHO.
777: --
778: BEGIN
779: l_file_owner := p_file_owner;
780: x_file_who.last_updated_by := fnd_load_util.owner_id(l_file_owner);
781: --
782: -- Remove the time component from file LUD. We used to use Sysdate for
783: -- NULL case, but it is better to use a fixed date.
784: --
790: x_file_who.creation_date := x_file_who.last_update_date;
791: EXCEPTION
792: WHEN OTHERS THEN
793: l_file_owner := 'SEED'; -- 1
794: x_file_who.last_updated_by := fnd_load_util.owner_id(l_file_owner);
795: x_file_who.last_update_date := Trunc(g_default_lud);
796: x_file_who.last_update_login := 0;
797: x_file_who.created_by := x_file_who.last_updated_by;
798: x_file_who.creation_date := x_file_who.last_update_date;
802: -- Set DB (Destination) WHO
803: --
804: l_db_who.last_updated_by := Nvl(p_db_last_updated_by,
805: x_file_who.last_updated_by);
806: l_db_owner := fnd_load_util.owner_name(l_db_who.last_updated_by);
807: l_db_who.last_update_date := Nvl(p_db_last_update_date,
808: x_file_who.last_update_date - 1);
809: l_db_who.last_update_login := 0;
810: l_db_who.created_by := l_db_who.last_updated_by;
823: -- (x_file_who.last_updated_by <> 1)) OR
824: -- ((l_db_who.last_updated_by = x_file_who.last_updated_by) AND
825: -- (l_db_who.last_update_date <= x_file_who.last_update_date)))
826:
827: l_return := fnd_load_util.upload_test
828: (p_file_id => x_file_who.last_updated_by,
829: p_file_lud => x_file_who.last_update_date,
830: p_db_id => l_db_who.last_updated_by,
831: p_db_lud => l_db_who.last_update_date,
6092: END IF;
6093:
6094: IF (g_debug_on) THEN
6095: debug(l_debug || ' ' ||
6096: Rpad(p_lub || '/' || fnd_load_util.owner_name(p_lub),
6097: 15) || ' ' ||
6098: To_char(p_lud, g_date_mask));
6099: END IF;
6100:
6226: IF (g_debug_on) THEN
6227: debug(l_header2);
6228: debug('Max LUB and max LUD SEED: ' ||
6229: Rpad(px_max_seed_lub || '/' ||
6230: fnd_load_util.owner_name(px_max_seed_lub),
6231: 15) || ' ' ||
6232: To_char(px_max_seed_lud, g_date_mask));
6233: debug(' CUSTOM: ' ||
6234: Rpad(px_max_custom_lub || '/' ||
6231: 15) || ' ' ||
6232: To_char(px_max_seed_lud, g_date_mask));
6233: debug(' CUSTOM: ' ||
6234: Rpad(px_max_custom_lub || '/' ||
6235: fnd_load_util.owner_name(px_max_custom_lub),
6236: 15) || ' ' ||
6237: To_char(px_max_custom_lud, g_date_mask));
6238: debug(' Final Status: ' ||
6239: px_data_status);
6368: IF (l_db_data_status IN ('ALL_SEED', 'SOME_SEED')) THEN
6369: --
6370: -- DB has SEED data.
6371: --
6372: l_is_upload_allowed := fnd_load_util.upload_test
6373: (p_file_id => l_ldt_max_seed_lub,
6374: p_file_lud => l_ldt_max_seed_lud,
6375: p_db_id => l_db_max_seed_lub,
6376: p_db_lud => l_db_max_seed_lud,
6404: --
6405: -- DB is ALL_CUSTOM.
6406: -- Customer might be moving CUSTOM SRS from one db to another.
6407: --
6408: l_is_upload_allowed := fnd_load_util.upload_test
6409: (p_file_id => l_ldt_max_custom_lub,
6410: p_file_lud => l_ldt_max_custom_lud,
6411: p_db_id => l_db_max_custom_lub,
6412: p_db_lud => l_db_max_custom_lud,
11019: --
11020: -- Declaring a constant and then assigning a global variable to it solves
11021: -- 2 problems.
11022: --
11023: -- 1. Because of purity problems, fnd_load_util.null_value() cannot be
11024: -- called here.
11025: -- It has to be called when a constant variable is declared.
11026: -- 2. PL/SQL has a bug and if a constant is initialized with a function call,
11027: -- PL/SQL calls that function every time this constant is used.
11026: -- 2. PL/SQL has a bug and if a constant is initialized with a function call,
11027: -- PL/SQL calls that function every time this constant is used.
11028: --
11029: -- So, declaring a constant variable and initializing it
11030: -- with fnd_load_util.null_value() solves the purity problem.
11031: -- Then copying this value to another global variable solves
11032: -- the PL/SQL problem.
11033: --
11034: g_null_value := g_null_value_constant;