[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_GETTRANSLATEDMESSAGE
Source
1 PACKAGE BODY DPP_BPEL_GETTRANSLATEDMESSAGE AS
2 /* $Header: dppvbgtb.pls 120.1 2011/07/14 09:47:31 rvkondur ship $ */
3 FUNCTION PL_TO_SQL0(aPlsqlItem DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_REC_TYPE)
4 RETURN DPP_NOTIFICATION_PVT_MESSAGE1 IS
5 aSqlItem DPP_NOTIFICATION_PVT_MESSAGE1;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_NOTIFICATION_PVT_MESSAGE1(NULL, NULL);
9 aSqlItem.MESSAGE_TOKEN_NAME := aPlsqlItem.MESSAGE_TOKEN_NAME;
10 aSqlItem.MESSAGE_TOKEN_VALUE := aPlsqlItem.MESSAGE_TOKEN_VALUE;
11 RETURN aSqlItem;
12 END PL_TO_SQL0;
13 FUNCTION SQL_TO_PL1(aSqlItem DPP_NOTIFICATION_PVT_MESSAGE1)
14 RETURN DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_REC_TYPE IS
15 aPlsqlItem DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_REC_TYPE;
16 BEGIN
17 aPlsqlItem.MESSAGE_TOKEN_NAME := aSqlItem.MESSAGE_TOKEN_NAME;
18 aPlsqlItem.MESSAGE_TOKEN_VALUE := aSqlItem.MESSAGE_TOKEN_VALUE;
19 RETURN aPlsqlItem;
20 END SQL_TO_PL1;
21 FUNCTION PL_TO_SQL1(aPlsqlItem DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_TBL_TYPE)
22 RETURN DPP_NOTIFICATION_PVT_MESSAGE_ IS
23 aSqlItem DPP_NOTIFICATION_PVT_MESSAGE_;
24 BEGIN
25 -- initialize the table
26 aSqlItem := DPP_NOTIFICATION_PVT_MESSAGE_();
27 aSqlItem.EXTEND(aPlsqlItem.COUNT);
28 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
29 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL0(aPlsqlItem(I));
30 END LOOP;
31 RETURN aSqlItem;
32 END PL_TO_SQL1;
33 FUNCTION SQL_TO_PL0(aSqlItem DPP_NOTIFICATION_PVT_MESSAGE_)
34 RETURN DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_TBL_TYPE IS
35 aPlsqlItem DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_TBL_TYPE;
36 BEGIN
37 FOR I IN 1..aSqlItem.COUNT LOOP
38 aPlsqlItem(I) := SQL_TO_PL1(aSqlItem(I));
39 END LOOP;
40 RETURN aPlsqlItem;
41 END SQL_TO_PL0;
42
43 PROCEDURE DPP_NOTIFICATION_PVT$SELECT_M (X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,
44 P_MESSAGE_NAME VARCHAR2,P_APPLICATION_SHORT_NAME VARCHAR2,P_LANGUAGE_CODE VARCHAR2,P_MESSAGE_TOKEN DPP_NOTIFICATION_PVT_MESSAGE_,
45 X_MESSAGE_TYPE OUT NOCOPY VARCHAR2,X_MESSAGE_CATEGORY OUT NOCOPY VARCHAR2,X_MESSAGE_TEXT OUT NOCOPY VARCHAR2,
46 X_MESSAGE_SEVERITY OUT NOCOPY VARCHAR2) IS
47 P_MESSAGE_TOKEN_ DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_TBL_TYPE;
48 BEGIN
49 P_MESSAGE_TOKEN_ := DPP_BPEL_GETTRANSLATEDMESSAGE.SQL_TO_PL0(P_MESSAGE_TOKEN);
50 DPP_NOTIFICATION_PVT.SELECT_MESSAGE_TEXT(X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_MESSAGE_NAME,
51 P_APPLICATION_SHORT_NAME,P_LANGUAGE_CODE,P_MESSAGE_TOKEN_,X_MESSAGE_TYPE,X_MESSAGE_CATEGORY,X_MESSAGE_TEXT,X_MESSAGE_SEVERITY);
52 END DPP_NOTIFICATION_PVT$SELECT_M;
53
54 END DPP_BPEL_GETTRANSLATEDMESSAGE;