[Home] [Help]
PACKAGE BODY: APPS.GMA_PURGE_UTILITIES
Source
1 PACKAGE BODY GMA_PURGE_UTILITIES AS
2 /* $Header: GMAPRGUB.pls 115.9 2003/10/27 07:48:22 kmoizudd ship $ */
3
4 -- output text in dated format to log
5 PROCEDURE logprint(p_purge_id sy_purg_mst.purge_id%TYPE,p_text VARCHAR2);
6
7 /***/
8
9 PROCEDURE logprint(p_purge_id sy_purg_mst.purge_id%TYPE,p_text VARCHAR2) IS
10
11 BEGIN
12
13 -- Log the message to the DB
14 INSERT INTO sy_purg_err
15 ( purge_id
16 , line_no
17 , creation_date
18 , created_by
19 , last_updated_by
20 , last_update_date
21 , text)
22 VALUES
23 ( NVL(p_purge_id,0)
24 , sy_purg_err_line_seq.nextval
25 , sysdate
26 , NVL(TO_NUMBER(FND_PROFILE.VALUE('USER_ID')),0)
27 , NVL(TO_NUMBER(FND_PROFILE.VALUE('USER_ID')),0)
28 , sysdate
29 , NVL(SUBSTR(p_text,1,80),' ')
30 );
31
32 -- Added by Khaja for Concurrent Report
33 fnd_file.put_line(FND_FILE.LOG,NVL(SUBSTR(p_text,1,80),' '));
34 fnd_file.put_line(FND_FILE.OUTPUT,NVL(SUBSTR(p_text,1,80),' '));
35
36 COMMIT;
37
38 EXCEPTION
39
40 WHEN OTHERS THEN
41
42 -- GMA_PURGE_UTILITIES.logprint('Problem raised in GMA_PURGE_UTILITIES.logprint.');
43 -- GMA_PURGE_UTILITIES.logprint('Unhandled EXCEPTION - ' || sqlerrm);
44 RAISE;
45 END logprint;
46
47 /***********************************************************/
48
49 PROCEDURE printdebug(p_purge_id sy_purg_mst.purge_id%TYPE,
50 p_text sy_purg_def.sqlstatement%TYPE,
51 p_debug_flag BOOLEAN) IS
52 -- print a line of stars before output, show length of string
53 BEGIN
54
55 IF (p_debug_flag = TRUE) THEN
56 GMA_PURGE_UTILITIES.printline(p_purge_id);
57 GMA_PURGE_UTILITIES.logprint(p_purge_id,'Length is ' || TO_CHAR(LENGTH(p_text)));
58 GMA_PURGE_UTILITIES.printlong(p_purge_id,p_text);
59 END IF;
60
61 RETURN;
62
63 EXCEPTION
64
65 WHEN OTHERS THEN
66 GMA_PURGE_UTILITIES.printlong(p_purge_id,
67 'Problem raised in GMA_PURGE_UTILITIES.printdebug.');
68 GMA_PURGE_UTILITIES.printlong(p_purge_id,
69 'Unhandled EXCEPTION - ' || sqlerrm);
70 RAISE;
71
72 END;
73
74 /***********************************************************/
75
76 PROCEDURE printlong(p_purge_id sy_purg_mst.purge_id%TYPE,
77 p_text sy_purg_def.sqlstatement%TYPE) IS
78 -- prints long text string broken at 80 columns
79
80 l_counter INTEGER;
81 l_o_counter INTEGER;
82 l_frag sy_purg_err.text%TYPE;
83 l_text sy_purg_def.sqlstatement%TYPE;
84
85 BEGIN
86
87 -- replace CR with space
88 l_text := TRANSLATE(p_text,FND_GLOBAL.LOCAL_CHR(10),' ');
89
90 l_counter := LENGTH(l_text);
91 l_o_counter := l_counter + 1;
92
93 WHILE (l_counter > 0) LOOP
94 l_frag := SUBSTR(l_text,l_o_counter - l_counter,80);
95 l_counter := l_counter - 80;
96 GMA_PURGE_UTILITIES.logprint(p_purge_id,l_frag);
97 END LOOP;
98
99 RETURN;
100
101 EXCEPTION
102
103 WHEN OTHERS THEN
104 GMA_PURGE_UTILITIES.logprint(p_purge_id,
105 'Problem raised in GMA_PURGE_UTILITIES.printlong.');
106 GMA_PURGE_UTILITIES.logprint(p_purge_id,
107 'Unhandled EXCEPTION - ' || sqlerrm);
108 RAISE;
109
110 END printlong;
111
112 /***********************************************************/
113
114 PROCEDURE debugtime(p_purge_id sy_purg_mst.purge_id%TYPE,
115 p_debug_flag BOOLEAN) IS
116 -- prints timestamp if debug flag is TRUE
117
118 BEGIN
119
120 IF (p_debug_flag = TRUE) THEN
121 GMA_PURGE_UTILITIES.logprint(p_purge_id,TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
122 END IF;
123
124 RETURN;
125
126 EXCEPTION
127
128 WHEN OTHERS THEN
129 GMA_PURGE_UTILITIES.logprint(p_purge_id,
130 'Problem raised in GMA_PURGE_UTILITIES.debugtime.');
131 GMA_PURGE_UTILITIES.logprint(p_purge_id,
132 'Unhandled EXCEPTION - ' || sqlerrm);
133 RAISE;
134
135 END debugtime;
136
137 /***********************************************************/
138
139 FUNCTION makearcname(p_purge_id sy_purg_mst.purge_id%TYPE,
140 p_sourcetable user_tables.table_name%TYPE)
141 RETURN user_tables.table_name%TYPE
142 IS
143
144 -- create standard-type archive target table name
145 -- if no archive_action is found in sy_pug_def_act then default it to 'A'
146
147 P_ActionTag varchar2(3):='A';
148
149 BEGIN
150
151 IF GMA_PURGE_ENGINE.PA_OPTION in(1,2) THEN
152 P_actiontag:='A';
153 ELSIF GMA_PURGE_ENGINE.PA_OPTION in(3,4,5) THEN
154 P_actiontag:='T';
155 end if;
156
157 -- NEW stmt created by Khaja
158 RETURN P_ActionTag|| LPAD(TO_CHAR(p_purge_id),5,'0') || '_' || p_sourcetable;
159
160 EXCEPTION
161
162 WHEN OTHERS THEN
163 GMA_PURGE_UTILITIES.printlong(p_purge_id,
164 'Problem raised in GMA_PURGE_UTILITIES.makearcname.'||p_purge_id||' '||p_sourcetable);
165 GMA_PURGE_UTILITIES.printlong(p_purge_id,
166 'Unhandled EXCEPTION - ' || sqlerrm);
167 RAISE;
168
169 END makearcname;
170
171 /***********************************************************/
172
173 PROCEDURE printline(p_purge_id sy_purg_mst.purge_id%TYPE) IS
174 BEGIN
175 GMA_PURGE_UTILITIES.logprint(p_purge_id,
176 '****************************************' ||
177 '****************************************');
178 END printline;
179
180 /***********************************************************/
181
182 FUNCTION chartime RETURN VARCHAR2 IS
183 BEGIN
184
185 RETURN TO_CHAR(sysdate,'HH24:MI:SS');
186
187 EXCEPTION
188
189 WHEN OTHERS THEN
190 RAISE;
191
192 END chartime;
193
194 END GMA_PURGE_UTILITIES;