31: ********************************************************************************/
32: procedure write_pds_to_log(p_pds in csr_pds%ROWTYPE)
33: IS
34: BEGIN
35: per_fr_upgrade_data_pkg.write_log(p_pds.employee_number);
36: per_fr_upgrade_data_pkg.write_log(p_pds.full_name);
37: per_fr_upgrade_data_pkg.write_log(p_pds.pds_information2);
38: END write_pds_to_log;
39:
32: procedure write_pds_to_log(p_pds in csr_pds%ROWTYPE)
33: IS
34: BEGIN
35: per_fr_upgrade_data_pkg.write_log(p_pds.employee_number);
36: per_fr_upgrade_data_pkg.write_log(p_pds.full_name);
37: per_fr_upgrade_data_pkg.write_log(p_pds.pds_information2);
38: END write_pds_to_log;
39:
40: /***********************************************************************
33: IS
34: BEGIN
35: per_fr_upgrade_data_pkg.write_log(p_pds.employee_number);
36: per_fr_upgrade_data_pkg.write_log(p_pds.full_name);
37: per_fr_upgrade_data_pkg.write_log(p_pds.pds_information2);
38: END write_pds_to_log;
39:
40: /***********************************************************************
41: * function TRANSFER_DATA *
62:
63: l_record_status :=0;
64:
65: if l_pds.lookup_code is null then
66: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75010_MISSING_LEAVING_REAS');
67: l_record_status := 1;
68: end if;
69:
70: If l_record_status = 1 THEN
88: where period_of_service_id = l_pds.period_of_service_id;
89:
90: exception when others then
91: rollback to start_insert;
92: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75011_TERM_UPG_FATAL'
93: ,p_token1 => 'STEP:10');
94: write_pds_to_log(l_pds);
95: per_fr_upgrade_data_pkg.write_log(sqlcode);
96: per_fr_upgrade_data_pkg.write_log(sqlerrm);
91: rollback to start_insert;
92: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75011_TERM_UPG_FATAL'
93: ,p_token1 => 'STEP:10');
94: write_pds_to_log(l_pds);
95: per_fr_upgrade_data_pkg.write_log(sqlcode);
96: per_fr_upgrade_data_pkg.write_log(sqlerrm);
97: l_run_status := 2; /* Fatal Error */
98: END; -- end of section updating termination
99:
92: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75011_TERM_UPG_FATAL'
93: ,p_token1 => 'STEP:10');
94: write_pds_to_log(l_pds);
95: per_fr_upgrade_data_pkg.write_log(sqlcode);
96: per_fr_upgrade_data_pkg.write_log(sqlerrm);
97: l_run_status := 2; /* Fatal Error */
98: END; -- end of section updating termination
99:
100: /* Commit every record to ensure conc log corresponds to records in DB */
110:
111: exception when others then
112: rollback;
113: CLOSE csr_pds;
114: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75011_TERM_UPG_FATAL'
115: ,p_token1 => 'STEP:50');
116: per_fr_upgrade_data_pkg.write_log(sqlcode);
117: per_fr_upgrade_data_pkg.write_log(sqlerrm);
118: return 2; /* Fatal Error */
112: rollback;
113: CLOSE csr_pds;
114: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75011_TERM_UPG_FATAL'
115: ,p_token1 => 'STEP:50');
116: per_fr_upgrade_data_pkg.write_log(sqlcode);
117: per_fr_upgrade_data_pkg.write_log(sqlerrm);
118: return 2; /* Fatal Error */
119: END transfer_data;
120:
113: CLOSE csr_pds;
114: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_75011_TERM_UPG_FATAL'
115: ,p_token1 => 'STEP:50');
116: per_fr_upgrade_data_pkg.write_log(sqlcode);
117: per_fr_upgrade_data_pkg.write_log(sqlerrm);
118: return 2; /* Fatal Error */
119: END transfer_data;
120:
121:
121:
122: /***********************************************************************
123: * function RUN_UPGRADE *
124: * This fucntion must be called from *
125: * per_fr_upgrade_data_pkg.run_upgrade *
126: * return = 0 for Status Normal *
127: * return = 1 for Status Warning *
128: * return = 2 for Status Error *
129: ***********************************************************************/