39: ********************************************************************************/
40: procedure write_medical_exam_to_log(p_medical_exam in csr_medic_exam%ROWTYPE)
41: IS
42: BEGIN
43: per_fr_upgrade_data_pkg.write_log(p_medical_exam.employee_number);
44: /* added script to print all medical assessment information to log*/
45: per_fr_upgrade_data_pkg.write_log(p_medical_exam.full_name);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
41: IS
42: BEGIN
43: per_fr_upgrade_data_pkg.write_log(p_medical_exam.employee_number);
44: /* added script to print all medical assessment information to log*/
45: per_fr_upgrade_data_pkg.write_log(p_medical_exam.full_name);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
42: BEGIN
43: per_fr_upgrade_data_pkg.write_log(p_medical_exam.employee_number);
44: /* added script to print all medical assessment information to log*/
45: per_fr_upgrade_data_pkg.write_log(p_medical_exam.full_name);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
43: per_fr_upgrade_data_pkg.write_log(p_medical_exam.employee_number);
44: /* added script to print all medical assessment information to log*/
45: per_fr_upgrade_data_pkg.write_log(p_medical_exam.full_name);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
44: /* added script to print all medical assessment information to log*/
45: per_fr_upgrade_data_pkg.write_log(p_medical_exam.full_name);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
52: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION7);
45: per_fr_upgrade_data_pkg.write_log(p_medical_exam.full_name);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
52: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION7);
53: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION8);
46: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION1);
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
52: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION7);
53: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION8);
54:
47: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION2);
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
52: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION7);
53: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION8);
54:
55: END write_medical_exam_to_log;
48: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION3);
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
52: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION7);
53: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION8);
54:
55: END write_medical_exam_to_log;
56:
49: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION4);
50: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION5);
51: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION6);
52: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION7);
53: per_fr_upgrade_data_pkg.write_log(p_medical_exam.PEI_INFORMATION8);
54:
55: END write_medical_exam_to_log;
56:
57: /***********************************************************************
82:
83: WHILE csr_medic_exam%FOUND LOOP
84:
85: if l_medical_exam.PEI_INFORMATION1 is NULL then
86: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74996_MED_DATE_DFLT',
87: p_token1 => 'EMPLOYEE:'|| l_medical_exam.employee_number);
88: l_consultation_date :=to_date('01010001','DDMMYYYY');
89: if l_run_status = 0 THEN /* only change status if not 1 or 2 already */
90: l_run_status := 1; -- Set status of run to warning.
97: l_next_consultation_date := fnd_date.canonical_to_date(l_medical_exam.PEI_INFORMATION8);
98:
99: if l_next_consultation_date <= l_consultation_date then
100: -- Next consultation date must be after consultation date. Other set to NULL.
101: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74997_MED_NDATE_DFLT',
102: p_token1 => 'EMPLOYEE:'|| l_medical_exam.employee_number);
103: l_next_consultation_date := NULL;
104: if l_run_status = 0 THEN /* only change status if not 1 or 2 already */
105: l_run_status := 1; -- Set status of run to warning.
107: END IF;
108:
109: if l_medical_exam.PEI_INFORMATION2 IS NULL then
110: l_consultation_type := 'UNKNOWN';
111: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74998_MED_TYPE_DFLT',
112: p_token1 => 'EMPLOYEE:'|| l_medical_exam.employee_number);
113: if l_run_status = 0 THEN /* only change status if not 1 or 2 already */
114: l_run_status := 1; -- Set status of run to warning.
115: end if;
143: and PERSON_EXTRA_INFO_ID = l_medical_exam.PERSON_EXTRA_INFO_ID;
144:
145: exception when others then
146: rollback to start_insert;
147: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74999_MED_UPG_FATAL'
148: ,p_token1 => 'TOKEN1:10');
149: write_medical_exam_to_log(l_medical_exam);
150: per_fr_upgrade_data_pkg.write_log(sqlcode);
151: per_fr_upgrade_data_pkg.write_log(sqlerrm);
146: rollback to start_insert;
147: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74999_MED_UPG_FATAL'
148: ,p_token1 => 'TOKEN1:10');
149: write_medical_exam_to_log(l_medical_exam);
150: per_fr_upgrade_data_pkg.write_log(sqlcode);
151: per_fr_upgrade_data_pkg.write_log(sqlerrm);
152: l_run_status := 2; /* Fatal Error */
153: END; -- end of section inserting new medical exam
154:
147: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74999_MED_UPG_FATAL'
148: ,p_token1 => 'TOKEN1:10');
149: write_medical_exam_to_log(l_medical_exam);
150: per_fr_upgrade_data_pkg.write_log(sqlcode);
151: per_fr_upgrade_data_pkg.write_log(sqlerrm);
152: l_run_status := 2; /* Fatal Error */
153: END; -- end of section inserting new medical exam
154:
155:
164:
165: exception when others then
166: rollback;
167: CLOSE csr_medic_exam;
168: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74999_MED_UPG_FATAL'
169: ,p_token1 => 'TOKEN1:50');
170: per_fr_upgrade_data_pkg.write_log(sqlcode);
171: per_fr_upgrade_data_pkg.write_log(sqlerrm);
172: return 2; /* Fatal Error */
166: rollback;
167: CLOSE csr_medic_exam;
168: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74999_MED_UPG_FATAL'
169: ,p_token1 => 'TOKEN1:50');
170: per_fr_upgrade_data_pkg.write_log(sqlcode);
171: per_fr_upgrade_data_pkg.write_log(sqlerrm);
172: return 2; /* Fatal Error */
173: END transfer_data;
174:
167: CLOSE csr_medic_exam;
168: per_fr_upgrade_data_pkg.write_log_message(p_message_name => 'PER_74999_MED_UPG_FATAL'
169: ,p_token1 => 'TOKEN1:50');
170: per_fr_upgrade_data_pkg.write_log(sqlcode);
171: per_fr_upgrade_data_pkg.write_log(sqlerrm);
172: return 2; /* Fatal Error */
173: END transfer_data;
174:
175:
175:
176: /***********************************************************************
177: * function RUN_UPGRADE *
178: * This fucntion must be called from *
179: * per_fr_upgrade_data_pkg.run_upgrade *
180: * return = 0 for Status Normal *
181: * return = 1 for Status Warning *
182: * return = 2 for Status Error *
183: ***********************************************************************/
185: IS
186: l_status number :=0;
187: l_error_status number :=0;
188: begin
189: l_status := per_fr_upgrade_data_pkg.check_lookups(p_fr_lookup_type => 'FR_MEDICAL_EXAMINATION_TYPE'
190: ,p_core_lookup_type => 'CONSULTATION_TYPE');
191:
192: l_error_status := l_status;
193:
190: ,p_core_lookup_type => 'CONSULTATION_TYPE');
191:
192: l_error_status := l_status;
193:
194: l_status := per_fr_upgrade_data_pkg.check_lookups(p_fr_lookup_type => 'FR_MEDICAL_RESULT'
195: ,p_core_lookup_type => 'CONSULTATION_RESULT');
196:
197: if l_status > 0 then
198: l_error_status := l_status;
198: l_error_status := l_status;
199: end if;
200:
201: /* Lookups checked, Check for DF*/
202: l_status := per_fr_upgrade_data_pkg.check_dfs(p_df => 'PER_MEDICAL_ASSESSMENTS');
203:
204: if l_status > 0 then
205: l_error_status := l_status;
206: end if;