[Home] [Help]
343: -- ***************************************************
344: -- API name : Create_TerrResource
345: -- Type : PUBLIC
346: -- Function : To create Territory Resources - which will insert
347: -- records into jtf_terr_rsc_access_all, jtf_terr_rsc_all
348: -- tables.
349: --
350: -- Pre-reqs :
351: -- Parameters:
517: -- ***************************************************
518: -- API name : Create_TerrResource
519: -- Type : PUBLIC
520: -- Function : To create Territory Resources - which will insert
521: -- records into jtf_terr_rsc_access_all, jtf_terr_rsc_all
522: -- tables.
523: --
524: -- Pre-reqs :
525: -- Parameters:
923:
924: --Declare cursor to get resource accesses
925: Cursor C_GetTerrRscAccess (v_TerrRsc_Id IN NUMBER) IS
926: Select JTRA.TERR_RSC_ACCESS_ID
927: From JTF_TERR_RSC_ACCESS_ALL JTRA
928: Where TERR_RSC_ID = v_TerrRsc_Id;
929:
930: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Terr_Resource';
931: l_api_version_number CONSTANT NUMBER := 1.0;
1058: -- ***************************************************
1059: -- API name : Update_TerrResource
1060: -- Type : PUBLIC
1061: -- Function : To Update Territory Resources - which will update
1062: -- records into jtf_terr_rsc_access_all, jtf_terr_rsc_all
1063: -- tables.
1064: --
1065: -- Pre-reqs :
1066: -- Parameters:
2911: TERR_RSC_ID,
2912: ACCESS_TYPE,
2913: TRANS_ACCESS_CODE,
2914: ORG_ID
2915: From jtf_terr_rsc_access_ALL
2916: Where TERR_RSC_ACCESS_ID = l_TerrRsc_Access_id
2917: FOR Update NOWAIT;
2918:
2919: --Local variable declaration
4394: last_update_login,
4395: --terr_rsc_id,
4396: access_type,
4397: org_id
4398: FROM jtf_terr_rsc_access_ALL
4399: WHERE terr_rsc_id = lp_terr_rsc_id;
4400:
4401:
4402: BEGIN
4602: -- cursor to check that Unique Key constraint not violated
4603: CURSOR csr_chk_uk_violation ( lp_terr_rsc_id NUMBER
4604: , lp_access_type VARCHAR2) IS
4605: SELECT 'X'
4606: FROM JTF_TERR_RSC_ACCESS_ALL
4607: WHERE terr_rsc_id = lp_terr_rsc_id
4608: AND access_type = lp_access_type;
4609:
4610: l_return_csr VARCHAR2(1);
4631: /* Debug message */
4632: --arpatel bug#1500581 (part of fix)
4633: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4634: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_RSC_ACCESS_UK_CON');
4635: --FND_MESSAGE.Set_Token ('TABLE', 'JTF_TERR_RSC_ACCESS_ALL');
4636: FND_MSG_PUB.ADD;
4637: --END IF;
4638:
4639: END IF; /* c_chk_uk_violation%FOUND */
4883: );
4884:
4885: --ARPATEL: 11/06/2003 BUG#2798581 START
4886: FORALL i IN l_terr_ids_tbl.FIRST..l_terr_ids_tbl.LAST
4887: INSERT INTO JTF_TERR_RSC_ACCESS_ALL(
4888: TERR_RSC_ACCESS_ID,
4889: LAST_UPDATE_DATE,
4890: LAST_UPDATED_BY,
4891: CREATION_DATE,
4905: ntra.terr_rsc_id, -- needs to be the newly created terr_rsc_id from above
4906: raa.access_type,
4907: p_dest_resource_rec.ORG_ID
4908: FROM
4909: JTF_TERR_RSC_ACCESS_ALL raa
4910: ,JTF_TERR_RSC_ALL tra -- use old record to find access_type
4911: ,JTF_TERR_RSC_ALL ntra -- pick up new records from above
4912: WHERE
4913: tra.terr_rsc_id = NVL(raa.terr_rsc_id, tra.terr_rsc_id)
4969: );
4970:
4971: --ARPATEL: 11/06/2003 BUG#2798581 START
4972: FORALL i IN l_terr_ids_tbl.FIRST..l_terr_ids_tbl.LAST
4973: INSERT INTO JTF_TERR_RSC_ACCESS_ALL(
4974: TERR_RSC_ACCESS_ID,
4975: LAST_UPDATE_DATE,
4976: LAST_UPDATED_BY,
4977: CREATION_DATE,
4991: ntra.terr_rsc_id, -- needs to be the newly created terr_rsc_id from above
4992: raa.access_type,
4993: p_dest_resource_rec.ORG_ID
4994: FROM
4995: JTF_TERR_RSC_ACCESS_ALL raa
4996: ,JTF_TERR_RSC_ALL tra -- use old record to find access_type
4997: ,JTF_TERR_RSC_ALL ntra -- pick up new records from above
4998: WHERE
4999: tra.terr_rsc_id = NVL(raa.terr_rsc_id, tra.terr_rsc_id)