[Home] [Help]
1: PACKAGE BODY PSB_PAY_ELEMENTS_PVT AS
2: /* $Header: PSBVELMB.pls 120.2 2005/03/12 13:06:06 matthoma ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_PAY_ELEMENTS_PVT';
5: g_dbug VARCHAR2(2000);
1: PACKAGE BODY PSB_PAY_ELEMENTS_PVT AS
2: /* $Header: PSBVELMB.pls 120.2 2005/03/12 13:06:06 matthoma ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_PAY_ELEMENTS_PVT';
5: g_dbug VARCHAR2(2000);
6: g_entity_set_id NUMBER;
7: -- The flag determines whether to print debug information or not.
8: g_debug_flag VARCHAR2(1) := 'N' ;
69: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
70: l_api_version CONSTANT NUMBER := 1.0;
71: --
72: cursor c1 is
73: select ROWID from psb_pay_elements
74: where pay_element_id = p_pay_element_id;
75:
76: BEGIN
77:
100: p_return_status := FND_API.G_RET_STS_SUCCESS;
101:
102:
103: -- API body
104: INSERT INTO psb_pay_elements
105: (
106: PAY_ELEMENT_ID ,
107: BUSINESS_GROUP_ID ,
108: DATA_EXTRACT_ID ,
326:
327: p_return_status := FND_API.G_RET_STS_SUCCESS;
328:
329: -- API body
330: UPDATE psb_pay_elements SET
331: PAY_ELEMENT_ID = P_PAY_ELEMENT_ID,
332: BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID,
333: DATA_EXTRACT_ID = P_DATA_EXTRACT_ID,
334: BUDGET_SET_ID = decode(P_BUDGET_SET_ID,FND_API.G_MISS_NUM,null,P_BUDGET_SET_ID),
448: l_return_status VARCHAR2(1) ;
449: l_msg_count NUMBER ;
450: l_msg_data VARCHAR2(2000) ;
451: --
452: l_pay_element_id psb_pay_elements.pay_element_id%TYPE ;
453: --
454: BEGIN
455: --
456: SAVEPOINT Delete_Row_Pvt;
471: --
472:
473: -- Get pay_element_id to be used for deletion of detail records.
474: SELECT pay_element_id INTO l_pay_element_id
475: FROM psb_pay_elements
476: WHERE rowid = p_row_id ;
477:
478: --
479: -- Delete element position set group related position sets.
533: WHERE pay_element_id = l_pay_element_id ;
534:
535:
536: --
537: -- Delete the master record now in psb_pay_elements.
538: --
539: DELETE psb_pay_elements
540: WHERE rowid = p_row_id ;
541:
535:
536: --
537: -- Delete the master record now in psb_pay_elements.
538: --
539: DELETE psb_pay_elements
540: WHERE rowid = p_row_id ;
541:
542: --
543: IF FND_API.To_Boolean ( p_commit ) THEN
633: l_api_version CONSTANT NUMBER := 1.0;
634: --
635: counter number;
636:
637: CURSOR C IS SELECT * FROM PSB_PAY_ELEMENTS WHERE ROWID = p_Row_Id
638: FOR UPDATE of PAY_ELEMENT_Id NOWAIT;
639: Recinfo C%ROWTYPE;
640:
641: BEGIN
875: l_tmp VARCHAR2(1);
876:
877: CURSOR c IS
878: SELECT '1'
879: FROM psb_pay_elements
880: WHERE name = p_name
881: AND ( (p_Row_Id IS NULL)
882: OR (RowId <> p_Row_Id) )
883: AND (DATA_EXTRACT_ID = P_DATA_EXTRACT_ID);
1129: l_msg_data VARCHAR2(1000);
1130:
1131: CURSOR l_pay_element_csr is
1132: SELECT DISTINCT *
1133: FROM psb_pay_elements
1134: WHERE pay_element_id = p_source_pay_element_id;
1135:
1136: CURSOR l_pay_element_options_csr is
1137: SELECT pay_element_option_id,pay_element_id,
1238:
1239: l_element_name := l_pay_element_rec.name;
1240: l_option_flag := l_pay_element_rec.option_flag;
1241:
1242: SELECT psb_pay_elements_s.NEXTVAL
1243: INTO l_pay_element_id
1244: FROM DUAL;
1245:
1246: PSB_PAY_ELEMENTS_PVT.INSERT_ROW
1242: SELECT psb_pay_elements_s.NEXTVAL
1243: INTO l_pay_element_id
1244: FROM DUAL;
1245:
1246: PSB_PAY_ELEMENTS_PVT.INSERT_ROW
1247: ( p_api_version => 1.0,
1248: p_init_msg_list => null,
1249: p_commit => null,
1250: p_validation_level => null,
1713: END IF;
1714:
1715: END debug ;
1716:
1717: END PSB_PAY_ELEMENTS_PVT;