[Home] [Help]
1: PACKAGE BODY cn_calc_submission_pub AS
2: /* $Header: cnpcsbb.pls 120.4 2005/10/27 14:09:06 ymao noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_CALC_SUBMISSION_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cnpcsbb.pls';
1: PACKAGE BODY cn_calc_submission_pub AS
2: /* $Header: cnpcsbb.pls 120.4 2005/10/27 14:09:06 ymao noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_CALC_SUBMISSION_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cnpcsbb.pls';
6:
7: G_LAST_UPDATE_DATE DATE := sysdate;
8: G_LAST_UPDATED_BY NUMBER := FND_GLOBAL.USER_ID;
82: AND org_id = g_org_id;
83: BEGIN
84: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
85: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
86: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.begin',
87: 'Beginning of validate_calc_sub_batch ...');
88: end if;
89:
90: -- Initialize API return status to success
112: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_SUB_EXISTS');
113: fnd_message.set_token('BATCH_NAME', p_calc_submission_rec.batch_name);
114: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
115: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
116: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
117: TRUE);
118: end if;
119:
120: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
149: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_SUB_OPEN_DATE');
150: FND_MESSAGE.SET_TOKEN('DATE', p_calc_submission_rec.start_date);
151: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
152: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
153: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
154: TRUE);
155: end if;
156:
157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
172: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_SUB_OPEN_DATE');
173: FND_MESSAGE.SET_TOKEN('DATE', p_calc_submission_rec.end_date );
174: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
175: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
176: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
177: TRUE);
178: end if;
179:
180: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
200: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
201: FND_MESSAGE.SET_TOKEN('OBJ_NAME', g_calc_sub_calc_type);
202: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
203: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
204: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
205: TRUE);
206: end if;
207:
208: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
230: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
231: FND_MESSAGE.SET_TOKEN('OBJ_NAME',g_calc_sub_salesrep_option );
232: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
233: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
234: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
235: TRUE);
236: end if;
237:
238: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
260: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
261: FND_MESSAGE.SET_TOKEN('OBJ_NAME', g_calc_sub_hierarchy_flag );
262: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
263: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
264: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
265: TRUE);
266: end if;
267:
268: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
287: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
288: FND_MESSAGE.SET_TOKEN('OBJ_NAME',g_calc_sub_concurrent_flag );
289: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
290: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
291: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
292: TRUE);
293: end if;
294:
295: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
319: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
320: FND_MESSAGE.SET_TOKEN('OBJ_NAME',g_calc_sub_intelligent_flag );
321: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
322: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
323: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
324: TRUE);
325: end if;
326:
327: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
347: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
348: FND_MESSAGE.SET_TOKEN('OBJ_NAME', g_calc_sub_interval_type );
349: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
350: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
351: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.error',
352: TRUE);
353: end if;
354:
355: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
372: );
373:
374: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
376: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.end',
377: 'End of validate_calc_sub_batch.');
378: end if;
379:
380: EXCEPTION
410: );
411:
412: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
413: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
414: 'cn.plsql.cn_calc_submission_pub.validate_calc_sub_batch.exception',
415: sqlerrm);
416: end if;
417:
418: END validate_calc_sub_batch;
455: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATA');
456: FND_MESSAGE.SET_TOKEN('OBJ_NAME', g_calc_sub_hierarchy_flag );
457: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
458: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
459: 'cn.plsql.cn_calc_submission_pub.validate_salesrep.error',
460: TRUE);
461: end if;
462:
463: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
491: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NUMBER', p_salesrep_rec.employee_number );
492: FND_MESSAGE.SET_TOKEN('EMPLOYEE_TYPE', p_salesrep_rec.TYPE );
493: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
494: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
495: 'cn.plsql.cn_calc_submission_pub.validate_salesrep.error',
496: TRUE);
497: end if;
498:
499: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
538: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_PE_NO_MATCH');
539: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_quota_name);
540: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
541: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
542: 'cn.plsql.cn_calc_submission_pub.validate_bonus_pe.error',
543: TRUE);
544: end if;
545:
546: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
580: l_salesrep_id NUMBER;
581: BEGIN
582: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
583: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
584: 'cn.plsql.cn_calc_submission_pub.validate_salesrep_entries.begin',
585: 'Beginning of validate_salesrep_entries ...');
586: end if;
587:
588: -- Initialize API return status to success
594: IF p_salesrep_tbl.COUNT = 0 THEN
595: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_NO_SALESREP');
596: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
597: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
598: 'cn.plsql.cn_calc_submission_pub.validate_salesrep_entries.error',
599: TRUE);
600: end if;
601:
602: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
627: );
628:
629: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
630: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
631: 'cn.plsql.cn_calc_submission_pub.validate_salesrep_entries.end',
632: 'End of validate_salesrep_entries.');
633: end if;
634:
635: EXCEPTION
665: );
666:
667: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
668: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
669: 'cn.plsql.cn_calc_submission_pub.validate_salesrep_entries.exception',
670: sqlerrm);
671: end if;
672:
673: END validate_salesrep_entries;
695: l_quota_id NUMBER;
696: BEGIN
697: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
699: 'cn.plsql.cn_calc_submission_pub.validate_bonus_pe_entries.begin',
700: 'Beginning of validate_bonus_pe_entries ...');
701: end if;
702:
703: -- Initialize API return status to success
726: );
727:
728: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
729: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
730: 'cn.plsql.cn_calc_submission_pub.validate_bonus_pe_entries.end',
731: 'End of validate_bonus_pe_entries.');
732: end if;
733:
734: EXCEPTION
764: );
765:
766: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
767: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
768: 'cn.plsql.cn_calc_submission_pub.validate_bonus_pe_entries.exception',
769: sqlerrm);
770: end if;
771:
772: END validate_bonus_pe_entries;
791:
792: BEGIN
793: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
794: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
795: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.begin',
796: 'Beginning of validate_app_user_resp ...');
797: end if;
798:
799: -- Initialize API return status to success
821: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_USER_NOT_EXIST');
822: fnd_message.set_token('USER_NAME', p_app_user_resp_rec.user_name );
823: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
824: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
825: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.validation',
826: TRUE);
827: end if;
828:
829: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
835: RAISE FND_API.G_EXC_ERROR ;
836: WHEN OTHERS THEN
837: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
838: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
839: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.exception',
840: sqlerrm);
841: end if;
842:
843: RAISE FND_API.G_EXC_ERROR ;
864: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_RESP_NOT_EXIST');
865: fnd_message.set_token('RESP_NAME', p_app_user_resp_rec.responsibility_name );
866: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
867: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
868: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.validation',
869: TRUE);
870: end if;
871:
872: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
879:
880: WHEN OTHERS THEN
881: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
882: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
883: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.exception',
884: sqlerrm);
885: end if;
886:
887: RAISE FND_API.G_EXC_ERROR ;
897: );
898:
899: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
901: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.end',
902: 'End of validate_app_user_resp.');
903: end if;
904:
905: EXCEPTION
935: );
936:
937: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
938: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
939: 'cn.plsql.cn_calc_submission_pub.validate_app_user_resp.exception',
940: sqlerrm);
941: end if;
942:
943: END validate_app_user_resp;
1067: l_status VARCHAR2(30);
1068: BEGIN
1069: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1070: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1071: 'cn.plsql.cn_calc_submission_pub.create_calc_submission.begin',
1072: 'Beginning of create_calc_submission ...');
1073: end if;
1074:
1075: -- Standard Start of API savepoint
1126: status => l_status);
1127:
1128: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1129: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1130: 'cn.plsql.cn_calc_submission_pub.create_calc_submission.org_validate',
1131: 'Validated org_id = ' || g_org_id || ' status = '||l_status);
1132: end if;
1133:
1134: l_p_calc_submission_rec.org_id := g_org_id;
1133:
1134: l_p_calc_submission_rec.org_id := g_org_id;
1135:
1136:
1137: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1138: 'CREATE_CALC_SUBMISSION', 'B', 'C' ) then
1139:
1140: CN_CALC_SUBMISSION_CUHK.create_calc_submission_pre
1141: ( p_api_version => p_api_version,
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: end if;
1156: end if;
1157:
1158: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1159: 'CREATE_CALC_SUBMISSION', 'B', 'V' ) then
1160: cn_calc_submission_VUHK.create_calc_submission_pre
1161: ( p_api_version => p_api_version,
1162: p_init_msg_list => p_init_msg_list,
1371: FND_MESSAGE.SET_NAME ('CN' , 'ALL_PROCESS_DONE_FAIL_LOG');
1372: fnd_message.set_token( 'AUDIT_ID', To_char(l_process_audit_id) );
1373: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1374: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
1375: 'cn.plsql.cn_calc_submission_pub.create_calc_submission.error',
1376: false);
1377: end if;
1378:
1379: x_loading_status := 'ALL_PROCESS_DONE_FAIL_LOG';
1395: -- End of API body.
1396:
1397: /* Post processing */
1398: -- dbms_output.put_line('calling post processing API');
1399: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1400: 'CREATE_CALC_SUBMISSION', 'A', 'V' ) then
1401: cn_calc_submission_VUHK.create_calc_submission_post
1402: ( p_api_version => p_api_version,
1403: p_init_msg_list => p_init_msg_list,
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: end if;
1417: end if;
1418:
1419: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1420: 'CREATE_CALC_SUBMISSION', 'A', 'C' ) then
1421:
1422: CN_CALC_SUBMISSION_CUHK.create_calc_submission_post
1423: ( p_api_version => p_api_version,
1437: end if;
1438: end if;
1439:
1440: -- Following code is for message generation
1441: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1442: 'CREATE_CALC_SUBMISSION', 'M', 'M' ) then
1443:
1444: IF ( CN_CALC_SUBMISSION_CUHK.ok_to_generate_msg
1445: ( p_calc_submission_rec => l_p_calc_submission_rec )
1479: );
1480:
1481: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1483: 'cn.plsql.cn_calc_submission_pub.create_calc_submission.end',
1484: 'End of create_calc_submission.');
1485: end if;
1486:
1487: EXCEPTION
1520: );
1521:
1522: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1523: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1524: 'cn.plsql.cn_calc_submission_pub.create_calc_submission.exception',
1525: sqlerrm);
1526: end if;
1527:
1528: END Create_Calc_Submission;
1675:
1676: BEGIN
1677: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1678: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1679: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.begin',
1680: 'Beginning of update_calc_submission ...');
1681: end if;
1682:
1683: -- Standard Start of API savepoint
1730: status => l_status);
1731:
1732: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1734: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.org_validate',
1735: 'Validated org_id = ' || g_org_id || ' status = '||l_status);
1736: end if;
1737:
1738: if (nvl(p_calc_submission_rec_new.org_id, g_org_id) <> nvl(p_calc_submission_rec_old.org_id, g_org_id)) then
1738: if (nvl(p_calc_submission_rec_new.org_id, g_org_id) <> nvl(p_calc_submission_rec_old.org_id, g_org_id)) then
1739: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
1740: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1741: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
1742: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
1743: true);
1744: end if;
1745:
1746: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1757: l_p_calc_submission_rec := p_calc_submission_rec_new;
1758: l_p_calc_submission_rec.org_id := g_org_id;
1759:
1760: --dbms_output.put_line('Going into pre processing ');
1761: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1762: 'CREATE_CALC_SUBMISSION', 'B', 'C' ) then
1763:
1764: CN_CALC_SUBMISSION_CUHK.create_calc_submission_pre
1765: ( p_api_version => p_api_version,
1778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1779: end if;
1780: end if;
1781:
1782: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
1783: 'CREATE_CALC_SUBMISSION', 'B', 'V' ) then
1784: cn_calc_submission_VUHK.create_calc_submission_pre
1785: ( p_api_version => p_api_version,
1786: p_init_msg_list => p_init_msg_list,
1819: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_SUB_NOT_EXIST');
1820: fnd_message.set_token ('BATCH_NAME', p_calc_submission_rec_old.batch_name );
1821: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1822: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
1823: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
1824: true);
1825: end if;
1826:
1827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1841: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_SUB_NOT_UPDATEABLE');
1842: fnd_message.set_token ('BATCH_NAME', p_calc_submission_rec_old.batch_name );
1843: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1844: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
1845: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
1846: true);
1847: end if;
1848:
1849: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2142: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NUMBER', p_salesrep_tbl(ctr).employee_number );
2143: FND_MESSAGE.SET_TOKEN('EMPLOYEE_TYPE', p_salesrep_tbl(ctr).TYPE );
2144: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2145: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
2146: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
2147: true);
2148: end if;
2149:
2150: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2177:
2178: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_NO_SALESREP');
2179: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2180: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
2181: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
2182: true);
2183: end if;
2184:
2185: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2220: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_QUOTA_EXISTS');
2221: fnd_message.set_token( 'QUOTA_NAME', p_bonus_pe_tbl(ctr) );
2222: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2223: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
2224: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
2225: true);
2226: end if;
2227:
2228: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2279: FND_MESSAGE.SET_NAME ('CN' , 'ALL_PROCESS_DONE_FAIL_LOG');
2280: fnd_message.set_token( 'AUDIT_ID', To_char(l_process_audit_id) );
2281: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2282: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
2283: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
2284: false);
2285: end if;
2286:
2287: x_loading_status := 'ALL_PROCESS_DONE_FAIL_LOG';
2289: FND_MESSAGE.SET_NAME ('CN' , 'ALL_PROCESS_DONE_OK_LOG');
2290: fnd_message.set_token( 'AUDIT_ID', To_char(l_process_audit_id) );
2291: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2292: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
2293: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.error',
2294: false);
2295: end if;
2296:
2297: x_loading_status := 'ALL_PROCESS_DONE_OK_LOG';
2309: -- End of API body.
2310:
2311: /* Post processing */
2312: --dbms_output.put_line('calling post processing API x_loading_status is ' || x_loading_status);
2313: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
2314: 'CREATE_CALC_SUBMISSION', 'A', 'V' ) then
2315: cn_calc_submission_VUHK.create_calc_submission_post
2316: ( p_api_version => p_api_version,
2317: p_init_msg_list => p_init_msg_list,
2331: end if;
2332:
2333: --dbms_output.put_line('vertical post processing API x_loading_status is ' || x_loading_status);
2334:
2335: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
2336: 'CREATE_CALC_SUBMISSION', 'A', 'C' ) then
2337:
2338: CN_CALC_SUBMISSION_CUHK.create_calc_submission_post
2339: ( p_api_version => p_api_version,
2353: end if;
2354: end if;
2355:
2356: -- Following code is for message generation
2357: if JTF_USR_HKS.Ok_to_Execute( 'CN_CALC_SUBMISSION_PUB',
2358: 'CREATE_CALC_SUBMISSION', 'M', 'M' ) then
2359:
2360: IF ( CN_CALC_SUBMISSION_CUHK.ok_to_generate_msg
2361: ( p_calc_submission_rec => l_p_calc_submission_rec )
2400: );
2401:
2402: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2403: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2404: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.end',
2405: 'End of update_calc_submission.');
2406: end if;
2407:
2408: EXCEPTION
2441: );
2442:
2443: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2444: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2445: 'cn.plsql.cn_calc_submission_pub.update_calc_submission.exception',
2446: sqlerrm);
2447: end if;
2448:
2449: END update_calc_submission;
2447: end if;
2448:
2449: END update_calc_submission;
2450:
2451: END cn_calc_submission_pub ;