[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;
347: l_open_trx_gl_cnt Number;
348: l_count number;
349: BEGIN
350: -- Standard Call to check for API compatibility
351: IF NOT FND_API.Compatible_API_Call (l_api_version,
352: p_api_version,
353: l_api_name,
354: G_PKG_NAME)
355: THEN
352: p_api_version,
353: l_api_name,
354: G_PKG_NAME)
355: THEN
356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
357: END IF;
358: -- Initialize API return status to success
359: x_return_status := FND_API.G_RET_STS_SUCCESS;
360: /*
355: THEN
356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
357: END IF;
358: -- Initialize API return status to success
359: x_return_status := FND_API.G_RET_STS_SUCCESS;
360: /*
361: Validate the validity of parameters: All Mandatory Parameters should be passed, API Version
362: */
363: IF ( P_api_version IS NULL OR
366: p_application_id is NULL OR
367: p_period_name IS NULL)
368: THEN
369: x_message_data := 'FUN_REQUIRED_FIELDS_INCOMPLETE';
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: Raise FND_API.G_EXC_ERROR;
372: END IF;
373: IF (p_application_id = 200 or p_application_id = 222) then
374: If (p_org_id is NULL) then
367: p_period_name IS NULL)
368: THEN
369: x_message_data := 'FUN_REQUIRED_FIELDS_INCOMPLETE';
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: Raise FND_API.G_EXC_ERROR;
372: END IF;
373: IF (p_application_id = 200 or p_application_id = 222) then
374: If (p_org_id is NULL) then
375: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
372: END IF;
373: IF (p_application_id = 200 or p_application_id = 222) then
374: If (p_org_id is NULL) then
375: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: Raise FND_API.G_EXC_ERROR;
378: End If;
379: Elsif (p_application_id = 101) then
380: If (p_ledger_id is NULL) then
373: IF (p_application_id = 200 or p_application_id = 222) then
374: If (p_org_id is NULL) then
375: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: Raise FND_API.G_EXC_ERROR;
378: End If;
379: Elsif (p_application_id = 101) then
380: If (p_ledger_id is NULL) then
381: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
378: End If;
379: Elsif (p_application_id = 101) then
380: If (p_ledger_id is NULL) then
381: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: Raise FND_API.G_EXC_ERROR;
384: End If;
385: End If;
386: open c_ic_cal_defined;
379: Elsif (p_application_id = 101) then
380: If (p_ledger_id is NULL) then
381: x_message_data := 'FUN_ORG_OR_LEDGER_ID_REQ';
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: Raise FND_API.G_EXC_ERROR;
384: End If;
385: End If;
386: open c_ic_cal_defined;
387: fetch c_ic_cal_defined into l_period_set_name;
388: if (c_ic_cal_defined%notfound) then
389: x_close := 'Y';
390: x_message_data := 'FUN_IC_CALENDAR_NOT_SET';
391: Close c_ic_cal_defined;
392: Raise FND_API.G_EXC_ERROR;
393: End If;
394: Close c_ic_cal_defined;
395: /*
396: Check if p_period_set_name is not equal to Calendar Name set
409: fetch c_ic_prd_open into l_count;
410: if (c_ic_prd_open%found) then
411: x_close := 'N';
412: x_message_data := 'FUN_IC_PERIOD_OPEN';
413: Raise FND_API.G_EXC_ERROR;
414: else
415: if (p_application_id = 200) then
416: /* Callin Application Is AP */
417: /* Check for Open transactions for AP */
419: fetch c_open_trx_ap into l_count;
420: if (c_open_trx_ap%found) then
421: x_close := 'N';
422: x_message_data := 'FUN_IC_TRXS_OPEN';
423: Raise FND_API.G_EXC_ERROR;
424: Else
425: /* Check for any Open transactions in AP Interface */
426: open c_open_int_ap(p_period_name);
427: fetch c_open_int_ap into l_count;
427: fetch c_open_int_ap into l_count;
428: if (c_open_int_ap%found) then
429: x_close:= 'N';
430: x_message_data := 'FUN_IC_OPEN_TRXS_INTERFACE';
431: Raise FND_API.G_EXC_ERROR;
432: else
433: x_close := 'Y';
434: End If;
435: close c_open_int_ap;
442: fetch c_open_trx_ar into l_count;
443: if (c_open_trx_ar%found) then
444: x_close := 'N';
445: x_message_data := 'FUN_IC_TRXS_OPEN';
446: Raise FND_API.G_EXC_ERROR;
447: Else
448: /* Check for any Open transactions in AR Interface */
449: open c_open_int_ar(p_period_name);
450: fetch c_open_int_ar into l_count;
450: fetch c_open_int_ar into l_count;
451: if (c_open_int_ar%found) then
452: x_close := 'N';
453: x_message_data := 'FUN_IC_OPEN_TRXS_INTERFACE';
454: Raise FND_API.G_EXC_ERROR;
455: else
456: x_close := 'Y';
457: End If;
458: close c_open_int_ar;
465: fetch c_open_trx_gl into l_count;
466: if (c_open_trx_gl%found) then
467: x_close := 'N';
468: x_message_data := 'FUN_IC_TRXS_OPEN';
469: Raise FND_API.G_EXC_ERROR;
470: Else
471: /* Check for any Open transactions in GL Interface */
472: open c_open_int_gl(p_period_name);
473: fetch c_open_int_gl into l_count;
473: fetch c_open_int_gl into l_count;
474: if (c_open_int_gl%found) then
475: x_close := 'N';
476: x_message_data := 'FUN_IC_OPEN_TRXS_INTERFACE';
477: Raise FND_API.G_EXC_ERROR;
478: else
479: x_close := 'Y';
480: End If;
481: close c_open_int_gl;
482: End If;
483: close c_open_trx_gl;
484: Else
485: x_message_data := 'FUN_INVALID_APPLICATION';
486: Raise FND_API.G_EXC_ERROR;
487: End If;
488: End If; /* prd_open */
489: close c_ic_prd_open;
490: End If; /* l_period_set_name */
515: if (c_ic_cal_defined%isopen) then
516: Close c_ic_cal_defined;
517: end if;
518: EXCEPTION
519: WHEN FND_API.G_EXC_ERROR THEN
520: if (c_ic_cal%isopen) then
521: close c_ic_cal;
522: end if;
523: if (c_ic_prd_open%isopen) then
544: if (c_ic_cal_defined%isopen) then
545: Close c_ic_cal_defined;
546: end if;
547: WHEN OTHERS THEN
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: x_message_data := SQLERRM;
550: if (c_ic_cal%isopen) then
551: close c_ic_cal;
552: end if;
791: IF ( p_sweep_GL_Date IS NULL OR
792: p_period_name IS NULL) THEN
793: p_errbuff := 'Required Fields not Passed';
794: Print('REQUIRED FIELDS NOT PASSED');
795: Raise FND_API.G_EXC_ERROR;
796: END IF;
797:
798:
799: IF (p_trx_type_id is NOT NULL) THEN
1630:
1631: Print(' +++ Start of Sweeping Transactions +++');
1632: G_debug := nvl(p_debug,'Y');
1633: -- Standard Call to check for API compatibility
1634: IF NOT FND_API.Compatible_API_Call (l_api_version,
1635: l_api_version,
1636: l_api_name,
1637: G_PKG_NAME)
1638: THEN
1637: G_PKG_NAME)
1638: THEN
1639: Print('Non compatible API call');
1640: p_errbuff := 'Non Compatible API';
1641: RAISE FND_API.G_EXC_ERROR;
1642: END IF;
1643: /* Validate: Whether Required Fields Passed */
1644: IF ( P_api_version IS NULL OR
1645: p_sweep_GL_Date IS NULL OR
1645: p_sweep_GL_Date IS NULL OR
1646: p_period_name IS NULL) THEN
1647: p_errbuff := 'Required Fields not Passed';
1648: Print('REQUIRED FIELDS NOT PASSED');
1649: Raise FND_API.G_EXC_ERROR;
1650: END IF;
1651: /*
1652: Validate the validity of passing parameters>
1653: */
1660: p_errbuff := 'Period name not in open period for the trx';
1661: Print('Period name not in open period for the trx');
1662: Update fun_period_statuses set status = 'O' where
1663: trx_type_id = p_trx_type_id and period_name = p_period_name;
1664: Raise FND_API.G_EXC_ERROR;
1665: End If;
1666: close c_chk_prd_open1;
1667: Print('Updating Period Status to Sweep In Progress');
1668: /* Update period to Sweep In Progress */
1678: p_errbuff := 'GL DATE Passed is not in Open Period';
1679: Print('GL_DATE Passed is not in Open Period');
1680: Update fun_period_statuses set status = 'O' where
1681: trx_type_id = p_trx_type_id and period_name = p_period_name;
1682: Raise FND_API.G_EXC_ERROR;
1683: End If;
1684: close c_chk_open1;
1685: Print('Sweeping the transactions');
1686: /* Update the Periods */
1715: fetch c_chk_prd_open2 into l_count;
1716: if (c_chk_prd_open2%notfound) then
1717: p_errbuff := 'Period name not in open period for the trx';
1718: Print('Period name not in open period for the trx');
1719: Raise FND_API.G_EXC_ERROR;
1720: End If;
1721: close c_chk_prd_open2;
1722: /* Update period to Sweep In Progress */
1723: Update fun_period_statuses set status = 'S' where
1727: fetch c_chk_open2 into l_count;
1728: if (c_chk_open2%notfound) then
1729: p_errbuff := 'GL DATE Passed is not in Open Period';
1730: Print('GL_DATE Passed is not in Open Period');
1731: Raise FND_API.G_EXC_ERROR;
1732: End If;
1733: close c_chk_open2;
1734: /* Sweep the transactions */
1735: Update fun_trx_batches set gl_date = p_sweep_GL_date
1777: if (c_chk_prd_open2%isopen) then
1778: close c_chk_prd_open2;
1779: end if;
1780: EXCEPTION
1781: WHEN FND_API.G_EXC_ERROR THEN
1782: p_retcode := 2;
1783: /* As we are updating the status to 'S' before calling
1784: this routine when trx_type_id is not null, hence we have
1785: to set status to 'O' if error happens, hence we cannot