[Home] [Help]
134:
135: -- End Bug 3086960.
136:
137: --This is a cursor for getting resource information from the
138: --view for a resource while performing individual insert.
139: CURSOR CUR_IND_PERSON (l_per_id IN NUMBER)
140: IS
141: SELECT person_id,
142: name,
632: /* Added for bug 4690946 */
633: BEGIN
634: SELECT 'Y'
635: INTO l_fde
636: FROM dual
637: WHERE EXISTS (
638: SELECT 'Y'
639: FROM per_all_people_f
640: WHERE person_id = l_person_id
981: --Unique cal_resource_assign_id from sequence
982: LOOP
983: select jtf_cal_resource_assign_s.nextval
984: into l_cal_resource_assign_id
985: from dual;
986: OPEN c_dup_resource_assign_id(l_cal_resource_assign_id);
987: FETCH c_dup_resource_assign_id INTO l_check_dup_id;
988: EXIT WHEN c_dup_resource_assign_id%NOTFOUND;
989: CLOSE c_dup_resource_assign_id;
1183: --Fetch unique resource_id from sequence.
1184: LOOP
1185: Select pa_resources_s.nextval
1186: into x_resource_id
1187: from dual;
1188:
1189: OPEN c_dup_resource_id(x_resource_id);
1190: FETCH c_dup_resource_id INTO l_check_dup_id;
1191: EXIT WHEN c_dup_resource_id%NOTFOUND;
1196: --Fetch unique resource_txn_attribute_id from sequence.
1197: LOOP
1198: select pa_resource_txn_attributes_s.nextval
1199: into l_resource_txn_attribute_id
1200: from dual;
1201:
1202: OPEN c_dup_txn_attribute_id(l_resource_txn_attribute_id);
1203: FETCH c_dup_txn_attribute_id INTO l_check_dup_id;
1204: EXIT WHEN c_dup_txn_attribute_id%NOTFOUND;
1680: -- Changed to where exists for bug 4350758
1681: -- no need for rownum when exists is used.
1682: SELECT 'X'
1683: INTO l_exists
1684: FROM dual
1685: WHERE EXISTS (SELECT 'Y'
1686: FROM pa_resource_txn_attributes
1687: WHERE resource_id = x_resource_id
1688: AND person_id <> p_person_id);
1939: P_COMMIT IN VARCHAR2,
1940: P_VALIDATE_ONLY IN VARCHAR2,
1941: P_INTERNAL IN VARCHAR2,
1942: P_PERSON_ID IN PA_RESOURCE_TXN_ATTRIBUTES.PERSON_ID%TYPE,
1943: P_INDIVIDUAL IN VARCHAR2,
1944: P_CHECK_RESOURCE IN VARCHAR2,
1945: P_SCHEDULED_MEMBER_FLAG IN VARCHAR2,
1946: P_RESOURCE_TYPE IN JTF_RS_RESOURCE_EXTNS.CATEGORY%TYPE,
1947: P_PARTY_ID IN PA_RESOURCE_TXN_ATTRIBUTES.PARTY_ID%TYPE,
1989: l_id NUMBER := P_PERSON_ID;
1990:
1991: l_internal VARCHAR2(1) := P_INTERNAL;
1992: l_person_id NUMBER := P_PERSON_ID;
1993: l_individual VARCHAR2(1) := P_INDIVIDUAL ;
1994: l_party_id NUMBER := P_PARTY_ID;
1995: i NUMBER := 0;
1996:
1997: ---- new variables for parameterized resource pull
2031: l_res_id PA_RESOURCES.RESOURCE_ID%TYPE;
2032: l_per_success VARCHAR2(1);
2033: l_asgmt_success VARCHAR2(1) := 'N';
2034:
2035: -- variables for fix in message stack in individual pull
2036: l_msg_stack_num_old NUMBER := 0;
2037: l_msg_stack_num_new NUMBER := 0;
2038: l_at_least_one_success VARCHAR2(1) := 'N';
2039:
2070: /*
2071: CURSOR check_org_type IS
2072: select decode(substr(USERENV('CLIENT_INFO'),1,1),
2073: ' ', NULL,
2074: substr(USERENV('CLIENT_INFO'),1,10)) org from dual; */
2075:
2076: /* Commenting starts for Bug 6263517 */
2077: /* Modifying existing cursor to get max terminated date (from both past terminated
2078: or future terminated date values )
2191: END IF;
2192: log_message('For Internal Resources');
2193:
2194: ------------------------------------------------------------
2195: -- This is the individual case condition
2196: -- It goes through a loop using pa_r_project_resources_ind_v
2197: ------------------------------------------------------------
2198: IF (l_individual = 'Y') THEN
2199: pa_debug.g_err_stage := 'Log: For a single Resource';
2194: ------------------------------------------------------------
2195: -- This is the individual case condition
2196: -- It goes through a loop using pa_r_project_resources_ind_v
2197: ------------------------------------------------------------
2198: IF (l_individual = 'Y') THEN
2199: pa_debug.g_err_stage := 'Log: For a single Resource';
2200: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2201: pa_debug.write_file('start_crm_workflow: ' || 'LOG',pa_debug.g_err_stage);
2202: END IF;
2537: -- Create PRM Assignment and Create Project APIs currently call this
2538: -- API with p_check_resource = 'Y'. When a new resource is created
2539: -- (through HR triggers), or when a new HR Assignment is created,
2540: -- this flag value will be 'N' since we want the timeline data
2541: -- to be created. We are making this check in INDIVIDUAL='Y' mode
2542: -- only, since in the ALL mode, we will generate timeline for every
2543: -- resource.
2544: ---------------------------------------------------------------------------
2545:
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712:
2713: ELSIF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN -- for bug 5683340
2714: log_message(' Call to pa_resource_utils.init_fte_sync_wf errored in individual pull');
2715: RAISE FND_API.G_EXC_ERROR;
2716:
2717: END IF ; --IF ((l_invol_term = 'N') AND (x_return_status = FND_API.G_RET_STS_SUCCESS )) bug 5683340
2718:
2745: ------------------------------------------------------------
2746: -- This is the concurrent pull program
2747: -- It goes through a loop using pa_r_project_resources_v
2748: ------------------------------------------------------------
2749: ELSE /* Not an individual pull - Mass pull */
2750:
2751: -- Check that terminated resources pull date is within
2752: -- a year ago
2753: -- hr_utility.trace_on(NULL, 'RMPULL');
2897: ' AND org_structure_version_id = :org_str_version_id '||
2898: ' CONNECT BY PRIOR organization_id_child = organization_id_parent '||
2899: ' AND org_structure_version_id = :org_str_version_id '||
2900: ' UNION ALL '||
2901: ' SELECT :start_org organization_id FROM dual) )'||
2902: ' AND a.assignment_type in (''E'',''C'') '|| /*Added condition for Bug 7012687 */
2903: ' AND a.job_id is not null'|| /*Added condition for Bug 7012687 */
2904: ' AND a.primary_flag = ''Y'' '; /*Added condition for Bug 7012687 */
2905: ELSIF l_selection_option IS NULL THEN
3703: END IF;
3704: log_message('Out of Populate_Org_Hier_Denorm procedure');
3705:
3706:
3707: END IF; --For Individual, Internal person
3708:
3709:
3710: ELSE
3711: ----------------------------------------------------
3713: -- For pulling external person
3714: -- PULLING EXTERNAL PEOPLE
3715: ----------------------------------------------------
3716:
3717: IF (l_individual = 'Y') THEN
3718: pa_debug.g_err_stage := 'Log: For a single external Resource';
3719: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3720: pa_debug.write_file('start_crm_workflow: ' || 'LOG',pa_debug.g_err_stage);
3721: END IF;
3845:
3846:
3847: SELECT pa_workflow_itemkey_s.nextval
3848: INTO itemkey
3849: FROM dual;
3850: --
3851: -- Since this workflow needs to be executed in the background we need
3852: -- to change the threshold. So we save the current threshold which
3853: -- will be used later on to change it back to the current threshold.
3995: ,p_validate_only => NULL
3996: ,p_max_msg_count => NULL
3997: ,p_internal => 'Y'
3998: ,p_person_id => l_person_id
3999: ,p_individual => 'Y'
4000: ,p_scheduled_member_flag => 'Y'
4001: ,p_resource_type => NULL
4002: ,x_return_status => l_return_status
4003: ,x_msg_count => l_msg_count