63: --Bug#4220950
64: errbuf := '';
65: retcode := 0;
66:
67: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Order Management Message Purge Concurrent Program');
68: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
69: l_debug_file := OE_DEBUG_PUB.set_debug_mode ('FILE');
70: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Debug File: ' || l_debug_file);
71: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
64: errbuf := '';
65: retcode := 0;
66:
67: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Order Management Message Purge Concurrent Program');
68: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
69: l_debug_file := OE_DEBUG_PUB.set_debug_mode ('FILE');
70: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Debug File: ' || l_debug_file);
71: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
72:
66:
67: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Order Management Message Purge Concurrent Program');
68: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
69: l_debug_file := OE_DEBUG_PUB.set_debug_mode ('FILE');
70: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Debug File: ' || l_debug_file);
71: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
72:
73: IF l_debug_level > 0 THEN
74: oe_debug_pub.add( 'ENTER MESSAGE PURGE' ) ;
67: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Order Management Message Purge Concurrent Program');
68: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
69: l_debug_file := OE_DEBUG_PUB.set_debug_mode ('FILE');
70: FND_FILE.Put_Line(FND_FILE.OUTPUT,'Debug File: ' || l_debug_file);
71: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
72:
73: IF l_debug_level > 0 THEN
74: oe_debug_pub.add( 'ENTER MESSAGE PURGE' ) ;
75: END IF;
131:
132: IF l_debug_level > 0 THEN
133: oe_debug_pub.add( 'EXIT MESSAGE PURGE' ) ;
134: END IF;
135: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
136: FND_FILE.Put_Line(FND_FILE.OUTPUT,'End of Message Purge Concurrent Program');
137:
138:
139: END Purge;
132: IF l_debug_level > 0 THEN
133: oe_debug_pub.add( 'EXIT MESSAGE PURGE' ) ;
134: END IF;
135: FND_FILE.Put_Line(FND_FILE.OUTPUT, '');
136: FND_FILE.Put_Line(FND_FILE.OUTPUT,'End of Message Purge Concurrent Program');
137:
138:
139: END Purge;
140: