PACKAGE: APPS.AR_PURGE

Source

1 PACKAGE AR_PURGE AS
2 /* $Header: ARPURGES.pls 120.5 2005/10/30 03:56:34 appldev ship $ */
3 
4     PROCEDURE drive_by_invoice( errbuf           OUT NOCOPY VARCHAR2,
5                                 retcode          OUT NOCOPY NUMBER,
6                                 p_start_gl_date  IN  DATE , -- bug1199027
7                                 p_end_gl_date    IN  DATE , -- bug1199027
8                                 p_as_of_gl_date  IN  DATE , -- bug1199027
9                                 p_archive_level  IN  VARCHAR2,
10                                 p_archive_id     IN  NUMBER,
11                                 p_total_worker   IN  NUMBER,
12                                 p_worker_number  IN  NUMBER,
13                                 p_customer_id    IN  NUMBER,
14                                 p_short_flag     IN  VARCHAR2 );
15 
16     l_archive_id NUMBER  ;
17 
18     locked_by_another_session   EXCEPTION ;
19     PRAGMA EXCEPTION_INIT(locked_by_another_session,-54) ;
20 
21     deadlock_detected   EXCEPTION ;
22     PRAGMA EXCEPTION_INIT(deadlock_detected,-60) ;
23 
24     savepoint_not_established   EXCEPTION ;
25     PRAGMA EXCEPTION_INIT(savepoint_not_established,-1086) ;
26 
27 END;