3754: l_created_by NUMBER(15);
3755: l_return_status VARCHAR2(1);
3756: l_msg_count NUMBER;
3757: l_msg_data VARCHAR2(1000);
3758: l_new_entity_set_id PSB_ENTITY_SET.ENTITY_SET_ID%TYPE;
3759: l_entity_type CONSTANT
3760: PSB_ENTITY_SET.ENTITY_TYPE%TYPE := 'DEFAULT_RULE';
3761: l_set_of_books_id PSB_ENTITY_SET.SET_OF_BOOKS_ID%TYPE;
3762: l_budget_group_id PSB_ENTITY_SET.BUDGET_GROUP_ID%TYPE;
3756: l_msg_count NUMBER;
3757: l_msg_data VARCHAR2(1000);
3758: l_new_entity_set_id PSB_ENTITY_SET.ENTITY_SET_ID%TYPE;
3759: l_entity_type CONSTANT
3760: PSB_ENTITY_SET.ENTITY_TYPE%TYPE := 'DEFAULT_RULE';
3761: l_set_of_books_id PSB_ENTITY_SET.SET_OF_BOOKS_ID%TYPE;
3762: l_budget_group_id PSB_ENTITY_SET.BUDGET_GROUP_ID%TYPE;
3763: l_dummy_rowid VARCHAR2(100);
3764: l_name_already_exist NUMBER;
3757: l_msg_data VARCHAR2(1000);
3758: l_new_entity_set_id PSB_ENTITY_SET.ENTITY_SET_ID%TYPE;
3759: l_entity_type CONSTANT
3760: PSB_ENTITY_SET.ENTITY_TYPE%TYPE := 'DEFAULT_RULE';
3761: l_set_of_books_id PSB_ENTITY_SET.SET_OF_BOOKS_ID%TYPE;
3762: l_budget_group_id PSB_ENTITY_SET.BUDGET_GROUP_ID%TYPE;
3763: l_dummy_rowid VARCHAR2(100);
3764: l_name_already_exist NUMBER;
3765:
3758: l_new_entity_set_id PSB_ENTITY_SET.ENTITY_SET_ID%TYPE;
3759: l_entity_type CONSTANT
3760: PSB_ENTITY_SET.ENTITY_TYPE%TYPE := 'DEFAULT_RULE';
3761: l_set_of_books_id PSB_ENTITY_SET.SET_OF_BOOKS_ID%TYPE;
3762: l_budget_group_id PSB_ENTITY_SET.BUDGET_GROUP_ID%TYPE;
3763: l_dummy_rowid VARCHAR2(100);
3764: l_name_already_exist NUMBER;
3765:
3766: CURSOR l_defaults_csr
3791: l_created_by := FND_GLOBAL.USER_ID;
3792:
3793: --verify if the rule set name provided by the user already exists
3794: SELECT COUNT(1) INTO l_name_already_exist
3795: FROM psb_entity_set
3796: WHERE name = p_rule_set_name;
3797:
3798: --in case the name is already in use, abort the process and report the
3799: --user through the logs generated
3802: FND_MSG_PUB.ADD;
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805:
3806: --get a new PSB_ENTITY_SET_ID for the new rule set
3807: FOR l_entity_set_rec IN (SELECT psb_entity_set_s.NEXTVAL entity_set_id
3808: FROM dual)
3809: LOOP
3810: l_new_entity_set_id := l_entity_set_rec.entity_set_id;
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805:
3806: --get a new PSB_ENTITY_SET_ID for the new rule set
3807: FOR l_entity_set_rec IN (SELECT psb_entity_set_s.NEXTVAL entity_set_id
3808: FROM dual)
3809: LOOP
3810: l_new_entity_set_id := l_entity_set_rec.entity_set_id;
3811: END LOOP;
3818: l_set_of_books_id := l_data_extracts_rec.set_of_books_id;
3819: l_budget_group_id := l_data_extracts_rec.business_group_id;
3820: END LOOP;
3821:
3822: PSB_ENTITY_SET_PVT.Insert_Row
3823: ( p_api_version => 1.0,
3824: p_init_msg_list => FND_API.G_FALSE,
3825: p_commit => FND_API.G_FALSE,
3826: p_validation_level => FND_API.G_VALID_LEVEL_FULL,