1: package body HR_ORG_INFO_TYPES_BY_CLASS_PKG as
2: /* $Header: hroiclct.pkb 120.3.12000000.1 2007/01/21 17:34:47 appldev ship $ */
3: procedure OWNER_TO_WHO (
4: X_OWNER in VARCHAR2,
5: X_CREATION_DATE out nocopy DATE,
31: X_LAST_UPDATE_DATE in DATE,
32: X_LAST_UPDATED_BY in NUMBER,
33: X_LAST_UPDATE_LOGIN in NUMBER
34: ) is
35: cursor C is select ROWID from HR_ORG_INFO_TYPES_BY_CLASS
36: where ORG_CLASSIFICATION = X_ORG_CLASSIFICATION
37: and ORG_INFORMATION_TYPE = X_ORG_INFORMATION_TYPE
38: ;
39: begin
36: where ORG_CLASSIFICATION = X_ORG_CLASSIFICATION
37: and ORG_INFORMATION_TYPE = X_ORG_INFORMATION_TYPE
38: ;
39: begin
40: insert into HR_ORG_INFO_TYPES_BY_CLASS (
41: ORG_CLASSIFICATION,
42: ORG_INFORMATION_TYPE,
43: MANDATORY_FLAG,
44: ENABLED_FLAG,
74: X_MANDATORY_FLAG in VARCHAR2
75: ) is
76: cursor c1 is select
77: MANDATORY_FLAG
78: from HR_ORG_INFO_TYPES_BY_CLASS
79: where ORG_CLASSIFICATION = X_ORG_CLASSIFICATION
80: and ORG_INFORMATION_TYPE = X_ORG_INFORMATION_TYPE
81: for update of ORG_CLASSIFICATION nowait;
82: begin
101: X_LAST_UPDATED_BY in NUMBER,
102: X_LAST_UPDATE_LOGIN in NUMBER
103: ) is
104: begin
105: update HR_ORG_INFO_TYPES_BY_CLASS set
106: MANDATORY_FLAG = X_MANDATORY_FLAG,
107: ENABLED_FLAG = X_ENABLED_FLAG,
108: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
109: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
120: X_ORG_CLASSIFICATION in VARCHAR2,
121: X_ORG_INFORMATION_TYPE in VARCHAR2
122: ) is
123: begin
124: delete from HR_ORG_INFO_TYPES_BY_CLASS
125: where ORG_CLASSIFICATION = X_ORG_CLASSIFICATION
126: and ORG_INFORMATION_TYPE = X_ORG_INFORMATION_TYPE;
127:
128: if (sql%notfound) then
156: -- Translate char last_update_date to date
157: f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
158: select LAST_UPDATED_BY, LAST_UPDATE_DATE
159: into db_luby, db_ludate
160: from HR_ORG_INFO_TYPES_BY_CLASS
161: where ORG_INFORMATION_TYPE = X_ORG_INFORMATION_TYPE
162: and ORG_CLASSIFICATION=X_ORG_CLASSIFICATION;
163:
164: -- Test for customization and version
188: f_ludate ,
189: f_luby ,
190: 0 );
191: end LOAD_ROW;
192: end HR_ORG_INFO_TYPES_BY_CLASS_PKG;