1 PACKAGE BODY JTF_TTY_UPLOAD_PUB AS
2 /* $Header: jtfptunb.pls 120.0 2005/06/02 18:21:05 appldev noship $ */
3 -- Start of Comments
4 -- ---------------------------------------------------
5 -- PACKAGE NAME: JTF_TTY_UPLOAD_PUB
6 -- ---------------------------------------------------
7 -- PURPOSE
8 -- This is to store the commonly used (hand-tuned) SQL
9 -- used by the TAE Generation Program
10 --
11 -- Procedures:
12 -- (see below for specification)
13 --
14 -- NOTES
15 -- This package is available for PUBLIC use
16 --
17 -- HISTORY
18 -- 08/29/03 JDOCHERT Created
19 --
20 -- End of Comments
21 --
22
23 /* Add Organizations to a TG, i.e., transformation of
24 ** Organization to a Named Account
25 */
26 PROCEDURE create_tg_na ( ERRBUF OUT NOCOPY VARCHAR2,
27 RETCODE OUT NOCOPY VARCHAR2,
28 p_terr_group_name IN VARCHAR2,
29 p_add_salesteam IN VARCHAR2 := 'N',
30 p_Debug_Flag IN VARCHAR2 := 'N',
31 p_SQL_Trace IN VARCHAR2 := 'N'
32 )
33 AS
34
35 G_Debug BOOLEAN := FALSE;
36 g_ProgramStatus NUMBER := 0;
37
38 l_counter number := 0;
39 startime date;
40 l_return_status VARCHAR2(30);
41 lX_Msg_Count NUMBER;
42 lX_Msg_Data VARCHAR2(2000);
43 lx_runtime VARCHAR2(300);
44 lx_retcode VARCHAR2(100);
45 lx_errbuf varchar2(3000);
46
47 l_message VARCHAR2(2000);
48 l_count number := 0;
49
50 l_t1 VARCHAR2(30);
51 l_t2 VARCHAR2(30);
52
53 l_source_id NUMBER := -1001;
54 l_trans_object_type_id NUMBER := -1002;
55
56 i NUMBER := 1;
57 lp_sysdate DATE := SYSDATE;
58 v_statement VARCHAR2(2000);
59
60 l_terr_group_id NUMBER;
61
62 BEGIN
63
64 -- If the SQL trace flag is turned on, then turm on the trace
65 If upper(p_SQL_Trace) = 'Y' Then
66 dbms_session.set_sql_trace(TRUE);
67 --Else
68 -- dbms_session.set_sql_trace(FALSE);
69 End If;
70
71 END create_tg_na;
72
73
74 END JTF_TTY_UPLOAD_PUB;
75