PACKAGE BODY: APPS.IEC_SVR_UTIL_PVT

Source

1 PACKAGE BODY IEC_SVR_UTIL_PVT AS
2 /* $Header: IECVSVRB.pls 115.12 2004/04/09 15:46:58 minwang ship $ */
3 
4 -- Sub-Program Unit Declarations
5 
6 PROCEDURE UPDATE_SVR_RT_INFO
7   (P_SERVER_ID       IN            NUMBER
8   ,P_COMP_DEF_ID     IN            NUMBER
9   ,P_DNS_NAME        IN            VARCHAR2
10   ,P_IP_ADDRESS      IN            VARCHAR2
11   ,P_WIRE_PROTOCOL   IN            VARCHAR2
12   ,P_PORT            IN            NUMBER
13   ,P_EXTRA           IN            VARCHAR2
14   ,X_RESULT          IN OUT NOCOPY NUMBER
15   )
16 AS
17 
18   l_result NUMBER;
19   l_seq_id NUMBER;
20 
21 BEGIN
22 
23   l_seq_id := 0;
24 
25   IF( ( P_SERVER_ID is null ) OR
26       ( P_COMP_DEF_ID is null )
27     )
28   THEN
29     raise_application_error
30       ( -20000
31        , 'P_SERVER_ID or P_COMP_DEF_ID  cannot be null.'
32          || 'Values sent are server id (' || P_SERVER_ID || ')'
33          || 'comp def id (' || P_COMP_DEF_ID || ')'
34        ,TRUE
35       );
36    END IF;
37 
38 --   dbms_output.put_line('IEC_SVR_UTIL_PVT: Update_svr_rt_info:  Done null check..');
39 
40    l_result := 0;
41 
42    BEGIN
43       select comp_id into l_seq_id
44         from  ieo_svr_comps
45        where  server_id = P_SERVER_ID
46          and  comp_def_id = P_COMP_DEF_ID;
47 
48       IF ( l_seq_id >  0 )
49       THEN
50  --       dbms_output.put_line('IEC_SVR_UTIL_PVT: Update_svr_rt_info: Comp_id is <' || l_seq_id || '>');
51         l_result := l_seq_id;
52 
53         update ieo_svr_servers
54            set dns_name = P_DNS_NAME,
55                ip_address = P_IP_ADDRESS,
56                last_update_date = sysdate
57          where server_id = P_SERVER_ID;
58 
59 
60         update ieo_svr_protocol_map
61            set wire_protocol = P_WIRE_PROTOCOL,
62                port = P_PORT,
63                extra = P_EXTRA,
64                last_updated_by = NVL(FND_GLOBAL.user_id,-1),
65                last_update_date = sysdate
66          where comp_id = l_seq_id;
67 
68 	if (SQL%NOTFOUND OR (SQL%ROWCOUNT <= 0)) then
69                insert into ieo_svr_protocol_map (
70                                    comp_id,
71                                    wire_protocol,
72                                    created_by,
73                                    creation_date,
74                                    last_updated_by,
75                                    last_update_date,
76                                    last_update_login,
77                                    port,
78                                    extra )
79                             values (
80                                    l_seq_id,
81                                    P_WIRE_PROTOCOL,
82                                    NVL(FND_GLOBAL.user_id,-1),
83                                    sysdate,
84                                    NVL(FND_GLOBAL.conc_login_id,-1),
85                                    sysdate,
86                                    NVL(FND_GLOBAL.conc_login_id,-1),
87                                    P_PORT,
88                                    P_EXTRA);
89        end if;
90     END IF;
91 
92    EXCEPTION
93      WHEN NO_DATA_FOUND THEN
94 	null;
95         RAISE;
96    END;
97 
98 EXCEPTION
99   WHEN OTHERS THEN
100     RAISE;
101 
102 END UPDATE_SVR_RT_INFO;
103 
104 END IEC_SVR_UTIL_PVT;