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;