1: Package Body ASO_SUP_COMPONENT_PKG AS
2: /* $Header: asospcob.pls 120.4 2006/05/22 22:59:31 skulkarn ship $*/
3:
4: /* procedure to insert INSERT_ROW */
5:
606: if (X_OWNER = 'SEED') then
607: user_id := -1;
608: end if;
609:
610: ASO_SUP_COMPONENT_PKG.UPDATE_ROW (
611: P_COMPONENT_ID => P_COMPONENT_ID,
612: P_LAST_UPDATE_DATE => sysdate,
613: P_LAST_UPDATED_BY => user_id,
614: P_LAST_UPDATE_LOGIN => 0,
644: exception
645:
646: when NO_DATA_FOUND then
647:
648: ASO_SUP_COMPONENT_PKG.INSERT_ROW (
649: PX_ROWID => row_id,
650: PX_COMPONENT_ID => L_COMPONENT_ID,
651: P_CREATION_DATE => sysdate,
652: P_CREATED_BY => user_id,
774:
775: begin
776: if (P_UPLOAD_MODE = 'NLS') then
777:
778: ASO_SUP_COMPONENT_PKG.TRANSLATE_ROW (
779: P_COMPONENT_ID => P_COMPONENT_ID,
780: P_COMPONENT_NAME => P_COMPONENT_NAME,
781: P_DESCRIPTION => P_DESCRIPTION,
782: P_INSTRUCTION => P_INSTRUCTION,
793: loop
794: fetch get_components into l_COMPONENT_ID;
795: if get_components%FOUND THEN
796: -- this means component already exists
797: ASO_SUP_COMPONENT_PKG.UPDATE_ROW (
798: P_COMPONENT_ID => P_COMPONENT_ID,
799: P_LAST_UPDATE_DATE => sysdate ,
800: P_LAST_UPDATED_BY => l_user_id ,
801: P_LAST_UPDATE_LOGIN => l_user_id ,
830: exit;
831: elsif get_components%NOTFOUND THEN
832: -- THIS MEANS THIS IS A NEW COMPONENT
833: l_COMPONENT_ID := P_COMPONENT_ID;
834: ASO_SUP_COMPONENT_PKG.INSERT_ROW (
835: PX_ROWID => row_id,
836: PX_COMPONENT_ID => l_COMPONENT_ID,
837: P_CREATION_DATE => sysdate ,
838: P_CREATED_BY => l_user_id ,
962: end if; -- end if for the NLS check
963: END LOAD_SEED_ROW;
964:
965:
966: END; -- Package Body ASO_SUP_COMPONENT_PKG