PACKAGE BODY: APPS.GL_IMPORT_REFERENCES_PKG

Source

1 PACKAGE BODY GL_IMPORT_REFERENCES_PKG as
2 /* $Header: gliimrfb.pls 120.2 2005/05/05 01:08:41 kvora noship $ */
3   PROCEDURE delete_line(X_header_id NUMBER, X_line_num NUMBER )  IS
4        /*    It deletes a line in gl_import_references
5              when a corresponding line is deleted in je_lines  */
6   BEGIN
7           DELETE FROM GL_IMPORT_REFERENCES
8           WHERE  je_header_id = X_header_id
9           AND je_line_num = X_line_num;
10 
11   EXCEPTION
12       WHEN NO_DATA_FOUND then
13            null;
14   END delete_line;
15 
16   PROCEDURE delete_lines(X_header_id NUMBER )  IS
17        /*    It deletes all lines in gl_import_references
18              when a corresponding line is deleted in je_lines  */
19 
20   BEGIN
21           DELETE FROM GL_IMPORT_REFERENCES
22           WHERE  je_header_id = X_header_id;
23 
24   EXCEPTION
25       WHEN NO_DATA_FOUND then
26            null;
27   END delete_lines;
28 
29   PROCEDURE delete_header(X_header_id NUMBER ) IS
30     /*   It Deletes a header in gl_import_references while a header
31          is deleted gl_je_headers     */
32   BEGIN
33             DELETE FROM GL_IMPORT_REFERENCES
34             WHERE  je_header_id = X_header_id;
35 
36   EXCEPTION
37             WHEN NO_DATA_FOUND then
38             null;
39   END delete_header;
40 
41   PROCEDURE delete_batch(X_batch_id NUMBER ) IS
42       /*  It deletes a batch in gl_import_references while a batch
43           is deleted in gl_je_batches*/
44   BEGIN
45             DELETE FROM GL_IMPORT_REFERENCES
46             WHERE  je_header_id IN
47 	    (select je_header_id FROM gl_je_headers WHERE je_batch_id = X_batch_id );
48 
49   EXCEPTION
50             WHEN NO_DATA_FOUND then
51             null;
52   END delete_batch;
53 
54 END GL_IMPORT_REFERENCES_PKG;