PACKAGE BODY: CTXSYS.ENG_CHANGE_TEXT_CTX_PKG

Source

1 PACKAGE BODY ENG_CHANGE_TEXT_CTX_PKG AS
2 /* $Header: engimctx.sql 120.0.12010000.2 2009/01/16 21:03:52 ksuleman ship $ */
3  
4 PROCEDURE Get_Change_Text_CLOB
5 ( p_rowid  IN             ROWID
6 , x_tlob   IN OUT NOCOPY  CLOB
7 ) IS
8    l_tchar    VARCHAR2(1)  :=  NULL;
9 BEGIN
10    -- Call iMT user datastore API to do all the work
11    APPS.ENG_CHANGE_TEXT_UTIL.Get_Change_Text
12   ( p_rowid => p_rowid, p_output_type => 'CLOB' 
13    , x_tlob => x_tlob, x_tchar => l_tchar
14    );
15 END Get_Change_Text_CLOB;
16  
17 PROCEDURE Get_Change_Text_VARCHAR2
18 ( p_rowid  IN             ROWID
19 , x_tchar  IN OUT NOCOPY  VARCHAR2
20 ) IS
21    l_tlob    CLOB  :=  NULL;
22 BEGIN
23    --DBMS_LOB.CreateTemporary
24    --( lob_loc => l_tlob, cache => TRUE, dur => DBMS_LOB.Session );
25    -- Call iMT user datastore API to do all the work
26    APPS.ENG_CHANGE_TEXT_UTIL.Get_Change_Text
27    ( p_rowid => p_rowid, p_output_type => 'VARCHAR2' 
28    , x_tlob => l_tlob, x_tchar => x_tchar
29    );
30    --DBMS_LOB.FreeTemporary (lob_loc => l_tlob);
31 END Get_Change_Text_VARCHAR2;
32  
33 END ENG_CHANGE_TEXT_CTX_PKG;