[Home] [Help]
PACKAGE BODY: APPS.JL_JLBRRIVB_XMLP_PKG
Source
1 PACKAGE BODY JL_JLBRRIVB_XMLP_PKG AS
2 /* $Header: JLBRRIVBB.pls 120.1 2007/12/25 16:42:31 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 GET_BASE_CURR_DATA;
8 RETURN (TRUE);
9 END BEFOREREPORT;
10 PROCEDURE GET_BASE_CURR_DATA IS
11 BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
12 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
13 ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
14 BEGIN
15 BASE_CURR := '';
16 PREC := 0;
17 ORG_NAME := '';
18 BEGIN
19 SELECT
20 FCURR.CURRENCY_CODE,
21 FCURR.PRECISION,
22 GSBKS.NAME
23 INTO BASE_CURR,PREC,ORG_NAME
24 FROM
25 AR_SYSTEM_PARAMETERS ASP,
26 FND_CURRENCIES_VL FCURR,
27 GL_SETS_OF_BOOKS GSBKS
28 WHERE ASP.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
29 AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
30 EXCEPTION
31 WHEN NO_DATA_FOUND THEN
32 RAISE_ERR('20098'
33 ,'JL_AR_FA_CURR_DET_NOT_DEFINED');
34 WHEN OTHERS THEN
35 RAISE_ORA_ERR('20099');
36 END;
37 CP_BASE_CURRENCY_CODE := BASE_CURR;
38 CP_BASE_PRECISION := PREC;
39 CP_ORGANISATION_NAME := ORG_NAME;
40 END GET_BASE_CURR_DATA;
41 FUNCTION AFTERREPORT RETURN BOOLEAN IS
42 BEGIN
43 BEGIN
44 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
45 EXCEPTION
46 WHEN OTHERS THEN
47 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
48 END;
49 RETURN (TRUE);
50 END AFTERREPORT;
51 PROCEDURE RAISE_ORA_ERR(ERRNO IN VARCHAR2) IS
52 ERRMSG VARCHAR2(1000);
53 BEGIN
54 ERRMSG := SQLERRM;
55 /*SRW.MESSAGE(ERRNO
56 ,ERRMSG)*/NULL;
57 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
58 END RAISE_ORA_ERR;
59 PROCEDURE RAISE_ERR(ERRNO IN VARCHAR2
60 ,MSGNAME IN VARCHAR2) IS
61 ERRMSG VARCHAR2(1000);
62 BEGIN
63 SET_NAME('JL'
64 ,MSGNAME);
65 ERRMSG := GET;
66 /*SRW.MESSAGE(ERRNO
67 ,ERRMSG)*/NULL;
68 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
69 END RAISE_ERR;
70 FUNCTION CP_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
71 BEGIN
72 RETURN CP_BASE_CURRENCY_CODE;
73 END CP_BASE_CURRENCY_CODE_P;
74 FUNCTION CP_BASE_PRECISION_P RETURN NUMBER IS
75 BEGIN
76 RETURN CP_BASE_PRECISION;
77 END CP_BASE_PRECISION_P;
78 FUNCTION CP_ORGANISATION_NAME_P RETURN VARCHAR2 IS
79 BEGIN
80 RETURN CP_ORGANISATION_NAME;
81 END CP_ORGANISATION_NAME_P;
82 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
83 ,NAME IN VARCHAR2) IS
84 BEGIN
85 FND_MESSAGE.SET_NAME(APPLICATION, NAME);
86 END SET_NAME;
87 FUNCTION GET RETURN VARCHAR2 IS
88 X0 VARCHAR2(2000);
89 BEGIN
90 X0 := FND_MESSAGE.GET;
91 RETURN X0;
92 END GET;
93 /* PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
94 ,VALUE IN VARCHAR2
95 ,TRANSLATE IN BOOLEAN) IS
96 BEGIN
97 STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
98 STPROC.BIND_I(TRANSLATE);
99 STPROC.BIND_I(TOKEN);
100 STPROC.BIND_I(VALUE);
101 STPROC.EXECUTE;
102 END SET_TOKEN;
103 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
104 BEGIN
105 STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
106 STPROC.BIND_O(MSGOUT);
107 STPROC.EXECUTE;
108 STPROC.RETRIEVE(1
109 ,MSGOUT);
110 END RETRIEVE;
111 PROCEDURE CLEAR IS
112 BEGIN
113 STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
114 STPROC.EXECUTE;
115 END CLEAR;
116 FUNCTION GET_STRING(APPIN IN VARCHAR2
117 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
118 X0 VARCHAR2(2000);
119 BEGIN
120 STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
121 STPROC.BIND_O(X0);
122 STPROC.BIND_I(APPIN);
123 STPROC.BIND_I(NAMEIN);
124 STPROC.EXECUTE;
125 STPROC.RETRIEVE(1
126 ,X0);
127 RETURN X0;
128 END GET_STRING;
129 FUNCTION GET_NUMBER(APPIN IN VARCHAR2
130 ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
131 X0 NUMBER;
132 BEGIN
133 STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
134 STPROC.BIND_O(X0);
135 STPROC.BIND_I(APPIN);
136 STPROC.BIND_I(NAMEIN);
137 STPROC.EXECUTE;
138 STPROC.RETRIEVE(1
139 ,X0);
140 RETURN X0;
141 END GET_NUMBER;
142 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
143 X0 VARCHAR2(2000);
144 BEGIN
145 STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
146 STPROC.BIND_O(X0);
147 STPROC.EXECUTE;
148 STPROC.RETRIEVE(1
149 ,X0);
150 RETURN X0;
151 END GET_ENCODED;
152 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
153 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
154 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
155 BEGIN
156 STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
157 STPROC.BIND_I(ENCODED_MESSAGE);
158 STPROC.BIND_O(APP_SHORT_NAME);
159 STPROC.BIND_O(MESSAGE_NAME);
160 STPROC.EXECUTE;
161 STPROC.RETRIEVE(2
162 ,APP_SHORT_NAME);
163 STPROC.RETRIEVE(3
164 ,MESSAGE_NAME);
165 END PARSE_ENCODED;
166 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
167 BEGIN
168 STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
169 STPROC.BIND_I(ENCODED_MESSAGE);
170 STPROC.EXECUTE;
171 END SET_ENCODED;
172 PROCEDURE RAISE_ERROR IS
173 BEGIN
174 STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
175 STPROC.EXECUTE;
176 END RAISE_ERROR;*/
177 END JL_JLBRRIVB_XMLP_PKG;
178
179