[Home] [Help]
80: BEGIN
81: SAVEPOINT Close_Period_PUB;
82: l_open :='N';
83: -- Standard Call to check for API compatibility
84: IF NOT FND_API.Compatible_API_Call (l_api_version,
85: p_api_version,
86: l_api_name,
87: G_PKG_NAME)
88: THEN
85: p_api_version,
86: l_api_name,
87: G_PKG_NAME)
88: THEN
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90: END IF;
91: -- Initialize API return status to success
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: /*
88: THEN
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90: END IF;
91: -- Initialize API return status to success
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: /*
94: Validate the validity of parameters: All Mandatory Parameters should be
95: passed, API Version
96: */
97: IF ( P_api_version IS NULL OR
98: p_sweep IS NULL OR
99: p_period_name IS NULL) THEN
100: x_message_data := 'FUN_REQUIRED_FIELDS_INCOMPLETE';
101: Raise FND_API.G_EXC_ERROR;
102: END IF;
103: /* Check if the Period Passed is Open Period */
104: if (p_trx_type_id is not null) then
105: open c_open_prd1(p_period_name,p_trx_type_id);
105: open c_open_prd1(p_period_name,p_trx_type_id);
106: fetch c_open_prd1 into l_open_prd;
107: if (c_open_prd1%notfound) then
108: x_message_data := 'FUN_PERIOD_NOT_OPEN';
109: Raise FND_API.G_EXC_ERROR;
110: End If;
111: close c_open_prd1;
112: else
113: open c_open_prd2(p_period_name);
113: open c_open_prd2(p_period_name);
114: fetch c_open_prd2 into l_open_prd;
115: if (c_open_prd2%notfound) then
116: x_message_data := 'FUN_PERIOD_NOT_OPEN';
117: Raise FND_API.G_EXC_ERROR;
118: End If;
119: close c_open_prd2;
120: End if;
121: /* if p_sweep is Yes, then p_sweep_GL_Date must not
122: null */
123: If (p_sweep = 'Y') then
124: If (p_sweep_GL_Date is null) then
125: /* Put the Stack Message */
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: x_message_data := 'FUN_SWEEP_GL_DATE_REQ';
128: Raise FND_API.G_EXC_ERROR;
129: End If;
130: End If;
124: If (p_sweep_GL_Date is null) then
125: /* Put the Stack Message */
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: x_message_data := 'FUN_SWEEP_GL_DATE_REQ';
128: Raise FND_API.G_EXC_ERROR;
129: End If;
130: End If;
131: /* Check for open transactions */
132: if (p_trx_type_id is not null) then
161: argument6=> 'Y'
162: );
163: Else
164: x_message_data := 'FUN_OPEN_TRXS_NOT_SWEPT';
165: Raise FND_API.G_EXC_ERROR;
166: end if; /* p_sweep */
167: Else
168: If (p_trx_type_id is not null) then
169: Update fun_period_statuses set status = 'C'
178: (SELECT nvl(inteco_calendar,'~~'),nvl(inteco_period_type,'~~') FROM fun_system_options);
179: End If;
180: End If; /* l_open */
181: /* Commit if p_commit is not passed False */
182: IF FND_API.To_Boolean(nvl(p_commit,FND_API.G_FALSE) ) THEN
183: COMMIT;
184: END IF;
185: if (c_open_trx1%isopen) then
186: close c_open_trx1;
194: if (c_open_prd2%isopen) then
195: close c_open_trx2;
196: end if;
197: EXCEPTION
198: WHEN FND_API.G_EXC_ERROR THEN
199: ROLLBACK TO Close_Period_PUB;
200: x_return_status := FND_API.G_RET_STS_ERROR ;
201: if (c_open_trx1%isopen) then
202: close c_open_trx1;
196: end if;
197: EXCEPTION
198: WHEN FND_API.G_EXC_ERROR THEN
199: ROLLBACK TO Close_Period_PUB;
200: x_return_status := FND_API.G_RET_STS_ERROR ;
201: if (c_open_trx1%isopen) then
202: close c_open_trx1;
203: end if;
204: if (c_open_trx2%isopen) then
211: close c_open_prd2;
212: end if;
213: WHEN OTHERS THEN
214: x_message_data := SQLERRM;
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
216: ROLLBACK TO Close_Period_PUB;
217: if (c_open_trx1%isopen) then
218: close c_open_trx1;
219: end if;
345: l_open_trx_gl_cnt Number;
346: l_count number;
347: BEGIN
348: -- Standard Call to check for API compatibility
349: IF NOT FND_API.Compatible_API_Call (l_api_version,
350: p_api_version,
351: l_api_name,
352: G_PKG_NAME)
353: THEN
350: p_api_version,
351: l_api_name,
352: G_PKG_NAME)
353: THEN
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
355: END IF;
356: -- Initialize API return status to success
357: x_return_status := FND_API.G_RET_STS_SUCCESS;
358: /*
353: THEN
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
355: END IF;
356: -- Initialize API return status to success
357: x_return_status := FND_API.G_RET_STS_SUCCESS;
358: /*
359: Validate the validity of parameters: All Mandatory Parameters should be passed, API Version
360: */
361: IF ( P_api_version IS NULL OR
364: p_application_id is NULL OR
365: p_period_name IS NULL)
366: THEN
367: x_message_data := 'FUN_REQUIRED_FIELDS_INCOMPLETE';
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: Raise FND_API.G_EXC_ERROR;
370: END IF;
371: IF (p_application_id = 200 or p_application_id = 222) then
372: If (p_org_id is NULL) then
365: p_period_name IS NULL)
366: THEN
367: x_message_data := 'FUN_REQUIRED_FIELDS_INCOMPLETE';
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: Raise FND_API.G_EXC_ERROR;
370: END IF;
371: IF (p_application_id = 200 or p_application_id = 222) then
372: If (p_org_id is NULL) then
373: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
370: END IF;
371: IF (p_application_id = 200 or p_application_id = 222) then
372: If (p_org_id is NULL) then
373: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: Raise FND_API.G_EXC_ERROR;
376: End If;
377: Elsif (p_application_id = 101) then
378: If (p_ledger_id is NULL) then
371: IF (p_application_id = 200 or p_application_id = 222) then
372: If (p_org_id is NULL) then
373: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: Raise FND_API.G_EXC_ERROR;
376: End If;
377: Elsif (p_application_id = 101) then
378: If (p_ledger_id is NULL) then
379: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
376: End If;
377: Elsif (p_application_id = 101) then
378: If (p_ledger_id is NULL) then
379: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: Raise FND_API.G_EXC_ERROR;
382: End If;
383: End If;
384: open c_ic_cal_defined;
377: Elsif (p_application_id = 101) then
378: If (p_ledger_id is NULL) then
379: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: Raise FND_API.G_EXC_ERROR;
382: End If;
383: End If;
384: open c_ic_cal_defined;
385: fetch c_ic_cal_defined into l_period_set_name;
386: if (c_ic_cal_defined%notfound) then
387: x_close := 'Y';
388: x_message_data := 'FUN_IC_CALENDAR_NOT_SET';
389: Close c_ic_cal_defined;
390: Raise FND_API.G_EXC_ERROR;
391: End If;
392: Close c_ic_cal_defined;
393: /*
394: Check if p_period_set_name is not equal to Calendar Name set
407: fetch c_ic_prd_open into l_count;
408: if (c_ic_prd_open%found) then
409: x_close := 'N';
410: x_message_data := 'FUN_IC_PERIOD_OPEN';
411: Raise FND_API.G_EXC_ERROR;
412: else
413: if (p_application_id = 200) then
414: /* Callin Application Is AP */
415: /* Check for Open transactions for AP */
417: fetch c_open_trx_ap into l_count;
418: if (c_open_trx_ap%found) then
419: x_close := 'N';
420: x_message_data := 'FUN_IC_TRXS_OPEN';
421: Raise FND_API.G_EXC_ERROR;
422: Else
423: /* Check for any Open transactions in AP Interface */
424: open c_open_int_ap(p_period_name);
425: fetch c_open_int_ap into l_count;
425: fetch c_open_int_ap into l_count;
426: if (c_open_int_ap%found) then
427: x_close:= 'N';
428: x_message_data := 'FUN_IC_OPEN_TRXS_INTERFACE';
429: Raise FND_API.G_EXC_ERROR;
430: else
431: x_close := 'Y';
432: End If;
433: close c_open_int_ap;
440: fetch c_open_trx_ar into l_count;
441: if (c_open_trx_ar%found) then
442: x_close := 'N';
443: x_message_data := 'FUN_IC_TRXS_OPEN';
444: Raise FND_API.G_EXC_ERROR;
445: Else
446: /* Check for any Open transactions in AR Interface */
447: open c_open_int_ar(p_period_name);
448: fetch c_open_int_ar into l_count;
448: fetch c_open_int_ar into l_count;
449: if (c_open_int_ar%found) then
450: x_close := 'N';
451: x_message_data := 'FUN_IC_OPEN_TRXS_INTERFACE';
452: Raise FND_API.G_EXC_ERROR;
453: else
454: x_close := 'Y';
455: End If;
456: close c_open_int_ar;
463: fetch c_open_trx_gl into l_count;
464: if (c_open_trx_gl%found) then
465: x_close := 'N';
466: x_message_data := 'FUN_IC_TRXS_OPEN';
467: Raise FND_API.G_EXC_ERROR;
468: Else
469: /* Check for any Open transactions in GL Interface */
470: open c_open_int_gl(p_period_name);
471: fetch c_open_int_gl into l_count;
471: fetch c_open_int_gl into l_count;
472: if (c_open_int_gl%found) then
473: x_close := 'N';
474: x_message_data := 'FUN_IC_OPEN_TRXS_INTERFACE';
475: Raise FND_API.G_EXC_ERROR;
476: else
477: x_close := 'Y';
478: End If;
479: close c_open_int_gl;
480: End If;
481: close c_open_trx_gl;
482: Else
483: x_message_data := 'FUN_INVALID_APPLICATION';
484: Raise FND_API.G_EXC_ERROR;
485: End If;
486: End If; /* prd_open */
487: close c_ic_prd_open;
488: End If; /* l_period_set_name */
513: if (c_ic_cal_defined%isopen) then
514: Close c_ic_cal_defined;
515: end if;
516: EXCEPTION
517: WHEN FND_API.G_EXC_ERROR THEN
518: if (c_ic_cal%isopen) then
519: close c_ic_cal;
520: end if;
521: if (c_ic_prd_open%isopen) then
542: if (c_ic_cal_defined%isopen) then
543: Close c_ic_cal_defined;
544: end if;
545: WHEN OTHERS THEN
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: x_message_data := SQLERRM;
548: if (c_ic_cal%isopen) then
549: close c_ic_cal;
550: end if;
624: IF ( p_sweep_GL_Date IS NULL OR
625: p_period_name IS NULL) THEN
626: p_errbuff := 'Required Fields not Passed';
627: Print('REQUIRED FIELDS NOT PASSED');
628: Raise FND_API.G_EXC_ERROR;
629: END IF;
630:
631:
632: IF (p_trx_type_id is NOT NULL) THEN
1122: BEGIN
1123: Print(' +++ Start of Sweeping Transactions +++');
1124: G_debug := nvl(p_debug,'Y');
1125: -- Standard Call to check for API compatibility
1126: IF NOT FND_API.Compatible_API_Call (l_api_version,
1127: p_api_version,
1128: l_api_name,
1129: G_PKG_NAME)
1130: THEN
1129: G_PKG_NAME)
1130: THEN
1131: Print('Non compatible API call');
1132: p_errbuff := 'Non Compatible API';
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135: /* Validate: Whether Required Fields Passed */
1136: IF ( P_api_version IS NULL OR
1137: p_sweep_GL_Date IS NULL OR
1137: p_sweep_GL_Date IS NULL OR
1138: p_period_name IS NULL) THEN
1139: p_errbuff := 'Required Fields not Passed';
1140: Print('REQUIRED FIELDS NOT PASSED');
1141: Raise FND_API.G_EXC_ERROR;
1142: END IF;
1143: /*
1144: Validate the validity of passing parameters>
1145: */
1152: p_errbuff := 'Period name not in open period for the trx';
1153: Print('Period name not in open period for the trx');
1154: Update fun_period_statuses set status = 'O' where
1155: trx_type_id = p_trx_type_id and period_name = p_period_name;
1156: Raise FND_API.G_EXC_ERROR;
1157: End If;
1158: close c_chk_prd_open1;
1159: Print('Updating Period Status to Sweep In Progress');
1160: /* Update period to Sweep In Progress */
1170: p_errbuff := 'GL DATE Passed is not in Open Period';
1171: Print('GL_DATE Passed is not in Open Period');
1172: Update fun_period_statuses set status = 'O' where
1173: trx_type_id = p_trx_type_id and period_name = p_period_name;
1174: Raise FND_API.G_EXC_ERROR;
1175: End If;
1176: close c_chk_open1;
1177: Print('Sweeping the transactions');
1178: /* Update the Periods */
1207: fetch c_chk_prd_open2 into l_count;
1208: if (c_chk_prd_open2%notfound) then
1209: p_errbuff := 'Period name not in open period for the trx';
1210: Print('Period name not in open period for the trx');
1211: Raise FND_API.G_EXC_ERROR;
1212: End If;
1213: close c_chk_prd_open2;
1214: /* Update period to Sweep In Progress */
1215: Update fun_period_statuses set status = 'S' where
1219: fetch c_chk_open2 into l_count;
1220: if (c_chk_open2%notfound) then
1221: p_errbuff := 'GL DATE Passed is not in Open Period';
1222: Print('GL_DATE Passed is not in Open Period');
1223: Raise FND_API.G_EXC_ERROR;
1224: End If;
1225: close c_chk_open2;
1226: /* Sweep the transactions */
1227: Update fun_trx_batches set gl_date = p_sweep_GL_date
1269: if (c_chk_prd_open2%isopen) then
1270: close c_chk_prd_open2;
1271: end if;
1272: EXCEPTION
1273: WHEN FND_API.G_EXC_ERROR THEN
1274: p_retcode := 2;
1275: /* As we are updating the status to 'S' before calling
1276: this routine when trx_type_id is not null, hence we have
1277: to set status to 'O' if error happens, hence we cannot