1: PACKAGE BODY DPP_BPEL_GETTRANSLATEDMESSAGE AS
2: /* $Header: dppvbgtb.pls 120.0 2008/03/25 06:25:21 vdewan noship $ */
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
1: PACKAGE BODY DPP_BPEL_GETTRANSLATEDMESSAGE AS
2: /* $Header: dppvbgtb.pls 120.0 2008/03/25 06:25:21 vdewan noship $ */
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);
1: PACKAGE BODY DPP_BPEL_GETTRANSLATEDMESSAGE AS
2: /* $Header: dppvbgtb.pls 120.0 2008/03/25 06:25:21 vdewan noship $ */
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;
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;
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;
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;
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;
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
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_();
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);
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;
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
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));
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_ APPS.DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_TBL_TYPE;
48: BEGIN
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_ APPS.DPP_NOTIFICATION_PVT.MESSAGE_TOKENS_TBL_TYPE;
48: BEGIN
49: P_MESSAGE_TOKEN_ := DPP_BPEL_GETTRANSLATEDMESSAGE.SQL_TO_PL0(P_MESSAGE_TOKEN);
50: APPS.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);