[Home] [Help]
PACKAGE BODY: APPS.PA_RESOURCE_FORMATS_PKG
Source
1 package body PA_RESOURCE_FORMATS_PKG as
2 /* $Header: PAREPRFB.pls 120.0 2005/05/29 11:17:45 appldev noship $ */
3 procedure INSERT_ROW (
4 X_RESOURCE_FORMAT_ID in NUMBER,
5 X_PERSON_ID_FLAG in VARCHAR2,
6 X_JOB_ID_FLAG in VARCHAR2,
7 X_ORGANIZATION_ID_FLAG in VARCHAR2,
8 X_VENDOR_ID_FLAG in VARCHAR2,
9 X_EXPENDITURE_TYPE_FLAG in VARCHAR2,
10 X_EVENT_TYPE_FLAG in VARCHAR2,
11 X_NON_LABOR_RESOURCE_FLAG in VARCHAR2,
12 X_EXPENDITURE_CATEGORY_FLAG in VARCHAR2,
13 X_REVENUE_CATEGORY_FLAG in VARCHAR2,
14 X_NON_LABOR_RESOURCE_ORG_FLAG in VARCHAR2,
15 X_EVENT_CLASSIFICATION_FLAG in VARCHAR2,
16 X_SYSTEM_LINKAGE_FUNCTION_FLAG in VARCHAR2,
17 X_DESCRIPTION in VARCHAR2,
18 X_PROJECT_ROLE_ID_FLAG in VARCHAR2,
19 X_CREATION_DATE in DATE,
20 X_CREATED_BY in NUMBER,
21 X_LAST_UPDATE_DATE in DATE,
22 X_LAST_UPDATED_BY in NUMBER,
23 X_LAST_UPDATE_LOGIN in NUMBER
24 ) is
25 begin
26 insert into PA_RESOURCE_FORMATS (
27 RESOURCE_FORMAT_ID,
28 PERSON_ID_FLAG,
29 JOB_ID_FLAG,
30 ORGANIZATION_ID_FLAG,
31 VENDOR_ID_FLAG,
32 EXPENDITURE_TYPE_FLAG,
33 EVENT_TYPE_FLAG,
34 NON_LABOR_RESOURCE_FLAG,
35 EXPENDITURE_CATEGORY_FLAG,
36 REVENUE_CATEGORY_FLAG,
37 NON_LABOR_RESOURCE_ORG_ID_FLAG,
38 EVENT_TYPE_CLASSIFICATION_FLAG,
39 SYSTEM_LINKAGE_FUNCTION_FLAG,
40 DESCRIPTION,
41 PROJECT_ROLE_ID_FLAG,
42 CREATION_DATE,
43 CREATED_BY,
44 LAST_UPDATE_DATE,
45 LAST_UPDATED_BY,
46 LAST_UPDATE_LOGIN
47 ) values (
48 X_RESOURCE_FORMAT_ID,
49 X_PERSON_ID_FLAG,
50 X_JOB_ID_FLAG,
51 X_ORGANIZATION_ID_FLAG,
52 X_VENDOR_ID_FLAG,
53 X_EXPENDITURE_TYPE_FLAG,
54 X_EVENT_TYPE_FLAG,
55 X_NON_LABOR_RESOURCE_FLAG,
56 X_EXPENDITURE_CATEGORY_FLAG,
57 X_REVENUE_CATEGORY_FLAG,
58 X_NON_LABOR_RESOURCE_ORG_FLAG,
59 X_EVENT_CLASSIFICATION_FLAG,
60 X_SYSTEM_LINKAGE_FUNCTION_FLAG,
61 X_DESCRIPTION,
62 X_PROJECT_ROLE_ID_FLAG,
63 X_CREATION_DATE,
64 X_CREATED_BY,
65 X_LAST_UPDATE_DATE,
66 X_LAST_UPDATED_BY,
67 X_LAST_UPDATE_LOGIN
68 );
69
70 exception
71 when others then
72 raise;
73
74 end INSERT_ROW;
75
76 procedure TRANSLATE_ROW (
77 X_RESOURCE_FORMAT_ID in NUMBER,
78 X_OWNER in VARCHAR2,
79 X_DESCRIPTION in VARCHAR2) is
80 begin
81
82 update PA_RESOURCE_FORMATS set
83 DESCRIPTION = X_DESCRIPTION,
84 LAST_UPDATE_DATE = sysdate,
85 LAST_UPDATED_BY = decode(X_OWNER, 'SEED', 1, 0),
86 LAST_UPDATE_LOGIN = 0
87 where RESOURCE_FORMAT_ID = X_RESOURCE_FORMAT_ID
88 and userenv('LANG') in
89 (select LANGUAGE_CODE from FND_LANGUAGES where INSTALLED_FLAG in ('B', 'I') );
90
91 if (sql%notfound) then
92 raise no_data_found;
93 end if;
94
95 exception
96 when others then
97 raise;
98
99 end TRANSLATE_ROW;
100
101
102 procedure UPDATE_ROW (
103 X_RESOURCE_FORMAT_ID in NUMBER,
104 X_PERSON_ID_FLAG in VARCHAR2,
105 X_JOB_ID_FLAG in VARCHAR2,
106 X_ORGANIZATION_ID_FLAG in VARCHAR2,
107 X_VENDOR_ID_FLAG in VARCHAR2,
108 X_EXPENDITURE_TYPE_FLAG in VARCHAR2,
109 X_EVENT_TYPE_FLAG in VARCHAR2,
110 X_NON_LABOR_RESOURCE_FLAG in VARCHAR2,
111 X_EXPENDITURE_CATEGORY_FLAG in VARCHAR2,
112 X_REVENUE_CATEGORY_FLAG in VARCHAR2,
113 X_NON_LABOR_RESOURCE_ORG_FLAG in VARCHAR2,
114 X_EVENT_CLASSIFICATION_FLAG in VARCHAR2,
115 X_SYSTEM_LINKAGE_FUNCTION_FLAG in VARCHAR2,
116 X_DESCRIPTION in VARCHAR2,
117 X_PROJECT_ROLE_ID_FLAG in VARCHAR2,
118 X_LAST_UPDATE_DATE in DATE,
119 X_LAST_UPDATED_BY in NUMBER,
120 X_LAST_UPDATE_LOGIN in NUMBER
121 ) is
122 begin
123 update PA_RESOURCE_FORMATS set
124 PERSON_ID_FLAG = X_PERSON_ID_FLAG,
125 JOB_ID_FLAG = X_JOB_ID_FLAG,
126 ORGANIZATION_ID_FLAG = X_ORGANIZATION_ID_FLAG,
127 VENDOR_ID_FLAG = X_VENDOR_ID_FLAG,
128 EXPENDITURE_TYPE_FLAG = X_EXPENDITURE_TYPE_FLAG,
129 EVENT_TYPE_FLAG = X_EVENT_TYPE_FLAG,
130 NON_LABOR_RESOURCE_FLAG = X_NON_LABOR_RESOURCE_FLAG,
131 EXPENDITURE_CATEGORY_FLAG = X_EXPENDITURE_CATEGORY_FLAG,
132 REVENUE_CATEGORY_FLAG = X_REVENUE_CATEGORY_FLAG,
133 NON_LABOR_RESOURCE_ORG_ID_FLAG = X_NON_LABOR_RESOURCE_ORG_FLAG,
134 EVENT_TYPE_CLASSIFICATION_FLAG = X_EVENT_CLASSIFICATION_FLAG,
135 SYSTEM_LINKAGE_FUNCTION_FLAG = X_SYSTEM_LINKAGE_FUNCTION_FLAG,
136 DESCRIPTION = X_DESCRIPTION,
137 PROJECT_ROLE_ID_FLAG = X_PROJECT_ROLE_ID_FLAG,
138 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
139 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
140 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
141 where RESOURCE_FORMAT_ID = X_RESOURCE_FORMAT_ID;
142
143 if (sql%notfound) then
144 raise no_data_found;
145 end if;
146
147 exception
148 when others then
149 raise;
150
151 end UPDATE_ROW;
152
153 end PA_RESOURCE_FORMATS_PKG;