PACKAGE BODY: APPS.PA_CCD_TIEBACK

Source

1 PACKAGE BODY PA_CCD_TIEBACK AS
2 /* $Header: PACCTIEB.pls 120.2 2006/02/10 03:46:40 avajain noship $ */
3 
4 G_Debug_Mode             BOOLEAN ;
5 G_user_id                NUMBER;
6 G_concurrent_request_id  NUMBER;
7 G_concurrent_program_id  NUMBER;
8 G_conc_program_app_id    NUMBER;
9 G_concurrent_login_id    NUMBER;
10 G_je_category_name       VARCHAR2(30);
11 G_source_name            VARCHAR2(30);
12 
13 -- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
14     PROCEDURE tieback_ccds_initialize  IS
15 -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
16 -- JE Source Name
17 CURSOR c2 is
18     SELECT user_je_source_name
19     FROM GL_JE_SOURCES
20     WHERE  je_source_name  =  'Project Accounting' ;
21 
22 BEGIN
23 null;
24 END tieback_ccds_initialize;
25 
26 -- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
27 PROCEDURE tieback_ccds_to_pa (
28              P_Set_of_Books_id IN NUMBER,
29              P_Sob_Type IN VARCHAR2,
30              P_Debug_Mode IN VARCHAR2)  IS
31 -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
32 l_bad_lines NUMBER;
33 l_out       NUMBER;           /*Bug# 2158443*/
34 l_error     VARCHAR2(20);     /*Bug# 2158443*/
35 
36 BEGIN
37 null;
38 END tieback_ccds_to_pa ;
39 
40 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
41 FUNCTION get_reject_count RETURN NUMBER IS
42 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
43 
44 BEGIN
45    return null;
46 END get_reject_count;
47 
48 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
49 PROCEDURE log_message( p_message IN VARCHAR2) IS
50 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
51 
52 BEGIN
53  null;
54 
55 END log_message;
56 
57 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
58 PROCEDURE set_curr_function(p_function IN VARCHAR2) IS
59 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
60 
61 BEGIN
62 
63     null;
64 END;
65 
66 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
67 PROCEDURE reset_curr_function IS
68 --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
69 
70 BEGIN
71 
72     null;
73 
74 END;
75 
76 END PA_CCD_TIEBACK;