1: PACKAGE BODY Jtf_Msite_Prty_Accss_Pvt AS
2: /* $Header: JTFVMPRB.pls 115.1 2001/03/02 19:08:07 pkm ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'JTF_MSITE_PRTY_ACCSS_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12):= 'JTFVMPRB.pls';
1: PACKAGE BODY Jtf_Msite_Prty_Accss_Pvt AS
2: /* $Header: JTFVMPRB.pls 115.1 2001/03/02 19:08:07 pkm ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'JTF_MSITE_PRTY_ACCSS_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12):= 'JTFVMPRB.pls';
6:
7: PROCEDURE Validate_Msite_Id_Exists
8: (
144: l_api_version CONSTANT NUMBER := 1.0;
145: l_tmp_id NUMBER;
146:
147: CURSOR c1(l_c_msite_prty_accss_id IN NUMBER)
148: IS SELECT msite_prty_accss_id FROM jtf_msite_prty_accss
149: WHERE msite_prty_accss_id = l_c_msite_prty_accss_id;
150:
151: CURSOR c2(l_c_msite_id IN NUMBER, l_c_party_id IN NUMBER)
152: IS SELECT msite_prty_accss_id FROM jtf_msite_prty_accss
148: IS SELECT msite_prty_accss_id FROM jtf_msite_prty_accss
149: WHERE msite_prty_accss_id = l_c_msite_prty_accss_id;
150:
151: CURSOR c2(l_c_msite_id IN NUMBER, l_c_party_id IN NUMBER)
152: IS SELECT msite_prty_accss_id FROM jtf_msite_prty_accss
153: WHERE msite_id = l_c_msite_id
154: AND party_id = l_c_party_id;
155:
156: BEGIN
158: -- Initialize status to SUCCESS
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
160:
161: -- Check if msite_prty_accss_id or combination of msite_id and party_id
162: -- in jtf_msite_prty_accss
163: IF ((p_msite_prty_accss_id IS NOT NULL) AND
164: (p_msite_prty_accss_id <> FND_API.G_MISS_NUM))
165: THEN
166:
579: --
580: -- 2. Insert row
581: --
582: BEGIN
583: Jtf_Msite_Prty_Accss_Pkg.insert_row
584: (
585: p_msite_prty_accss_id => FND_API.G_MISS_NUM,
586: p_object_version_number => l_object_version_number,
587: p_msite_id => p_msite_id,
675:
676: l_msite_prty_accss_id NUMBER;
677:
678: CURSOR c1(l_c_msite_id IN NUMBER, l_c_party_id IN NUMBER)
679: IS SELECT msite_prty_accss_id FROM jtf_msite_prty_accss
680: WHERE msite_id = l_c_msite_id
681: AND party_id = l_c_party_id;
682:
683: BEGIN
768: END IF;
769:
770: -- 2. update row with section data into section table
771: BEGIN
772: Jtf_Msite_Prty_Accss_Pkg.update_row
773: (
774: p_msite_prty_accss_id => l_msite_prty_accss_id,
775: p_object_version_number => p_object_version_number,
776: p_start_date_active => p_start_date_active,
855:
856: l_msite_prty_accss_id NUMBER;
857:
858: CURSOR c1(l_c_msite_id IN NUMBER, l_c_party_id IN NUMBER)
859: IS SELECT msite_prty_accss_id FROM jtf_msite_prty_accss
860: WHERE msite_id = l_c_msite_id
861: AND party_id = l_c_party_id;
862:
863: BEGIN
917: FND_MSG_PUB.Add;
918: RAISE FND_API.G_EXC_ERROR;
919: END IF;
920:
921: -- delete for jtf_msite_prty_accss
922: BEGIN
923: Jtf_Msite_Prty_Accss_Pkg.delete_row(l_msite_prty_accss_id);
924: EXCEPTION
925: WHEN NO_DATA_FOUND THEN
919: END IF;
920:
921: -- delete for jtf_msite_prty_accss
922: BEGIN
923: Jtf_Msite_Prty_Accss_Pkg.delete_row(l_msite_prty_accss_id);
924: EXCEPTION
925: WHEN NO_DATA_FOUND THEN
926: FND_MESSAGE.Set_Name('JTF', 'JTF_MSITE_MSITE_PRTY_DELETE_FL');
927: FND_MSG_PUB.Add;
962: p_encoded => 'F');
963:
964: END Delete_Msite_Prty_Accss;
965:
966: END Jtf_Msite_Prty_Accss_Pvt;