CUSTOM.PLL ORG SEPARATE CODING

PROCEDURE event (event_name VARCHAR2)
IS
   form_name        VARCHAR2 (30)  := NAME_IN ('system.current_form');
   block_name       VARCHAR2 (30)  := NAME_IN ('system.cursor_block');
   lc_attribute2    VARCHAR2 (60);
   lc_attribute12   VARCHAR2 (100);
BEGIN
   IF fnd_profile.VALUE ('ORG_ID') = '82'
   THEN
      IF    event_name = 'WHEN-NEW-BLOCK-INSTANCE'
         OR event_name = 'WHEN-NEW-RECORD-INSTANCE'
      THEN
         IF form_name = 'APXINWKB' AND block_name = 'LINE_SUM_FOLDER'
         THEN
            lc_attribute2 := NAME_IN ('INV_SUM_FOLDER.DF');
            lc_attribute12 := NAME_IN ('LINE_SUM_FOLDER.LINE_DF');

            IF SUBSTR (lc_attribute2, INSTR (lc_attribute2, '.', 1, 1) + 1) IS NOT NULL
            THEN
               SET_ITEM_PROPERTY ('LINE_SUM_FOLDER.LINE_DF',
                                  enabled,
                                  property_false
                                 );
            ELSIF lc_attribute2 = '.' OR lc_attribute2 IS NULL
            THEN
               SET_ITEM_PROPERTY ('LINE_SUM_FOLDER.LINE_DF',
                                  enabled,
                                  property_true
                                 );
            END IF;
         END IF;
      END IF;
   END IF;
END event;