1: PACKAGE BODY Ibc_Utilities_Pvt AS
2: /* $Header: ibcvutlb.pls 120.5 2006/01/20 20:53:33 apulijal ship $ */
3:
4: -- ---------------------------------------------------
5: -- ----------- PACKAGE VARIABLES ---------------------
3:
4: -- ---------------------------------------------------
5: -- ----------- PACKAGE VARIABLES ---------------------
6: -- ---------------------------------------------------
7: G_PKG_NAME CONSTANT VARCHAR2(30):='IBC_Utilities_Pvt';
8: G_FILE_NAME CONSTANT VARCHAR2(12):='ibcvutlb.pls';
9:
10: G_APPL_ID NUMBER := Fnd_Global.Prog_Appl_Id;
11: G_LOGIN_ID NUMBER := Fnd_Global.Conc_Login_Id;
371: --// p_lang_code has taken translation approval into account
372: CURSOR Get_Rendition_Name IS
373: SELECT NVL(DESCRIPTION, MEANING)
374: FROM FND_LOOKUP_VALUES
375: WHERE LOOKUP_TYPE = Ibc_Utilities_Pvt.G_REND_LOOKUP_TYPE
376: AND LANGUAGE = NVL(p_lang_code, USERENV('LANG'))
377: AND LOOKUP_CODE = l_mime_type;
378: BEGIN
379: IF (p_item_reference_code IS NOT NULL) THEN
414: OPEN Get_Rendition_Name;
415: FETCH Get_Rendition_Name INTO l_rendition_name;
416: IF Get_Rendition_Name%NOTFOUND THEN
417: CLOSE Get_Rendition_Name;
418: l_mime_type := Ibc_Utilities_Pvt.G_REND_UNKNOWN_MIME;
419: OPEN Get_Rendition_Name;
420: FETCH Get_Rendition_Name INTO l_rendition_name;
421: CLOSE Get_Rendition_Name;
422: ELSE
1694: RETURN l_string;
1695:
1696: END Replace_Special_Chars;
1697:
1698: END Ibc_Utilities_Pvt;