PACKAGE BODY: APPS.FND_SIF_SETTINGS_PKG

Source

1 package body FND_SIF_SETTINGS_PKG as
2 /* $Header: FNDSFSTB.pls 120.0.12020000.2 2013/04/09 18:10:58 alsosa noship $ */
3 
4 procedure INSERT_ROW (
5   X_DEFINITION_NAME in VARCHAR2,
6   X_HANDLER_CLASS in VARCHAR2,
7   X_JAXB_INPUT in VARCHAR2,
8   X_JAXB_OUTPUT in VARCHAR2,
9   X_CALLBACK_AGENT in VARCHAR2,
10   X_XSL_IN in VARCHAR2,
11   X_XSL_OUT in VARCHAR2,
12   X_CALLBACK_EVENT in VARCHAR2,
13   X_ACTION in VARCHAR2,
14   X_ACTION_ATTRIBUTE in VARCHAR2,
15   X_LAST_UPDATE_DATE in VARCHAR2,
16   X_OWNER in VARCHAR2
17 ) is
18   l_ROWID VARCHAR2(100);
19   l_luby    number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
20   l_ludate  date   := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
21   cursor C is select ROWID from FND_SIF_SETTINGS
22     where DEFINITION_NAME = X_DEFINITION_NAME;
23 begin
24   insert into FND_SIF_SETTINGS (
25     HANDLER_CLASS,
26     DEFINITION_NAME,
27     JAXB_INPUT,
28     JAXB_OUTPUT,
29     CALLBACK_AGENT,
30     XSL_IN,
31     XSL_OUT,
32     CALLBACK_EVENT,
33     ACTION,
34     ACTION_ATTRIBUTE,
35     CREATION_DATE,
36     CREATED_BY,
37     LAST_UPDATE_DATE,
38     LAST_UPDATED_BY,
39     LAST_UPDATE_LOGIN,
40     SECURITY_GROUP_ID
41   ) values (
42     X_HANDLER_CLASS,
43     X_DEFINITION_NAME,
44     X_JAXB_INPUT,
45     X_JAXB_OUTPUT,
46     X_CALLBACK_AGENT,
47     X_XSL_IN,
48     X_XSL_OUT,
49     X_CALLBACK_EVENT,
50     X_ACTION,
51     X_ACTION_ATTRIBUTE,
52     l_ludate,
53     l_luby,
54     l_ludate,
55     l_luby,
56     0,
57     FND_GLOBAL.SECURITY_GROUP_ID);
58 
59   open c;
60   fetch c into l_ROWID;
61   if (c%notfound) then
62     close c;
63     raise_application_error (-20000, 'FND_SIF_SETTINGS_PKG.INSERT_ROW: unable to create SIF setting '||X_DEFINITION_NAME);
64   end if;
65   close c;
66 
67 end INSERT_ROW;
68 
69 procedure UPDATE_ROW (
70   X_DEFINITION_NAME in VARCHAR2,
71   X_HANDLER_CLASS in VARCHAR2,
72   X_JAXB_INPUT in VARCHAR2,
73   X_JAXB_OUTPUT in VARCHAR2,
74   X_CALLBACK_AGENT in VARCHAR2,
75   X_XSL_IN in VARCHAR2,
76   X_XSL_OUT in VARCHAR2,
77   X_CALLBACK_EVENT in VARCHAR2,
78   X_ACTION in VARCHAR2,
79   X_ACTION_ATTRIBUTE in VARCHAR2,
80   X_LAST_UPDATE_DATE in VARCHAR2,
81   X_OWNER in VARCHAR2
82 ) is
83   l_luby    number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
84   l_ludate  date   := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
85 begin
86   update FND_SIF_SETTINGS set
87     HANDLER_CLASS = X_HANDLER_CLASS,
88     JAXB_INPUT = X_JAXB_INPUT,
89     JAXB_OUTPUT = X_JAXB_OUTPUT,
90     CALLBACK_AGENT = X_CALLBACK_AGENT,
91     XSL_IN = X_XSL_IN,
92     XSL_OUT = X_XSL_OUT,
93     CALLBACK_EVENT = X_CALLBACK_EVENT,
94     DEFINITION_NAME = X_DEFINITION_NAME,
95     ACTION = X_ACTION,
96     ACTION_ATTRIBUTE = X_ACTION_ATTRIBUTE,
97     LAST_UPDATE_DATE = l_ludate,
98     LAST_UPDATED_BY = l_luby
99   where DEFINITION_NAME = X_DEFINITION_NAME;
100 
101   if (sql%rowcount=0) then
102     INSERT_ROW(X_DEFINITION_NAME => UPDATE_ROW.X_DEFINITION_NAME,
103                X_HANDLER_CLASS => UPDATE_ROW.X_HANDLER_CLASS,
104                X_JAXB_INPUT => UPDATE_ROW.X_JAXB_INPUT,
105                X_JAXB_OUTPUT => UPDATE_ROW.X_JAXB_OUTPUT,
106                X_CALLBACK_AGENT => UPDATE_ROW.X_CALLBACK_AGENT,
107                X_XSL_IN => UPDATE_ROW.X_XSL_IN,
108                X_XSL_OUT => UPDATE_ROW.X_XSL_OUT,
109                X_CALLBACK_EVENT => UPDATE_ROW.X_CALLBACK_EVENT,
110                X_ACTION => UPDATE_ROW.X_ACTION,
111                X_ACTION_ATTRIBUTE => UPDATE_ROW.X_ACTION_ATTRIBUTE,
112                X_LAST_UPDATE_DATE => UPDATE_ROW.X_LAST_UPDATE_DATE,
113                X_OWNER => UPDATE_ROW.X_OWNER);
114   end if;
115 end UPDATE_ROW;
116 end FND_SIF_SETTINGS_PKG;