PACKAGE BODY: APPS.FND_SIF_WSDLS_PKG

Source

1 package body FND_SIF_WSDLS_PKG as
2 /* $Header: FNDSFWDB.pls 120.0.12020000.2 2013/04/09 18:16:50 alsosa noship $ */
3 
4 procedure INSERT_ROW (
5   X_TNS in VARCHAR2,
6   X_WSDL_URL in VARCHAR2,
7   X_LAST_UPDATE_DATE in VARCHAR2,
8   X_OWNER in VARCHAR2
9 ) is
10   l_ROWID VARCHAR2(100);
11   l_luby    number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
12   l_ludate  date   := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
13   cursor C is select ROWID from FND_SIF_WSDLS
14     where TNS = X_TNS;
15 begin
16   insert into FND_SIF_WSDLS (
17     TNS,
18     WSDL_URL,
19     CREATION_DATE,
20     CREATED_BY,
21     LAST_UPDATE_DATE,
22     LAST_UPDATED_BY,
23     LAST_UPDATE_LOGIN,
24     SECURITY_GROUP_ID
25   ) values (
26     X_TNS,
27     X_WSDL_URL,
28     l_ludate,
29     l_luby,
30     l_ludate,
31     l_luby,
32     0,
33     FND_GLOBAL.SECURITY_GROUP_ID);
34 
35   open c;
36   fetch c into l_ROWID;
37   if (c%notfound) then
38     close c;
39     raise_application_error (-20000, 'FND_SIF_WSDLS_PKG.INSERT_ROW: unable to create target name space '||X_TNS);
40   end if;
41   close c;
42 
43 end INSERT_ROW;
44 
45 procedure UPDATE_ROW (
46   X_TNS in VARCHAR2,
47   X_WSDL_URL in VARCHAR2,
48   X_LAST_UPDATE_DATE in VARCHAR2,
49   X_OWNER in VARCHAR2
50 ) is
51   l_luby    number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
52   l_ludate  date   := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
53 begin
54   update FND_SIF_WSDLS set
55     WSDL_URL = X_WSDL_URL,
56     TNS = X_TNS,
57     LAST_UPDATE_DATE = l_ludate,
58     LAST_UPDATED_BY = l_luby
59   where TNS = X_TNS;
60 
61   if (sql%rowcount=0) then
62     INSERT_ROW(X_TNS => UPDATE_ROW.X_TNS,
63                X_WSDL_URL => UPDATE_ROW.X_WSDL_URL,
64                X_LAST_UPDATE_DATE => UPDATE_ROW.X_LAST_UPDATE_DATE,
65                X_OWNER => UPDATE_ROW.X_OWNER);
66   end if;
67 end UPDATE_ROW;
68 end FND_SIF_WSDLS_PKG;