PLSQL/Lexer/test/unit/data/TestComments.apy
author Subhashini Sooriarachchi <subslk@netbeans.org>
Mon, 12 Aug 2013 11:26:54 +0530
changeset 464 e10b2e8563fc
permissions -rw-r--r--
EADS-3749 encountering issues with the displaying of code in Developer Studio when code folding is enabled
subslk@464
     1
-----------------------------------------------------------------------------
subslk@464
     2
--
subslk@464
     3
--  Logical unit: <<<LU: Put your LU name here>>>
subslk@464
     4
--
subslk@464
     5
--  IFS Developer Studio Template Version 2.5
subslk@464
     6
--
subslk@464
     7
--  Date    Sign    History
subslk@464
     8
--  ------  ------  ---------------------------------------------------------
subslk@464
     9
-----------------------------------------------------------------------------
subslk@464
    10
subslk@464
    11
DEFINE MODULE        = <<<MODULE:   Put your module name here>>>
subslk@464
    12
DEFINE LU            = <<<LU:       Put your lu name here>>>
subslk@464
    13
DEFINE PKG           = <<<PKG:      Put your PACKAGE name here>>>
subslk@464
    14
subslk@464
    15
PROMPT Creating &PKG SPECIFICATION
subslk@464
    16
subslk@464
    17
CREATE OR REPLACE PACKAGE BODY &PKG IS
subslk@464
    18
subslk@464
    19
-----------------------------------------------------------------------------
subslk@464
    20
-------------------- LU SPECIFIC IMPLEMENTATION METHODS ---------------------
subslk@464
    21
-----------------------------------------------------------------------------
subslk@464
    22
subslk@464
    23
subslk@464
    24
-----------------------------------------------------------------------------
subslk@464
    25
-------------------- LU SPECIFIC PRIVATE METHODS ----------------------------
subslk@464
    26
-----------------------------------------------------------------------------
subslk@464
    27
subslk@464
    28
subslk@464
    29
-----------------------------------------------------------------------------
subslk@464
    30
-------------------- LU SPECIFIC PROTECTED METHODS --------------------------
subslk@464
    31
-----------------------------------------------------------------------------
subslk@464
    32
subslk@464
    33
subslk@464
    34
-----------------------------------------------------------------------------
subslk@464
    35
-------------------- LU SPECIFIC PUBLIC METHODS -----------------------------
subslk@464
    36
-----------------------------------------------------------------------------
subslk@464
    37
subslk@464
    38
PROCEDURE Delete___ (
subslk@464
    39
   objid_  IN VARCHAR2,
subslk@464
    40
   remrec_ IN &VIEW%ROWTYPE )
subslk@464
    41
subslk@464
    42
IS
subslk@464
    43
        key_ VARCHAR2(2000);
subslk@464
    44
        key_ VARCHAR2(2000);
subslk@464
    45
   type_ intface_header_tab.procedure_name%TYPE;
subslk@464
    46
BEGIN
subslk@464
    47
   temp =: NULL;
subslk@464
    48
   --
subslk@464
    49
   -- Call to Intface_Util_API.Register_Delete_ removed.
subslk@464
    50
   -- Logic is now handled in Intface_Util_API.Drop_IC_Table_
subslk@464
    51
   --
subslk@464
    52
   
subslk@464
    53
   key_ := remrec_.intface_name || '^' || remrec_.column_name || '^';
subslk@464
    54
   Reference_SYS.Do_Cascade_Delete(lu_name_, key_);
subslk@464
    55
   DELETE           
subslk@464
    56
      FROM  intface_detail_tab
subslk@464
    57
      WHERE &OBJID = objid_;   
subslk@464
    58
END Delete___;