PACKAGE BODY: CTXSYS.EAM_TEXT_CTX_PKG

Source

1 PACKAGE BODY EAM_TEXT_CTX_PKG AS
2 /* $Header: EAMATIUF.sql 120.0.12010000.2 2009/01/20 12:46:54 vchidura ship $ */
3  
4 PROCEDURE Get_Asset_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 Intermedia Text user datastore API to do all the work
11    APPS.eam_text_util.Get_Asset_Text
12    ( p_rowid => p_rowid, p_output_type => 'CLOB' 
13    , x_tlob => x_tlob, x_tchar => l_tchar
14    );
15 END Get_Asset_Text_CLOB;
16  
17 PROCEDURE Get_Asset_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 Intermedia user datastore API to do all the work
26    APPS.eam_text_util.Get_Asset_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_Asset_Text_VARCHAR2;
32  
33  
34 PROCEDURE Get_Wo_Text_CLOB
35 ( p_rowid  IN             ROWID
36 , x_tlob   IN OUT NOCOPY  CLOB
37 ) IS
38    l_tchar    VARCHAR2(1)  :=  NULL;
39 BEGIN
40    -- Call Intermedia Text user datastore API to do all the work
41    APPS.eam_text_util.Get_Wo_Text
42    ( p_rowid => p_rowid, p_output_type => 'CLOB' 
43    , x_tlob => x_tlob, x_tchar => l_tchar
44    );
45 END Get_Wo_Text_CLOB;
46  
47 PROCEDURE Get_Wo_Text_VARCHAR2
48 ( p_rowid  IN             ROWID
49 , x_tchar  IN OUT NOCOPY  VARCHAR2
50 ) IS
51    l_tlob    CLOB  :=  NULL;
52 BEGIN
53    --DBMS_LOB.CreateTemporary
54    --( lob_loc => l_tlob, cache => TRUE, dur => DBMS_LOB.Session );
55    -- Call Intermedia user datastore API to do all the work
56    APPS.eam_text_util.Get_Wo_Text
57    ( p_rowid => p_rowid, p_output_type => 'VARCHAR2' 
58    , x_tlob => l_tlob, x_tchar => x_tchar
59    );
60    --DBMS_LOB.FreeTemporary (lob_loc => l_tlob);
61 END Get_Wo_Text_VARCHAR2;
62  
63 END EAM_TEXT_CTX_PKG;