[Home] [Help]
1: PACKAGE BODY CN_PAYGROUP_PUB as
2: -- $Header: cnppgrpb.pls 120.6 2005/11/02 22:01:09 sjustina ship $ --+
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):='CN_PAYGROUP_PUB';
1: PACKAGE BODY CN_PAYGROUP_PUB as
2: -- $Header: cnppgrpb.pls 120.6 2005/11/02 22:01:09 sjustina ship $ --+
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):='CN_PAYGROUP_PUB';
6: -- -------------------------------------------------------------------------+
7: --+
8: -- Procedure : Get_PayGroup_ID
9: -- Description : This procedure is used to get the ID for the pay group
95: l_org_id := p_org_id;
96: mo_global.validate_orgid_pub_api(org_id => l_org_id,status => l_status);
97: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
98: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
99: 'cn.plsql.cn_paygroup_pub.get_pay_group_sum.org_validate',
100: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
101: end if;
102: /**End of MOAC Org Validation change */
103:
268: l_api_version CONSTANT NUMBER := 1.0;
269: l_create_rec cn_paygroup_pvt.PayGroup_rec_type;
270:
271: l_pay_group_id NUMBER;
272: L_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_PayGroup_PUB';
273: BEGIN
274:
275: -- Standard Start of API savepoint
276:
303: l_org_id := p_PayGroup_rec.org_id;
304: mo_global.validate_orgid_pub_api(org_id => l_org_id,status => l_status);
305: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
307: 'cn.plsql.cn_paygroup_pub.create_paygroup.org_validate',
308: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
309: end if;
310: /**End of MOAC Org Validation change */
311:
428: p_PayGroup_rec IN OUT NOCOPY PayGroup_rec_type,
429: x_status OUT NOCOPY VARCHAR2,
430: x_loading_status OUT NOCOPY VARCHAR2
431: ) IS
432: L_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_PayGroup_PUB';
433: L_LAST_UPDATE_DATE DATE := sysdate;
434: L_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
435: L_CREATION_DATE DATE := sysdate;
436: L_CREATED_BY NUMBER := fnd_global.user_id;
474: l_org_id := p_PayGroup_rec.org_id;
475: mo_global.validate_orgid_pub_api(org_id => l_org_id,status => l_status);
476: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
478: 'cn.plsql.cn_paygroup_pub.update_paygroup.org_validate',
479: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
480: end if;
481:
482: if (l_org_id <> p_old_PayGroup_rec.org_id) then
482: if (l_org_id <> p_old_PayGroup_rec.org_id) then
483: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
484: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
485: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
486: 'cn.plsql.cn_paygroup_pub.update_paygroup.error',
487: true);
488: end if;
489:
490: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
608: p_PayGroup_rec IN OUT NOCOPY PayGroup_rec_type ,
609: x_status OUT NOCOPY VARCHAR2,
610: x_loading_status OUT NOCOPY VARCHAR2
611: ) IS
612: L_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_PayGroup_PUB';
613: L_LAST_UPDATE_DATE DATE := sysdate;
614: L_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
615: L_CREATION_DATE DATE := sysdate;
616: L_CREATED_BY NUMBER := fnd_global.user_id;
655: l_org_id := p_PayGroup_rec.org_id;
656: mo_global.validate_orgid_pub_api(org_id => l_org_id,status => l_status);
657: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
659: 'cn.plsql.cn_paygroup_pub.delete_paygroup.org_validate',
660: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
661: end if;
662: /**End of MOAC Org Validation change */
663: p_PayGroup_rec.org_id := l_org_id;
758: );
759:
760: END Delete_PayGroup;
761:
762: END CN_PAYGROUP_PUB ;