PACKAGE BODY: APPS.FND_SIF_POLICIES_PKG

Source

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