eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.DPP_BPEL_SELCOVINV

Source


1 PACKAGE BODY DPP_BPEL_SELCOVINV AS
2 /* $Header: dppvbsib.pls 120.2 2007/12/12 06:28:17 sdasan noship $ */
3 	FUNCTION PL_TO_SQL1(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_HDR_REC_TYPE)
4  	RETURN DPP_COVEREDINVENTORY_PVT_DPP_ IS
5 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP_;
6 	BEGIN
7 		-- initialize the object
8 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP_(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 		aSqlItem.TRANSACTION_HEADER_ID := aPlsqlItem.TRANSACTION_HEADER_ID;
10 		aSqlItem.EFFECTIVE_START_DATE := aPlsqlItem.EFFECTIVE_START_DATE;
11 		aSqlItem.EFFECTIVE_END_DATE := aPlsqlItem.EFFECTIVE_END_DATE;
12 		aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
13 		aSqlItem.EXECUTION_DETAIL_ID := aPlsqlItem.EXECUTION_DETAIL_ID;
14 		aSqlItem.OUTPUT_XML := aPlsqlItem.OUTPUT_XML;
15 		aSqlItem.PROVIDER_PROCESS_ID := aPlsqlItem.PROVIDER_PROCESS_ID;
16 		aSqlItem.PROVIDER_PROCESS_INSTANCE_ID := aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID;
17 		aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
18 		RETURN aSqlItem;
19 	END PL_TO_SQL1;
20 	FUNCTION SQL_TO_PL0(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP_)
21 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_HDR_REC_TYPE IS
22 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_HDR_REC_TYPE;
23 	BEGIN
24 		aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
25 		aPlsqlItem.EFFECTIVE_START_DATE := aSqlItem.EFFECTIVE_START_DATE;
26 		aPlsqlItem.EFFECTIVE_END_DATE := aSqlItem.EFFECTIVE_END_DATE;
27 		aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
28 		aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
29 		aPlsqlItem.OUTPUT_XML := aSqlItem.OUTPUT_XML;
30 		aPlsqlItem.PROVIDER_PROCESS_ID := aSqlItem.PROVIDER_PROCESS_ID;
31 		aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID := aSqlItem.PROVIDER_PROCESS_INSTANCE_ID;
32 		aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
33 		RETURN aPlsqlItem;
34 	END SQL_TO_PL0;
35 	FUNCTION PL_TO_SQL2(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_REC_TYPE)
36  	RETURN DPP_COVEREDINVENTORY_PVT_DPP6 IS
37 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP6;
38 	BEGIN
39 		-- initialize the object
40 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP6(NULL, NULL);
41 		aSqlItem.DATE_RECEIVED := aPlsqlItem.DATE_RECEIVED;
42 		aSqlItem.ONHAND_QUANTITY := aPlsqlItem.ONHAND_QUANTITY;
43 		RETURN aSqlItem;
44 	END PL_TO_SQL2;
45 	FUNCTION SQL_TO_PL2(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP6)
46 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_REC_TYPE IS
47 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_REC_TYPE;
48 	BEGIN
49 		aPlsqlItem.DATE_RECEIVED := aSqlItem.DATE_RECEIVED;
50 		aPlsqlItem.ONHAND_QUANTITY := aSqlItem.ONHAND_QUANTITY;
51 		RETURN aPlsqlItem;
52 	END SQL_TO_PL2;
53 	FUNCTION PL_TO_SQL3(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_TBL_TYPE)
54  	RETURN DPPCOVEREDINVENTORYPVTDPP4_DP IS
55 	aSqlItem DPPCOVEREDINVENTORYPVTDPP4_DP;
56 	BEGIN
57 		-- initialize the table
58 		aSqlItem := DPPCOVEREDINVENTORYPVTDPP4_DP();
59 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
60 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
61 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL2(aPlsqlItem(I));
62 		END LOOP;
63 		RETURN aSqlItem;
64 	END PL_TO_SQL3;
65 	FUNCTION SQL_TO_PL3(aSqlItem DPPCOVEREDINVENTORYPVTDPP4_DP)
66 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_TBL_TYPE IS
67 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_TBL_TYPE;
68 	BEGIN
69 		FOR I IN 1..aSqlItem.COUNT LOOP
70 			aPlsqlItem(I) := SQL_TO_PL2(aSqlItem(I));
71 		END LOOP;
72 		RETURN aPlsqlItem;
73 	END SQL_TO_PL3;
74 	FUNCTION PL_TO_SQL4(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_REC_TYPE)
75  	RETURN DPP_COVEREDINVENTORY_PVT_DPP4 IS
76 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP4;
77 	BEGIN
78 		-- initialize the object
79 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP4(NULL, NULL, NULL, NULL);
80 		aSqlItem.WAREHOUSE_ID := aPlsqlItem.WAREHOUSE_ID;
81 		aSqlItem.WAREHOUSE_NAME := aPlsqlItem.WAREHOUSE_NAME;
82 		aSqlItem.COVERED_QUANTITY := aPlsqlItem.COVERED_QUANTITY;
83 		aSqlItem.RCT_LINE_TBL := PL_TO_SQL3(aPlsqlItem.RCT_LINE_TBL);
84 		RETURN aSqlItem;
85 	END PL_TO_SQL4;
86 	FUNCTION SQL_TO_PL4(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP4)
87 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_REC_TYPE IS
88 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_REC_TYPE;
89 	BEGIN
90 		aPlsqlItem.WAREHOUSE_ID := aSqlItem.WAREHOUSE_ID;
91 		aPlsqlItem.WAREHOUSE_NAME := aSqlItem.WAREHOUSE_NAME;
92 		aPlsqlItem.COVERED_QUANTITY := aSqlItem.COVERED_QUANTITY;
93 		aPlsqlItem.RCT_LINE_TBL := SQL_TO_PL3(aSqlItem.RCT_LINE_TBL);
94 		RETURN aPlsqlItem;
95 	END SQL_TO_PL4;
96 	FUNCTION PL_TO_SQL5(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_TBL_TYPE)
97  	RETURN DPPCOVEREDINVENTORYPVTDPP2_DP IS
98 	aSqlItem DPPCOVEREDINVENTORYPVTDPP2_DP;
99 	BEGIN
100 		-- initialize the table
101 		aSqlItem := DPPCOVEREDINVENTORYPVTDPP2_DP();
102 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
103 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
104 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL4(aPlsqlItem(I));
105 		END LOOP;
106 		RETURN aSqlItem;
107 	END PL_TO_SQL5;
108 	FUNCTION SQL_TO_PL5(aSqlItem DPPCOVEREDINVENTORYPVTDPP2_DP)
109 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_TBL_TYPE IS
110 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_TBL_TYPE;
111 	BEGIN
112 		FOR I IN 1..aSqlItem.COUNT LOOP
113 			aPlsqlItem(I) := SQL_TO_PL4(aSqlItem(I));
114 		END LOOP;
115 		RETURN aPlsqlItem;
116 	END SQL_TO_PL5;
117 	FUNCTION PL_TO_SQL6(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_REC_TYPE)
118  	RETURN DPP_COVEREDINVENTORY_PVT_DPP2 IS
119 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP2;
120 	BEGIN
121 		-- initialize the object
122 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP2(NULL, NULL, NULL, NULL, NULL, NULL);
123 		aSqlItem.TRANSACTION_LINE_ID := aPlsqlItem.TRANSACTION_LINE_ID;
124 		aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
125 		aSqlItem.UOM_CODE := aPlsqlItem.UOM_CODE;
126 		aSqlItem.ONHAND_QUANTITY := aPlsqlItem.ONHAND_QUANTITY;
127 		aSqlItem.COVERED_QUANTITY := aPlsqlItem.COVERED_QUANTITY;
128 		aSqlItem.WH_LINE_TBL := PL_TO_SQL5(aPlsqlItem.WH_LINE_TBL);
129 		RETURN aSqlItem;
130 	END PL_TO_SQL6;
131 	FUNCTION SQL_TO_PL6(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP2)
132 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_REC_TYPE IS
133 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_REC_TYPE;
134 	BEGIN
135 		aPlsqlItem.TRANSACTION_LINE_ID := aSqlItem.TRANSACTION_LINE_ID;
136 		aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
137 		aPlsqlItem.UOM_CODE := aSqlItem.UOM_CODE;
138 		aPlsqlItem.ONHAND_QUANTITY := aSqlItem.ONHAND_QUANTITY;
139 		aPlsqlItem.COVERED_QUANTITY := aSqlItem.COVERED_QUANTITY;
140 		aPlsqlItem.WH_LINE_TBL := SQL_TO_PL5(aSqlItem.WH_LINE_TBL);
141 		RETURN aPlsqlItem;
142 	END SQL_TO_PL6;
143 	FUNCTION PL_TO_SQL0(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_TBL_TYPE)
144  	RETURN DPP_COVEREDINVENTORY_PVT_DPP1 IS
145 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP1;
146 	BEGIN
147 		-- initialize the table
148 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP1();
149 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
150 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
151 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL6(aPlsqlItem(I));
152 		END LOOP;
153 		RETURN aSqlItem;
154 	END PL_TO_SQL0;
155 	FUNCTION SQL_TO_PL1(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP1)
156 	RETURN DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_TBL_TYPE IS
157 	aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_TBL_TYPE;
158 	BEGIN
159 		FOR I IN 1..aSqlItem.COUNT LOOP
160 			aPlsqlItem(I) := SQL_TO_PL6(aSqlItem(I));
161 		END LOOP;
162 		RETURN aPlsqlItem;
163 	END SQL_TO_PL1;
164 
165    PROCEDURE DPP_COVEREDINVENTORY_PVT$SELE (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,
166    X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,
167    P_INV_HDR_REC DPP_COVEREDINVENTORY_PVT_DPP_,P_COVERED_INV_TBL IN OUT NOCOPY DPP_COVEREDINVENTORY_PVT_DPP1) IS
168       P_INV_HDR_REC_ APPS.DPP_COVEREDINVENTORY_PVT.DPP_INV_HDR_REC_TYPE;
169       P_COVERED_INV_TBL_ APPS.DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_TBL_TYPE;
170    BEGIN
171       P_INV_HDR_REC_ := DPP_BPEL_SELCOVINV.SQL_TO_PL0(P_INV_HDR_REC);
172       P_COVERED_INV_TBL_ := DPP_BPEL_SELCOVINV.SQL_TO_PL1(P_COVERED_INV_TBL);
173       APPS.DPP_COVEREDINVENTORY_PVT.SELECT_COVEREDINVENTORY(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_INV_HDR_REC_,P_COVERED_INV_TBL_);
174       P_COVERED_INV_TBL := DPP_BPEL_SELCOVINV.PL_TO_SQL0(P_COVERED_INV_TBL_);
175    END DPP_COVEREDINVENTORY_PVT$SELE;
176 
177 END DPP_BPEL_SELCOVINV;