[Home] [Help]
1: Package Body pqh_ss_print as
2: /* $Header: pqprtswi.pkb 120.9 2006/09/26 11:36:46 krajarat noship $ */
3:
4: -- Declaring global variables.
5: --
5: --
6: g_session_id NUMBER;
7: g_transaction_id NUMBER;
8: g_debug boolean := hr_utility.debug_enabled;
9: g_package varchar2(72) := 'pqh_ss_print';
10: g_effective_date DATE;
11:
12: --
13: -- This procedure will be called from RefreshAMImpl, to set
53: --
54: -- Declaring cursors here.
55: --
56:
57: -- this cursor checks for given tag present in pqh_ss_print_data or not.
58: --
59: Cursor csr_check_tag_exists(p_tag_name VARCHAR2,p_session_id number) IS
60: Select 'X'
61: From pqh_ss_print_data
57: -- this cursor checks for given tag present in pqh_ss_print_data or not.
58: --
59: Cursor csr_check_tag_exists(p_tag_name VARCHAR2,p_session_id number) IS
60: Select 'X'
61: From pqh_ss_print_data
62: Where name = p_tag_name -- no upper case change
63: and session_id = p_session_id
64: and transaction_id =g_transaction_id;
65:
92:
93: CLOSE csr_check_tag_exists;
94: IF (l_result IS NULL ) THEN -- i.e. l_result is null , no record with current tag,
95: --
96: INSERT INTO PQH_SS_PRINT_DATA(session_id,transaction_id,name,value)
97: VALUES (l_session_id, l_transaction_id,p_tag_name,p_tag_value);
98:
99: ELSE
100:
97: VALUES (l_session_id, l_transaction_id,p_tag_name,p_tag_value);
98:
99: ELSE
100:
101: UPDATE PQH_SS_PRINT_DATA
102: SET value = p_tag_value
103: WHERE session_id = l_session_id
104: AND name = p_tag_name
105: AND transaction_id = l_transaction_id;
975:
976: hr_utility.set_location('Leaving: ' || l_proc,10);
977:
978: Delete
979: from pqh_ss_print_label_temp
980: where trunc(creation_date) < p_effective_date;
981: -- Issuing autonomous commit
982: COMMIT;
983: hr_utility.set_location('Leaving: ' || l_proc,20);
1275: open dyn_cur;
1276: fetch dyn_cur into l_rec;
1277: close dyn_cur;
1278:
1279: INSERT INTO pqh_ss_print_data(session_id,transaction_id,name,value) values(userenv(''sessionid''),'||p_transaction_id||',l_rec.tag'||i||',l_rec.val'||i||');
1280: END;';
1281: EXECUTE IMMEDIATE l_statement;
1282: End Loop;
1283:
1366: -- Retrieve data from transaction tables
1367: --
1368: BEGIN
1369: INSERT INTO
1370: pqh_ss_print_data(session_id,transaction_id,name,value,enable_flag)
1371: SELECT userenv('sessionid'),p_transaction_id,
1372: doa.tag_name NAME,
1373: decode(att.decode_function_name,null,atv.varchar2_value|| Atv.Number_value||Atv.date_value,
1374: pqh_ss_utility.get_desc (
1413: --
1414: hr_utility.set_location('Post approval type data insertion',15);
1415: BEGIN
1416: INSERT INTO
1417: pqh_ss_print_data(session_id,transaction_id,name,value,enable_flag)
1418: SELECT userenv('sessionid'),p_transaction_id,
1419: doa.tag_name NAME,
1420: decode(att.decode_function_name,null,atv.value,
1421: pqh_ss_utility.get_desc (
1458: --
1459: END IF;
1460:
1461: --
1462: --Fetching Proposed values from Transaction Table and Populating pqh_ss_print_data ENDS
1463: --
1464: --
1465: --This section Fetches data from base table and populates the pq_ss_print_data table
1466: --
1479: p_doc_short_name => p_doc_short_name,
1480: p_effective_date => p_effective_date,
1481: p_transaction_id => p_transaction_id );
1482: --
1483: -- Check is there any record in pqh_ss_print_data , if not insert one dummy row , so that
1484: -- while opening pdf file , xdo will not error out .
1485: --
1486: hr_utility.set_location('Leaving: '|| l_proc ,20);
1487: EXCEPTION