PACKAGE BODY: APPS.JTF_TTY_WORKFLOW_POP_BIN_PVT

Source

1 PACKAGE BODY JTF_TTY_WORKFLOW_POP_BIN_PVT AS
2 /* $Header: jtfvpobb.pls 120.0 2005/06/02 18:22:12 appldev ship $ */
3 --    Start of Comments
4 --    ---------------------------------------------------
5 --    PACKAGE NAME:   JTF_TTY_WORKFLOW_POP_BIN_PVT
6 --    PURPOSE
7 --
8 --      Procedures:
9 --         (see below for specification)
10 --
11 --
12 --
13 --
14 --    NOTES
15 --
16 --
17 --
18 --
19 --    HISTORY
20 --      11/15/02    JRADHAKR         CREATED
21 --
22 --
23 --    End of Comments
24 --
25 
26 Procedure populate_bin_startworkflow
27 ( ERRBUF                                OUT NOCOPY  VARCHAR2
28 , RETCODE                               OUT NOCOPY  VARCHAR2
29 , p_process_workflow                    IN VARCHAR2
30 , p_bin_name                            IN VARCHAR2
31 , p_debug_flag                          IN VARCHAR2
32 )
33 IS
34 
35  l_return_status       VARCHAR2(320) := NULL;
36  l_error_message       VARCHAR2(320) := NULL;
37 
38 
39 BEGIN
40 
41   G_DEBUG := TRUE;
42 
43   JTF_TTY_WORKFLOW_POP_BIN_PVT.print_log('Debug flag  ' || p_debug_flag);
44 
45   G_DEBUG := FALSE;
46 
47   if upper(p_debug_flag) = 'Y' then
48     --
49     G_DEBUG := TRUE;
50     --
51   end if;
52 
53   if p_process_workflow = 'Y' then
54   --
55     JTF_TTY_WORKFLOW_POP_BIN_PVT.print_log('Calling workflow procedure since workflow param is Y ');
56 
57     JTF_TTY_CATCHALL_WORKFLOW.Process_catch_all_rec
58       ( x_return_status             => l_return_status
59       , x_error_message             => l_error_message
60       );
61 
62   end if;
63 
64 
65   if p_bin_name <> 'NONE' then
66 
67     JTF_TTY_POP_TERR_ADMIN_BIN_PVT.Sync_terr_group
68         ( x_return_status             => l_return_status
69         , x_error_message             => l_error_message
70         );
71 
72     IF p_bin_name = 'CATCHALL_BIN' then
73 
74       JTF_TTY_POP_TERR_ADMIN_BIN_PVT.populate_catch_all_bin_info
75       ( x_return_status             => l_return_status
76       , x_error_message             => l_error_message
77       );
78 
79     ELSIF p_bin_name = 'KPI BIN' then
80 
81       JTF_TTY_POP_TERR_ADMIN_BIN_PVT.populate_kpi_bin_info
82       ( x_return_status             => l_return_status
83       , x_error_message             => l_error_message
84       );
85 
86     ELSIF p_bin_name = 'ALL' then
87 
88       JTF_TTY_POP_TERR_ADMIN_BIN_PVT.populate_catch_all_bin_info
89       ( x_return_status             => l_return_status
90       , x_error_message             => l_error_message
91       );
92 
93       JTF_TTY_POP_TERR_ADMIN_BIN_PVT.populate_kpi_bin_info
94       ( x_return_status             => l_return_status
95       , x_error_message             => l_error_message
96       );
97      JTF_TTY_NA_TERRGP.sum_rm_bin
98       ( x_return_status             => l_return_status
99       , x_error_message             => l_error_message
100       );
101     ELSIF p_bin_name = 'RM BIN' then
102 
103      JTF_TTY_NA_TERRGP.sum_rm_bin
104       ( x_return_status             => l_return_status
105       , x_error_message             => l_error_message
106       );
107 
108     END IF;
109 
110   end if;
111   --
112 EXCEPTION
113    when FND_API.G_EXC_ERROR then
114       RETCODE := 1;
115       ERRBUF := SQLERRM;
116       JTF_TTY_WORKFLOW_POP_BIN_PVT.print_log('Exception others in populate_bin_startworkflow '||SQLERRM);
117       RETURN;
118    when FND_API.G_EXC_UNEXPECTED_ERROR then
119       RETCODE := 1;
120       ERRBUF := SQLERRM;
121       JTF_TTY_WORKFLOW_POP_BIN_PVT.print_log ('Exception others in populate_bin_startworkflow '||SQLERRM);
122       RETURN;
123    when others then
124       RETCODE := 1;
125       JTF_TTY_WORKFLOW_POP_BIN_PVT.print_log ('Exception others in populate_bin_startworkflow '||SQLERRM);
126 
127       RETURN;
128 
129 END populate_bin_startworkflow;
130 
131 
132 procedure print_log(p_string in varchar2)
133 is
134 begin
135 
136   if g_debug then
137 --    dbms_output.put_line(p_string);
138     fnd_file.put_line(fnd_file.log,p_string);
139   end if;
140 
141 end print_log;
142 
143 
144 END  JTF_TTY_WORKFLOW_POP_BIN_PVT;