[Home] [Help]
837: -- ----------------------------------------------------------------------------
838: --
839: PROCEDURE write_log_file (p_cagr_request_id IN NUMBER)IS
840:
841: -- Writes text held in pl/sql log table to PER_CAGR_LOG table,
842: -- and also to host file system via FND_FILE, if run from SRS.
843:
844: l_proc constant varchar2(61) := g_pkg || '.write_log_file';
845:
848: --
849:
850: PROCEDURE write_log (p_cagr_request_id in NUMBER) IS
851: --
852: -- Writes text held in pl/sql log table to PER_CAGR_LOG table, AUTONOMOUSLY.
853: --
854: pragma autonomous_transaction;
855:
856: BEGIN
853: --
854: pragma autonomous_transaction;
855:
856: BEGIN
857: -- bulk bind pl/sql table to PER_CAGR_LOG.
858: forall l_count in g_log_text_table.first .. g_log_text_table.last
859: insert into PER_CAGR_LOG
860: (LOG_ID
861: ,CAGR_REQUEST_ID
855:
856: BEGIN
857: -- bulk bind pl/sql table to PER_CAGR_LOG.
858: forall l_count in g_log_text_table.first .. g_log_text_table.last
859: insert into PER_CAGR_LOG
860: (LOG_ID
861: ,CAGR_REQUEST_ID
862: ,TEXT
863: ,PRIORITY)
861: ,CAGR_REQUEST_ID
862: ,TEXT
863: ,PRIORITY)
864: values
865: (PER_CAGR_LOG_S.nextval
866: ,p_cagr_request_id
867: ,g_log_text_table(l_count)
868: ,g_log_priority_table(l_count));
869:
909: --
910: -- Accept an error code, log the error message, and raise the error to the
911: -- calling code.
912: --
913: -- Used for errors which should be both logged in per_cagr_log table and
914: -- raised to calling APPS code, via fnd_message.
915: --
916: BEGIN
917: --
929: --
930: PROCEDURE create_formatted_log_file (p_cagr_request_id IN NUMBER
931: ,p_filepath OUT NOCOPY VARCHAR2) IS
932: --
933: -- Accept cagr_request_id to query entries from per_cagr_log table and write a
934: -- log file to the file system. Log must have been written in SA mode, so updates
935: -- from SE, BE mode are not visible. (SC runs dummys as SA)
936: --
937: -- Used to create a file that may be viewed in FNDCPVWR.fmb (which is called
936: --
937: -- Used to create a file that may be viewed in FNDCPVWR.fmb (which is called
938: -- from PERWSCAR.fmb)
939:
940: TYPE logTab IS TABLE OF per_cagr_log.text%TYPE INDEX BY BINARY_INTEGER;
941:
942: CURSOR csr_filepath IS
943: SELECT decode(substr(value,1,INSTR(value,',')-1),
944: NULL, value, substr(value,1,INSTR(value,',')-1)) "filepath"
946: WHERE name = 'utl_file_dir';
947:
948: CURSOR csr_log(l_level in NUMBER) IS
949: SELECT text
950: FROM per_cagr_log
951: WHERE cagr_request_id = p_cagr_request_id
952: AND priority <= l_level
953: AND exists (select 'X' from per_cagr_requests req
954: where req.cagr_request_id = p_cagr_request_id
995: l_fileh := utl_file.fopen(l_filepath,l_name,'w');
996: hr_utility.set_location(l_proc, 20);
997:
998: -- get log entries restricted to certain levels
999: l_log_detail := fnd_profile.value('PER_CAGR_LOG_DETAIL');
1000: if nvl(l_log_detail,'H') = 'H' then
1001: -- default to showing everything
1002: -- when profile not set.
1003: open csr_log(2);
1042: --
1043: PROCEDURE remove_log_entries (p_cagr_request_id IN NUMBER) IS
1044: --
1045: -- Accept cagr_request_id, if there are no more results existing for the request_id
1046: -- then delete all records in the per_cagr_log table for that request_id.
1047: --
1048: -- Called from the engine after removing a result set for a request_id.
1049: --
1050:
1066: close csr_more_results;
1067: begin
1068: hr_utility.set_location(l_proc, 20);
1069:
1070: DELETE FROM per_cagr_log
1071: WHERE cagr_request_id = p_cagr_request_id;
1072:
1073: per_cagr_utility_pkg.put_log(' last result deleted for cagr_request_id '
1074: ||p_cagr_request_id||', log entries deleted');