160: FETCH c_streams_rec_csr INTO c_streams_rec;
161: EXIT WHEN c_streams_rec_csr%NOTFOUND;
162: savepoint pay_ins_payments ;
163:
164: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: Contract Number=> '||c_streams_rec.contract_number||
165: ' ,for date=> '||c_streams_rec.due_date||' and Amount=> '||c_streams_rec.amount);
166:
167: -- call ap_request
168:
182:
183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN --<4
184: FOR i IN 1..l_msg_count LOOP
185: JTF_PLSQL_API.get_messages(i,l_msg_data);
186: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
187: END LOOP;
188: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
189: ELSIF(l_return_status = OKC_API.G_RET_STS_ERROR) THEN --<4
190:
189: ELSIF(l_return_status = OKC_API.G_RET_STS_ERROR) THEN --<4
190:
191: FOR i IN 1..l_msg_count LOOP
192: JTF_PLSQL_API.get_messages(i,l_msg_data);
193: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
194: END LOOP;
195: ROLLBACK TO pay_ins_payments;
196: ELSE
197: l_selv_rec.id := c_streams_rec.stream_ele_id;
208:
209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN --<4
210: FOR i IN 1..l_msg_count LOOP
211: JTF_PLSQL_API.get_messages(i,l_msg_data);
212: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
213: END LOOP;
214: ROLLBACK TO pay_ins_payments;
215: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
216: ELSIF(l_return_status = OKC_API.G_RET_STS_ERROR) THEN --<4
216: ELSIF(l_return_status = OKC_API.G_RET_STS_ERROR) THEN --<4
217:
218: FOR i IN 1..l_msg_count LOOP
219: JTF_PLSQL_API.get_messages(i,l_msg_data);
220: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
221: END LOOP;
222: ROLLBACK TO pay_ins_payments;
223: END IF;
224: END IF;
232: -- Exception handling
233: ------------------------------------------------------------
234:
235: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
236: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
237:
238: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
239: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
240:
235: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
236: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
237:
238: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
239: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
240:
241: WHEN OTHERS THEN
242: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
243:
238: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
239: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
240:
241: WHEN OTHERS THEN
242: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
243:
244: END pay_ins_payments;
245:
246:
404:
405: IF ls_reminder_yn = 'Y' THEN --Bug: 4177206
406: l_content_id := p_template_id ;
407: IF l_content_id = Okc_Api.G_MISS_NUM OR l_content_id IS NULL THEN --Bug: 4177206
408: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Document is selected');
409: END IF;
410: -- Added by Skgautam for bug 4177206
411: --Obtain user profile option name for given profile option name
412: OPEN l_profile_name_csr('OKL_EMAIL_IDENTITY');
437: ELSE
438: ls_to_email := fnd_profile.value('OKL_EMAIL_IDENTITY');
439: -- Check for NULL values and return if either of these is null
440: IF ls_to_email = Okc_Api.G_MISS_CHAR OR ls_to_email IS NULL THEN
441: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'System profile value for ' || l_profile_name || ' is not defined');
442: RETURN;
443: END IF;
444: END IF;
445: -- Added by Skgautam to get email id for bug 4177206
468:
469: x_msg_count => l_msg_count,
470: x_msg_data => l_msg_data);
471: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
472: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Document is selected');
473: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
474: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Unexpected Exception');
475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
476: END IF;
470: x_msg_data => l_msg_data);
471: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
472: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Document is selected');
473: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
474: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Unexpected Exception');
475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
476: END IF;
477:
478: END IF;
790: BEGIN
791:
792: l_content_id := p_template_id ;
793: IF l_content_id = Okc_Api.G_MISS_NUM OR l_content_id IS NULL THEN --Bug: 4177206
794: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Document is Selected');
795: END IF;
796: -- Added by Skgautam for bug 4177206
797: --Obtain user profile option name for given profile option name
798: OPEN l_profile_name_csr('OKL_EMAIL_IDENTITY');
819: ELSE
820: ls_to_email := fnd_profile.value('OKL_EMAIL_IDENTITY');
821: -- Check for NULL values and return if either of these is null
822: IF ls_to_email = Okc_Api.G_MISS_CHAR OR ls_to_email IS NULL THEN --Bug: 4177206
823: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'System profile value for ' || l_profile_name || ' is not defined');
824: RETURN;
825: END IF;
826: END IF;
827:
849: x_msg_data => l_msg_data);
850: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
851: FOR i IN 1..l_msg_count LOOP
852: JTF_PLSQL_API.get_messages(i,l_msg_data);
853: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
854: END LOOP;
855: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: FOR i IN 1..l_msg_count LOOP
857: JTF_PLSQL_API.get_messages(i,l_msg_data);
854: END LOOP;
855: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: FOR i IN 1..l_msg_count LOOP
857: JTF_PLSQL_API.get_messages(i,l_msg_data);
858: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
859: END LOOP;
860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: END IF;
862:
1050: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
1051:
1052: BEGIN
1053:
1054: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1055: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance Start---');
1056: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1057: -- Get values from system profile for Number of days
1058: l_afterlease_criteria := fnd_profile.value('OKLINDAYSFORAUTOINS');
1051:
1052: BEGIN
1053:
1054: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1055: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance Start---');
1056: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1057: -- Get values from system profile for Number of days
1058: l_afterlease_criteria := fnd_profile.value('OKLINDAYSFORAUTOINS');
1059:
1052: BEGIN
1053:
1054: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1055: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance Start---');
1056: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1057: -- Get values from system profile for Number of days
1058: l_afterlease_criteria := fnd_profile.value('OKLINDAYSFORAUTOINS');
1059:
1060: --04-Jan-2004 PAGARG Bug# 3941338
1064: CLOSE l_profile_name_csr;
1065:
1066: -- Check for NULL values and return if either of these is null
1067: IF l_afterlease_criteria = Okc_Api.G_MISS_NUM OR l_afterlease_criteria IS NULL THEN
1068: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'System profile value for ' || l_profile_name || ' is not defined');
1069: RETURN;
1070: END IF;
1071:
1072: -- Get all mandatory data
1079: CLOSE l_profile_name_csr;
1080:
1081: -- Check for NULL values and return if any of these is null
1082: IF ls_payment_freq = Okc_Api.G_MISS_CHAR OR ls_payment_freq IS NULL THEN
1083: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'System profile value for ' || l_profile_name || ' is not defined');
1084: RETURN;
1085: END IF;
1086:
1087: BEGIN
1098: --Bug # 6318957 Changes Start
1099: l_khr_org_id := l_okl_eli_policies_csr.org_id;
1100: --Bug # 6318957 Changes End
1101: mo_global.set_policy_context('S', l_khr_org_id); --added by zrehman for Bug#6363652 10-Oct-2007
1102: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1103: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'--For Contract Number--'|| l_khr_number );
1104: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1105:
1106:
1099: l_khr_org_id := l_okl_eli_policies_csr.org_id;
1100: --Bug # 6318957 Changes End
1101: mo_global.set_policy_context('S', l_khr_org_id); --added by zrehman for Bug#6363652 10-Oct-2007
1102: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1103: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'--For Contract Number--'|| l_khr_number );
1104: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1105:
1106:
1107: OPEN c_rulecust_value(l_khr_id);
1100: --Bug # 6318957 Changes End
1101: mo_global.set_policy_context('S', l_khr_org_id); --added by zrehman for Bug#6363652 10-Oct-2007
1102: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1103: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'--For Contract Number--'|| l_khr_number );
1104: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1105:
1106:
1107: OPEN c_rulecust_value(l_khr_id);
1108: FETCH c_rulecust_value INTO l_blanket_ins_yn, l_insurable_yn ;
1121: close c_rulelessor_value ;
1122:
1123:
1124: IF (l_blanket_ins_yn = 'Y' ) THEN -- <1
1125: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Contract Number'|| l_khr_number ||'has blanket insurance ');
1126: I := I + 1;
1127: noins_tbl_type(I).CONTRACT_NUMBER := l_khr_number ;
1128: noins_tbl_type(I).start_date := l_khr_start ;
1129:
1127: noins_tbl_type(I).CONTRACT_NUMBER := l_khr_number ;
1128: noins_tbl_type(I).start_date := l_khr_start ;
1129:
1130: ELSIF(l_insurable_yn = 'N') THEN -- <1
1131: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Customer not insurable (Master Lease) for Contract Number '||l_khr_number);
1132: -- Initiate Workflow
1133: create_third_party_task_event
1134: ( p_contract_id => l_khr_id,
1135: p_org_id => l_khr_org_id,
1138: J:= J+ 1 ;
1139: workflow_tbl_type(j).CONTRACT_NUMBER := l_khr_number ;
1140: workflow_tbl_type(j).start_date := l_khr_start ;
1141: ELSE
1142: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Error in raising business event for Contract Number '||l_khr_number );
1143: K := k + 1 ;
1144: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1145: error_tbl_type(k).start_date := l_khr_start ;
1146: -- Need to check
1148: END IF;
1149:
1150:
1151: ELSIF(l_prm_lessor_sell = 'N' ) THEN -- 1
1152: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Vendor Program does not allow insurance for Contract Number '||l_khr_number );
1153: -- Initiate Workflow
1154: create_third_party_task_event
1155: ( p_contract_id => l_khr_id,
1156: p_org_id => l_khr_org_id,
1159: J:= J+ 1 ;
1160: workflow_tbl_type(j).CONTRACT_NUMBER := l_khr_number ;
1161: workflow_tbl_type(j).start_date := l_khr_start ;
1162: ELSE
1163: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Error in raising business event for Contract Number '||l_khr_number );
1164: K := k + 1 ;
1165: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1166: error_tbl_type(k).start_date := l_khr_start ;
1167: -- Need to check
1179: K := k+1;
1180: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1181: error_tbl_type(k).start_date := l_khr_start ;
1182: lb_provider := true;
1183: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Financial Line not setup for Contract Number '|| l_khr_number);
1184: ELSIF (ls_fin_line = Okc_Api.G_MISS_NUM AND ls_fin_line IS NULL ) THEN -- <2
1185: CLOSE okl_financial_line_csr;
1186: K := k + 1 ;
1187: lb_provider := true;
1186: K := k + 1 ;
1187: lb_provider := true;
1188: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1189: error_tbl_type(k).start_date := l_khr_start ;
1190: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Financial Line not setup for Contract Number '|| l_khr_number);
1191: ELSE -- <2
1192: CLOSE okl_financial_line_csr;
1193: END IF;
1194: -- GET COUNTRY
1197: K := k + 1 ;
1198: lb_provider := true;
1199: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1200: error_tbl_type(k).start_date := l_khr_start ;
1201: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Location is missing for Contract Number'||l_khr_number );
1202: ELSE
1203: -- Added as part of fix for Canon bug 3551010
1204: --SMODUGA
1205:
1211: K := k + 1 ;
1212: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1213: error_tbl_type(k).start_date := l_khr_start ;
1214: lb_provider := true;
1215: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Capital Amount is missing for Contract Number '||l_khr_number);
1216: ELSE -- < 3
1217: CLOSE okl_k_capital_amt_csr;
1218:
1219: OPEN okl_last_ins_to_csr (l_khr_id); -- changed by zrehman as part of Bug#6363652 09-Oct-2007
1263:
1264: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN --<4
1265: FOR i IN 1..l_msg_count LOOP
1266: JTF_PLSQL_API.get_messages(i,l_msg_data);
1267: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1268: END LOOP;
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF(l_return_status = OKC_API.G_RET_STS_ERROR) THEN --<4
1271: IF(x_message = OKL_INS_QUOTE_PVT.G_NO_INS ) THEN --<5
1271: IF(x_message = OKL_INS_QUOTE_PVT.G_NO_INS ) THEN --<5
1272: lb_provider := false;
1273: FOR i IN 1..l_msg_count LOOP
1274: JTF_PLSQL_API.get_messages(i,l_msg_data);
1275: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1276: END LOOP;
1277: EXIT;
1278: ELSIF(x_message = OKL_INS_QUOTE_PVT.G_NOT_ABLE ) THEN--<5
1279: --Get Next Provider
1282: ELSE --<5
1283:
1284: FOR i IN 1..l_msg_count LOOP
1285: JTF_PLSQL_API.get_messages(i,l_msg_data);
1286: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1287: END LOOP;
1288: K := k + 1 ;
1289: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1290: error_tbl_type(k).start_date := l_khr_start ;
1307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1308: ROLLBACK TO auto_insurance;
1309: FOR i IN 1..l_msg_count LOOP
1310: JTF_PLSQL_API.get_messages(i,l_msg_data);
1311: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1312: END LOOP;
1313: EXIT;
1314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1315: ROLLBACK TO auto_insurance;
1314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1315: ROLLBACK TO auto_insurance;
1316: FOR i IN 1..l_msg_count LOOP
1317: JTF_PLSQL_API.get_messages(i,l_msg_data);
1318: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1319: END LOOP;
1320: EXIT;
1321: END IF;
1322: SELECT IPY_ID
1342: p_ins_policy_id => l_policy_id );
1343:
1344: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1345: ROLLBACK TO ACTIVATE ;
1346: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Activate Policy for Contract' ||l_khr_number );
1347: FOR i IN 1..l_msg_count LOOP
1348: JTF_PLSQL_API.get_messages(i,l_msg_data);
1349: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1350: END LOOP;
1345: ROLLBACK TO ACTIVATE ;
1346: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Activate Policy for Contract' ||l_khr_number );
1347: FOR i IN 1..l_msg_count LOOP
1348: JTF_PLSQL_API.get_messages(i,l_msg_data);
1349: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1350: END LOOP;
1351: EXIT;
1352: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1353: ROLLBACK TO ACTIVATE ;
1350: END LOOP;
1351: EXIT;
1352: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1353: ROLLBACK TO ACTIVATE ;
1354: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Activate Policy for Contract' ||l_khr_number );
1355: FOR i IN 1..l_msg_count LOOP
1356: JTF_PLSQL_API.get_messages(i,l_msg_data);
1357: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1358: END LOOP;
1353: ROLLBACK TO ACTIVATE ;
1354: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Activate Policy for Contract' ||l_khr_number );
1355: FOR i IN 1..l_msg_count LOOP
1356: JTF_PLSQL_API.get_messages(i,l_msg_data);
1357: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,l_msg_data );
1358: END LOOP;
1359: EXIT;
1360: END IF;
1361: COMMIT ;
1378: J:= J+ 1 ;
1379: workflow_tbl_type(j).CONTRACT_NUMBER := l_khr_number ;
1380: workflow_tbl_type(j).start_date := l_khr_start ;
1381: ELSE
1382: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Error in raising business event for Contract Number '||l_khr_number );
1383: K := k + 1 ;
1384: error_tbl_type(k).CONTRACT_NUMBER := l_khr_number ;
1385: error_tbl_type(k).start_date := l_khr_start ;
1386: -- Need to check
1385: error_tbl_type(k).start_date := l_khr_start ;
1386: -- Need to check
1387: lb_provider := true;
1388: END IF;
1389: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Provider to provide insurance for Contract Number ' ||l_khr_number ); -- Initiate Workflow
1390: END IF ;
1391: lb_provider := FALSE;
1392: END LOOP ;
1393: CLOSE okl_eli_policies_csr ;
1391: lb_provider := FALSE;
1392: END LOOP ;
1393: CLOSE okl_eli_policies_csr ;
1394: mo_global.init('M'); --added by zrehman for Bug#6363652 10-Oct-2007
1395: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---------------------- Summary -----------------------------');
1396: IF (policy_tbl_type.COUNT > 0) THEN
1397: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Created For Contracts');
1398: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1399: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1393: CLOSE okl_eli_policies_csr ;
1394: mo_global.init('M'); --added by zrehman for Bug#6363652 10-Oct-2007
1395: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---------------------- Summary -----------------------------');
1396: IF (policy_tbl_type.COUNT > 0) THEN
1397: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Created For Contracts');
1398: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1399: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1400: FOR i IN policy_tbl_type.first..policy_tbl_type.last LOOP
1401: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||policy_tbl_type(i).CONTRACT_NUMBER ||' ' ||TO_CHAR(policy_tbl_type(i).start_date) );
1394: mo_global.init('M'); --added by zrehman for Bug#6363652 10-Oct-2007
1395: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---------------------- Summary -----------------------------');
1396: IF (policy_tbl_type.COUNT > 0) THEN
1397: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Created For Contracts');
1398: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1399: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1400: FOR i IN policy_tbl_type.first..policy_tbl_type.last LOOP
1401: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||policy_tbl_type(i).CONTRACT_NUMBER ||' ' ||TO_CHAR(policy_tbl_type(i).start_date) );
1402: END LOOP;
1395: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---------------------- Summary -----------------------------');
1396: IF (policy_tbl_type.COUNT > 0) THEN
1397: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Created For Contracts');
1398: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1399: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1400: FOR i IN policy_tbl_type.first..policy_tbl_type.last LOOP
1401: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||policy_tbl_type(i).CONTRACT_NUMBER ||' ' ||TO_CHAR(policy_tbl_type(i).start_date) );
1402: END LOOP;
1403: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || policy_tbl_type.COUNT);
1397: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Created For Contracts');
1398: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1399: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1400: FOR i IN policy_tbl_type.first..policy_tbl_type.last LOOP
1401: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||policy_tbl_type(i).CONTRACT_NUMBER ||' ' ||TO_CHAR(policy_tbl_type(i).start_date) );
1402: END LOOP;
1403: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || policy_tbl_type.COUNT);
1404: END IF;
1405:
1399: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1400: FOR i IN policy_tbl_type.first..policy_tbl_type.last LOOP
1401: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||policy_tbl_type(i).CONTRACT_NUMBER ||' ' ||TO_CHAR(policy_tbl_type(i).start_date) );
1402: END LOOP;
1403: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || policy_tbl_type.COUNT);
1404: END IF;
1405:
1406:
1407: IF (workflow_tbl_type.COUNT > 0) THEN
1404: END IF;
1405:
1406:
1407: IF (workflow_tbl_type.COUNT > 0) THEN
1408: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Third Party Workflow Initiated for Contracts');
1409: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1410: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1411: FOR n IN workflow_tbl_type.first..workflow_tbl_type.last LOOP
1412: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||workflow_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(workflow_tbl_type(n).start_date) );
1405:
1406:
1407: IF (workflow_tbl_type.COUNT > 0) THEN
1408: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Third Party Workflow Initiated for Contracts');
1409: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1410: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1411: FOR n IN workflow_tbl_type.first..workflow_tbl_type.last LOOP
1412: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||workflow_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(workflow_tbl_type(n).start_date) );
1413: END LOOP;
1406:
1407: IF (workflow_tbl_type.COUNT > 0) THEN
1408: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Third Party Workflow Initiated for Contracts');
1409: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1410: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1411: FOR n IN workflow_tbl_type.first..workflow_tbl_type.last LOOP
1412: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||workflow_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(workflow_tbl_type(n).start_date) );
1413: END LOOP;
1414: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || workflow_tbl_type.COUNT);
1408: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Third Party Workflow Initiated for Contracts');
1409: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1410: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1411: FOR n IN workflow_tbl_type.first..workflow_tbl_type.last LOOP
1412: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||workflow_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(workflow_tbl_type(n).start_date) );
1413: END LOOP;
1414: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || workflow_tbl_type.COUNT);
1415: END IF;
1416:
1410: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1411: FOR n IN workflow_tbl_type.first..workflow_tbl_type.last LOOP
1412: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||workflow_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(workflow_tbl_type(n).start_date) );
1413: END LOOP;
1414: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || workflow_tbl_type.COUNT);
1415: END IF;
1416:
1417: IF (noins_tbl_type.COUNT > 0) THEN
1418: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Insurance Required for Contracts');
1414: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || workflow_tbl_type.COUNT);
1415: END IF;
1416:
1417: IF (noins_tbl_type.COUNT > 0) THEN
1418: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Insurance Required for Contracts');
1419: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1420: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1421: FOR n IN noins_tbl_type.first..noins_tbl_type.last LOOP
1422: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||noins_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(noins_tbl_type(n).start_date) );
1415: END IF;
1416:
1417: IF (noins_tbl_type.COUNT > 0) THEN
1418: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Insurance Required for Contracts');
1419: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1420: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1421: FOR n IN noins_tbl_type.first..noins_tbl_type.last LOOP
1422: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||noins_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(noins_tbl_type(n).start_date) );
1423: END LOOP;
1416:
1417: IF (noins_tbl_type.COUNT > 0) THEN
1418: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Insurance Required for Contracts');
1419: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1420: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1421: FOR n IN noins_tbl_type.first..noins_tbl_type.last LOOP
1422: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||noins_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(noins_tbl_type(n).start_date) );
1423: END LOOP;
1424: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || noins_tbl_type.COUNT);
1418: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'No Insurance Required for Contracts');
1419: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1420: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1421: FOR n IN noins_tbl_type.first..noins_tbl_type.last LOOP
1422: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||noins_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(noins_tbl_type(n).start_date) );
1423: END LOOP;
1424: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || noins_tbl_type.COUNT);
1425: END IF;
1426:
1420: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1421: FOR n IN noins_tbl_type.first..noins_tbl_type.last LOOP
1422: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||noins_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(noins_tbl_type(n).start_date) );
1423: END LOOP;
1424: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || noins_tbl_type.COUNT);
1425: END IF;
1426:
1427: IF ( error_tbl_type.COUNT > 0) THEN
1428: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'There are errors in Contracts');
1424: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || noins_tbl_type.COUNT);
1425: END IF;
1426:
1427: IF ( error_tbl_type.COUNT > 0) THEN
1428: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'There are errors in Contracts');
1429: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1430: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1431: FOR n IN error_tbl_type.first.. error_tbl_type.last LOOP
1432: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||error_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(error_tbl_type(n).start_date) );
1425: END IF;
1426:
1427: IF ( error_tbl_type.COUNT > 0) THEN
1428: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'There are errors in Contracts');
1429: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1430: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1431: FOR n IN error_tbl_type.first.. error_tbl_type.last LOOP
1432: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||error_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(error_tbl_type(n).start_date) );
1433: END LOOP;
1426:
1427: IF ( error_tbl_type.COUNT > 0) THEN
1428: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'There are errors in Contracts');
1429: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1430: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1431: FOR n IN error_tbl_type.first.. error_tbl_type.last LOOP
1432: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||error_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(error_tbl_type(n).start_date) );
1433: END LOOP;
1434: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || error_tbl_type.COUNT);
1428: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'There are errors in Contracts');
1429: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'Contract Number Start Date ' );
1430: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1431: FOR n IN error_tbl_type.first.. error_tbl_type.last LOOP
1432: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||error_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(error_tbl_type(n).start_date) );
1433: END LOOP;
1434: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || error_tbl_type.COUNT);
1435:
1436: END IF;
1430: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||'--------------------------------' );
1431: FOR n IN error_tbl_type.first.. error_tbl_type.last LOOP
1432: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,' '||error_tbl_type(n).CONTRACT_NUMBER ||' ' ||TO_CHAR(error_tbl_type(n).start_date) );
1433: END LOOP;
1434: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || error_tbl_type.COUNT);
1435:
1436: END IF;
1437: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1438: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance End---');
1433: END LOOP;
1434: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || error_tbl_type.COUNT);
1435:
1436: END IF;
1437: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1438: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance End---');
1439: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1440:
1441: EXCEPTION
1434: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Total = ' || error_tbl_type.COUNT);
1435:
1436: END IF;
1437: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1438: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance End---');
1439: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1440:
1441: EXCEPTION
1442: WHEN OTHERS THEN
1435:
1436: END IF;
1437: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1438: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance End---');
1439: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1440:
1441: EXCEPTION
1442: WHEN OTHERS THEN
1443: IF l_profile_name_csr%ISOPEN THEN