PACKAGE BODY: APPS.EGO_ITEM_TEXT_CTX_PKG

Source

1 PACKAGE BODY EGO_ITEM_TEXT_CTX_PKG AS
2 /* $Header: EGOITIMB.pls 120.0 2011/03/27 21:07:38 kkonada noship $ */
3 
4 PROCEDURE Get_Item_Text_CLOB
5 ( p_rowid  IN             ROWID
6 , x_tlob   IN OUT NOCOPY  CLOB
7 ) IS
8 
9    l_tchar    VARCHAR2(1)  :=  NULL;
10 
11 BEGIN
12 
13    -- Call iMT user datastore API to do all the work
14    EGO_ITEM_TEXT_UTIL.Get_Item_Text
15    ( p_rowid => p_rowid, p_output_type => 'CLOB'
16    , x_tlob => x_tlob, x_tchar => l_tchar
17    );
18 
19 END Get_Item_Text_CLOB;
20 
21 
22 
23 PROCEDURE Get_Item_Text_VARCHAR2
24 ( p_rowid  IN             ROWID
25 , x_tchar  IN OUT NOCOPY  VARCHAR2
26 ) IS
27 
28    l_tlob    CLOB  :=  NULL;
29 
30 BEGIN
31 
32    --DBMS_LOB.CreateTemporary
33    --( lob_loc => l_tlob, cache => TRUE, dur => DBMS_LOB.Session );
34    -- Call iMT user datastore API to do all the work
35 
36    EGO_ITEM_TEXT_UTIL.Get_Item_Text
37    ( p_rowid => p_rowid, p_output_type => 'VARCHAR2'
38    , x_tlob => l_tlob, x_tchar => x_tchar
39    );
40 
41    --DBMS_LOB.FreeTemporary (lob_loc => l_tlob);
42 
43 END Get_Item_Text_VARCHAR2;
44 
45 
46 
47 END EGO_ITEM_TEXT_CTX_PKG;
48 
49 
50