TRIGGER: APPS.PA_ADW_RESOURCES_T2

Source

Description

"APPS"."PA_ADW_RESOURCES_T2" 
-- $Header: PATRIG01.pls 115.5 99/07/16 15:14:43 porting ship  $
BEFORE UPDATE OF
  -- Columns required for data warehouse
  NAME
 ON  "PA"."PA_RESOURCES#"  FOR EACH ROW

Type

BEFORE EACH ROW

Event

UPDATE

Column

When

Referencing

REFERENCING NEW AS NEW OLD AS OLD

Body

DECLARE
  X_ADW_LICENSED VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PA_ADW_LICENSED'),'N');
BEGIN

--Fire Trigger only PA_ADW is Licensed
 IF X_ADW_LICENSED <> 'Y' THEN
    RETURN;
 END IF;

  UPDATE PA_RESOURCE_LIST_MEMBERS
  SET ADW_NOTIFY_FLAG = 'Y'
  WHERE
     RESOURCE_ID = :NEW.RESOURCE_ID
  AND ADW_NOTIFY_FLAG <> 'Y';
END;