4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IGC_CC_APPROVAL_WF_PKG';
5: --l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('IGC_DEBUG_ENABLED'),'N');
6: g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
7:
8: g_cc_state igc_cc_headers.cc_state%TYPE;
9: g_cc_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
10: g_cc_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
11: g_bc_reqired VARCHAR2(1);
12: g_cc_type igc_cc_headers.cc_type%TYPE;
5: --l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('IGC_DEBUG_ENABLED'),'N');
6: g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
7:
8: g_cc_state igc_cc_headers.cc_state%TYPE;
9: g_cc_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
10: g_cc_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
11: g_bc_reqired VARCHAR2(1);
12: g_cc_type igc_cc_headers.cc_type%TYPE;
13: g_note igc_cc_headers.cc_desc%TYPE;
6: g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
7:
8: g_cc_state igc_cc_headers.cc_state%TYPE;
9: g_cc_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
10: g_cc_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
11: g_bc_reqired VARCHAR2(1);
12: g_cc_type igc_cc_headers.cc_type%TYPE;
13: g_note igc_cc_headers.cc_desc%TYPE;
14: g_reject_note VARCHAR2(32000);
8: g_cc_state igc_cc_headers.cc_state%TYPE;
9: g_cc_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
10: g_cc_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
11: g_bc_reqired VARCHAR2(1);
12: g_cc_type igc_cc_headers.cc_type%TYPE;
13: g_note igc_cc_headers.cc_desc%TYPE;
14: g_reject_note VARCHAR2(32000);
15: g_bc_failure_message VARCHAR2(32000);
16: g_error_text VARCHAR2(32000);
9: g_cc_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
10: g_cc_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
11: g_bc_reqired VARCHAR2(1);
12: g_cc_type igc_cc_headers.cc_type%TYPE;
13: g_note igc_cc_headers.cc_desc%TYPE;
14: g_reject_note VARCHAR2(32000);
15: g_bc_failure_message VARCHAR2(32000);
16: g_error_text VARCHAR2(32000);
17: g_cc_version_number igc_cc_headers.cc_version_num%TYPE;
13: g_note igc_cc_headers.cc_desc%TYPE;
14: g_reject_note VARCHAR2(32000);
15: g_bc_failure_message VARCHAR2(32000);
16: g_error_text VARCHAR2(32000);
17: g_cc_version_number igc_cc_headers.cc_version_num%TYPE;
18: g_bc_executed VARCHAR2(1);
19: g_cc_ctrl_status igc_cc_headers.cc_ctrl_status%TYPE;
20: g_org_id igc_cc_headers.org_id%TYPE;
21: g_sob_id igc_cc_headers.set_of_books_id%TYPE;
15: g_bc_failure_message VARCHAR2(32000);
16: g_error_text VARCHAR2(32000);
17: g_cc_version_number igc_cc_headers.cc_version_num%TYPE;
18: g_bc_executed VARCHAR2(1);
19: g_cc_ctrl_status igc_cc_headers.cc_ctrl_status%TYPE;
20: g_org_id igc_cc_headers.org_id%TYPE;
21: g_sob_id igc_cc_headers.set_of_books_id%TYPE;
22: g_cc_header_id igc_cc_headers.cc_header_id%TYPE;
23: g_itemtype VARCHAR2(50);
16: g_error_text VARCHAR2(32000);
17: g_cc_version_number igc_cc_headers.cc_version_num%TYPE;
18: g_bc_executed VARCHAR2(1);
19: g_cc_ctrl_status igc_cc_headers.cc_ctrl_status%TYPE;
20: g_org_id igc_cc_headers.org_id%TYPE;
21: g_sob_id igc_cc_headers.set_of_books_id%TYPE;
22: g_cc_header_id igc_cc_headers.cc_header_id%TYPE;
23: g_itemtype VARCHAR2(50);
24: g_itemkey VARCHAR2(50);
17: g_cc_version_number igc_cc_headers.cc_version_num%TYPE;
18: g_bc_executed VARCHAR2(1);
19: g_cc_ctrl_status igc_cc_headers.cc_ctrl_status%TYPE;
20: g_org_id igc_cc_headers.org_id%TYPE;
21: g_sob_id igc_cc_headers.set_of_books_id%TYPE;
22: g_cc_header_id igc_cc_headers.cc_header_id%TYPE;
23: g_itemtype VARCHAR2(50);
24: g_itemkey VARCHAR2(50);
25: g_wf_version NUMBER;
18: g_bc_executed VARCHAR2(1);
19: g_cc_ctrl_status igc_cc_headers.cc_ctrl_status%TYPE;
20: g_org_id igc_cc_headers.org_id%TYPE;
21: g_sob_id igc_cc_headers.set_of_books_id%TYPE;
22: g_cc_header_id igc_cc_headers.cc_header_id%TYPE;
23: g_itemtype VARCHAR2(50);
24: g_itemkey VARCHAR2(50);
25: g_wf_version NUMBER;
26: g_cc_new_state igc_cc_headers.cc_state%TYPE;
22: g_cc_header_id igc_cc_headers.cc_header_id%TYPE;
23: g_itemtype VARCHAR2(50);
24: g_itemkey VARCHAR2(50);
25: g_wf_version NUMBER;
26: g_cc_new_state igc_cc_headers.cc_state%TYPE;
27: g_cc_new_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
28: g_cc_new_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
23: g_itemtype VARCHAR2(50);
24: g_itemkey VARCHAR2(50);
25: g_wf_version NUMBER;
26: g_cc_new_state igc_cc_headers.cc_state%TYPE;
27: g_cc_new_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
28: g_cc_new_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
31: g_acct_date igc_cc_headers.cc_acct_date%TYPE;
24: g_itemkey VARCHAR2(50);
25: g_wf_version NUMBER;
26: g_cc_new_state igc_cc_headers.cc_state%TYPE;
27: g_cc_new_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
28: g_cc_new_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
31: g_acct_date igc_cc_headers.cc_acct_date%TYPE;
32: g_owner_name VARCHAR2(255);
25: g_wf_version NUMBER;
26: g_cc_new_state igc_cc_headers.cc_state%TYPE;
27: g_cc_new_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
28: g_cc_new_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
31: g_acct_date igc_cc_headers.cc_acct_date%TYPE;
32: g_owner_name VARCHAR2(255);
33: g_preparer_id igc_cc_headers.cc_preparer_user_id%TYPE;
26: g_cc_new_state igc_cc_headers.cc_state%TYPE;
27: g_cc_new_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
28: g_cc_new_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
31: g_acct_date igc_cc_headers.cc_acct_date%TYPE;
32: g_owner_name VARCHAR2(255);
33: g_preparer_id igc_cc_headers.cc_preparer_user_id%TYPE;
34: g_preparer_name VARCHAR2(255);
27: g_cc_new_enc_status igc_cc_headers.cc_encmbrnc_status%TYPE;
28: g_cc_new_appr_status igc_cc_headers.cc_apprvl_status%TYPE;
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
31: g_acct_date igc_cc_headers.cc_acct_date%TYPE;
32: g_owner_name VARCHAR2(255);
33: g_preparer_id igc_cc_headers.cc_preparer_user_id%TYPE;
34: g_preparer_name VARCHAR2(255);
35: g_old_approver_name VARCHAR2(255);
29: g_owner_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
30: g_approver_id igc_cc_headers.CC_OWNER_USER_ID%TYPE;
31: g_acct_date igc_cc_headers.cc_acct_date%TYPE;
32: g_owner_name VARCHAR2(255);
33: g_preparer_id igc_cc_headers.cc_preparer_user_id%TYPE;
34: g_preparer_name VARCHAR2(255);
35: g_old_approver_name VARCHAR2(255);
36: g_approver_name VARCHAR2(255);
37: g_business_group_id NUMBER;
43: g_profile_name VARCHAR2(255) := 'IGC_DEBUG_LOG_DIRECTORY';
44: g_debug_init VARCHAR2(1);
45: g_process_name VARCHAR2(255) :='IGC_APPROVAL_WORKFLOW_MAIN';
46: g_wf_name VARCHAR2(255) :='IGCAPRWF';
47: g_cc_number igc_cc_headers.cc_num%TYPE;
48: -- CBC CC Bug 2111529 07-Feb-2001 S Brewer Start(1)
49: g_use_approval_hier VARCHAR2(1);
50: -- CBC CC Bug 2111529 07-Feb-2001 S Brewer End(1)
51:
1109: l_msg_data VARCHAR2(2000) ;
1110:
1111: CURSOR c_update_cc IS
1112: SELECT cc_apprvl_status
1113: FROM igc_cc_headers
1114: WHERE cc_header_id = g_cc_header_id
1115: FOR UPDATE;
1116:
1117: CURSOR c_wf_name IS
1122: IN (
1123: SELECT org_id ,
1124: cc_type ,
1125: cc_state
1126: FROM igc_cc_headers
1127: WHERE cc_header_id = g_cc_header_id
1128: );
1129:
1130: l_full_path VARCHAR2(255) := g_path||'Start_Prcocess';
1265: THEN
1266: Put_Debug_Msg( l_full_path,'Update CC header to IP');
1267: END IF;
1268:
1269: UPDATE igc_cc_headers
1270: SET cc_apprvl_status = 'IP',
1271: last_update_date = sysdate,
1272: last_updated_by = fnd_global.user_id,
1273: last_update_login = fnd_global.login_id
1835: x_return_status OUT NOCOPY VARCHAR2)
1836: IS
1837: l_api_name CONSTANT VARCHAR2(30) := 'Init_variables' ;
1838:
1839: l_cc_desc igc_cc_headers.cc_desc%TYPE;
1840: l_cc_start_date igc_cc_headers.cc_start_date%TYPE;
1841: l_cc_end_date igc_cc_headers.cc_end_date%TYPE;
1842: l_note VARCHAR2(255);
1843: l_org_name hr_organization_units.name%TYPE;
1836: IS
1837: l_api_name CONSTANT VARCHAR2(30) := 'Init_variables' ;
1838:
1839: l_cc_desc igc_cc_headers.cc_desc%TYPE;
1840: l_cc_start_date igc_cc_headers.cc_start_date%TYPE;
1841: l_cc_end_date igc_cc_headers.cc_end_date%TYPE;
1842: l_note VARCHAR2(255);
1843: l_org_name hr_organization_units.name%TYPE;
1844: l_account_date igc_cc_headers.cc_acct_date%TYPE;
1837: l_api_name CONSTANT VARCHAR2(30) := 'Init_variables' ;
1838:
1839: l_cc_desc igc_cc_headers.cc_desc%TYPE;
1840: l_cc_start_date igc_cc_headers.cc_start_date%TYPE;
1841: l_cc_end_date igc_cc_headers.cc_end_date%TYPE;
1842: l_note VARCHAR2(255);
1843: l_org_name hr_organization_units.name%TYPE;
1844: l_account_date igc_cc_headers.cc_acct_date%TYPE;
1845: l_user_display_name VARCHAR2(255);
1840: l_cc_start_date igc_cc_headers.cc_start_date%TYPE;
1841: l_cc_end_date igc_cc_headers.cc_end_date%TYPE;
1842: l_note VARCHAR2(255);
1843: l_org_name hr_organization_units.name%TYPE;
1844: l_account_date igc_cc_headers.cc_acct_date%TYPE;
1845: l_user_display_name VARCHAR2(255);
1846: l_owner_display_name VARCHAR2(255);
1847: l_use_pos VARCHAR2(1);
1848:
1866: cc_start_date ,
1867: cc_end_date ,
1868: f1.employee_id user_id ,
1869: f2.employee_id owner_id
1870: FROM igc_cc_headers,
1871: fnd_user f1,
1872: fnd_user f2
1873: WHERE cc_header_id = g_cc_header_id
1874: AND f1.user_id=cc_owner_user_id
2095:
2096: CURSOR c_cc_data IS
2097: SELECT cc_version_num ,
2098: cc_encmbrnc_status
2099: FROM igc_cc_headers
2100: WHERE cc_header_id = g_cc_header_id;
2101:
2102: l_full_path VARCHAR2(255) := g_path||'Reinit_version';
2103:
2579: CURSOR c_update_cc IS
2580: SELECT cc_state ,
2581: cc_encmbrnc_status ,
2582: cc_apprvl_status
2583: FROM igc_cc_headers
2584: WHERE cc_header_id = g_cc_header_id
2585: FOR UPDATE;
2586:
2587: l_return_status VARCHAR2(1) ;
2598: Put_Debug_Msg( l_full_path,l_api_name||' started');
2599: END IF;
2600:
2601: FOR c_update_cc_rec IN c_update_cc LOOP
2602: UPDATE igc_cc_headers
2603: SET cc_state = g_cc_new_state,
2604: cc_encmbrnc_status = g_cc_new_enc_status,
2605: cc_apprvl_status = g_cc_new_appr_status,
2606: last_update_date = sysdate,
3955: SELECT hold_flag
3956: FROM po_vendors
3957: WHERE vendor_id =
3958: (SELECT vendor_id
3959: FROM igc_cc_headers
3960: WHERE cc_header_id = g_cc_header_id);
3961:
3962: l_full_path VARCHAR2(500):= g_path || 'Check_Supplier';
3963: BEGIN