[Home] [Help]
PACKAGE BODY: APPS.FND_XDFAWINTERFACE_PKG
Source
1 package body Fnd_XdfAWInterface_Pkg as
2 /* $Header: fndpawib.pls 120.0 2006/05/25 11:54:07 bhthiaga noship $ */
3
4 --
5 -- INSERT_AW_DEF_INTERFACE (PRIVATE))
6 -- Add a new column into FND_AW_DEF_INTERFACE. This is only called after checking
7 -- there is no such column exists in UPLOAD_AW_DEF_INTERFACE().
8 --
9 procedure INSERT_AW_DEF_INTERFACE(
10 X_OBJECT_NAME in VARCHAR2,
11 X_OBJECT_TYPE in VARCHAR2,
12 X_OBJECT_OWNER in VARCHAR2,
13 X_OBJECT_DEFINITION IN CLOB,
14 X_AW_NAME in VARCHAR2,
15 X_LAST_UPDATE_DATE IN DATE,
16 X_LAST_UPDATED_BY IN NUMBER,
17 X_CREATION_DATE IN DATE,
18 X_CREATED_BY IN NUMBER,
19 X_LAST_UPDATE_LOGIN IN NUMBER
20 ) IS
21 BEGIN
22 INSERT INTO FND_AW_DEF_INTERFACE(
23 OBJECT_NAME,
24 OBJECT_TYPE,
25 OBJECT_OWNER,
26 OBJECT_DEFINITION,
27 AW_NAME,
28 LAST_UPDATE_DATE,
29 LAST_UPDATED_BY,
30 CREATION_DATE,
31 CREATED_BY,
32 LAST_UPDATE_LOGIN)
33 VALUES(
34 X_OBJECT_NAME,
35 X_OBJECT_TYPE,
36 X_OBJECT_OWNER,
37 X_OBJECT_DEFINITION,
38 X_AW_NAME,
39 X_LAST_UPDATE_DATE,
40 X_LAST_UPDATED_BY,
41 X_CREATION_DATE,
42 X_CREATED_BY,
43 X_LAST_UPDATE_LOGIN);
44 END INSERT_AW_DEF_INTERFACE;
45
46 procedure UPLOAD_AW_DEF_INTERFACE(
47 X_OBJECT_NAME in VARCHAR2,
48 X_OBJECT_TYPE in VARCHAR2,
49 X_OBJECT_OWNER in VARCHAR2,
50 X_OBJECT_DEFINITION in CLOB,
51 X_AW_NAME in VARCHAR2,
52 X_LAST_UPDATE_DATE IN VARCHAR2,
53 X_CUSTOM_MODE IN VARCHAR2,
54 X_LAST_UPDATED_BY in VARCHAR2
55 )IS
56 F_LUBY NUMBER; -- entity owner in file
57 F_LUDATE DATE; -- entity update date in file
58 DB_LUBY NUMBER; -- entity owner in db
59 DB_LUDATE DATE; -- entity update date in db
60
61 BEGIN
62
63 -- No need to test last update for interface table
64
65 F_LUDATE := NVL(TO_DATE(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), SYSDATE);
66
67 BEGIN
68 SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE
69 INTO DB_LUBY, DB_LUDATE
70 FROM FND_AW_DEF_INTERFACE
71 WHERE OBJECT_NAME = X_OBJECT_NAME AND OBJECT_TYPE = X_OBJECT_TYPE;
72
73
74 UPDATE FND_AW_DEF_INTERFACE SET
75 OBJECT_NAME = X_OBJECT_NAME,
76 OBJECT_TYPE = X_OBJECT_TYPE,
77 OBJECT_OWNER = X_OBJECT_OWNER,
78 OBJECT_DEFINITION = X_OBJECT_DEFINITION,
79 AW_NAME = X_AW_NAME,
80 LAST_UPDATE_DATE = F_LUDATE,
81 LAST_UPDATED_BY = F_LUBY,
82 LAST_UPDATE_LOGIN = F_LUBY
83 WHERE OBJECT_NAME = X_OBJECT_NAME AND OBJECT_TYPE = X_OBJECT_TYPE;
84 EXCEPTION
85 WHEN NO_DATA_FOUND THEN
86 FND_XDFAWINTERFACE_PKG.INSERT_AW_DEF_INTERFACE(
87 X_OBJECT_NAME,
88 X_OBJECT_TYPE,
89 X_OBJECT_OWNER,
90 X_OBJECT_DEFINITION,
91 X_AW_NAME,
92 F_LUDATE,
93 F_LUBY,
94 F_LUDATE,
95 F_LUBY,
96 0);
97
98 END;
99 END UPLOAD_AW_DEF_INTERFACE;
100
101 end Fnd_XdfAWInterface_Pkg;