1: PACKAGE BODY CN_UTILS AS
2: -- $Header: cnsyutlb.pls 120.6 2005/09/28 05:11:50 apink ship $
3:
4:
5:
76:
77:
78: PROCEDURE init_code (
79: X_object_id cn_objects.object_id%TYPE,
80: code IN OUT NOCOPY cn_utils.code_type) IS
81: BEGIN
82: code.object_id := X_object_id;
83: code.line := 1;
84: code.indent := 0;
87:
88: -- for clob
89: PROCEDURE init_code (
90: X_object_id cn_objects.object_id%TYPE,
91: code IN OUT NOCOPY cn_utils.clob_code_type) IS
92: BEGIN
93:
94: code.object_id := X_object_id;
95: code.line := 1;
100: END init_code;
101: -- end clob
102:
103:
104: PROCEDURE indent ( code IN OUT NOCOPY cn_utils.code_type,
105: nesting_level NUMBER) IS
106: BEGIN
107: code.indent := code.indent + (nesting_level * indent_by);
108: END indent;
108: END indent;
109:
110:
111: --for clob
112: PROCEDURE indent ( code IN OUT NOCOPY cn_utils.clob_code_type,
113: nesting_level NUMBER) IS
114: BEGIN
115: code.indent := code.indent + (nesting_level * indent_by);
116: END indent;
115: code.indent := code.indent + (nesting_level * indent_by);
116: END indent;
117: --end clob
118:
119: PROCEDURE unindent ( code IN OUT NOCOPY cn_utils.code_type,
120: nesting_level NUMBER) IS
121: BEGIN
122: code.indent := code.indent - (nesting_level * indent_by);
123: END unindent;
122: code.indent := code.indent - (nesting_level * indent_by);
123: END unindent;
124:
125: --for clob
126: PROCEDURE unindent ( code IN OUT NOCOPY cn_utils.clob_code_type,
127: nesting_level NUMBER) IS
128: BEGIN
129:
130: code.indent := code.indent - (nesting_level * indent_by);
131:
132: END unindent;
133: --end clob
134:
135: PROCEDURE append (code IN OUT NOCOPY cn_utils.code_type,
136: str2 VARCHAR2) IS
137: BEGIN
138: code.text := code.text || str2;
139: END append;
138: code.text := code.text || str2;
139: END append;
140:
141: --for clob
142: PROCEDURE append (code IN OUT NOCOPY cn_utils.clob_code_type,
143: str2 VARCHAR2) IS
144: BEGIN
145:
146: DBMS_LOB.WRITEAPPEND(code.text,length(str2),str2);
148: END append;
149: --end clob
150:
151: --for clob
152: PROCEDURE append (code IN OUT NOCOPY cn_utils.clob_code_type,
153: expr clob,
154: str2 VARCHAR2) IS
155: BEGIN
156:
162:
163:
164:
165:
166: PROCEDURE appind (code IN OUT NOCOPY cn_utils.code_type,
167: str2 VARCHAR2) IS
168: BEGIN
169: code.text := code.text || spaces(code.indent) || str2;
170: END appind;
170: END appind;
171:
172:
173: --for clob
174: PROCEDURE appind (code IN OUT NOCOPY cn_utils.clob_code_type,
175: str2 VARCHAR2) IS
176: BEGIN
177:
178: DBMS_LOB.WRITEAPPEND(code.text,length(str2),str2);
179:
180: END appind;
181: --end clob
182:
183: PROCEDURE appendcr (code IN OUT NOCOPY cn_utils.code_type) IS
184: BEGIN
185: code.text := code.text || '
186: ';
187: cn_utils.dump_line( code );
183: PROCEDURE appendcr (code IN OUT NOCOPY cn_utils.code_type) IS
184: BEGIN
185: code.text := code.text || '
186: ';
187: cn_utils.dump_line( code );
188: END appendcr;
189:
190: --for clob
191: PROCEDURE appendcr (code IN OUT NOCOPY cn_utils.clob_code_type) IS
187: cn_utils.dump_line( code );
188: END appendcr;
189:
190: --for clob
191: PROCEDURE appendcr (code IN OUT NOCOPY cn_utils.clob_code_type) IS
192: line varchar2(32700);
193: BEGIN
194:
195: line := '
195: line := '
196: ';
197:
198: DBMS_LOB.WRITEAPPEND(code.text,length(line),line);
199: cn_utils.dump_line( code );
200:
201: END appendcr;
202: --end clob
203:
200:
201: END appendcr;
202: --end clob
203:
204: PROCEDURE appendcr (code IN OUT NOCOPY cn_utils.code_type,
205: str2 VARCHAR2) IS
206: BEGIN
207: code.text := code.text || str2 || '
208: ';
205: str2 VARCHAR2) IS
206: BEGIN
207: code.text := code.text || str2 || '
208: ';
209: cn_utils.dump_line( code );
210: END appendcr;
211:
212:
213: --for clob
210: END appendcr;
211:
212:
213: --for clob
214: PROCEDURE appendcr (code IN OUT NOCOPY cn_utils.clob_code_type,
215: str2 VARCHAR2) IS
216: line varchar2(32700);
217: BEGIN
218:
219: line := str2 || '
220: ';
221:
222: DBMS_LOB.WRITEAPPEND(code.text,length(line),line);
223: cn_utils.dump_line( code );
224:
225: END appendcr;
226: --end clob
227:
224:
225: END appendcr;
226: --end clob
227:
228: PROCEDURE appindcr (code IN OUT NOCOPY cn_utils.code_type,
229: str2 VARCHAR2) IS
230: BEGIN
231: code.text := code.text || spaces(code.indent) || str2 || '
232: ';
229: str2 VARCHAR2) IS
230: BEGIN
231: code.text := code.text || spaces(code.indent) || str2 || '
232: ';
233: cn_utils.dump_line( code );
234: END appindcr;
235:
236: PROCEDURE appindcr (code IN OUT NOCOPY cn_utils.clob_code_type,
237: str2 VARCHAR2) IS
232: ';
233: cn_utils.dump_line( code );
234: END appindcr;
235:
236: PROCEDURE appindcr (code IN OUT NOCOPY cn_utils.clob_code_type,
237: str2 VARCHAR2) IS
238: line varchar2(32700);
239: BEGIN
240:
242: ';
243:
244: DBMS_LOB.WRITEAPPEND(code.text,length(line),line);
245:
246: cn_utils.dump_line( code );
247:
248: END appindcr;
249:
250: -- Note: STRIP works on the current line, before it is written out.
247:
248: END appindcr;
249:
250: -- Note: STRIP works on the current line, before it is written out.
251: PROCEDURE strip (code IN OUT NOCOPY cn_utils.code_type, i NUMBER) IS
252: BEGIN
253: code.text := substr(code.text, 1, length(code.text) - i);
254: END strip;
255:
255:
256:
257: -- AE 08-24-95
258: -- Note: STRIP_PREV works on the previous line, after it is written out.
259: PROCEDURE strip_prev (code IN OUT NOCOPY cn_utils.code_type,
260: i NUMBER) IS
261: BEGIN
262:
263: code.line := code.line - 1 ; -- back up to prev line.
288: END strip_prev;
289:
290:
291:
292: PROCEDURE dump_line ( code IN OUT NOCOPY cn_utils.code_type) IS
293:
294: l_pos NUMBER;
295: l_text VARCHAR2(32000);
296: l_text1 VARCHAR2(1900);
340:
341: END dump_line;
342:
343: --for clob
344: PROCEDURE dump_line (code IN OUT NOCOPY cn_utils.clob_code_type) IS
345:
346: l_curr_pos NUMBER;
347: l_text VARCHAR2(32000);
348: l_text1 VARCHAR2(1900);
425: PROCEDURE record_process_start (
426: audit_type VARCHAR2,
427: audit_desc VARCHAR2,
428: parent_audit_id VARCHAR2,
429: code IN OUT NOCOPY cn_utils.code_type) IS
430: BEGIN
431: cn_debug.print_msg('record_process_start>>', 1);
432:
433: cn_utils.appindcr(code, 'x_proc_audit_id := NULL; -- Will get a value in the call below');
429: code IN OUT NOCOPY cn_utils.code_type) IS
430: BEGIN
431: cn_debug.print_msg('record_process_start>>', 1);
432:
433: cn_utils.appindcr(code, 'x_proc_audit_id := NULL; -- Will get a value in the call below');
434: cn_utils.appindcr(code, 'cn_process_audits_pkg.insert_row(x_rowid, x_proc_audit_id, ' || parent_audit_id || ',');
435: cn_utils.appindcr(code, ' ''' || audit_type || ''',' || audit_desc || ', NULL, NULL, NULL, NULL, NULL, SYSDATE, NULL,'||g_org_id||');');
436: --AE cn_utils.appindcr(code, 'COMMIT;');
437: cn_utils.appendcr(code);
430: BEGIN
431: cn_debug.print_msg('record_process_start>>', 1);
432:
433: cn_utils.appindcr(code, 'x_proc_audit_id := NULL; -- Will get a value in the call below');
434: cn_utils.appindcr(code, 'cn_process_audits_pkg.insert_row(x_rowid, x_proc_audit_id, ' || parent_audit_id || ',');
435: cn_utils.appindcr(code, ' ''' || audit_type || ''',' || audit_desc || ', NULL, NULL, NULL, NULL, NULL, SYSDATE, NULL,'||g_org_id||');');
436: --AE cn_utils.appindcr(code, 'COMMIT;');
437: cn_utils.appendcr(code);
438:
431: cn_debug.print_msg('record_process_start>>', 1);
432:
433: cn_utils.appindcr(code, 'x_proc_audit_id := NULL; -- Will get a value in the call below');
434: cn_utils.appindcr(code, 'cn_process_audits_pkg.insert_row(x_rowid, x_proc_audit_id, ' || parent_audit_id || ',');
435: cn_utils.appindcr(code, ' ''' || audit_type || ''',' || audit_desc || ', NULL, NULL, NULL, NULL, NULL, SYSDATE, NULL,'||g_org_id||');');
436: --AE cn_utils.appindcr(code, 'COMMIT;');
437: cn_utils.appendcr(code);
438:
439: cn_debug.print_msg('record_process_start<<', 1);
432:
433: cn_utils.appindcr(code, 'x_proc_audit_id := NULL; -- Will get a value in the call below');
434: cn_utils.appindcr(code, 'cn_process_audits_pkg.insert_row(x_rowid, x_proc_audit_id, ' || parent_audit_id || ',');
435: cn_utils.appindcr(code, ' ''' || audit_type || ''',' || audit_desc || ', NULL, NULL, NULL, NULL, NULL, SYSDATE, NULL,'||g_org_id||');');
436: --AE cn_utils.appindcr(code, 'COMMIT;');
437: cn_utils.appendcr(code);
438:
439: cn_debug.print_msg('record_process_start<<', 1);
440: END record_process_start;
433: cn_utils.appindcr(code, 'x_proc_audit_id := NULL; -- Will get a value in the call below');
434: cn_utils.appindcr(code, 'cn_process_audits_pkg.insert_row(x_rowid, x_proc_audit_id, ' || parent_audit_id || ',');
435: cn_utils.appindcr(code, ' ''' || audit_type || ''',' || audit_desc || ', NULL, NULL, NULL, NULL, NULL, SYSDATE, NULL,'||g_org_id||');');
436: --AE cn_utils.appindcr(code, 'COMMIT;');
437: cn_utils.appendcr(code);
438:
439: cn_debug.print_msg('record_process_start<<', 1);
440: END record_process_start;
441:
449: -- 22-MAR-94 Devesh Khatu Created
450: --
451: PROCEDURE record_process_success (
452: message VARCHAR2,
453: code IN OUT NOCOPY cn_utils.code_type) IS
454: BEGIN
455: cn_debug.print_msg('record_process_status>>', 1);
456: -- Generate code to record success of the process
457: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, 0, ' || message || ');');
453: code IN OUT NOCOPY cn_utils.code_type) IS
454: BEGIN
455: cn_debug.print_msg('record_process_status>>', 1);
456: -- Generate code to record success of the process
457: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, 0, ' || message || ');');
458: --AE cn_utils.appindcr(code, 'COMMIT;');
459: cn_utils.appendcr(code);
460: cn_debug.print_msg('record_process_success<<', 1);
461: END record_process_success;
454: BEGIN
455: cn_debug.print_msg('record_process_status>>', 1);
456: -- Generate code to record success of the process
457: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, 0, ' || message || ');');
458: --AE cn_utils.appindcr(code, 'COMMIT;');
459: cn_utils.appendcr(code);
460: cn_debug.print_msg('record_process_success<<', 1);
461: END record_process_success;
462:
455: cn_debug.print_msg('record_process_status>>', 1);
456: -- Generate code to record success of the process
457: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, 0, ' || message || ');');
458: --AE cn_utils.appindcr(code, 'COMMIT;');
459: cn_utils.appendcr(code);
460: cn_debug.print_msg('record_process_success<<', 1);
461: END record_process_success;
462:
463:
471: --
472: PROCEDURE record_process_exception (
473: procedure_name cn_obj_procedures_v.name%TYPE,
474: savepoint_name VARCHAR2,
475: code IN OUT NOCOPY cn_utils.code_type) IS
476: BEGIN
477: -- Generate code to handle errors
478: cn_debug.print_msg('record_process_exception>>', 1);
479: cn_utils.unindent(code, 1);
475: code IN OUT NOCOPY cn_utils.code_type) IS
476: BEGIN
477: -- Generate code to handle errors
478: cn_debug.print_msg('record_process_exception>>', 1);
479: cn_utils.unindent(code, 1);
480: cn_utils.appindcr(code, 'EXCEPTION');
481: cn_utils.indent(code, 1);
482: IF (savepoint_name IS NOT NULL) THEN
483: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
476: BEGIN
477: -- Generate code to handle errors
478: cn_debug.print_msg('record_process_exception>>', 1);
479: cn_utils.unindent(code, 1);
480: cn_utils.appindcr(code, 'EXCEPTION');
481: cn_utils.indent(code, 1);
482: IF (savepoint_name IS NOT NULL) THEN
483: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
484: ELSE
477: -- Generate code to handle errors
478: cn_debug.print_msg('record_process_exception>>', 1);
479: cn_utils.unindent(code, 1);
480: cn_utils.appindcr(code, 'EXCEPTION');
481: cn_utils.indent(code, 1);
482: IF (savepoint_name IS NOT NULL) THEN
483: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
484: ELSE
485: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
479: cn_utils.unindent(code, 1);
480: cn_utils.appindcr(code, 'EXCEPTION');
481: cn_utils.indent(code, 1);
482: IF (savepoint_name IS NOT NULL) THEN
483: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
484: ELSE
485: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
486: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
487: END IF;
481: cn_utils.indent(code, 1);
482: IF (savepoint_name IS NOT NULL) THEN
483: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
484: ELSE
485: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
486: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
487: END IF;
488: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
489: cn_utils.appindcr(code, ' SQLERRM);');
482: IF (savepoint_name IS NOT NULL) THEN
483: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
484: ELSE
485: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
486: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
487: END IF;
488: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
489: cn_utils.appindcr(code, ' SQLERRM);');
490: --AE cn_utils.appindcr(code, 'COMMIT;');
484: ELSE
485: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
486: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
487: END IF;
488: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
489: cn_utils.appindcr(code, ' SQLERRM);');
490: --AE cn_utils.appindcr(code, 'COMMIT;');
491: cn_utils.appendcr(code);
492:
485: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
486: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
487: END IF;
488: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
489: cn_utils.appindcr(code, ' SQLERRM);');
490: --AE cn_utils.appindcr(code, 'COMMIT;');
491: cn_utils.appendcr(code);
492:
493: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
486: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
487: END IF;
488: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
489: cn_utils.appindcr(code, ' SQLERRM);');
490: --AE cn_utils.appindcr(code, 'COMMIT;');
491: cn_utils.appendcr(code);
492:
493: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
494: cn_utils.appendcr(code);
487: END IF;
488: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
489: cn_utils.appindcr(code, ' SQLERRM);');
490: --AE cn_utils.appindcr(code, 'COMMIT;');
491: cn_utils.appendcr(code);
492:
493: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
494: cn_utils.appendcr(code);
495: END record_process_exception;
489: cn_utils.appindcr(code, ' SQLERRM);');
490: --AE cn_utils.appindcr(code, 'COMMIT;');
491: cn_utils.appendcr(code);
492:
493: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
494: cn_utils.appendcr(code);
495: END record_process_exception;
496:
497: --for clob
490: --AE cn_utils.appindcr(code, 'COMMIT;');
491: cn_utils.appendcr(code);
492:
493: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
494: cn_utils.appendcr(code);
495: END record_process_exception;
496:
497: --for clob
498: --
505: --
506: PROCEDURE record_process_exception (
507: procedure_name cn_obj_procedures_v.name%TYPE,
508: savepoint_name VARCHAR2,
509: code IN OUT NOCOPY cn_utils.clob_code_type) IS
510: BEGIN
511: -- Generate code to handle errors
512: cn_debug.print_msg('record_process_exception>>', 1);
513: cn_utils.unindent(code, 1);
509: code IN OUT NOCOPY cn_utils.clob_code_type) IS
510: BEGIN
511: -- Generate code to handle errors
512: cn_debug.print_msg('record_process_exception>>', 1);
513: cn_utils.unindent(code, 1);
514: cn_utils.appindcr(code, 'EXCEPTION');
515: cn_utils.indent(code, 1);
516: IF (savepoint_name IS NOT NULL) THEN
517: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
510: BEGIN
511: -- Generate code to handle errors
512: cn_debug.print_msg('record_process_exception>>', 1);
513: cn_utils.unindent(code, 1);
514: cn_utils.appindcr(code, 'EXCEPTION');
515: cn_utils.indent(code, 1);
516: IF (savepoint_name IS NOT NULL) THEN
517: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
518: ELSE
511: -- Generate code to handle errors
512: cn_debug.print_msg('record_process_exception>>', 1);
513: cn_utils.unindent(code, 1);
514: cn_utils.appindcr(code, 'EXCEPTION');
515: cn_utils.indent(code, 1);
516: IF (savepoint_name IS NOT NULL) THEN
517: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
518: ELSE
519: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
513: cn_utils.unindent(code, 1);
514: cn_utils.appindcr(code, 'EXCEPTION');
515: cn_utils.indent(code, 1);
516: IF (savepoint_name IS NOT NULL) THEN
517: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
518: ELSE
519: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
520: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
521: END IF;
515: cn_utils.indent(code, 1);
516: IF (savepoint_name IS NOT NULL) THEN
517: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
518: ELSE
519: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
520: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
521: END IF;
522: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
523: cn_utils.appindcr(code, ' SQLERRM);');
516: IF (savepoint_name IS NOT NULL) THEN
517: cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK TO ' || savepoint_name || ';');
518: ELSE
519: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
520: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
521: END IF;
522: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
523: cn_utils.appindcr(code, ' SQLERRM);');
524: --AE cn_utils.appindcr(code, 'COMMIT;');
518: ELSE
519: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
520: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
521: END IF;
522: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
523: cn_utils.appindcr(code, ' SQLERRM);');
524: --AE cn_utils.appindcr(code, 'COMMIT;');
525: cn_utils.appendcr(code);
526:
519: --AE cn_utils.appindcr(code, 'WHEN OTHERS THEN ROLLBACK;');
520: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
521: END IF;
522: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
523: cn_utils.appindcr(code, ' SQLERRM);');
524: --AE cn_utils.appindcr(code, 'COMMIT;');
525: cn_utils.appendcr(code);
526:
527: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
520: cn_utils.appindcr(code, 'WHEN OTHERS THEN ');
521: END IF;
522: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
523: cn_utils.appindcr(code, ' SQLERRM);');
524: --AE cn_utils.appindcr(code, 'COMMIT;');
525: cn_utils.appendcr(code);
526:
527: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
528: cn_utils.appendcr(code);
521: END IF;
522: cn_utils.appindcr(code, 'cn_process_audits_pkg.update_row(x_proc_audit_id, NULL, SYSDATE, SQLCODE,');
523: cn_utils.appindcr(code, ' SQLERRM);');
524: --AE cn_utils.appindcr(code, 'COMMIT;');
525: cn_utils.appendcr(code);
526:
527: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
528: cn_utils.appendcr(code);
529: END record_process_exception;
523: cn_utils.appindcr(code, ' SQLERRM);');
524: --AE cn_utils.appindcr(code, 'COMMIT;');
525: cn_utils.appendcr(code);
526:
527: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
528: cn_utils.appendcr(code);
529: END record_process_exception;
530: --end clob
531:
524: --AE cn_utils.appindcr(code, 'COMMIT;');
525: cn_utils.appendcr(code);
526:
527: cn_utils.appindcr(code, 'app_exception.raise_exception;'); --AE 04-28-95
528: cn_utils.appendcr(code);
529: END record_process_exception;
530: --end clob
531:
532: PROCEDURE pkg_init_boilerplate (
529: END record_process_exception;
530: --end clob
531:
532: PROCEDURE pkg_init_boilerplate (
533: code IN OUT NOCOPY cn_utils.code_type,
534: package_name cn_obj_packages_v.name%TYPE,
535: description cn_obj_packages_v.description%TYPE,
536: object_type VARCHAR2) IS
537:
537:
538: X_userid VARCHAR2(20);
539:
540: BEGIN
541: cn_utils.appendcr(code, '-- +======================================================================+ --');
542: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
543: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
544: cn_utils.appendcr(code, '-- | All rights reserved. | --');
545: cn_utils.appendcr(code, '-- +======================================================================+ --');
538: X_userid VARCHAR2(20);
539:
540: BEGIN
541: cn_utils.appendcr(code, '-- +======================================================================+ --');
542: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
543: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
544: cn_utils.appendcr(code, '-- | All rights reserved. | --');
545: cn_utils.appendcr(code, '-- +======================================================================+ --');
546: cn_utils.appendcr(code);
539:
540: BEGIN
541: cn_utils.appendcr(code, '-- +======================================================================+ --');
542: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
543: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
544: cn_utils.appendcr(code, '-- | All rights reserved. | --');
545: cn_utils.appendcr(code, '-- +======================================================================+ --');
546: cn_utils.appendcr(code);
547:
540: BEGIN
541: cn_utils.appendcr(code, '-- +======================================================================+ --');
542: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
543: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
544: cn_utils.appendcr(code, '-- | All rights reserved. | --');
545: cn_utils.appendcr(code, '-- +======================================================================+ --');
546: cn_utils.appendcr(code);
547:
548: SELECT user INTO X_userid FROM sys.dual;
541: cn_utils.appendcr(code, '-- +======================================================================+ --');
542: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
543: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
544: cn_utils.appendcr(code, '-- | All rights reserved. | --');
545: cn_utils.appendcr(code, '-- +======================================================================+ --');
546: cn_utils.appendcr(code);
547:
548: SELECT user INTO X_userid FROM sys.dual;
549:
542: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
543: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
544: cn_utils.appendcr(code, '-- | All rights reserved. | --');
545: cn_utils.appendcr(code, '-- +======================================================================+ --');
546: cn_utils.appendcr(code);
547:
548: SELECT user INTO X_userid FROM sys.dual;
549:
550: cn_utils.appendcr(code, '--');
546: cn_utils.appendcr(code);
547:
548: SELECT user INTO X_userid FROM sys.dual;
549:
550: cn_utils.appendcr(code, '--');
551: cn_utils.appendcr(code, '-- Package Name');
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
547:
548: SELECT user INTO X_userid FROM sys.dual;
549:
550: cn_utils.appendcr(code, '--');
551: cn_utils.appendcr(code, '-- Package Name');
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
548: SELECT user INTO X_userid FROM sys.dual;
549:
550: cn_utils.appendcr(code, '--');
551: cn_utils.appendcr(code, '-- Package Name');
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
549:
550: cn_utils.appendcr(code, '--');
551: cn_utils.appendcr(code, '-- Package Name');
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
550: cn_utils.appendcr(code, '--');
551: cn_utils.appendcr(code, '-- Package Name');
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
551: cn_utils.appendcr(code, '-- Package Name');
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
559:
552: cn_utils.appendcr(code, '-- ' || package_name);
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
559:
560: cn_utils.appendcr(code, 'SET VERIFY OFF');
553: cn_utils.appendcr(code, '-- Purpose');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
559:
560: cn_utils.appendcr(code, 'SET VERIFY OFF');
561: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
554: cn_utils.appendcr(code, '-- ' || description);
555: cn_utils.appendcr(code, '-- History');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
559:
560: cn_utils.appendcr(code, 'SET VERIFY OFF');
561: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
562: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
556: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
559:
560: cn_utils.appendcr(code, 'SET VERIFY OFF');
561: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
562: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
563:
564: IF (object_type = 'PKS') THEN
557: cn_utils.appendcr(code, '--');
558: cn_utils.appendcr(code);
559:
560: cn_utils.appendcr(code, 'SET VERIFY OFF');
561: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
562: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
563:
564: IF (object_type = 'PKS') THEN
565: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
558: cn_utils.appendcr(code);
559:
560: cn_utils.appendcr(code, 'SET VERIFY OFF');
561: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
562: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
563:
564: IF (object_type = 'PKS') THEN
565: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
566: ELSE
561: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
562: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
563:
564: IF (object_type = 'PKS') THEN
565: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
566: ELSE
567: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
568: END IF;
569: cn_utils.appendcr(code);
563:
564: IF (object_type = 'PKS') THEN
565: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
566: ELSE
567: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
568: END IF;
569: cn_utils.appendcr(code);
570:
571: END pkg_init_boilerplate;
565: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
566: ELSE
567: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
568: END IF;
569: cn_utils.appendcr(code);
570:
571: END pkg_init_boilerplate;
572:
573:
572:
573:
574: --for clob
575: PROCEDURE pkg_init_boilerplate (
576: code IN OUT NOCOPY cn_utils.clob_code_type,
577: package_name cn_obj_packages_v.name%TYPE,
578: description cn_obj_packages_v.description%TYPE,
579: object_type VARCHAR2) IS
580: X_userid VARCHAR2(20);
579: object_type VARCHAR2) IS
580: X_userid VARCHAR2(20);
581:
582: BEGIN
583: cn_utils.appendcr(code, '-- +======================================================================+ --');
584: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
585: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
586: cn_utils.appendcr(code, '-- | All rights reserved. | --');
587: cn_utils.appendcr(code, '-- +======================================================================+ --');
580: X_userid VARCHAR2(20);
581:
582: BEGIN
583: cn_utils.appendcr(code, '-- +======================================================================+ --');
584: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
585: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
586: cn_utils.appendcr(code, '-- | All rights reserved. | --');
587: cn_utils.appendcr(code, '-- +======================================================================+ --');
588: cn_utils.appendcr(code);
581:
582: BEGIN
583: cn_utils.appendcr(code, '-- +======================================================================+ --');
584: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
585: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
586: cn_utils.appendcr(code, '-- | All rights reserved. | --');
587: cn_utils.appendcr(code, '-- +======================================================================+ --');
588: cn_utils.appendcr(code);
589:
582: BEGIN
583: cn_utils.appendcr(code, '-- +======================================================================+ --');
584: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
585: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
586: cn_utils.appendcr(code, '-- | All rights reserved. | --');
587: cn_utils.appendcr(code, '-- +======================================================================+ --');
588: cn_utils.appendcr(code);
589:
590: SELECT user INTO X_userid FROM sys.dual;
583: cn_utils.appendcr(code, '-- +======================================================================+ --');
584: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
585: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
586: cn_utils.appendcr(code, '-- | All rights reserved. | --');
587: cn_utils.appendcr(code, '-- +======================================================================+ --');
588: cn_utils.appendcr(code);
589:
590: SELECT user INTO X_userid FROM sys.dual;
591:
584: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
585: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
586: cn_utils.appendcr(code, '-- | All rights reserved. | --');
587: cn_utils.appendcr(code, '-- +======================================================================+ --');
588: cn_utils.appendcr(code);
589:
590: SELECT user INTO X_userid FROM sys.dual;
591:
592: cn_utils.appendcr(code, '--');
588: cn_utils.appendcr(code);
589:
590: SELECT user INTO X_userid FROM sys.dual;
591:
592: cn_utils.appendcr(code, '--');
593: cn_utils.appendcr(code, '-- Package Name');
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
589:
590: SELECT user INTO X_userid FROM sys.dual;
591:
592: cn_utils.appendcr(code, '--');
593: cn_utils.appendcr(code, '-- Package Name');
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
590: SELECT user INTO X_userid FROM sys.dual;
591:
592: cn_utils.appendcr(code, '--');
593: cn_utils.appendcr(code, '-- Package Name');
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
591:
592: cn_utils.appendcr(code, '--');
593: cn_utils.appendcr(code, '-- Package Name');
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
592: cn_utils.appendcr(code, '--');
593: cn_utils.appendcr(code, '-- Package Name');
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
593: cn_utils.appendcr(code, '-- Package Name');
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
601:
594: cn_utils.appendcr(code, '-- ' || package_name);
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
601:
602: cn_utils.appendcr(code, 'SET VERIFY OFF');
595: cn_utils.appendcr(code, '-- Purpose');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
601:
602: cn_utils.appendcr(code, 'SET VERIFY OFF');
603: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
596: cn_utils.appendcr(code, '-- ' || description);
597: cn_utils.appendcr(code, '-- History');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
601:
602: cn_utils.appendcr(code, 'SET VERIFY OFF');
603: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
604: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
598: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
601:
602: cn_utils.appendcr(code, 'SET VERIFY OFF');
603: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
604: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
605:
606: IF (object_type = 'PKS') THEN
599: cn_utils.appendcr(code, '--');
600: cn_utils.appendcr(code);
601:
602: cn_utils.appendcr(code, 'SET VERIFY OFF');
603: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
604: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
605:
606: IF (object_type = 'PKS') THEN
607: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
600: cn_utils.appendcr(code);
601:
602: cn_utils.appendcr(code, 'SET VERIFY OFF');
603: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
604: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
605:
606: IF (object_type = 'PKS') THEN
607: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
608: ELSE
603: cn_utils.appendcr(code, 'WHENEVER SQLERROR EXIT FAILURE ROLLBACK;');
604: cn_utils.appendcr(code, 'DEFINE PACKAGE_NAME="' || LOWER(package_name) || '"');
605:
606: IF (object_type = 'PKS') THEN
607: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
608: ELSE
609: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
610: END IF;
611: cn_utils.appendcr(code);
605:
606: IF (object_type = 'PKS') THEN
607: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
608: ELSE
609: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
610: END IF;
611: cn_utils.appendcr(code);
612:
613: END pkg_init_boilerplate;
607: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
608: ELSE
609: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
610: END IF;
611: cn_utils.appendcr(code);
612:
613: END pkg_init_boilerplate;
614:
615: --end clob
615: --end clob
616:
617:
618: PROCEDURE pkg_end_boilerplate (
619: code IN OUT NOCOPY cn_utils.code_type,
620: object_type cn_obj_packages_v.object_type%TYPE) IS
621:
622: BEGIN
623: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
619: code IN OUT NOCOPY cn_utils.code_type,
620: object_type cn_obj_packages_v.object_type%TYPE) IS
621:
622: BEGIN
623: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
624: cn_utils.appendcr(code, '/');
625: cn_utils.appendcr(code);
626: IF (object_type = 'PKS') THEN
627: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
620: object_type cn_obj_packages_v.object_type%TYPE) IS
621:
622: BEGIN
623: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
624: cn_utils.appendcr(code, '/');
625: cn_utils.appendcr(code);
626: IF (object_type = 'PKS') THEN
627: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
628: ELSE
621:
622: BEGIN
623: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
624: cn_utils.appendcr(code, '/');
625: cn_utils.appendcr(code);
626: IF (object_type = 'PKS') THEN
627: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
628: ELSE
629: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
623: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
624: cn_utils.appendcr(code, '/');
625: cn_utils.appendcr(code);
626: IF (object_type = 'PKS') THEN
627: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
628: ELSE
629: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
630: END IF;
631: cn_utils.appendcr(code, 'SELECT TEXT ');
625: cn_utils.appendcr(code);
626: IF (object_type = 'PKS') THEN
627: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
628: ELSE
629: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
630: END IF;
631: cn_utils.appendcr(code, 'SELECT TEXT ');
632: cn_utils.appendcr(code, ' FROM USER_ERRORS');
633:
627: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
628: ELSE
629: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
630: END IF;
631: cn_utils.appendcr(code, 'SELECT TEXT ');
632: cn_utils.appendcr(code, ' FROM USER_ERRORS');
633:
634: IF (object_type = 'PKS') THEN
635: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
628: ELSE
629: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
630: END IF;
631: cn_utils.appendcr(code, 'SELECT TEXT ');
632: cn_utils.appendcr(code, ' FROM USER_ERRORS');
633:
634: IF (object_type = 'PKS') THEN
635: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
636: ELSE
631: cn_utils.appendcr(code, 'SELECT TEXT ');
632: cn_utils.appendcr(code, ' FROM USER_ERRORS');
633:
634: IF (object_type = 'PKS') THEN
635: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
636: ELSE
637: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
638: END IF;
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
633:
634: IF (object_type = 'PKS') THEN
635: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
636: ELSE
637: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
638: END IF;
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
640: cn_utils.appendcr(code);
641: cn_utils.appendcr(code, 'COMMIT;');
635: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
636: ELSE
637: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
638: END IF;
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
640: cn_utils.appendcr(code);
641: cn_utils.appendcr(code, 'COMMIT;');
642: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
643: cn_utils.appendcr(code);
636: ELSE
637: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
638: END IF;
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
640: cn_utils.appendcr(code);
641: cn_utils.appendcr(code, 'COMMIT;');
642: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
643: cn_utils.appendcr(code);
644:
637: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
638: END IF;
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
640: cn_utils.appendcr(code);
641: cn_utils.appendcr(code, 'COMMIT;');
642: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
643: cn_utils.appendcr(code);
644:
645: END pkg_end_boilerplate;
638: END IF;
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
640: cn_utils.appendcr(code);
641: cn_utils.appendcr(code, 'COMMIT;');
642: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
643: cn_utils.appendcr(code);
644:
645: END pkg_end_boilerplate;
646:
639: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
640: cn_utils.appendcr(code);
641: cn_utils.appendcr(code, 'COMMIT;');
642: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
643: cn_utils.appendcr(code);
644:
645: END pkg_end_boilerplate;
646:
647: --for clob
645: END pkg_end_boilerplate;
646:
647: --for clob
648: PROCEDURE pkg_end_boilerplate (
649: code IN OUT NOCOPY cn_utils.clob_code_type,
650: object_type cn_obj_packages_v.object_type%TYPE) IS
651:
652: BEGIN
653: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
649: code IN OUT NOCOPY cn_utils.clob_code_type,
650: object_type cn_obj_packages_v.object_type%TYPE) IS
651:
652: BEGIN
653: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
654: cn_utils.appendcr(code, '/');
655: cn_utils.appendcr(code);
656: IF (object_type = 'PKS') THEN
657: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
650: object_type cn_obj_packages_v.object_type%TYPE) IS
651:
652: BEGIN
653: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
654: cn_utils.appendcr(code, '/');
655: cn_utils.appendcr(code);
656: IF (object_type = 'PKS') THEN
657: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
658: ELSE
651:
652: BEGIN
653: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
654: cn_utils.appendcr(code, '/');
655: cn_utils.appendcr(code);
656: IF (object_type = 'PKS') THEN
657: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
658: ELSE
659: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
653: cn_utils.appendcr(code, 'END &' || 'PACKAGE_NAME;');
654: cn_utils.appendcr(code, '/');
655: cn_utils.appendcr(code);
656: IF (object_type = 'PKS') THEN
657: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
658: ELSE
659: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
660: END IF;
661: cn_utils.appendcr(code, 'SELECT TEXT ');
655: cn_utils.appendcr(code);
656: IF (object_type = 'PKS') THEN
657: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
658: ELSE
659: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
660: END IF;
661: cn_utils.appendcr(code, 'SELECT TEXT ');
662: cn_utils.appendcr(code, ' FROM USER_ERRORS');
663:
657: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE &' || 'PACKAGE_NAME');
658: ELSE
659: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
660: END IF;
661: cn_utils.appendcr(code, 'SELECT TEXT ');
662: cn_utils.appendcr(code, ' FROM USER_ERRORS');
663:
664: IF (object_type = 'PKS') THEN
665: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
658: ELSE
659: cn_utils.appendcr(code, 'SHOW ERRORS PACKAGE BODY &' || 'PACKAGE_NAME');
660: END IF;
661: cn_utils.appendcr(code, 'SELECT TEXT ');
662: cn_utils.appendcr(code, ' FROM USER_ERRORS');
663:
664: IF (object_type = 'PKS') THEN
665: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
666: ELSE
661: cn_utils.appendcr(code, 'SELECT TEXT ');
662: cn_utils.appendcr(code, ' FROM USER_ERRORS');
663:
664: IF (object_type = 'PKS') THEN
665: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
666: ELSE
667: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
668: END IF;
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
663:
664: IF (object_type = 'PKS') THEN
665: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
666: ELSE
667: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
668: END IF;
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
670: cn_utils.appendcr(code);
671: cn_utils.appendcr(code, 'COMMIT;');
665: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE''');
666: ELSE
667: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
668: END IF;
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
670: cn_utils.appendcr(code);
671: cn_utils.appendcr(code, 'COMMIT;');
672: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
673: cn_utils.appendcr(code);
666: ELSE
667: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
668: END IF;
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
670: cn_utils.appendcr(code);
671: cn_utils.appendcr(code, 'COMMIT;');
672: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
673: cn_utils.appendcr(code);
674:
667: cn_utils.appendcr(code, ' WHERE TYPE = ''PACKAGE BODY''');
668: END IF;
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
670: cn_utils.appendcr(code);
671: cn_utils.appendcr(code, 'COMMIT;');
672: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
673: cn_utils.appendcr(code);
674:
675: END pkg_end_boilerplate;
668: END IF;
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
670: cn_utils.appendcr(code);
671: cn_utils.appendcr(code, 'COMMIT;');
672: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
673: cn_utils.appendcr(code);
674:
675: END pkg_end_boilerplate;
676: --end clob
669: cn_utils.appendcr(code, ' AND NAME = UPPER(''&' || 'PACKAGE_NAME'');');
670: cn_utils.appendcr(code);
671: cn_utils.appendcr(code, 'COMMIT;');
672: cn_utils.appendcr(code, '-- EXIT;'); --AE 03-22-96
673: cn_utils.appendcr(code);
674:
675: END pkg_end_boilerplate;
676: --end clob
677:
684: package_body_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
685: package_spec_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
686: package_body_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
687:
688: spec_code IN OUT NOCOPY cn_utils.code_type,
689: body_code IN OUT NOCOPY cn_utils.code_type) IS
690:
691: x_rowid ROWID;
692: null_id NUMBER;
685: package_spec_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
686: package_body_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
687:
688: spec_code IN OUT NOCOPY cn_utils.code_type,
689: body_code IN OUT NOCOPY cn_utils.code_type) IS
690:
691: x_rowid ROWID;
692: null_id NUMBER;
693:
697: raise null_org_id;
698: end if;
699:
700: -- Find the package objects AE 01-08-96
701: cn_utils.find_object(package_name,'PKS',package_spec_id, package_spec_desc, g_org_id);
702: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
703:
704: -- Delete module source code from cn_source
705: -- Delete module object dependencies for this module
698: end if;
699:
700: -- Find the package objects AE 01-08-96
701: cn_utils.find_object(package_name,'PKS',package_spec_id, package_spec_desc, g_org_id);
702: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
703:
704: -- Delete module source code from cn_source
705: -- Delete module object dependencies for this module
706: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
702: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
703:
704: -- Delete module source code from cn_source
705: -- Delete module object dependencies for this module
706: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
707:
708: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
709: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
710:
704: -- Delete module source code from cn_source
705: -- Delete module object dependencies for this module
706: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
707:
708: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
709: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
710:
711: cn_utils.pkg_init_boilerplate(spec_code, package_name|| package_org_append, package_spec_desc, 'PKS');
712: cn_utils.pkg_init_boilerplate(body_code, package_name|| package_org_append, package_body_desc, 'PKB');
705: -- Delete module object dependencies for this module
706: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
707:
708: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
709: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
710:
711: cn_utils.pkg_init_boilerplate(spec_code, package_name|| package_org_append, package_spec_desc, 'PKS');
712: cn_utils.pkg_init_boilerplate(body_code, package_name|| package_org_append, package_body_desc, 'PKB');
713:
707:
708: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
709: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
710:
711: cn_utils.pkg_init_boilerplate(spec_code, package_name|| package_org_append, package_spec_desc, 'PKS');
712: cn_utils.pkg_init_boilerplate(body_code, package_name|| package_org_append, package_body_desc, 'PKB');
713:
714: cn_utils.indent(spec_code, 1);
715: cn_utils.indent(body_code, 1);
708: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
709: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
710:
711: cn_utils.pkg_init_boilerplate(spec_code, package_name|| package_org_append, package_spec_desc, 'PKS');
712: cn_utils.pkg_init_boilerplate(body_code, package_name|| package_org_append, package_body_desc, 'PKB');
713:
714: cn_utils.indent(spec_code, 1);
715: cn_utils.indent(body_code, 1);
716:
710:
711: cn_utils.pkg_init_boilerplate(spec_code, package_name|| package_org_append, package_spec_desc, 'PKS');
712: cn_utils.pkg_init_boilerplate(body_code, package_name|| package_org_append, package_body_desc, 'PKB');
713:
714: cn_utils.indent(spec_code, 1);
715: cn_utils.indent(body_code, 1);
716:
717: END pkg_init;
718:
711: cn_utils.pkg_init_boilerplate(spec_code, package_name|| package_org_append, package_spec_desc, 'PKS');
712: cn_utils.pkg_init_boilerplate(body_code, package_name|| package_org_append, package_body_desc, 'PKB');
713:
714: cn_utils.indent(spec_code, 1);
715: cn_utils.indent(body_code, 1);
716:
717: END pkg_init;
718:
719:
720: PROCEDURE pkg_end (
721: package_name cn_obj_packages_v.name%TYPE,
722: package_spec_id cn_obj_packages_v.package_id%TYPE,
723: package_body_id cn_obj_packages_v.package_id%TYPE,
724: spec_code IN OUT NOCOPY cn_utils.code_type,
725: body_code IN OUT NOCOPY cn_utils.code_type) IS
726:
727: BEGIN
728: cn_utils.unindent(spec_code, 1);
721: package_name cn_obj_packages_v.name%TYPE,
722: package_spec_id cn_obj_packages_v.package_id%TYPE,
723: package_body_id cn_obj_packages_v.package_id%TYPE,
724: spec_code IN OUT NOCOPY cn_utils.code_type,
725: body_code IN OUT NOCOPY cn_utils.code_type) IS
726:
727: BEGIN
728: cn_utils.unindent(spec_code, 1);
729: cn_utils.unindent(body_code, 1);
724: spec_code IN OUT NOCOPY cn_utils.code_type,
725: body_code IN OUT NOCOPY cn_utils.code_type) IS
726:
727: BEGIN
728: cn_utils.unindent(spec_code, 1);
729: cn_utils.unindent(body_code, 1);
730:
731: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
732: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
725: body_code IN OUT NOCOPY cn_utils.code_type) IS
726:
727: BEGIN
728: cn_utils.unindent(spec_code, 1);
729: cn_utils.unindent(body_code, 1);
730:
731: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
732: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
733:
727: BEGIN
728: cn_utils.unindent(spec_code, 1);
729: cn_utils.unindent(body_code, 1);
730:
731: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
732: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
733:
734: END pkg_end;
735:
728: cn_utils.unindent(spec_code, 1);
729: cn_utils.unindent(body_code, 1);
730:
731: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
732: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
733:
734: END pkg_end;
735:
736: --for clob
737: PROCEDURE pkg_end (
738: package_name cn_obj_packages_v.name%TYPE,
739: package_spec_id cn_obj_packages_v.package_id%TYPE,
740: package_body_id cn_obj_packages_v.package_id%TYPE,
741: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
742: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
743:
744: BEGIN
745: cn_utils.unindent(spec_code, 1);
738: package_name cn_obj_packages_v.name%TYPE,
739: package_spec_id cn_obj_packages_v.package_id%TYPE,
740: package_body_id cn_obj_packages_v.package_id%TYPE,
741: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
742: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
743:
744: BEGIN
745: cn_utils.unindent(spec_code, 1);
746: cn_utils.unindent(body_code, 1);
741: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
742: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
743:
744: BEGIN
745: cn_utils.unindent(spec_code, 1);
746: cn_utils.unindent(body_code, 1);
747:
748: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
749: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
742: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
743:
744: BEGIN
745: cn_utils.unindent(spec_code, 1);
746: cn_utils.unindent(body_code, 1);
747:
748: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
749: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
750:
744: BEGIN
745: cn_utils.unindent(spec_code, 1);
746: cn_utils.unindent(body_code, 1);
747:
748: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
749: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
750:
751: END pkg_end;
752: --end clob
745: cn_utils.unindent(spec_code, 1);
746: cn_utils.unindent(body_code, 1);
747:
748: cn_utils.pkg_end_boilerplate(spec_code, 'PKS'); --AE 04-28-95
749: cn_utils.pkg_end_boilerplate(body_code, 'PKB'); --AE 04-28-95
750:
751: END pkg_end;
752: --end clob
753:
752: --end clob
753:
754:
755: -- overloaded for use in formula generation
756: PROCEDURE pkg_init_boilerplate (code IN OUT NOCOPY cn_utils.code_type,
757: package_name cn_obj_packages_v.name%TYPE,
758: description cn_obj_packages_v.description%TYPE,
759: object_type VARCHAR2,
760: package_flag VARCHAR2 ) IS
760: package_flag VARCHAR2 ) IS
761:
762: X_userid VARCHAR2(20);
763: BEGIN
764: cn_utils.appendcr(code, '-- +======================================================================+ --');
765: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
766: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
767: cn_utils.appendcr(code, '-- | All rights reserved. | --');
768: cn_utils.appendcr(code, '-- +======================================================================+ --');
761:
762: X_userid VARCHAR2(20);
763: BEGIN
764: cn_utils.appendcr(code, '-- +======================================================================+ --');
765: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
766: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
767: cn_utils.appendcr(code, '-- | All rights reserved. | --');
768: cn_utils.appendcr(code, '-- +======================================================================+ --');
769: cn_utils.appendcr(code);
762: X_userid VARCHAR2(20);
763: BEGIN
764: cn_utils.appendcr(code, '-- +======================================================================+ --');
765: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
766: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
767: cn_utils.appendcr(code, '-- | All rights reserved. | --');
768: cn_utils.appendcr(code, '-- +======================================================================+ --');
769: cn_utils.appendcr(code);
770:
763: BEGIN
764: cn_utils.appendcr(code, '-- +======================================================================+ --');
765: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
766: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
767: cn_utils.appendcr(code, '-- | All rights reserved. | --');
768: cn_utils.appendcr(code, '-- +======================================================================+ --');
769: cn_utils.appendcr(code);
770:
771: SELECT user INTO X_userid FROM sys.dual;
764: cn_utils.appendcr(code, '-- +======================================================================+ --');
765: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
766: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
767: cn_utils.appendcr(code, '-- | All rights reserved. | --');
768: cn_utils.appendcr(code, '-- +======================================================================+ --');
769: cn_utils.appendcr(code);
770:
771: SELECT user INTO X_userid FROM sys.dual;
772:
765: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
766: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
767: cn_utils.appendcr(code, '-- | All rights reserved. | --');
768: cn_utils.appendcr(code, '-- +======================================================================+ --');
769: cn_utils.appendcr(code);
770:
771: SELECT user INTO X_userid FROM sys.dual;
772:
773: cn_utils.appendcr(code, '--');
769: cn_utils.appendcr(code);
770:
771: SELECT user INTO X_userid FROM sys.dual;
772:
773: cn_utils.appendcr(code, '--');
774: cn_utils.appendcr(code, '-- Package Name');
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
770:
771: SELECT user INTO X_userid FROM sys.dual;
772:
773: cn_utils.appendcr(code, '--');
774: cn_utils.appendcr(code, '-- Package Name');
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
771: SELECT user INTO X_userid FROM sys.dual;
772:
773: cn_utils.appendcr(code, '--');
774: cn_utils.appendcr(code, '-- Package Name');
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
772:
773: cn_utils.appendcr(code, '--');
774: cn_utils.appendcr(code, '-- Package Name');
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
780: cn_utils.appendcr(code, '--');
773: cn_utils.appendcr(code, '--');
774: cn_utils.appendcr(code, '-- Package Name');
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
780: cn_utils.appendcr(code, '--');
781: cn_utils.appendcr(code);
774: cn_utils.appendcr(code, '-- Package Name');
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
780: cn_utils.appendcr(code, '--');
781: cn_utils.appendcr(code);
782:
775: cn_utils.appendcr(code, '-- ' || package_name);
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
780: cn_utils.appendcr(code, '--');
781: cn_utils.appendcr(code);
782:
783: IF (object_type = 'PKS') THEN
776: cn_utils.appendcr(code, '-- Purpose');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
780: cn_utils.appendcr(code, '--');
781: cn_utils.appendcr(code);
782:
783: IF (object_type = 'PKS') THEN
784: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
777: cn_utils.appendcr(code, '-- ' || description);
778: cn_utils.appendcr(code, '-- History');
779: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
780: cn_utils.appendcr(code, '--');
781: cn_utils.appendcr(code);
782:
783: IF (object_type = 'PKS') THEN
784: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
785: ELSE
780: cn_utils.appendcr(code, '--');
781: cn_utils.appendcr(code);
782:
783: IF (object_type = 'PKS') THEN
784: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
785: ELSE
786: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
787: END IF;
788: cn_utils.appendcr(code);
782:
783: IF (object_type = 'PKS') THEN
784: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
785: ELSE
786: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
787: END IF;
788: cn_utils.appendcr(code);
789:
790: END pkg_init_boilerplate;
784: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
785: ELSE
786: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
787: END IF;
788: cn_utils.appendcr(code);
789:
790: END pkg_init_boilerplate;
791:
792: --for clob
791:
792: --for clob
793:
794: -- overloaded for use in formula generation
795: PROCEDURE pkg_init_boilerplate (code IN OUT NOCOPY cn_utils.clob_code_type,
796: package_name cn_obj_packages_v.name%TYPE,
797: description cn_obj_packages_v.description%TYPE,
798: object_type VARCHAR2,
799: package_flag VARCHAR2 ) IS
799: package_flag VARCHAR2 ) IS
800:
801: X_userid VARCHAR2(20);
802: BEGIN
803: cn_utils.appendcr(code, '-- +======================================================================+ --');
804: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
805: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
806: cn_utils.appendcr(code, '-- | All rights reserved. | --');
807: cn_utils.appendcr(code, '-- +======================================================================+ --');
800:
801: X_userid VARCHAR2(20);
802: BEGIN
803: cn_utils.appendcr(code, '-- +======================================================================+ --');
804: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
805: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
806: cn_utils.appendcr(code, '-- | All rights reserved. | --');
807: cn_utils.appendcr(code, '-- +======================================================================+ --');
808: cn_utils.appendcr(code);
801: X_userid VARCHAR2(20);
802: BEGIN
803: cn_utils.appendcr(code, '-- +======================================================================+ --');
804: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
805: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
806: cn_utils.appendcr(code, '-- | All rights reserved. | --');
807: cn_utils.appendcr(code, '-- +======================================================================+ --');
808: cn_utils.appendcr(code);
809:
802: BEGIN
803: cn_utils.appendcr(code, '-- +======================================================================+ --');
804: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
805: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
806: cn_utils.appendcr(code, '-- | All rights reserved. | --');
807: cn_utils.appendcr(code, '-- +======================================================================+ --');
808: cn_utils.appendcr(code);
809:
810: SELECT user INTO X_userid FROM sys.dual;
803: cn_utils.appendcr(code, '-- +======================================================================+ --');
804: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
805: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
806: cn_utils.appendcr(code, '-- | All rights reserved. | --');
807: cn_utils.appendcr(code, '-- +======================================================================+ --');
808: cn_utils.appendcr(code);
809:
810: SELECT user INTO X_userid FROM sys.dual;
811:
804: cn_utils.appendcr(code, '-- | Copyright (c) 1994 Oracle Corporation | --');
805: cn_utils.appendcr(code, '-- | Redwood Shores, California, USA | --');
806: cn_utils.appendcr(code, '-- | All rights reserved. | --');
807: cn_utils.appendcr(code, '-- +======================================================================+ --');
808: cn_utils.appendcr(code);
809:
810: SELECT user INTO X_userid FROM sys.dual;
811:
812: cn_utils.appendcr(code, '--');
808: cn_utils.appendcr(code);
809:
810: SELECT user INTO X_userid FROM sys.dual;
811:
812: cn_utils.appendcr(code, '--');
813: cn_utils.appendcr(code, '-- Package Name');
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
809:
810: SELECT user INTO X_userid FROM sys.dual;
811:
812: cn_utils.appendcr(code, '--');
813: cn_utils.appendcr(code, '-- Package Name');
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
810: SELECT user INTO X_userid FROM sys.dual;
811:
812: cn_utils.appendcr(code, '--');
813: cn_utils.appendcr(code, '-- Package Name');
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
811:
812: cn_utils.appendcr(code, '--');
813: cn_utils.appendcr(code, '-- Package Name');
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
819: cn_utils.appendcr(code, '--');
812: cn_utils.appendcr(code, '--');
813: cn_utils.appendcr(code, '-- Package Name');
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
819: cn_utils.appendcr(code, '--');
820: cn_utils.appendcr(code);
813: cn_utils.appendcr(code, '-- Package Name');
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
819: cn_utils.appendcr(code, '--');
820: cn_utils.appendcr(code);
821:
814: cn_utils.appendcr(code, '-- ' || package_name);
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
819: cn_utils.appendcr(code, '--');
820: cn_utils.appendcr(code);
821:
822: IF (object_type = 'PKS') THEN
815: cn_utils.appendcr(code, '-- Purpose');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
819: cn_utils.appendcr(code, '--');
820: cn_utils.appendcr(code);
821:
822: IF (object_type = 'PKS') THEN
823: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
816: cn_utils.appendcr(code, '-- ' || description);
817: cn_utils.appendcr(code, '-- History');
818: cn_utils.appendcr(code, '-- ' || SYSDATE || ' ' || X_userid || ' Created');
819: cn_utils.appendcr(code, '--');
820: cn_utils.appendcr(code);
821:
822: IF (object_type = 'PKS') THEN
823: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
824: ELSE
819: cn_utils.appendcr(code, '--');
820: cn_utils.appendcr(code);
821:
822: IF (object_type = 'PKS') THEN
823: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
824: ELSE
825: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
826: END IF;
827: cn_utils.appendcr(code);
821:
822: IF (object_type = 'PKS') THEN
823: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
824: ELSE
825: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
826: END IF;
827: cn_utils.appendcr(code);
828:
829: END pkg_init_boilerplate;
823: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || package_name || ' AS');
824: ELSE
825: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || package_name || ' AS');
826: END IF;
827: cn_utils.appendcr(code);
828:
829: END pkg_init_boilerplate;
830:
831:
841: package_spec_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
842: package_body_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
843: package_spec_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
844: package_body_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
845: spec_code IN OUT NOCOPY cn_utils.code_type,
846: body_code IN OUT NOCOPY cn_utils.code_type) IS
847:
848: x_rowid ROWID;
849: null_id NUMBER;
842: package_body_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
843: package_spec_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
844: package_body_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
845: spec_code IN OUT NOCOPY cn_utils.code_type,
846: body_code IN OUT NOCOPY cn_utils.code_type) IS
847:
848: x_rowid ROWID;
849: null_id NUMBER;
850:
854: raise null_org_id;
855: end if;
856:
857: -- Find the package objects AE 01-08-96
858: cn_utils.find_object(package_name,'PKS',package_spec_id, package_spec_desc, g_org_id);
859: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
860:
861: -- Delete module source code from cn_source
862: -- Delete module object dependencies for this module
855: end if;
856:
857: -- Find the package objects AE 01-08-96
858: cn_utils.find_object(package_name,'PKS',package_spec_id, package_spec_desc, g_org_id);
859: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
860:
861: -- Delete module source code from cn_source
862: -- Delete module object dependencies for this module
863: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
859: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
860:
861: -- Delete module source code from cn_source
862: -- Delete module object dependencies for this module
863: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
864:
865: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
866: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
867:
861: -- Delete module source code from cn_source
862: -- Delete module object dependencies for this module
863: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
864:
865: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
866: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
867:
868: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
869: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
862: -- Delete module object dependencies for this module
863: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
864:
865: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
866: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
867:
868: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
869: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
870:
864:
865: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
866: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
867:
868: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
869: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
870:
871: cn_utils.indent(spec_code, 1);
872: cn_utils.indent(body_code, 1);
865: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
866: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
867:
868: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
869: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
870:
871: cn_utils.indent(spec_code, 1);
872: cn_utils.indent(body_code, 1);
873:
867:
868: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
869: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
870:
871: cn_utils.indent(spec_code, 1);
872: cn_utils.indent(body_code, 1);
873:
874: END pkg_init;
875:
868: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
869: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
870:
871: cn_utils.indent(spec_code, 1);
872: cn_utils.indent(body_code, 1);
873:
874: END pkg_init;
875:
876: --for clob
884: package_spec_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
885: package_body_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
886: package_spec_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
887: package_body_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
888: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
889: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
890:
891: x_rowid ROWID;
892: null_id NUMBER;
885: package_body_id IN OUT NOCOPY cn_obj_packages_v.package_id%TYPE,
886: package_spec_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
887: package_body_desc IN OUT NOCOPY cn_obj_packages_v.description%TYPE,
888: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
889: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
890:
891: x_rowid ROWID;
892: null_id NUMBER;
893:
897: raise null_org_id;
898: end if;
899:
900: -- Find the package objects AE 01-08-96
901: cn_utils.find_object(package_name,'PKS',package_spec_id, package_spec_desc, g_org_id);
902: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
903:
904: -- Delete module source code from cn_source
905: -- Delete module object dependencies for this module
898: end if;
899:
900: -- Find the package objects AE 01-08-96
901: cn_utils.find_object(package_name,'PKS',package_spec_id, package_spec_desc, g_org_id);
902: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
903:
904: -- Delete module source code from cn_source
905: -- Delete module object dependencies for this module
906: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
902: cn_utils.find_object(package_name,'PKB',package_body_id, package_body_desc, g_org_id);
903:
904: -- Delete module source code from cn_source
905: -- Delete module object dependencies for this module
906: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
907:
908: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
909: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
910:
904: -- Delete module source code from cn_source
905: -- Delete module object dependencies for this module
906: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
907:
908: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
909: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
910:
911: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
912: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
905: -- Delete module object dependencies for this module
906: cn_utils.delete_module(module_id, package_spec_id, package_body_id, g_org_id);
907:
908: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
909: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
910:
911: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
912: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
913:
907:
908: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
909: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
910:
911: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
912: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
913:
914: cn_utils.indent(spec_code, 1);
915: cn_utils.indent(body_code, 1);
908: cn_utils.init_code (package_spec_id, spec_code); -- AE 05-02-95
909: cn_utils.init_code (package_body_id, body_code); -- AE 05-02-95
910:
911: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
912: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
913:
914: cn_utils.indent(spec_code, 1);
915: cn_utils.indent(body_code, 1);
916:
910:
911: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
912: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
913:
914: cn_utils.indent(spec_code, 1);
915: cn_utils.indent(body_code, 1);
916:
917: END pkg_init;
918: --end clob
911: cn_utils.pkg_init_boilerplate(spec_code, package_name, package_spec_desc, 'PKS', package_flag);
912: cn_utils.pkg_init_boilerplate(body_code, package_name, package_body_desc, 'PKB', package_flag);
913:
914: cn_utils.indent(spec_code, 1);
915: cn_utils.indent(body_code, 1);
916:
917: END pkg_init;
918: --end clob
919:
918: --end clob
919:
920:
921: -- overloaded procedure used for formula generation
922: PROCEDURE pkg_end_boilerplate (code IN OUT NOCOPY cn_utils.code_type,
923: package_name cn_obj_packages_v.name%TYPE,
924: object_type cn_obj_packages_v.object_type%TYPE) IS
925:
926: BEGIN
923: package_name cn_obj_packages_v.name%TYPE,
924: object_type cn_obj_packages_v.object_type%TYPE) IS
925:
926: BEGIN
927: cn_utils.appendcr(code, 'END ' || package_name || ' ;');
928: cn_utils.appendcr(code);
929: END pkg_end_boilerplate;
930:
931: --for clob
924: object_type cn_obj_packages_v.object_type%TYPE) IS
925:
926: BEGIN
927: cn_utils.appendcr(code, 'END ' || package_name || ' ;');
928: cn_utils.appendcr(code);
929: END pkg_end_boilerplate;
930:
931: --for clob
932: PROCEDURE pkg_end_boilerplate (code IN OUT NOCOPY cn_utils.clob_code_type,
928: cn_utils.appendcr(code);
929: END pkg_end_boilerplate;
930:
931: --for clob
932: PROCEDURE pkg_end_boilerplate (code IN OUT NOCOPY cn_utils.clob_code_type,
933: package_name cn_obj_packages_v.name%TYPE,
934: object_type cn_obj_packages_v.object_type%TYPE) IS
935:
936: BEGIN
933: package_name cn_obj_packages_v.name%TYPE,
934: object_type cn_obj_packages_v.object_type%TYPE) IS
935:
936: BEGIN
937: cn_utils.appendcr(code, 'END ' || package_name || ' ;');
938: cn_utils.appendcr(code);
939: END pkg_end_boilerplate;
940: --end clob
941:
934: object_type cn_obj_packages_v.object_type%TYPE) IS
935:
936: BEGIN
937: cn_utils.appendcr(code, 'END ' || package_name || ' ;');
938: cn_utils.appendcr(code);
939: END pkg_end_boilerplate;
940: --end clob
941:
942: -- overloaded procedure for use in formula generation
940: --end clob
941:
942: -- overloaded procedure for use in formula generation
943: PROCEDURE pkg_end (package_name cn_obj_packages_v.name%TYPE,
944: spec_code IN OUT NOCOPY cn_utils.code_type,
945: body_code IN OUT NOCOPY cn_utils.code_type) IS
946:
947: BEGIN
948: cn_utils.unindent(spec_code, 1);
941:
942: -- overloaded procedure for use in formula generation
943: PROCEDURE pkg_end (package_name cn_obj_packages_v.name%TYPE,
944: spec_code IN OUT NOCOPY cn_utils.code_type,
945: body_code IN OUT NOCOPY cn_utils.code_type) IS
946:
947: BEGIN
948: cn_utils.unindent(spec_code, 1);
949: cn_utils.unindent(body_code, 1);
944: spec_code IN OUT NOCOPY cn_utils.code_type,
945: body_code IN OUT NOCOPY cn_utils.code_type) IS
946:
947: BEGIN
948: cn_utils.unindent(spec_code, 1);
949: cn_utils.unindent(body_code, 1);
950:
951: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
952: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
945: body_code IN OUT NOCOPY cn_utils.code_type) IS
946:
947: BEGIN
948: cn_utils.unindent(spec_code, 1);
949: cn_utils.unindent(body_code, 1);
950:
951: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
952: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
953: END pkg_end;
947: BEGIN
948: cn_utils.unindent(spec_code, 1);
949: cn_utils.unindent(body_code, 1);
950:
951: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
952: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
953: END pkg_end;
954:
955: --for clob
948: cn_utils.unindent(spec_code, 1);
949: cn_utils.unindent(body_code, 1);
950:
951: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
952: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
953: END pkg_end;
954:
955: --for clob
956: -- overloaded procedure for use in formula generation
954:
955: --for clob
956: -- overloaded procedure for use in formula generation
957: PROCEDURE pkg_end (package_name cn_obj_packages_v.name%TYPE,
958: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
959: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
960:
961: BEGIN
962: cn_utils.unindent(spec_code, 1);
955: --for clob
956: -- overloaded procedure for use in formula generation
957: PROCEDURE pkg_end (package_name cn_obj_packages_v.name%TYPE,
958: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
959: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
960:
961: BEGIN
962: cn_utils.unindent(spec_code, 1);
963: cn_utils.unindent(body_code, 1);
958: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
959: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
960:
961: BEGIN
962: cn_utils.unindent(spec_code, 1);
963: cn_utils.unindent(body_code, 1);
964:
965: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
966: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
959: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
960:
961: BEGIN
962: cn_utils.unindent(spec_code, 1);
963: cn_utils.unindent(body_code, 1);
964:
965: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
966: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
967: END pkg_end;
961: BEGIN
962: cn_utils.unindent(spec_code, 1);
963: cn_utils.unindent(body_code, 1);
964:
965: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
966: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
967: END pkg_end;
968:
969: --end clob
962: cn_utils.unindent(spec_code, 1);
963: cn_utils.unindent(body_code, 1);
964:
965: cn_utils.pkg_end_boilerplate(spec_code, package_name,'PKS');
966: cn_utils.pkg_end_boilerplate(body_code, package_name,'PKB');
967: END pkg_end;
968:
969: --end clob
970:
969: --end clob
970:
971:
972: PROCEDURE proc_init_boilerplate (
973: code IN OUT NOCOPY cn_utils.code_type,
974: procedure_name cn_obj_procedures_v.name%TYPE,
975: description cn_obj_procedures_v.description%TYPE) IS
976:
977: X_userid VARCHAR2(20);
978:
979: BEGIN
980: SELECT user INTO X_userid FROM sys.dual;
981:
982: cn_utils.appendcr(code, '--');
983: cn_utils.appendcr(code, '-- Procedure Name');
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
979: BEGIN
980: SELECT user INTO X_userid FROM sys.dual;
981:
982: cn_utils.appendcr(code, '--');
983: cn_utils.appendcr(code, '-- Procedure Name');
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
980: SELECT user INTO X_userid FROM sys.dual;
981:
982: cn_utils.appendcr(code, '--');
983: cn_utils.appendcr(code, '-- Procedure Name');
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
988: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
981:
982: cn_utils.appendcr(code, '--');
983: cn_utils.appendcr(code, '-- Procedure Name');
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
988: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
989: cn_utils.appendcr(code, '--');
982: cn_utils.appendcr(code, '--');
983: cn_utils.appendcr(code, '-- Procedure Name');
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
988: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
989: cn_utils.appendcr(code, '--');
990:
983: cn_utils.appendcr(code, '-- Procedure Name');
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
988: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
989: cn_utils.appendcr(code, '--');
990:
991: END proc_init_boilerplate;
984: cn_utils.appendcr(code, '-- ' || procedure_name);
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
988: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
989: cn_utils.appendcr(code, '--');
990:
991: END proc_init_boilerplate;
992:
985: cn_utils.appendcr(code, '-- Purpose');
986: cn_utils.appendcr(code, '-- ' || description);
987: cn_utils.appendcr(code, '-- History');
988: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
989: cn_utils.appendcr(code, '--');
990:
991: END proc_init_boilerplate;
992:
993: --for clob
991: END proc_init_boilerplate;
992:
993: --for clob
994: PROCEDURE proc_init_boilerplate (
995: code IN OUT NOCOPY cn_utils.clob_code_type,
996: procedure_name cn_obj_procedures_v.name%TYPE,
997: description cn_obj_procedures_v.description%TYPE) IS
998:
999: X_userid VARCHAR2(20);
1000:
1001: BEGIN
1002: SELECT user INTO X_userid FROM sys.dual;
1003:
1004: cn_utils.appendcr(code, '--');
1005: cn_utils.appendcr(code, '-- Procedure Name');
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1001: BEGIN
1002: SELECT user INTO X_userid FROM sys.dual;
1003:
1004: cn_utils.appendcr(code, '--');
1005: cn_utils.appendcr(code, '-- Procedure Name');
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1002: SELECT user INTO X_userid FROM sys.dual;
1003:
1004: cn_utils.appendcr(code, '--');
1005: cn_utils.appendcr(code, '-- Procedure Name');
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1010: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
1003:
1004: cn_utils.appendcr(code, '--');
1005: cn_utils.appendcr(code, '-- Procedure Name');
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1010: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
1011: cn_utils.appendcr(code, '--');
1004: cn_utils.appendcr(code, '--');
1005: cn_utils.appendcr(code, '-- Procedure Name');
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1010: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
1011: cn_utils.appendcr(code, '--');
1012:
1005: cn_utils.appendcr(code, '-- Procedure Name');
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1010: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
1011: cn_utils.appendcr(code, '--');
1012:
1013: END proc_init_boilerplate;
1006: cn_utils.appendcr(code, '-- ' || procedure_name);
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1010: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
1011: cn_utils.appendcr(code, '--');
1012:
1013: END proc_init_boilerplate;
1014: --end clob
1007: cn_utils.appendcr(code, '-- Purpose');
1008: cn_utils.appendcr(code, '-- ' || description);
1009: cn_utils.appendcr(code, '-- History');
1010: cn_utils.appendcr(code, '-- ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI') || ' ' || X_userid || ' Created');
1011: cn_utils.appendcr(code, '--');
1012:
1013: END proc_init_boilerplate;
1014: --end clob
1015:
1020: procedure_type cn_obj_procedures_v.procedure_type%TYPE,
1021: return_type cn_obj_procedures_v.return_type%TYPE,
1022: package_id cn_obj_procedures_v.package_id%TYPE,
1023: repository_id cn_obj_procedures_v.repository_id%TYPE,
1024: spec_code IN OUT NOCOPY cn_utils.code_type,
1025: body_code IN OUT NOCOPY cn_utils.code_type) IS
1026:
1027: X_rowid ROWID;
1028:
1021: return_type cn_obj_procedures_v.return_type%TYPE,
1022: package_id cn_obj_procedures_v.package_id%TYPE,
1023: repository_id cn_obj_procedures_v.repository_id%TYPE,
1024: spec_code IN OUT NOCOPY cn_utils.code_type,
1025: body_code IN OUT NOCOPY cn_utils.code_type) IS
1026:
1027: X_rowid ROWID;
1028:
1029: BEGIN
1029: BEGIN
1030: cn_debug.print_msg('proc_init>>', 1);
1031:
1032: -- Generate boilerplate comments
1033: cn_utils.proc_init_boilerplate(spec_code, procedure_name, description);
1034: cn_utils.proc_init_boilerplate(body_code, procedure_name, description);
1035:
1036: -- Generate procedure header and parameters in both spec and body
1037: IF (procedure_type = 'P') THEN
1030: cn_debug.print_msg('proc_init>>', 1);
1031:
1032: -- Generate boilerplate comments
1033: cn_utils.proc_init_boilerplate(spec_code, procedure_name, description);
1034: cn_utils.proc_init_boilerplate(body_code, procedure_name, description);
1035:
1036: -- Generate procedure header and parameters in both spec and body
1037: IF (procedure_type = 'P') THEN
1038: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1034: cn_utils.proc_init_boilerplate(body_code, procedure_name, description);
1035:
1036: -- Generate procedure header and parameters in both spec and body
1037: IF (procedure_type = 'P') THEN
1038: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1039: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1040: ELSIF (procedure_type = 'F') THEN
1041: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1042: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1035:
1036: -- Generate procedure header and parameters in both spec and body
1037: IF (procedure_type = 'P') THEN
1038: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1039: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1040: ELSIF (procedure_type = 'F') THEN
1041: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1042: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1043: END IF;
1037: IF (procedure_type = 'P') THEN
1038: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1039: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1040: ELSIF (procedure_type = 'F') THEN
1041: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1042: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1043: END IF;
1044:
1045: IF (parameter_list IS NOT NULL) THEN
1038: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1039: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1040: ELSIF (procedure_type = 'F') THEN
1041: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1042: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1043: END IF;
1044:
1045: IF (parameter_list IS NOT NULL) THEN
1046: cn_utils.append(spec_code, ' (' || parameter_list || ')');
1042: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1043: END IF;
1044:
1045: IF (parameter_list IS NOT NULL) THEN
1046: cn_utils.append(spec_code, ' (' || parameter_list || ')');
1047: cn_utils.append(body_code, ' (' || parameter_list || ')');
1048: END IF;
1049:
1050: IF (procedure_type = 'F') THEN
1043: END IF;
1044:
1045: IF (parameter_list IS NOT NULL) THEN
1046: cn_utils.append(spec_code, ' (' || parameter_list || ')');
1047: cn_utils.append(body_code, ' (' || parameter_list || ')');
1048: END IF;
1049:
1050: IF (procedure_type = 'F') THEN
1051: cn_utils.append(spec_code, ' RETURN ' || return_type);
1047: cn_utils.append(body_code, ' (' || parameter_list || ')');
1048: END IF;
1049:
1050: IF (procedure_type = 'F') THEN
1051: cn_utils.append(spec_code, ' RETURN ' || return_type);
1052: cn_utils.append(body_code, ' RETURN ' || return_type);
1053: END IF;
1054:
1055: cn_utils.appendcr(spec_code, ';');
1048: END IF;
1049:
1050: IF (procedure_type = 'F') THEN
1051: cn_utils.append(spec_code, ' RETURN ' || return_type);
1052: cn_utils.append(body_code, ' RETURN ' || return_type);
1053: END IF;
1054:
1055: cn_utils.appendcr(spec_code, ';');
1056: cn_utils.appendcr(spec_code);
1051: cn_utils.append(spec_code, ' RETURN ' || return_type);
1052: cn_utils.append(body_code, ' RETURN ' || return_type);
1053: END IF;
1054:
1055: cn_utils.appendcr(spec_code, ';');
1056: cn_utils.appendcr(spec_code);
1057: cn_utils.appendcr(body_code, ' IS');
1058:
1059: cn_debug.print_msg('proc_init<<', 1);
1052: cn_utils.append(body_code, ' RETURN ' || return_type);
1053: END IF;
1054:
1055: cn_utils.appendcr(spec_code, ';');
1056: cn_utils.appendcr(spec_code);
1057: cn_utils.appendcr(body_code, ' IS');
1058:
1059: cn_debug.print_msg('proc_init<<', 1);
1060: END proc_init;
1053: END IF;
1054:
1055: cn_utils.appendcr(spec_code, ';');
1056: cn_utils.appendcr(spec_code);
1057: cn_utils.appendcr(body_code, ' IS');
1058:
1059: cn_debug.print_msg('proc_init<<', 1);
1060: END proc_init;
1061:
1067: procedure_type cn_obj_procedures_v.procedure_type%TYPE,
1068: return_type cn_obj_procedures_v.return_type%TYPE,
1069: package_id cn_obj_procedures_v.package_id%TYPE,
1070: repository_id cn_obj_procedures_v.repository_id%TYPE,
1071: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
1072: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
1073:
1074: X_rowid ROWID;
1075:
1068: return_type cn_obj_procedures_v.return_type%TYPE,
1069: package_id cn_obj_procedures_v.package_id%TYPE,
1070: repository_id cn_obj_procedures_v.repository_id%TYPE,
1071: spec_code IN OUT NOCOPY cn_utils.clob_code_type,
1072: body_code IN OUT NOCOPY cn_utils.clob_code_type) IS
1073:
1074: X_rowid ROWID;
1075:
1076: BEGIN
1076: BEGIN
1077: cn_debug.print_msg('proc_init>>', 1);
1078:
1079: -- Generate boilerplate comments
1080: cn_utils.proc_init_boilerplate(spec_code, procedure_name, description);
1081: cn_utils.proc_init_boilerplate(body_code, procedure_name, description);
1082:
1083: -- Generate procedure header and parameters in both spec and body
1084: IF (procedure_type = 'P') THEN
1077: cn_debug.print_msg('proc_init>>', 1);
1078:
1079: -- Generate boilerplate comments
1080: cn_utils.proc_init_boilerplate(spec_code, procedure_name, description);
1081: cn_utils.proc_init_boilerplate(body_code, procedure_name, description);
1082:
1083: -- Generate procedure header and parameters in both spec and body
1084: IF (procedure_type = 'P') THEN
1085: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1081: cn_utils.proc_init_boilerplate(body_code, procedure_name, description);
1082:
1083: -- Generate procedure header and parameters in both spec and body
1084: IF (procedure_type = 'P') THEN
1085: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1086: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1087: ELSIF (procedure_type = 'F') THEN
1088: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1089: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1082:
1083: -- Generate procedure header and parameters in both spec and body
1084: IF (procedure_type = 'P') THEN
1085: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1086: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1087: ELSIF (procedure_type = 'F') THEN
1088: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1089: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1090: END IF;
1084: IF (procedure_type = 'P') THEN
1085: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1086: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1087: ELSIF (procedure_type = 'F') THEN
1088: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1089: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1090: END IF;
1091:
1092: IF (parameter_list IS NOT NULL) THEN
1085: cn_utils.appind(spec_code, 'PROCEDURE ' || procedure_name);
1086: cn_utils.appind(body_code, 'PROCEDURE ' || procedure_name);
1087: ELSIF (procedure_type = 'F') THEN
1088: cn_utils.appind(spec_code, 'FUNCTION ' || procedure_name);
1089: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1090: END IF;
1091:
1092: IF (parameter_list IS NOT NULL) THEN
1093: cn_utils.append(spec_code, ' (' || parameter_list || ')');
1089: cn_utils.appind(body_code, 'FUNCTION ' || procedure_name);
1090: END IF;
1091:
1092: IF (parameter_list IS NOT NULL) THEN
1093: cn_utils.append(spec_code, ' (' || parameter_list || ')');
1094: cn_utils.append(body_code, ' (' || parameter_list || ')');
1095: END IF;
1096:
1097: IF (procedure_type = 'F') THEN
1090: END IF;
1091:
1092: IF (parameter_list IS NOT NULL) THEN
1093: cn_utils.append(spec_code, ' (' || parameter_list || ')');
1094: cn_utils.append(body_code, ' (' || parameter_list || ')');
1095: END IF;
1096:
1097: IF (procedure_type = 'F') THEN
1098: cn_utils.append(spec_code, ' RETURN ' || return_type);
1094: cn_utils.append(body_code, ' (' || parameter_list || ')');
1095: END IF;
1096:
1097: IF (procedure_type = 'F') THEN
1098: cn_utils.append(spec_code, ' RETURN ' || return_type);
1099: cn_utils.append(body_code, ' RETURN ' || return_type);
1100: END IF;
1101:
1102: cn_utils.appendcr(spec_code, ';');
1095: END IF;
1096:
1097: IF (procedure_type = 'F') THEN
1098: cn_utils.append(spec_code, ' RETURN ' || return_type);
1099: cn_utils.append(body_code, ' RETURN ' || return_type);
1100: END IF;
1101:
1102: cn_utils.appendcr(spec_code, ';');
1103: cn_utils.appendcr(spec_code);
1098: cn_utils.append(spec_code, ' RETURN ' || return_type);
1099: cn_utils.append(body_code, ' RETURN ' || return_type);
1100: END IF;
1101:
1102: cn_utils.appendcr(spec_code, ';');
1103: cn_utils.appendcr(spec_code);
1104: cn_utils.appendcr(body_code, ' IS');
1105:
1106: cn_debug.print_msg('proc_init<<', 1);
1099: cn_utils.append(body_code, ' RETURN ' || return_type);
1100: END IF;
1101:
1102: cn_utils.appendcr(spec_code, ';');
1103: cn_utils.appendcr(spec_code);
1104: cn_utils.appendcr(body_code, ' IS');
1105:
1106: cn_debug.print_msg('proc_init<<', 1);
1107: END proc_init;
1100: END IF;
1101:
1102: cn_utils.appendcr(spec_code, ';');
1103: cn_utils.appendcr(spec_code);
1104: cn_utils.appendcr(body_code, ' IS');
1105:
1106: cn_debug.print_msg('proc_init<<', 1);
1107: END proc_init;
1108:
1111:
1112: PROCEDURE proc_begin (
1113: procedure_name cn_obj_procedures_v.name%TYPE,
1114: generate_debug_pipe VARCHAR2,
1115: code IN OUT NOCOPY cn_utils.code_type) IS
1116:
1117: BEGIN
1118: cn_debug.print_msg('proc_begin>>', 1);
1119:
1117: BEGIN
1118: cn_debug.print_msg('proc_begin>>', 1);
1119:
1120: -- Generate begin procedure statement
1121: cn_utils.appindcr(code, 'BEGIN');
1122: cn_utils.indent(code, 1);
1123:
1124: IF (generate_debug_pipe = 'Y') THEN
1125: -- Generate code to initialize a debug pipe if a pipename has been specified
1118: cn_debug.print_msg('proc_begin>>', 1);
1119:
1120: -- Generate begin procedure statement
1121: cn_utils.appindcr(code, 'BEGIN');
1122: cn_utils.indent(code, 1);
1123:
1124: IF (generate_debug_pipe = 'Y') THEN
1125: -- Generate code to initialize a debug pipe if a pipename has been specified
1126: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1122: cn_utils.indent(code, 1);
1123:
1124: IF (generate_debug_pipe = 'Y') THEN
1125: -- Generate code to initialize a debug pipe if a pipename has been specified
1126: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1127: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1128: cn_utils.appindcr(code, 'END IF;');
1129: END IF;
1130:
1123:
1124: IF (generate_debug_pipe = 'Y') THEN
1125: -- Generate code to initialize a debug pipe if a pipename has been specified
1126: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1127: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1128: cn_utils.appindcr(code, 'END IF;');
1129: END IF;
1130:
1131: cn_utils.appendcr(code);
1124: IF (generate_debug_pipe = 'Y') THEN
1125: -- Generate code to initialize a debug pipe if a pipename has been specified
1126: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1127: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1128: cn_utils.appindcr(code, 'END IF;');
1129: END IF;
1130:
1131: cn_utils.appendcr(code);
1132:
1127: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1128: cn_utils.appindcr(code, 'END IF;');
1129: END IF;
1130:
1131: cn_utils.appendcr(code);
1132:
1133: cn_debug.print_msg('proc_begin<<', 1);
1134: END proc_begin;
1135:
1136: --for clob
1137: PROCEDURE proc_begin (
1138: procedure_name cn_obj_procedures_v.name%TYPE,
1139: generate_debug_pipe VARCHAR2,
1140: code IN OUT NOCOPY cn_utils.clob_code_type) IS
1141: BEGIN
1142: cn_debug.print_msg('proc_begin>>', 1);
1143:
1144: -- Generate begin procedure statement
1141: BEGIN
1142: cn_debug.print_msg('proc_begin>>', 1);
1143:
1144: -- Generate begin procedure statement
1145: cn_utils.appindcr(code, 'BEGIN');
1146: cn_utils.indent(code, 1);
1147:
1148: IF (generate_debug_pipe = 'Y') THEN
1149: -- Generate code to initialize a debug pipe if a pipename has been specified
1142: cn_debug.print_msg('proc_begin>>', 1);
1143:
1144: -- Generate begin procedure statement
1145: cn_utils.appindcr(code, 'BEGIN');
1146: cn_utils.indent(code, 1);
1147:
1148: IF (generate_debug_pipe = 'Y') THEN
1149: -- Generate code to initialize a debug pipe if a pipename has been specified
1150: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1146: cn_utils.indent(code, 1);
1147:
1148: IF (generate_debug_pipe = 'Y') THEN
1149: -- Generate code to initialize a debug pipe if a pipename has been specified
1150: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1151: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1152: cn_utils.appindcr(code, 'END IF;');
1153: END IF;
1154:
1147:
1148: IF (generate_debug_pipe = 'Y') THEN
1149: -- Generate code to initialize a debug pipe if a pipename has been specified
1150: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1151: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1152: cn_utils.appindcr(code, 'END IF;');
1153: END IF;
1154:
1155: cn_utils.appendcr(code);
1148: IF (generate_debug_pipe = 'Y') THEN
1149: -- Generate code to initialize a debug pipe if a pipename has been specified
1150: cn_utils.appindcr(code, 'IF (debug_pipe IS NOT NULL) THEN');
1151: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1152: cn_utils.appindcr(code, 'END IF;');
1153: END IF;
1154:
1155: cn_utils.appendcr(code);
1156:
1151: cn_utils.appindcr(code, ' cn_debug.init_pipe(debug_pipe, debug_level);');
1152: cn_utils.appindcr(code, 'END IF;');
1153: END IF;
1154:
1155: cn_utils.appendcr(code);
1156:
1157: cn_debug.print_msg('proc_begin<<', 1);
1158: END proc_begin;
1159: --end clob
1161:
1162: PROCEDURE proc_end (
1163: procedure_name cn_obj_procedures_v.name%TYPE,
1164: exception_flag VARCHAR2,
1165: code IN OUT NOCOPY cn_utils.code_type) IS
1166:
1167: BEGIN
1168: cn_debug.print_msg('proc_end>>', 1);
1169:
1166:
1167: BEGIN
1168: cn_debug.print_msg('proc_end>>', 1);
1169:
1170: cn_utils.appendcr(code);
1171: cn_utils.appendcr(code);
1172: IF (exception_flag = 'Y') THEN
1173: cn_utils.record_process_exception(procedure_name, NULL, code);
1174: END IF;
1167: BEGIN
1168: cn_debug.print_msg('proc_end>>', 1);
1169:
1170: cn_utils.appendcr(code);
1171: cn_utils.appendcr(code);
1172: IF (exception_flag = 'Y') THEN
1173: cn_utils.record_process_exception(procedure_name, NULL, code);
1174: END IF;
1175:
1169:
1170: cn_utils.appendcr(code);
1171: cn_utils.appendcr(code);
1172: IF (exception_flag = 'Y') THEN
1173: cn_utils.record_process_exception(procedure_name, NULL, code);
1174: END IF;
1175:
1176: -- Generate end of procedure statement
1177: cn_utils.appendcr(code);
1173: cn_utils.record_process_exception(procedure_name, NULL, code);
1174: END IF;
1175:
1176: -- Generate end of procedure statement
1177: cn_utils.appendcr(code);
1178: cn_utils.unindent(code, 1);
1179: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1180: cn_utils.appendcr(code);
1181:
1174: END IF;
1175:
1176: -- Generate end of procedure statement
1177: cn_utils.appendcr(code);
1178: cn_utils.unindent(code, 1);
1179: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1180: cn_utils.appendcr(code);
1181:
1182: cn_debug.print_msg('proc_end<<', 1);
1175:
1176: -- Generate end of procedure statement
1177: cn_utils.appendcr(code);
1178: cn_utils.unindent(code, 1);
1179: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1180: cn_utils.appendcr(code);
1181:
1182: cn_debug.print_msg('proc_end<<', 1);
1183: END proc_end;
1176: -- Generate end of procedure statement
1177: cn_utils.appendcr(code);
1178: cn_utils.unindent(code, 1);
1179: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1180: cn_utils.appendcr(code);
1181:
1182: cn_debug.print_msg('proc_end<<', 1);
1183: END proc_end;
1184:
1185: --for clob
1186: PROCEDURE proc_end (
1187: procedure_name cn_obj_procedures_v.name%TYPE,
1188: exception_flag VARCHAR2,
1189: code IN OUT NOCOPY cn_utils.clob_code_type) IS
1190:
1191: BEGIN
1192: cn_debug.print_msg('proc_end>>', 1);
1193:
1190:
1191: BEGIN
1192: cn_debug.print_msg('proc_end>>', 1);
1193:
1194: cn_utils.appendcr(code);
1195: cn_utils.appendcr(code);
1196: IF (exception_flag = 'Y') THEN
1197: cn_utils.record_process_exception(procedure_name, NULL, code);
1198: END IF;
1191: BEGIN
1192: cn_debug.print_msg('proc_end>>', 1);
1193:
1194: cn_utils.appendcr(code);
1195: cn_utils.appendcr(code);
1196: IF (exception_flag = 'Y') THEN
1197: cn_utils.record_process_exception(procedure_name, NULL, code);
1198: END IF;
1199:
1193:
1194: cn_utils.appendcr(code);
1195: cn_utils.appendcr(code);
1196: IF (exception_flag = 'Y') THEN
1197: cn_utils.record_process_exception(procedure_name, NULL, code);
1198: END IF;
1199:
1200: -- Generate end of procedure statement
1201: cn_utils.appendcr(code);
1197: cn_utils.record_process_exception(procedure_name, NULL, code);
1198: END IF;
1199:
1200: -- Generate end of procedure statement
1201: cn_utils.appendcr(code);
1202: cn_utils.unindent(code, 1);
1203: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1204: cn_utils.appendcr(code);
1205:
1198: END IF;
1199:
1200: -- Generate end of procedure statement
1201: cn_utils.appendcr(code);
1202: cn_utils.unindent(code, 1);
1203: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1204: cn_utils.appendcr(code);
1205:
1206: cn_debug.print_msg('proc_end<<', 1);
1199:
1200: -- Generate end of procedure statement
1201: cn_utils.appendcr(code);
1202: cn_utils.unindent(code, 1);
1203: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1204: cn_utils.appendcr(code);
1205:
1206: cn_debug.print_msg('proc_end<<', 1);
1207: END proc_end;
1200: -- Generate end of procedure statement
1201: cn_utils.appendcr(code);
1202: cn_utils.unindent(code, 1);
1203: cn_utils.appindcr(code, 'END ' || procedure_name || ';');
1204: cn_utils.appendcr(code);
1205:
1206: cn_debug.print_msg('proc_end<<', 1);
1207: END proc_end;
1208:
1219: -- 18-NOV-93 Devesh Khatu Created
1220: --+
1221: PROCEDURE gen_create_table (
1222: X_table_id cn_obj_tables_v.table_id%TYPE,
1223: code IN OUT NOCOPY cn_utils.code_type) IS
1224:
1225: -- Declare cursor for getting columns that need to be created
1226: CURSOR columns_cursor IS
1227: SELECT cocv.name column_name, data_type, data_length, data_scale,
1234:
1235: BEGIN
1236: cn_debug.print_msg('gen_create_table>>', 1);
1237:
1238: table_name := cn_utils.get_object_name(X_table_id);
1239:
1240: cn_utils.init_code( X_table_id, code);
1241:
1242: appendcr(code, 'CREATE TABLE ' || LOWER(table_name) || ' (');
1236: cn_debug.print_msg('gen_create_table>>', 1);
1237:
1238: table_name := cn_utils.get_object_name(X_table_id);
1239:
1240: cn_utils.init_code( X_table_id, code);
1241:
1242: appendcr(code, 'CREATE TABLE ' || LOWER(table_name) || ' (');
1243: FOR c IN columns_cursor LOOP
1244: cn_utils.append(code, ' ' || LOWER(c.column_name) || ' ' || UPPER(c.data_type));
1240: cn_utils.init_code( X_table_id, code);
1241:
1242: appendcr(code, 'CREATE TABLE ' || LOWER(table_name) || ' (');
1243: FOR c IN columns_cursor LOOP
1244: cn_utils.append(code, ' ' || LOWER(c.column_name) || ' ' || UPPER(c.data_type));
1245: IF (c.data_length IS NOT NULL) THEN
1246: IF (c.data_scale IS NOT NULL) THEN
1247: cn_utils.append(code, '(' || c.data_length || ',' || c.data_scale || ') ');
1248: ELSE
1243: FOR c IN columns_cursor LOOP
1244: cn_utils.append(code, ' ' || LOWER(c.column_name) || ' ' || UPPER(c.data_type));
1245: IF (c.data_length IS NOT NULL) THEN
1246: IF (c.data_scale IS NOT NULL) THEN
1247: cn_utils.append(code, '(' || c.data_length || ',' || c.data_scale || ') ');
1248: ELSE
1249: cn_utils.append(code, '(' || c.data_length || ') ');
1250: END IF;
1251: END IF;
1245: IF (c.data_length IS NOT NULL) THEN
1246: IF (c.data_scale IS NOT NULL) THEN
1247: cn_utils.append(code, '(' || c.data_length || ',' || c.data_scale || ') ');
1248: ELSE
1249: cn_utils.append(code, '(' || c.data_length || ') ');
1250: END IF;
1251: END IF;
1252: IF (c.primary_key = 'Y') THEN
1253: cn_utils.append(code, ' PRIMARY KEY');
1249: cn_utils.append(code, '(' || c.data_length || ') ');
1250: END IF;
1251: END IF;
1252: IF (c.primary_key = 'Y') THEN
1253: cn_utils.append(code, ' PRIMARY KEY');
1254: END IF;
1255: IF (c.nullable = 'N') THEN
1256: cn_utils.appendcr(code, ' NOT NULL,');
1257: ELSE
1252: IF (c.primary_key = 'Y') THEN
1253: cn_utils.append(code, ' PRIMARY KEY');
1254: END IF;
1255: IF (c.nullable = 'N') THEN
1256: cn_utils.appendcr(code, ' NOT NULL,');
1257: ELSE
1258: cn_utils.appendcr(code, ' NULL,');
1259: END IF;
1260: END LOOP;
1254: END IF;
1255: IF (c.nullable = 'N') THEN
1256: cn_utils.appendcr(code, ' NOT NULL,');
1257: ELSE
1258: cn_utils.appendcr(code, ' NULL,');
1259: END IF;
1260: END LOOP;
1261: IF (SQL%FOUND) THEN
1262: strip(code, 2); -- remove trailing comma
1260: END LOOP;
1261: IF (SQL%FOUND) THEN
1262: strip(code, 2); -- remove trailing comma
1263: END IF;
1264: cn_utils.appendcr(code, ')');
1265:
1266: -- Note: How does one get storage parameters for the table?
1267: cn_debug.print_msg('gen_create_table<<', 1);
1268: END gen_create_table;
1277: -- 02-FEB-94 Devesh Khatu Created
1278: --+
1279: PROCEDURE gen_create_index (
1280: X_index_id cn_obj_indexes_v.index_id%TYPE,
1281: code IN OUT NOCOPY cn_utils.code_type) IS
1282:
1283: CURSOR index_columns IS
1284: SELECT cocv.name column_name
1285: FROM cn_obj_columns_v cocv, cn_column_ind_maps ccim
1297: FROM cn_obj_indexes_v coiv, cn_obj_tables_v cotv
1298: WHERE cotv.table_id = coiv.table_id
1299: AND coiv.index_id = X_index_id;
1300:
1301: cn_utils.init_code( X_index_id, code);
1302: cn_utils.appind(code, 'CREATE ');
1303: IF (X_unique_flag = 'Y') THEN
1304: cn_utils.appind(code, 'UNIQUE ');
1305: END IF;
1298: WHERE cotv.table_id = coiv.table_id
1299: AND coiv.index_id = X_index_id;
1300:
1301: cn_utils.init_code( X_index_id, code);
1302: cn_utils.appind(code, 'CREATE ');
1303: IF (X_unique_flag = 'Y') THEN
1304: cn_utils.appind(code, 'UNIQUE ');
1305: END IF;
1306: cn_utils.appindcr(code, 'INDEX ' || LOWER(X_name) || ' ON ' || LOWER(X_table_name) || '(');
1300:
1301: cn_utils.init_code( X_index_id, code);
1302: cn_utils.appind(code, 'CREATE ');
1303: IF (X_unique_flag = 'Y') THEN
1304: cn_utils.appind(code, 'UNIQUE ');
1305: END IF;
1306: cn_utils.appindcr(code, 'INDEX ' || LOWER(X_name) || ' ON ' || LOWER(X_table_name) || '(');
1307: FOR ic IN index_columns LOOP
1308: cn_utils.appindcr(code, LOWER(ic.column_name) || ',');
1302: cn_utils.appind(code, 'CREATE ');
1303: IF (X_unique_flag = 'Y') THEN
1304: cn_utils.appind(code, 'UNIQUE ');
1305: END IF;
1306: cn_utils.appindcr(code, 'INDEX ' || LOWER(X_name) || ' ON ' || LOWER(X_table_name) || '(');
1307: FOR ic IN index_columns LOOP
1308: cn_utils.appindcr(code, LOWER(ic.column_name) || ',');
1309: END LOOP;
1310: cn_utils.strip(code, 2); -- remove trailing comma
1304: cn_utils.appind(code, 'UNIQUE ');
1305: END IF;
1306: cn_utils.appindcr(code, 'INDEX ' || LOWER(X_name) || ' ON ' || LOWER(X_table_name) || '(');
1307: FOR ic IN index_columns LOOP
1308: cn_utils.appindcr(code, LOWER(ic.column_name) || ',');
1309: END LOOP;
1310: cn_utils.strip(code, 2); -- remove trailing comma
1311: cn_utils.appindcr(code, ')');
1312: -- Shouldn't the next statement be customizable? -- Devesh
1306: cn_utils.appindcr(code, 'INDEX ' || LOWER(X_name) || ' ON ' || LOWER(X_table_name) || '(');
1307: FOR ic IN index_columns LOOP
1308: cn_utils.appindcr(code, LOWER(ic.column_name) || ',');
1309: END LOOP;
1310: cn_utils.strip(code, 2); -- remove trailing comma
1311: cn_utils.appindcr(code, ')');
1312: -- Shouldn't the next statement be customizable? -- Devesh
1313: cn_utils.appindcr(code, 'PCTFREE 10');
1314:
1307: FOR ic IN index_columns LOOP
1308: cn_utils.appindcr(code, LOWER(ic.column_name) || ',');
1309: END LOOP;
1310: cn_utils.strip(code, 2); -- remove trailing comma
1311: cn_utils.appindcr(code, ')');
1312: -- Shouldn't the next statement be customizable? -- Devesh
1313: cn_utils.appindcr(code, 'PCTFREE 10');
1314:
1315: cn_debug.print_msg('gen_create_index<<', 1);
1309: END LOOP;
1310: cn_utils.strip(code, 2); -- remove trailing comma
1311: cn_utils.appindcr(code, ')');
1312: -- Shouldn't the next statement be customizable? -- Devesh
1313: cn_utils.appindcr(code, 'PCTFREE 10');
1314:
1315: cn_debug.print_msg('gen_create_index<<', 1);
1316: END gen_create_index;
1317:
1325: -- 02-FEB-94 Devesh Khatu Created
1326: --+
1327: PROCEDURE gen_create_sequence (
1328: X_sequence_id cn_obj_sequences_v.sequence_id%TYPE,
1329: code IN OUT NOCOPY cn_utils.code_type) IS
1330: X_name cn_obj_sequences_v.name%TYPE;
1331: X_start_value cn_obj_sequences_v.start_value%TYPE;
1332: X_increment_value cn_obj_sequences_v.increment_value%TYPE;
1333: BEGIN
1337: INTO X_name, X_start_value, X_increment_value
1338: FROM cn_obj_sequences_v cosv
1339: WHERE cosv.sequence_id = X_sequence_id;
1340:
1341: cn_utils.init_code( X_sequence_id, code);
1342: cn_utils.appindcr(code, 'CREATE SEQUENCE ' || LOWER(X_name));
1343: cn_utils.indent(code, 1);
1344:
1345: IF (X_increment_value IS NOT NULL) THEN
1338: FROM cn_obj_sequences_v cosv
1339: WHERE cosv.sequence_id = X_sequence_id;
1340:
1341: cn_utils.init_code( X_sequence_id, code);
1342: cn_utils.appindcr(code, 'CREATE SEQUENCE ' || LOWER(X_name));
1343: cn_utils.indent(code, 1);
1344:
1345: IF (X_increment_value IS NOT NULL) THEN
1346: cn_utils.appindcr(code, 'INCREMENT BY ' || X_increment_value);
1339: WHERE cosv.sequence_id = X_sequence_id;
1340:
1341: cn_utils.init_code( X_sequence_id, code);
1342: cn_utils.appindcr(code, 'CREATE SEQUENCE ' || LOWER(X_name));
1343: cn_utils.indent(code, 1);
1344:
1345: IF (X_increment_value IS NOT NULL) THEN
1346: cn_utils.appindcr(code, 'INCREMENT BY ' || X_increment_value);
1347: END IF;
1342: cn_utils.appindcr(code, 'CREATE SEQUENCE ' || LOWER(X_name));
1343: cn_utils.indent(code, 1);
1344:
1345: IF (X_increment_value IS NOT NULL) THEN
1346: cn_utils.appindcr(code, 'INCREMENT BY ' || X_increment_value);
1347: END IF;
1348: IF (X_start_value IS NOT NULL) THEN
1349: cn_utils.appindcr(code, 'START WITH ' || X_start_value);
1350: END IF;
1345: IF (X_increment_value IS NOT NULL) THEN
1346: cn_utils.appindcr(code, 'INCREMENT BY ' || X_increment_value);
1347: END IF;
1348: IF (X_start_value IS NOT NULL) THEN
1349: cn_utils.appindcr(code, 'START WITH ' || X_start_value);
1350: END IF;
1351:
1352: cn_utils.appindcr(code, 'NOMINVALUE');
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1348: IF (X_start_value IS NOT NULL) THEN
1349: cn_utils.appindcr(code, 'START WITH ' || X_start_value);
1350: END IF;
1351:
1352: cn_utils.appindcr(code, 'NOMINVALUE');
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1354: cn_utils.appindcr(code, 'NOCYCLE');
1355: cn_utils.appindcr(code, 'CACHE 20');
1356: cn_utils.appindcr(code, 'NOORDER');
1349: cn_utils.appindcr(code, 'START WITH ' || X_start_value);
1350: END IF;
1351:
1352: cn_utils.appindcr(code, 'NOMINVALUE');
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1354: cn_utils.appindcr(code, 'NOCYCLE');
1355: cn_utils.appindcr(code, 'CACHE 20');
1356: cn_utils.appindcr(code, 'NOORDER');
1357: cn_utils.unindent(code, 1);
1350: END IF;
1351:
1352: cn_utils.appindcr(code, 'NOMINVALUE');
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1354: cn_utils.appindcr(code, 'NOCYCLE');
1355: cn_utils.appindcr(code, 'CACHE 20');
1356: cn_utils.appindcr(code, 'NOORDER');
1357: cn_utils.unindent(code, 1);
1358:
1351:
1352: cn_utils.appindcr(code, 'NOMINVALUE');
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1354: cn_utils.appindcr(code, 'NOCYCLE');
1355: cn_utils.appindcr(code, 'CACHE 20');
1356: cn_utils.appindcr(code, 'NOORDER');
1357: cn_utils.unindent(code, 1);
1358:
1359: cn_debug.print_msg('gen_create_sequence<<', 1);
1352: cn_utils.appindcr(code, 'NOMINVALUE');
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1354: cn_utils.appindcr(code, 'NOCYCLE');
1355: cn_utils.appindcr(code, 'CACHE 20');
1356: cn_utils.appindcr(code, 'NOORDER');
1357: cn_utils.unindent(code, 1);
1358:
1359: cn_debug.print_msg('gen_create_sequence<<', 1);
1360: END gen_create_sequence;
1353: cn_utils.appindcr(code, 'NOMAXVALUE');
1354: cn_utils.appindcr(code, 'NOCYCLE');
1355: cn_utils.appindcr(code, 'CACHE 20');
1356: cn_utils.appindcr(code, 'NOORDER');
1357: cn_utils.unindent(code, 1);
1358:
1359: cn_debug.print_msg('gen_create_sequence<<', 1);
1360: END gen_create_sequence;
1361:
1369: -- 11-JUN-94 Devesh Khatu Created
1370: --+
1371: PROCEDURE gen_create_dblink (
1372: X_dblink_id cn_obj_dblinks_v.dblink_id%TYPE,
1373: code IN OUT NOCOPY cn_utils.code_type) IS
1374: X_name cn_obj_dblinks_v.name%TYPE;
1375: X_connect_to_username cn_obj_dblinks_v.connect_to_username%TYPE;
1376: X_connect_to_password cn_obj_dblinks_v.connect_to_password%TYPE;
1377: X_connect_to_host cn_obj_dblinks_v.connect_to_host%TYPE;
1382: INTO X_name, X_connect_to_username, X_connect_to_password, X_connect_to_host
1383: FROM cn_obj_dblinks_v codv
1384: WHERE codv.dblink_id = X_dblink_id;
1385:
1386: cn_utils.init_code( X_dblink_id, code);
1387: cn_utils.appindcr(code, 'CREATE DATABASE LINK ' || LOWER(X_name));
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1383: FROM cn_obj_dblinks_v codv
1384: WHERE codv.dblink_id = X_dblink_id;
1385:
1386: cn_utils.init_code( X_dblink_id, code);
1387: cn_utils.appindcr(code, 'CREATE DATABASE LINK ' || LOWER(X_name));
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1391: cn_utils.appindcr(code, 'USING ''' || LOWER(X_connect_to_host) || '''');
1384: WHERE codv.dblink_id = X_dblink_id;
1385:
1386: cn_utils.init_code( X_dblink_id, code);
1387: cn_utils.appindcr(code, 'CREATE DATABASE LINK ' || LOWER(X_name));
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1391: cn_utils.appindcr(code, 'USING ''' || LOWER(X_connect_to_host) || '''');
1392: cn_utils.unindent(code, 1);
1385:
1386: cn_utils.init_code( X_dblink_id, code);
1387: cn_utils.appindcr(code, 'CREATE DATABASE LINK ' || LOWER(X_name));
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1391: cn_utils.appindcr(code, 'USING ''' || LOWER(X_connect_to_host) || '''');
1392: cn_utils.unindent(code, 1);
1393:
1386: cn_utils.init_code( X_dblink_id, code);
1387: cn_utils.appindcr(code, 'CREATE DATABASE LINK ' || LOWER(X_name));
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1391: cn_utils.appindcr(code, 'USING ''' || LOWER(X_connect_to_host) || '''');
1392: cn_utils.unindent(code, 1);
1393:
1394: cn_debug.print_msg('gen_create_dblink<<', 1);
1387: cn_utils.appindcr(code, 'CREATE DATABASE LINK ' || LOWER(X_name));
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1391: cn_utils.appindcr(code, 'USING ''' || LOWER(X_connect_to_host) || '''');
1392: cn_utils.unindent(code, 1);
1393:
1394: cn_debug.print_msg('gen_create_dblink<<', 1);
1395: END gen_create_dblink;
1388: cn_utils.indent(code, 1);
1389: cn_utils.appind(code, 'CONNECT TO ' || LOWER(X_connect_to_username));
1390: cn_utils.appendcr(code, ' IDENTIFIED BY ' || LOWER(X_connect_to_password));
1391: cn_utils.appindcr(code, 'USING ''' || LOWER(X_connect_to_host) || '''');
1392: cn_utils.unindent(code, 1);
1393:
1394: cn_debug.print_msg('gen_create_dblink<<', 1);
1395: END gen_create_dblink;
1396:
1404: -- 18-NOV-93 Devesh Khatu Created
1405: --+
1406: PROCEDURE gen_create_subprogram (
1407: X_object_id cn_objects.object_id%TYPE,
1408: code IN OUT NOCOPY cn_utils.code_type) IS
1409:
1410: X_statement_text cn_obj_packages_v.statement_text%TYPE;
1411: BEGIN
1412: cn_debug.print_msg('gen_create_subprogram>>', 1);
1415: INTO X_statement_text
1416: FROM cn_objects co
1417: WHERE co.object_id = X_object_id;
1418:
1419: cn_utils.init_code( X_object_id, code);
1420: cn_utils.appendcr(code, 'CREATE OR REPLACE ' || X_statement_text);
1421:
1422: cn_debug.print_msg('gen_create_subprogram<<', 1);
1423: END gen_create_subprogram;
1416: FROM cn_objects co
1417: WHERE co.object_id = X_object_id;
1418:
1419: cn_utils.init_code( X_object_id, code);
1420: cn_utils.appendcr(code, 'CREATE OR REPLACE ' || X_statement_text);
1421:
1422: cn_debug.print_msg('gen_create_subprogram<<', 1);
1423: END gen_create_subprogram;
1424:
1434: --+
1435: PROCEDURE gen_create_package (
1436: X_object_id cn_objects.object_id%TYPE,
1437: dump_to_file VARCHAR2,
1438: code IN OUT NOCOPY cn_utils.code_type) IS
1439:
1440: X_statement_text cn_obj_packages_v.statement_text%TYPE;
1441: X_object_type cn_obj_packages_v.object_type%TYPE;
1442: X_name cn_obj_packages_v.name%TYPE;
1449: INTO X_statement_text, X_object_type, X_name, X_description
1450: FROM cn_objects co
1451: WHERE co.object_id = X_object_id;
1452:
1453: cn_utils.init_code( X_object_id, code);
1454:
1455: IF (dump_to_file = 'N') THEN
1456: IF (X_object_type = 'PKS') THEN
1457: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || LOWER(X_name) || ' AS');
1453: cn_utils.init_code( X_object_id, code);
1454:
1455: IF (dump_to_file = 'N') THEN
1456: IF (X_object_type = 'PKS') THEN
1457: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || LOWER(X_name) || ' AS');
1458: ELSE
1459: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || LOWER(X_name) || ' AS');
1460: END IF;
1461:
1455: IF (dump_to_file = 'N') THEN
1456: IF (X_object_type = 'PKS') THEN
1457: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE ' || LOWER(X_name) || ' AS');
1458: ELSE
1459: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || LOWER(X_name) || ' AS');
1460: END IF;
1461:
1462: cn_utils.appendcr(code, X_statement_text);
1463: cn_utils.appendcr(code, 'END ' || LOWER(X_name) || ';');
1458: ELSE
1459: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || LOWER(X_name) || ' AS');
1460: END IF;
1461:
1462: cn_utils.appendcr(code, X_statement_text);
1463: cn_utils.appendcr(code, 'END ' || LOWER(X_name) || ';');
1464:
1465: ELSIF (dump_to_file = 'Y') THEN
1466: cn_utils.pkg_init_boilerplate(code, X_name, X_description, X_object_type);
1459: cn_utils.appendcr(code, 'CREATE OR REPLACE PACKAGE BODY ' || LOWER(X_name) || ' AS');
1460: END IF;
1461:
1462: cn_utils.appendcr(code, X_statement_text);
1463: cn_utils.appendcr(code, 'END ' || LOWER(X_name) || ';');
1464:
1465: ELSIF (dump_to_file = 'Y') THEN
1466: cn_utils.pkg_init_boilerplate(code, X_name, X_description, X_object_type);
1467: cn_utils.appendcr(code, X_statement_text);
1462: cn_utils.appendcr(code, X_statement_text);
1463: cn_utils.appendcr(code, 'END ' || LOWER(X_name) || ';');
1464:
1465: ELSIF (dump_to_file = 'Y') THEN
1466: cn_utils.pkg_init_boilerplate(code, X_name, X_description, X_object_type);
1467: cn_utils.appendcr(code, X_statement_text);
1468: cn_utils.pkg_end_boilerplate(code, X_object_type);
1469: END IF;
1470:
1463: cn_utils.appendcr(code, 'END ' || LOWER(X_name) || ';');
1464:
1465: ELSIF (dump_to_file = 'Y') THEN
1466: cn_utils.pkg_init_boilerplate(code, X_name, X_description, X_object_type);
1467: cn_utils.appendcr(code, X_statement_text);
1468: cn_utils.pkg_end_boilerplate(code, X_object_type);
1469: END IF;
1470:
1471: cn_debug.print_msg('gen_create_package<<', 1);
1464:
1465: ELSIF (dump_to_file = 'Y') THEN
1466: cn_utils.pkg_init_boilerplate(code, X_name, X_description, X_object_type);
1467: cn_utils.appendcr(code, X_statement_text);
1468: cn_utils.pkg_end_boilerplate(code, X_object_type);
1469: END IF;
1470:
1471: cn_debug.print_msg('gen_create_package<<', 1);
1472: END gen_create_package;
1481: -- 14-DEC-93 Devesh Khatu Created
1482: --+
1483: PROCEDURE gen_create_trigger (
1484: X_trigger_id cn_obj_triggers_v.trigger_id%TYPE,
1485: code IN OUT NOCOPY cn_utils.code_type) IS
1486:
1487: row cn_obj_triggers_v%ROWTYPE;
1488: table_name cn_obj_tables_v.name%TYPE;
1489:
1494: AND cctm.trigger_id = X_trigger_id;
1495:
1496: BEGIN
1497: cn_debug.print_msg('gen_create_trigger>>', 1);
1498: cn_utils.init_code( X_trigger_id, code);
1499:
1500: row.trigger_id := X_trigger_id;
1501: cn_obj_triggers_v_pkg.select_row(row);
1502: cn_utils.appendcr(code, 'CREATE OR REPLACE TRIGGER ' || LOWER(row.name));
1498: cn_utils.init_code( X_trigger_id, code);
1499:
1500: row.trigger_id := X_trigger_id;
1501: cn_obj_triggers_v_pkg.select_row(row);
1502: cn_utils.appendcr(code, 'CREATE OR REPLACE TRIGGER ' || LOWER(row.name));
1503: cn_utils.append(code, 'AFTER ');
1504:
1505: IF (row.triggering_event = 'I') THEN
1506: cn_utils.append(code, 'INSERT OF ');
1499:
1500: row.trigger_id := X_trigger_id;
1501: cn_obj_triggers_v_pkg.select_row(row);
1502: cn_utils.appendcr(code, 'CREATE OR REPLACE TRIGGER ' || LOWER(row.name));
1503: cn_utils.append(code, 'AFTER ');
1504:
1505: IF (row.triggering_event = 'I') THEN
1506: cn_utils.append(code, 'INSERT OF ');
1507: ELSIF (row.triggering_event = 'U') THEN
1502: cn_utils.appendcr(code, 'CREATE OR REPLACE TRIGGER ' || LOWER(row.name));
1503: cn_utils.append(code, 'AFTER ');
1504:
1505: IF (row.triggering_event = 'I') THEN
1506: cn_utils.append(code, 'INSERT OF ');
1507: ELSIF (row.triggering_event = 'U') THEN
1508: cn_utils.append(code, 'UPDATE OF ');
1509: ELSIF (row.triggering_event = 'D') THEN
1510: cn_utils.append(code, 'DELETE OF ');
1504:
1505: IF (row.triggering_event = 'I') THEN
1506: cn_utils.append(code, 'INSERT OF ');
1507: ELSIF (row.triggering_event = 'U') THEN
1508: cn_utils.append(code, 'UPDATE OF ');
1509: ELSIF (row.triggering_event = 'D') THEN
1510: cn_utils.append(code, 'DELETE OF ');
1511: END IF;
1512:
1506: cn_utils.append(code, 'INSERT OF ');
1507: ELSIF (row.triggering_event = 'U') THEN
1508: cn_utils.append(code, 'UPDATE OF ');
1509: ELSIF (row.triggering_event = 'D') THEN
1510: cn_utils.append(code, 'DELETE OF ');
1511: END IF;
1512:
1513: FOR tc IN triggering_columns LOOP
1514: cn_utils.append(code, tc.name || ', ');
1510: cn_utils.append(code, 'DELETE OF ');
1511: END IF;
1512:
1513: FOR tc IN triggering_columns LOOP
1514: cn_utils.append(code, tc.name || ', ');
1515: END LOOP;
1516:
1517: strip(code, 2); -- remove trailing comma
1518: cn_utils.append(code, ' ON ');
1514: cn_utils.append(code, tc.name || ', ');
1515: END LOOP;
1516:
1517: strip(code, 2); -- remove trailing comma
1518: cn_utils.append(code, ' ON ');
1519:
1520: SELECT name INTO table_name
1521: FROM cn_obj_tables_v
1522: WHERE table_id = row.table_id;
1520: SELECT name INTO table_name
1521: FROM cn_obj_tables_v
1522: WHERE table_id = row.table_id;
1523:
1524: cn_utils.appendcr(code, LOWER(table_name));
1525: cn_utils.appendcr(code, 'FOR EACH ROW');
1526:
1527: IF (row.when_clause IS NOT NULL) THEN
1528: cn_utils.appendcr(code, 'WHEN ' || row.when_clause);
1521: FROM cn_obj_tables_v
1522: WHERE table_id = row.table_id;
1523:
1524: cn_utils.appendcr(code, LOWER(table_name));
1525: cn_utils.appendcr(code, 'FOR EACH ROW');
1526:
1527: IF (row.when_clause IS NOT NULL) THEN
1528: cn_utils.appendcr(code, 'WHEN ' || row.when_clause);
1529: END IF;
1524: cn_utils.appendcr(code, LOWER(table_name));
1525: cn_utils.appendcr(code, 'FOR EACH ROW');
1526:
1527: IF (row.when_clause IS NOT NULL) THEN
1528: cn_utils.appendcr(code, 'WHEN ' || row.when_clause);
1529: END IF;
1530:
1531: cn_utils.appendcr(code, row.statement_text);
1532: cn_debug.print_msg('gen_create_trigger<<', 1);
1527: IF (row.when_clause IS NOT NULL) THEN
1528: cn_utils.appendcr(code, 'WHEN ' || row.when_clause);
1529: END IF;
1530:
1531: cn_utils.appendcr(code, row.statement_text);
1532: cn_debug.print_msg('gen_create_trigger<<', 1);
1533: END gen_create_trigger;
1534:
1535:
1537: X_object_id cn_objects.object_id%TYPE,
1538: dump_to_file VARCHAR2,
1539: code_text IN OUT NOCOPY VARCHAR2) IS
1540:
1541: code cn_utils.code_type;
1542: X_object_type cn_objects.object_type%TYPE;
1543:
1544: BEGIN
1545: cn_debug.print_msg('gen_instantiation_code>>', 1);
1712: WHEN no_data_found THEN
1713: RETURN NULL;
1714: END next_period;
1715:
1716: END cn_utils;