[Home] [Help]
516: ' ** BEGIN START_APPROVAL_WORKFLOW ** ');
517: -- =============== END DEBUG LOG ==================
518:
519: -- Update the status of the TU to 'Transmitted'
520: UPDATE igi_exp_tus tus
521: SET tus.tu_status = 'TRA'
522: WHERE tus.tu_id = p_tu_id;
523:
524: -- =============== START DEBUG LOG ================
522: WHERE tus.tu_id = p_tu_id;
523:
524: -- =============== START DEBUG LOG ================
525: DEBUG_LOG_STRING (l_proc_level, 'Start_approval_workflow.Msg2',
526: ' updating igi_exp_tus setting tu_status = TRA for tu_id ' || p_tu_id);
527: -- =============== END DEBUG LOG ==================
528:
529: -- Update the status of all DUs in the TU to 'Transmitted'
530: UPDATE igi_exp_dus dus
618: -- Introduced the following calculation for TU Full Number for bug 6640095.
619: -- If the tu_legal_number is not got generated, then it will take tu_order_number.
620:
621: select tu_legal_number into l_tu_legal_number
622: from igi_exp_tus WHERE tu_id = p_tu_id;
623:
624: IF (l_tu_legal_number is NULL) then
625:
626: -- Set TU Full Number
1396: actid IN NUMBER,
1397: funcmode IN VARCHAR2,
1398: result OUT NOCOPY VARCHAR2) IS
1399:
1400: l_tu_id igi_exp_tus.tu_id%TYPE;
1401: l_position_id per_all_positions.position_id%TYPE;
1402: l_apprv_profile_id igi_exp_tus.apprv_profile_id%TYPE;
1403: l_pos_hierarchy_id igi_exp_apprv_profiles.pos_hierarchy_id%TYPE;
1404: l_legal_num_pos_id igi_exp_apprv_profiles.legal_num_pos_id%TYPE;
1398: result OUT NOCOPY VARCHAR2) IS
1399:
1400: l_tu_id igi_exp_tus.tu_id%TYPE;
1401: l_position_id per_all_positions.position_id%TYPE;
1402: l_apprv_profile_id igi_exp_tus.apprv_profile_id%TYPE;
1403: l_pos_hierarchy_id igi_exp_apprv_profiles.pos_hierarchy_id%TYPE;
1404: l_legal_num_pos_id igi_exp_apprv_profiles.legal_num_pos_id%TYPE;
1405: l_final_apprv_pos_id igi_exp_apprv_profiles.final_apprv_pos_id%TYPE;
1406: l_business_group_id hr_all_positions_f.business_group_id%TYPE;
1496:
1497: -- Now get the approval profile id chosen for the TU.
1498: SELECT apprv_profile_id
1499: INTO l_apprv_profile_id
1500: FROM igi_exp_tus
1501: WHERE tu_id = l_tu_id;
1502:
1503: -- =============== START DEBUG LOG ================
1504: DEBUG_LOG_STRING (l_proc_level, 'Position_in_hierarchy.Msg5',
2028: ' GetItemAttrNumber TU_ID --> '|| l_tu_id);
2029: -- =============== END DEBUG LOG ==================
2030:
2031: -- Update the status of the TU to 'AVL' for 'Available'
2032: UPDATE igi_exp_tus tus
2033: SET tus.tu_status = 'AVL'
2034: WHERE tus.tu_id = l_tu_id;
2035:
2036: -- =============== START DEBUG LOG ================
2034: WHERE tus.tu_id = l_tu_id;
2035:
2036: -- =============== START DEBUG LOG ================
2037: DEBUG_LOG_STRING (l_proc_level, 'Update_tu_status_to_avl.Msg4',
2038: ' UPDATE igi_exp_tus tu_status = AVL ');
2039: -- =============== END DEBUG LOG ==================
2040:
2041: END IF;
2042:
2163: l_user_count NUMBER:= 0;
2164: l_user_list VARCHAR2(1000);
2165: l_user_name fnd_user.user_name%TYPE;
2166: l_user_id fnd_user.user_id%TYPE;
2167: l_tu_id igi_exp_tus.tu_id%TYPE;
2168: l_current_position_id per_all_positions.position_id%TYPE;
2169: l_business_group_id hr_all_positions_f.business_group_id%TYPE;
2170: l_organization_id hr_all_positions_f.organization_id%TYPE;
2171:
2337: ' GetItemAttrNumber TU_ID --> ' || l_tu_id);
2338: -- =============== END DEBUG LOG ==================
2339:
2340: -- Update the TU table with the next authorizer
2341: UPDATE igi_exp_tus
2342: SET next_approver_user_id = l_user_id
2343: WHERE tu_id = l_tu_id;
2344:
2345:
2344:
2345:
2346: -- =============== START DEBUG LOG ================
2347: DEBUG_LOG_STRING (l_proc_level, 'Build_user_list.Msg15',
2348: ' UPDATE igi_exp_tus set next_approver_user_id --> '|| l_user_id);
2349: -- =============== END DEBUG LOG ==================
2350:
2351: result := 'COMPLETE:ONE_USER';
2352:
2573: result OUT NOCOPY VARCHAR2) IS
2574:
2575: l_current_position_id per_all_positions.position_id%TYPE;
2576: l_current_auth_role VARCHAR2(240);
2577: l_tu_id igi_exp_tus.tu_id%TYPE;
2578:
2579: BEGIN
2580:
2581: -- =============== START DEBUG LOG ================
2630: ' GetItemAttrNumber TU_ID -->' || l_tu_id);
2631: -- =============== END DEBUG LOG ==================
2632:
2633: -- Update the next approver column to null
2634: UPDATE igi_exp_tus
2635: SET next_approver_user_id = null
2636: WHERE tu_id = l_tu_id;
2637:
2638: -- =============== START DEBUG LOG ================
2636: WHERE tu_id = l_tu_id;
2637:
2638: -- =============== START DEBUG LOG ================
2639: DEBUG_LOG_STRING (l_proc_level, 'Set_pos_as_auth.Msg1',
2640: ' Update igi_exp_tus for tu_id ' ||l_tu_id );
2641: -- =============== END DEBUG LOG ==================
2642:
2643: END IF;
2644:
2678: result OUT NOCOPY VARCHAR2) IS
2679:
2680: l_current_auth_role VARCHAR2(240);
2681: l_auth_id fnd_user.user_id%TYPE;
2682: l_tu_id igi_exp_tus.tu_id%TYPE;
2683:
2684: BEGIN
2685:
2686: -- =============== START DEBUG LOG ================
2724: ' Get the user_id of the authorizer --> ' || l_auth_id);
2725: -- =============== END DEBUG LOG ==================
2726:
2727: -- Update the TU table with the next authorizer id
2728: UPDATE igi_exp_tus
2729: SET next_approver_user_id = l_auth_id
2730: WHERE tu_id = l_tu_id;
2731:
2732: -- =============== START DEBUG LOG ================
2730: WHERE tu_id = l_tu_id;
2731:
2732: -- =============== START DEBUG LOG ================
2733: DEBUG_LOG_STRING (l_proc_level, 'Set_chosen_user_as_auth.Msg5',
2734: ' UPDATE igi_exp_tus with ' || l_auth_id || ' for ' || l_tu_id);
2735: -- =============== END DEBUG LOG ==================
2736:
2737: -- Set the current_authorizer_role attribute
2738: wf_engine.SetItemAttrText ( itemtype => itemtype,
3571: actid IN NUMBER,
3572: funcmode IN VARCHAR2,
3573: result OUT NOCOPY VARCHAR2) IS
3574:
3575: l_tu_id igi_exp_tus.tu_id%TYPE;
3576:
3577: BEGIN
3578:
3579: -- =============== START DEBUG LOG ================
3691: actid IN NUMBER,
3692: funcmode IN VARCHAR2,
3693: result OUT NOCOPY VARCHAR2) IS
3694:
3695: l_tu_id igi_exp_tus.tu_id%TYPE;
3696: l_no_of_dus NUMBER;
3697:
3698: BEGIN
3699:
3781: actid IN NUMBER,
3782: funcmode IN VARCHAR2,
3783: result OUT NOCOPY VARCHAR2) IS
3784:
3785: l_tu_id igi_exp_tus.tu_id%TYPE;
3786:
3787: BEGIN
3788:
3789: -- =============== START DEBUG LOG ================
4392: ' l_du_amount --> ' || l_du_amount);
4393: -- =============== END DEBUG LOG ==================
4394:
4395: -- Now update the TU amount
4396: UPDATE igi_exp_tus
4397: SET tu_amount = tu_amount - l_du_amount
4398: WHERE tu_id = l_tu_id;
4399:
4400: -- =============== START DEBUG LOG ================
4398: WHERE tu_id = l_tu_id;
4399:
4400: -- =============== START DEBUG LOG ================
4401: DEBUG_LOG_STRING (l_proc_level, 'Remove_dus_on_hold.Msg5',
4402: ' UPDATE igi_exp_tus tu-amount ' || SQL%ROWCOUNT);
4403: -- =============== END DEBUG LOG ==================
4404:
4405: -- Want to release all DUs in this TU with status 'On Hold' which
4406: -- have been prepared by this user.
5053: ' l_du_amount --> ' || l_du_amount);
5054: -- =============== END DEBUG LOG ==================
5055:
5056: -- Update the TU amount
5057: UPDATE igi_exp_tus
5058: SET tu_amount = tu_amount - l_du_amount
5059: WHERE tu_id = l_tu_id;
5060:
5061: -- =============== START DEBUG LOG ================
5059: WHERE tu_id = l_tu_id;
5060:
5061: -- =============== START DEBUG LOG ================
5062: DEBUG_LOG_STRING (l_proc_level, 'Rem_trx_from_rej_dus.Msg7',
5063: ' UPDATE igi_exp_tus --> ' || SQL%ROWCOUNT);
5064: -- =============== END DEBUG LOG ==================
5065:
5066: -- Now update the DU amount to 0
5067: UPDATE igi_exp_dus
5206: funcmode IN VARCHAR2,
5207: result OUT NOCOPY VARCHAR2) IS
5208:
5209: l_tu_id igi_exp_dus.tu_id%TYPE;
5210: l_tu_type_header_id igi_exp_tus.tu_type_header_id%TYPE;
5211: l_tu_fiscal_year igi_exp_tus.tu_fiscal_year%TYPE;
5212: l_tu_legal_number igi_exp_tus.tu_legal_number%TYPE;
5213: l_tu_full_number VARCHAR2(240);
5214: l_error_message VARCHAR2(250);
5207: result OUT NOCOPY VARCHAR2) IS
5208:
5209: l_tu_id igi_exp_dus.tu_id%TYPE;
5210: l_tu_type_header_id igi_exp_tus.tu_type_header_id%TYPE;
5211: l_tu_fiscal_year igi_exp_tus.tu_fiscal_year%TYPE;
5212: l_tu_legal_number igi_exp_tus.tu_legal_number%TYPE;
5213: l_tu_full_number VARCHAR2(240);
5214: l_error_message VARCHAR2(250);
5215:
5208:
5209: l_tu_id igi_exp_dus.tu_id%TYPE;
5210: l_tu_type_header_id igi_exp_tus.tu_type_header_id%TYPE;
5211: l_tu_fiscal_year igi_exp_tus.tu_fiscal_year%TYPE;
5212: l_tu_legal_number igi_exp_tus.tu_legal_number%TYPE;
5213: l_tu_full_number VARCHAR2(240);
5214: l_error_message VARCHAR2(250);
5215:
5216: BEGIN
5237: SELECT tu_type_header_id
5238: ,tu_fiscal_year
5239: INTO l_tu_type_header_id
5240: ,l_tu_fiscal_year
5241: FROM igi_exp_tus
5242: WHERE tu_id = l_tu_id;
5243:
5244: -- =============== START DEBUG LOG ================
5245: DEBUG_LOG_STRING (l_proc_level, 'Apply_tu_legal_num.Msg3',
5291: ELSE
5292:
5293: -- TU Legal number was generated successfully
5294: -- Apply the legal number to the TU
5295: UPDATE igi_exp_tus
5296: SET tu_legal_number = l_tu_legal_number
5297: WHERE tu_id = l_tu_id;
5298:
5299:
5298:
5299:
5300: -- =============== START DEBUG LOG ================
5301: DEBUG_LOG_STRING (l_proc_level, 'Apply_tu_legal_num.Msg8',
5302: 'UPDATE igi_exp_tus - ' || SQL%ROWCOUNT);
5303: -- =============== END DEBUG LOG ==================
5304:
5305: -- OPSF(I) EXP Bug 2567802 26-Sep-2002 S Brewer Start(2)
5306: -- Set the TU Full Number attribute to include the legal number
5590: funcmode IN VARCHAR2,
5591: result OUT NOCOPY VARCHAR2) IS
5592:
5593: l_tu_id igi_exp_dus.tu_id%TYPE;
5594: l_tu_status igi_exp_tus.tu_status%TYPE;
5595: l_atr_du_count NUMBER;
5596:
5597: -- Bug 4051910
5598: -- Check if the TU has a status
5598: -- Check if the TU has a status
5599: CURSOR C_stat(p_tu_id number)
5600: IS
5601: SELECT tu_status
5602: FROM igi_exp_tus
5603: WHERE tu_id = p_tu_id;
5604:
5605:
5606:
5635: -- =============== END DEBUG LOG ==================
5636:
5637: IF (l_tu_status = 'TRA') THEN
5638:
5639: UPDATE igi_exp_tus
5640: SET tu_status = 'ATR'
5641: WHERE tu_id = l_tu_id;
5642: -- =============== START DEBUG LOG ================
5643: DEBUG_LOG_STRING (l_proc_level, 'Set_tu_status.Msg4',
5640: SET tu_status = 'ATR'
5641: WHERE tu_id = l_tu_id;
5642: -- =============== START DEBUG LOG ================
5643: DEBUG_LOG_STRING (l_proc_level, 'Set_tu_status.Msg4',
5644: ' UPDATE igi_exp_tus --> ' || SQL%ROWCOUNT);
5645: -- =============== END DEBUG LOG ==================
5646:
5647: END IF;
5648:
6727: ' l_du_amount --> ' || l_du_amount);
6728: -- =============== END DEBUG LOG ==================
6729:
6730: -- Now update the TU amount
6731: UPDATE igi_exp_tus
6732: SET tu_amount = tu_amount - l_du_amount
6733: WHERE tu_id = l_tu_id;
6734:
6735: -- =============== START DEBUG LOG ================
6733: WHERE tu_id = l_tu_id;
6734:
6735: -- =============== START DEBUG LOG ================
6736: DEBUG_LOG_STRING (l_proc_level, 'Remove_all_on_hold_dus.Msg4',
6737: ' UPDATE igi_exp_tus -> ' || SQL%ROWCOUNT);
6738: -- =============== END DEBUG LOG ==================
6739:
6740:
6741: -- OPSF(I) EXP Bug 2415293 S Brewer 18-JUL-2002 End(3)
7343: DEBUG_LOG_STRING (l_proc_level, 'Set_tu_to_complete.Msg2',
7344: ' GetItemAttrNumber TU_ID --> ' || l_tu_id);
7345: -- =============== END DEBUG LOG ==================
7346:
7347: UPDATE igi_exp_tus
7348: SET tu_status = 'COM'
7349: WHERE tu_id = l_tu_id;
7350:
7351: -- =============== START DEBUG LOG ================
7349: WHERE tu_id = l_tu_id;
7350:
7351: -- =============== START DEBUG LOG ================
7352: DEBUG_LOG_STRING (l_proc_level, 'Set_tu_to_complete.Msg3',
7353: ' UPDATE igi_exp_tus --> ' || SQL%ROWCOUNT);
7354: -- =============== END DEBUG LOG ==================
7355:
7356: END IF;
7357:
7396: funcmode IN VARCHAR2,
7397: result OUT NOCOPY VARCHAR2) IS
7398:
7399: l_tu_id igi_exp_dus.tu_id%TYPE;
7400: l_tu_legal_number igi_exp_tus.tu_legal_number%TYPE;
7401: -- Check if the TU has a legal number
7402: -- Bug 4051910
7403: CURSOR c_leg_num(c_tu_id number) is
7404: SELECT tu_legal_number
7401: -- Check if the TU has a legal number
7402: -- Bug 4051910
7403: CURSOR c_leg_num(c_tu_id number) is
7404: SELECT tu_legal_number
7405: FROM igi_exp_tus
7406: WHERE tu_id = c_tu_id;
7407:
7408:
7409: