PACKAGE BODY: APPS.PA_STATUS_COLUMN_SETUP_PKG

Source

1 package body PA_STATUS_COLUMN_SETUP_PKG as
2 /* $Header: PAREPSCB.pls 120.3 2005/08/19 16:50:29 mwasowic ship $ */
3 procedure INSERT_ROW (
4   X_FOLDER_CODE 	     in	VARCHAR2,
5   X_COLUMN_ORDER	     in NUMBER,
6   X_FORMAT_CODE              in VARCHAR2,
7   X_COLUMN_NAME     	     in VARCHAR2,
8   X_CURRENCY_FORMAT_FLAG     in	VARCHAR2,
9   X_TOTAL_FLAG               in VARCHAR2,
10   X_COLUMN_PROMPT     	     in VARCHAR2,
11   X_CREATION_DATE            in DATE,
12   X_CREATED_BY               in NUMBER,
13   X_LAST_UPDATE_DATE         in DATE,
14   X_LAST_UPDATED_BY          in NUMBER,
15   X_LAST_UPDATE_LOGIN        in NUMBER
16 ) is
17 begin
18   insert into PA_STATUS_COLUMN_SETUP (
19     FOLDER_CODE,
20     COLUMN_ORDER,
21     FORMAT_CODE,
22     COLUMN_NAME,
23     CURRENCY_FORMAT_FLAG,
24     TOTAL_FLAG,
25     COLUMN_PROMPT,
26     CREATION_DATE,
27     CREATED_BY,
28     LAST_UPDATE_DATE,
29     LAST_UPDATED_BY,
30     LAST_UPDATE_LOGIN
31   ) values (
32     X_FOLDER_CODE,
33     X_COLUMN_ORDER,
34     X_FORMAT_CODE,
35     X_COLUMN_NAME,
36     X_CURRENCY_FORMAT_FLAG,
37     X_TOTAL_FLAG,
38     X_COLUMN_PROMPT,
39     X_CREATION_DATE,
40     X_CREATED_BY,
41     X_LAST_UPDATE_DATE,
42     X_LAST_UPDATED_BY,
43     X_LAST_UPDATE_LOGIN
44   );
45 
46   exception
47     when others then
48       raise;
49 
50 end INSERT_ROW;
51 
52 procedure TRANSLATE_ROW (
53   X_FOLDER_CODE            in VARCHAR2,
54   X_COLUMN_ORDER           in NUMBER,
55   X_FORMAT_CODE            in VARCHAR2,
56   X_OWNER                  in VARCHAR2,
57   X_COLUMN_PROMPT          in VARCHAR2) is
58 begin
59 
60   update PA_STATUS_COLUMN_SETUP set
61     COLUMN_PROMPT     = X_COLUMN_PROMPT,
62     LAST_UPDATE_DATE  = sysdate,
63     LAST_UPDATED_BY   = decode(X_OWNER, 'SEED', 1, 0),
64     LAST_UPDATE_LOGIN = 0
65   where FOLDER_CODE   = X_FOLDER_CODE
66   and   COLUMN_ORDER  = X_COLUMN_ORDER
67   and   FORMAT_CODE   = X_FORMAT_CODE
68   and userenv('LANG') =
69          (select LANGUAGE_CODE from FND_LANGUAGES where INSTALLED_FLAG = 'B')
70   and last_update_login = 0;
71 
72 --  Commented for Bug 3857092
73 --  if (sql%notfound) then
74 --    raise no_data_found;
75 --  end if;
76 
77   exception
78     when others then
79       raise;
80 
81 end TRANSLATE_ROW;
82 
83 procedure GET_INSERT_STATUS (
84   X_INSERTFLAG   out NOCOPY BOOLEAN --File.Sql.39 bug 4440895
85 ) is
86   X_COUNT  NUMBER;
87 begin
88 
89   if (g_insertflag IS NULL) then
90     select count(*)
91     into X_COUNT
92     from PA_STATUS_COLUMN_SETUP;
93 
94     if (X_COUNT > 0) then
95        g_insertflag := false;
96     else
97        g_insertflag := true;
98     end if;
99   end if;
100 
101   X_INSERTFLAG := g_insertflag;
102 
103   exception
104     when others then
105       raise;
106 
107 end GET_INSERT_STATUS;
108 
109 end PA_STATUS_COLUMN_SETUP_PKG;