PACKAGE BODY: APPS.ENG_CHANGE_TEXT_CTX_PKG

Source

1 PACKAGE BODY ENG_CHANGE_TEXT_CTX_PKG AS
2 /* $Header: ENGCHIMB.pls 120.0 2011/03/27 20:39:26 kkonada noship $ */
3 
4 PROCEDURE Get_Change_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    ENG_CHANGE_TEXT_UTIL.Get_Change_Text
15   ( p_rowid => p_rowid, p_output_type => 'CLOB'
16    , x_tlob => x_tlob, x_tchar => l_tchar
17    );
18 
19 END Get_Change_Text_CLOB;
20 
21 
22 
23 PROCEDURE Get_Change_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    ENG_CHANGE_TEXT_UTIL.Get_Change_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_Change_Text_VARCHAR2;
44 
45 
46 
47 END ENG_CHANGE_TEXT_CTX_PKG;
48 
49