DBA Data[Home] [Help]

APPS.IGS_AD_IMP_ACIDX_PKG dependencies on FND_FILE

Line 87: FND_FILE.PUT_LINE(FND_FILE.LOG,p_log_text||' - '||p_acadindex_id);

83: error_Text = p_log_text
84: WHERE acadindex_id = p_acadindex_id;
85:
86: -- FND_MESSAGE.SET_NAME('IGS',p_log_text);
87: FND_FILE.PUT_LINE(FND_FILE.LOG,p_log_text||' - '||p_acadindex_id);
88:
89: END update_int_table;
90:
91: BEGIN

Line 104: --FND_FILE.PUT_LINE(FND_FILE.LOG, '1: Start of procedure');

100: igs_ge_gen_003.set_org_id (p_org_id);
101:
102: -- Gather statistics for interface table
103: -- by rrengara on 20-jan-2003 bug 2711176
104: --FND_FILE.PUT_LINE(FND_FILE.LOG, '1: Start of procedure');
105: BEGIN
106: l_gather_return := fnd_installation.get_app_info('IGS', l_gather_status, l_industry, l_schema);
107:
108: FND_STATS.GATHER_TABLE_STATS(ownname => l_schema, tabname => 'IGS_AD_ACAD_IDX_INT_ALL', cascade => TRUE);

Line 113: --FND_FILE.PUT_LINE(FND_FILE.LOG, '2: After gathering statistics');

109: FND_STATS.GATHER_TABLE_STATS(ownname => l_schema, tabname => 'IGS_AD_ACIDX_HDR_ALL', cascade => TRUE);
110: EXCEPTION WHEN OTHERS THEN
111: NULL;
112: END;
113: --FND_FILE.PUT_LINE(FND_FILE.LOG, '2: After gathering statistics');
114: -- For each record in the Interface Table do the following
115:
116: FOR c_acai_inst_rec IN c_acai_int(p_acadindex_batch_id)
117: LOOP

Line 121: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '3: Before calling API');

117: LOOP
118: -- Fetch the appropriate record from Production Table(Admission Instance)
119:
120: BEGIN
121: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '3: Before calling API');
122: igs_admapplication_pub.record_academic_index(
123: p_api_version => l_api_version,
124: p_init_msg_list => l_init_msg_list,
125: p_commit => l_commit,

Line 137: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '4: just after calling API.Return status :='||l_return_status);

133: p_sequence_number => c_acai_inst_rec.sequence_number,
134: p_academic_index => c_acai_inst_rec.admission_index,
135: p_calculation_date => c_acai_inst_rec.calculation_date
136: );
137: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '4: just after calling API.Return status :='||l_return_status);
138: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
139: -- error out the record
140: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '5: If Return status ='||FND_API.G_RET_STS_ERROR||l_msg_data);
141: update_int_table('3','E005',c_acai_inst_rec.acadindex_id,l_msg_data);

Line 140: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '5: If Return status ='||FND_API.G_RET_STS_ERROR||l_msg_data);

136: );
137: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '4: just after calling API.Return status :='||l_return_status);
138: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
139: -- error out the record
140: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '5: If Return status ='||FND_API.G_RET_STS_ERROR||l_msg_data);
141: update_int_table('3','E005',c_acai_inst_rec.acadindex_id,l_msg_data);
142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
143: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '6: If Return status ='||FND_API.G_RET_STS_UNEXP_ERROR);
144: update_int_table('3','E004',c_acai_inst_rec.acadindex_id,'IGS_GE_UNHANDLED_EXCEPTION');

Line 143: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '6: If Return status ='||FND_API.G_RET_STS_UNEXP_ERROR);

139: -- error out the record
140: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '5: If Return status ='||FND_API.G_RET_STS_ERROR||l_msg_data);
141: update_int_table('3','E005',c_acai_inst_rec.acadindex_id,l_msg_data);
142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
143: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '6: If Return status ='||FND_API.G_RET_STS_UNEXP_ERROR);
144: update_int_table('3','E004',c_acai_inst_rec.acadindex_id,'IGS_GE_UNHANDLED_EXCEPTION');
145: ELSE -- Delete the successful record from Interface Table
146: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '7: If Return status = success then delete the record');
147: DELETE igs_ad_acad_idx_int_all

Line 146: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '7: If Return status = success then delete the record');

142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
143: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '6: If Return status ='||FND_API.G_RET_STS_UNEXP_ERROR);
144: update_int_table('3','E004',c_acai_inst_rec.acadindex_id,'IGS_GE_UNHANDLED_EXCEPTION');
145: ELSE -- Delete the successful record from Interface Table
146: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '7: If Return status = success then delete the record');
147: DELETE igs_ad_acad_idx_int_all
148: WHERE acadindex_id=c_acai_inst_rec.acadindex_id;
149: END IF;
150:

Line 153: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '8: When any exception from API block');

149: END IF;
150:
151: EXCEPTION
152: WHEN OTHERS THEN
153: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '8: When any exception from API block');
154: update_int_table('3','E004',c_acai_inst_rec.acadindex_id,'IGS_GE_UNHANDLED_EXCEPTION');
155: END;
156: END LOOP;
157:

Line 159: --FND_FILE.PUT_LINE(FND_FILE.LOG, '9: Before purging the parent record');

155: END;
156: END LOOP;
157:
158: -- Purge the data from Interface Header table whose child records are successfully deleted
159: --FND_FILE.PUT_LINE(FND_FILE.LOG, '9: Before purging the parent record');
160: OPEN c_purge(p_acadindex_batch_id);
161: FETCH c_purge INTO l_purge;
162: IF c_purge%NOTFOUND THEN
163: DELETE igs_ad_acidx_hdr_all

Line 166: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET||' - '||p_acadindex_batch_id);

162: IF c_purge%NOTFOUND THEN
163: DELETE igs_ad_acidx_hdr_all
164: WHERE acadindex_batch_id = p_acadindex_batch_id;
165: FND_MESSAGE.SET_NAME('IGS','IGS_AD_ACDX_REC_DELETED');
166: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET||' - '||p_acadindex_batch_id);
167: END IF;
168: --FND_FILE.PUT_LINE(FND_FILE.LOG, '9: After purging the parent record');
169: CLOSE c_purge;
170:

Line 168: --FND_FILE.PUT_LINE(FND_FILE.LOG, '9: After purging the parent record');

164: WHERE acadindex_batch_id = p_acadindex_batch_id;
165: FND_MESSAGE.SET_NAME('IGS','IGS_AD_ACDX_REC_DELETED');
166: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET||' - '||p_acadindex_batch_id);
167: END IF;
168: --FND_FILE.PUT_LINE(FND_FILE.LOG, '9: After purging the parent record');
169: CLOSE c_purge;
170:
171: -- End of Procedure
172: retcode := 0;

Line 176: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '10: When any exception of program');

172: retcode := 0;
173:
174: EXCEPTION
175: WHEN OTHERS THEN
176: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '10: When any exception of program');
177: retcode:=2;
178: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION')|| sqlerrm;
179: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '11: Before Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');
180: -- Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL;

Line 179: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '11: Before Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');

175: WHEN OTHERS THEN
176: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '10: When any exception of program');
177: retcode:=2;
178: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION')|| sqlerrm;
179: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '11: Before Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');
180: -- Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL;
181: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '12: After Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');
182: ROLLBACK;
183: END prgp_imp_acad_indx;

Line 181: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '12: After Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');

177: retcode:=2;
178: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION')|| sqlerrm;
179: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '11: Before Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');
180: -- Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL;
181: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '12: After Igs_Ge_Msg_Stack.CONC_EXCEPTION_HNDL');
182: ROLLBACK;
183: END prgp_imp_acad_indx;
184: END igs_ad_imp_acidx_pkg;