136: , p_type VARCHAR2)
137: IS
138: PRAGMA AUTONOMOUS_TRANSACTION;
139: BEGIN
140: DELETE FROM hxc_debug_text
141: WHERE process = 'RETRIEVAL' AND TYPE = p_type;
142:
143: INSERT INTO hxc_debug_text
144: (process, TYPE, text
139: BEGIN
140: DELETE FROM hxc_debug_text
141: WHERE process = 'RETRIEVAL' AND TYPE = p_type;
142:
143: INSERT INTO hxc_debug_text
144: (process, TYPE, text
145: )
146: VALUES ('RETRIEVAL', p_type, p_query
147: );
591:
592: CURSOR csr_get_range (p_range VARCHAR2)
593: IS
594: SELECT TYPE
595: FROM hxc_debug_text
596: WHERE process = p_range;
597:
598: l_first_resource_id hxc_time_building_blocks.resource_id%TYPE
599: := -1;
6088:
6089: CURSOR csr_debug
6090: IS
6091: SELECT 'Y'
6092: FROM hxc_debug
6093: WHERE process = 'RETRIEVAL' AND TRUNC (debug_date) =
6094: TRUNC (SYSDATE);
6095:
6096: l_sql VARCHAR2 (2000);