[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_GETPROMOS
Source
1 PACKAGE BODY DPP_BPEL_GETPROMOS AS
2 /* $Header: dppvbunb.pls 120.1 2007/12/12 06:04:19 sdasan noship $ */
3 FUNCTION PL_TO_SQL16(aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE)
4 RETURN DPP_PRICING_PVT_DPP_PL_NOTI14 IS
5 aSqlItem DPP_PRICING_PVT_DPP_PL_NOTI14;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_PRICING_PVT_DPP_PL_NOTI14(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 aSqlItem.PP_TRANSACTION_NO := aPlsqlItem.PP_TRANSACTION_NO;
10 aSqlItem.EFFECTIVITY_DATE := aPlsqlItem.EFFECTIVITY_DATE;
11 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
12 aSqlItem.VENDOR_ID := aPlsqlItem.VENDOR_ID;
13 aSqlItem.VENDOR_SITE_ID := aPlsqlItem.VENDOR_SITE_ID;
14 aSqlItem.VENDOR_NUMBER := aPlsqlItem.VENDOR_NUMBER;
15 aSqlItem.VENDOR_NAME := aPlsqlItem.VENDOR_NAME;
16 aSqlItem.VENDOR_SITE_CODE := aPlsqlItem.VENDOR_SITE_CODE;
17 aSqlItem.OPERATING_UNIT := aPlsqlItem.OPERATING_UNIT;
18 RETURN aSqlItem;
19 END PL_TO_SQL16;
20 FUNCTION SQL_TO_PL16(aSqlItem DPP_PRICING_PVT_DPP_PL_NOTI14)
21 RETURN DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE IS
22 aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE;
23 BEGIN
24 aPlsqlItem.PP_TRANSACTION_NO := aSqlItem.PP_TRANSACTION_NO;
25 aPlsqlItem.EFFECTIVITY_DATE := aSqlItem.EFFECTIVITY_DATE;
26 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
27 aPlsqlItem.VENDOR_ID := aSqlItem.VENDOR_ID;
28 aPlsqlItem.VENDOR_SITE_ID := aSqlItem.VENDOR_SITE_ID;
29 aPlsqlItem.VENDOR_NUMBER := aSqlItem.VENDOR_NUMBER;
30 aPlsqlItem.VENDOR_NAME := aSqlItem.VENDOR_NAME;
31 aPlsqlItem.VENDOR_SITE_CODE := aSqlItem.VENDOR_SITE_CODE;
32 aPlsqlItem.OPERATING_UNIT := aSqlItem.OPERATING_UNIT;
33 RETURN aPlsqlItem;
34 END SQL_TO_PL16;
35 FUNCTION PL_TO_SQL18(aPlsqlItem DPP_PRICING_PVT.DPP_OBJECT_NAME_TBL_TYPE)
36 RETURN DPPPRICINGPVTDPPPLNOTI16_DPP_ IS
37 aSqlItem DPPPRICINGPVTDPPPLNOTI16_DPP_;
38 BEGIN
39 -- initialize the table
40 aSqlItem := DPPPRICINGPVTDPPPLNOTI16_DPP_();
41 aSqlItem.EXTEND(aPlsqlItem.COUNT);
42 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
43 aSqlItem(I + 1 - aPlsqlItem.FIRST) := aPlsqlItem(I);
44 END LOOP;
45 RETURN aSqlItem;
46 END PL_TO_SQL18;
47 FUNCTION SQL_TO_PL18(aSqlItem DPPPRICINGPVTDPPPLNOTI16_DPP_)
48 RETURN DPP_PRICING_PVT.DPP_OBJECT_NAME_TBL_TYPE IS
49 aPlsqlItem DPP_PRICING_PVT.DPP_OBJECT_NAME_TBL_TYPE;
50 BEGIN
51 FOR I IN 1..aSqlItem.COUNT LOOP
52 aPlsqlItem(I) := aSqlItem(I);
53 END LOOP;
54 RETURN aPlsqlItem;
55 END SQL_TO_PL18;
56 FUNCTION PL_TO_SQL19(aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_REC_TYPE)
57 RETURN DPP_PRICING_PVT_DPP_PL_NOTI16 IS
58 aSqlItem DPP_PRICING_PVT_DPP_PL_NOTI16;
59 BEGIN
60 -- initialize the object
61 aSqlItem := DPP_PRICING_PVT_DPP_PL_NOTI16(NULL, NULL, NULL, NULL, NULL);
62 aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
63 aSqlItem.ITEM_NUMBER := aPlsqlItem.ITEM_NUMBER;
64 aSqlItem.OBJECT_NAME_TBL := PL_TO_SQL18(aPlsqlItem.OBJECT_NAME_TBL);
65 aSqlItem.NEW_PRICE := aPlsqlItem.NEW_PRICE;
66 aSqlItem.CURRENCY_CODE := aPlsqlItem.CURRENCY_CODE;
67 RETURN aSqlItem;
68 END PL_TO_SQL19;
69 FUNCTION SQL_TO_PL19(aSqlItem DPP_PRICING_PVT_DPP_PL_NOTI16)
70 RETURN DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_REC_TYPE IS
71 aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_REC_TYPE;
72 BEGIN
73 aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
74 aPlsqlItem.ITEM_NUMBER := aSqlItem.ITEM_NUMBER;
75 aPlsqlItem.OBJECT_NAME_TBL := SQL_TO_PL18(aSqlItem.OBJECT_NAME_TBL);
76 aPlsqlItem.NEW_PRICE := aSqlItem.NEW_PRICE;
77 aPlsqlItem.CURRENCY_CODE := aSqlItem.CURRENCY_CODE;
78 RETURN aPlsqlItem;
79 END SQL_TO_PL19;
80 FUNCTION PL_TO_SQL17(aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE)
81 RETURN DPP_PRICING_PVT_DPP_PL_NOTI15 IS
82 aSqlItem DPP_PRICING_PVT_DPP_PL_NOTI15;
83 BEGIN
84 -- initialize the table
85 aSqlItem := DPP_PRICING_PVT_DPP_PL_NOTI15();
86 aSqlItem.EXTEND(aPlsqlItem.COUNT);
87 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
88 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL19(aPlsqlItem(I));
89 END LOOP;
90 RETURN aSqlItem;
91 END PL_TO_SQL17;
92 FUNCTION SQL_TO_PL17(aSqlItem DPP_PRICING_PVT_DPP_PL_NOTI15)
93 RETURN DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE IS
94 aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE;
95 BEGIN
96 FOR I IN 1..aSqlItem.COUNT LOOP
97 aPlsqlItem(I) := SQL_TO_PL19(aSqlItem(I));
98 END LOOP;
99 RETURN aPlsqlItem;
100 END SQL_TO_PL17;
101
102 PROCEDURE DPP_PRICING_PVT$NOTIFY_PROMOT (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,
103 X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,
104 P_PL_NOTIFY_HDR_REC IN OUT NOCOPY DPP_PRICING_PVT_DPP_PL_NOTI14,P_PL_NOTIFY_LINE_TBL IN OUT NOCOPY DPP_PRICING_PVT_DPP_PL_NOTI15) IS
105 P_PL_NOTIFY_HDR_REC_ APPS.DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE;
106 P_PL_NOTIFY_LINE_TBL_ APPS.DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE;
107 BEGIN
108 P_PL_NOTIFY_HDR_REC_ := DPP_BPEL_GETPROMOS.SQL_TO_PL16(P_PL_NOTIFY_HDR_REC);
109 P_PL_NOTIFY_LINE_TBL_ := DPP_BPEL_GETPROMOS.SQL_TO_PL17(P_PL_NOTIFY_LINE_TBL);
110 APPS.DPP_PRICING_PVT.NOTIFY_PROMOTIONS(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_PL_NOTIFY_HDR_REC_,P_PL_NOTIFY_LINE_TBL_);
111 P_PL_NOTIFY_HDR_REC := DPP_BPEL_GETPROMOS.PL_TO_SQL16(P_PL_NOTIFY_HDR_REC_);
112 P_PL_NOTIFY_LINE_TBL := DPP_BPEL_GETPROMOS.PL_TO_SQL17(P_PL_NOTIFY_LINE_TBL_);
113 END DPP_PRICING_PVT$NOTIFY_PROMOT;
114
115 END DPP_BPEL_GETPROMOS;