PACKAGE BODY: APPS.EAM_TEXT_CTX_PKG

Source

1 PACKAGE BODY EAM_TEXT_CTX_PKG AS
2 /* $Header: EAMATIUB.pls 120.0 2011/03/25 06:31:10 srkotika noship $ */
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       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    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 PROCEDURE Get_Wo_Text_CLOB
34 ( p_rowid  IN             ROWID
35 , x_tlob   IN OUT NOCOPY  CLOB
36 ) IS
37    l_tchar    VARCHAR2(1)  :=  NULL;
38 BEGIN
39    -- Call Intermedia Text user datastore API to do all the work
40    eam_text_util.Get_Wo_Text
41    ( p_rowid => p_rowid, p_output_type => 'CLOB'
42      , x_tlob => x_tlob, x_tchar => l_tchar
43     );
44 END Get_Wo_Text_CLOB;
45 
46 PROCEDURE Get_Wo_Text_VARCHAR2
47 ( p_rowid  IN             ROWID
48 , x_tchar  IN OUT NOCOPY  VARCHAR2
49 ) IS
50    l_tlob    CLOB  :=  NULL;
51 BEGIN
52    --DBMS_LOB.CreateTemporary
53    --( lob_loc => l_tlob, cache => TRUE, dur => DBMS_LOB.Session );
54    -- Call Intermedia user datastore API to do all the work
55    eam_text_util.Get_Wo_Text
56    ( p_rowid => p_rowid, p_output_type => 'VARCHAR2'
57    , x_tlob => l_tlob, x_tchar => x_tchar
58    );
59    --DBMS_LOB.FreeTemporary (lob_loc => l_tlob);
60 END Get_Wo_Text_VARCHAR2;
61 
62 END EAM_TEXT_CTX_PKG;