1: PACKAGE BODY PER_PEOPLE_INFO_TYPES_SEC_PKG as
2: /* $Header: perpeits.pkb 115.2 2002/12/06 14:11:04 eumenyio noship $ */
3: --------------------------------------------------------------------------------
4: g_dummy number(1); -- Dummy for cursor returns which are not needed
5: g_business_group_id number(15); -- For validating translation;
274: ,X_OBJECT_VERSION_NUMBER in number
275: ,X_OWNER in varchar2
276: )
277: is
278: l_proc VARCHAR2(61) := 'PER_PEOPLE_INFO_TYPES_SEC_PKG.LOAD_ROW';
279: l_rowid rowid;
280: l_created_by PER_PEOPLE_INFO_types.created_by%TYPE := 0;
281: l_creation_date PER_PEOPLE_INFO_types.creation_date%TYPE := SYSDATE;
282: l_last_update_date PER_PEOPLE_INFO_types.last_update_date%TYPE := SYSDATE;
276: )
277: is
278: l_proc VARCHAR2(61) := 'PER_PEOPLE_INFO_TYPES_SEC_PKG.LOAD_ROW';
279: l_rowid rowid;
280: l_created_by PER_PEOPLE_INFO_types.created_by%TYPE := 0;
281: l_creation_date PER_PEOPLE_INFO_types.creation_date%TYPE := SYSDATE;
282: l_last_update_date PER_PEOPLE_INFO_types.last_update_date%TYPE := SYSDATE;
283: l_last_updated_by PER_PEOPLE_INFO_types.last_updated_by%TYPE := 0;
284: l_last_update_login PER_PEOPLE_INFO_types.last_update_login%TYPE := 0;
277: is
278: l_proc VARCHAR2(61) := 'PER_PEOPLE_INFO_TYPES_SEC_PKG.LOAD_ROW';
279: l_rowid rowid;
280: l_created_by PER_PEOPLE_INFO_types.created_by%TYPE := 0;
281: l_creation_date PER_PEOPLE_INFO_types.creation_date%TYPE := SYSDATE;
282: l_last_update_date PER_PEOPLE_INFO_types.last_update_date%TYPE := SYSDATE;
283: l_last_updated_by PER_PEOPLE_INFO_types.last_updated_by%TYPE := 0;
284: l_last_update_login PER_PEOPLE_INFO_types.last_update_login%TYPE := 0;
285: begin
278: l_proc VARCHAR2(61) := 'PER_PEOPLE_INFO_TYPES_SEC_PKG.LOAD_ROW';
279: l_rowid rowid;
280: l_created_by PER_PEOPLE_INFO_types.created_by%TYPE := 0;
281: l_creation_date PER_PEOPLE_INFO_types.creation_date%TYPE := SYSDATE;
282: l_last_update_date PER_PEOPLE_INFO_types.last_update_date%TYPE := SYSDATE;
283: l_last_updated_by PER_PEOPLE_INFO_types.last_updated_by%TYPE := 0;
284: l_last_update_login PER_PEOPLE_INFO_types.last_update_login%TYPE := 0;
285: begin
286: -- Translate developer keys to internal parameters
279: l_rowid rowid;
280: l_created_by PER_PEOPLE_INFO_types.created_by%TYPE := 0;
281: l_creation_date PER_PEOPLE_INFO_types.creation_date%TYPE := SYSDATE;
282: l_last_update_date PER_PEOPLE_INFO_types.last_update_date%TYPE := SYSDATE;
283: l_last_updated_by PER_PEOPLE_INFO_types.last_updated_by%TYPE := 0;
284: l_last_update_login PER_PEOPLE_INFO_types.last_update_login%TYPE := 0;
285: begin
286: -- Translate developer keys to internal parameters
287: if X_OWNER = 'SEED' then
280: l_created_by PER_PEOPLE_INFO_types.created_by%TYPE := 0;
281: l_creation_date PER_PEOPLE_INFO_types.creation_date%TYPE := SYSDATE;
282: l_last_update_date PER_PEOPLE_INFO_types.last_update_date%TYPE := SYSDATE;
283: l_last_updated_by PER_PEOPLE_INFO_types.last_updated_by%TYPE := 0;
284: l_last_update_login PER_PEOPLE_INFO_types.last_update_login%TYPE := 0;
285: begin
286: -- Translate developer keys to internal parameters
287: if X_OWNER = 'SEED' then
288: l_created_by := 1;
346: */
347: end TRANSLATE_ROW;
348:
349:
350: END PER_PEOPLE_INFO_TYPES_SEC_PKG;