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_POPCOVINV

Source


1 PACKAGE BODY DPP_BPEL_POPCOVINV AS
2 /* $Header: dppvbpib.pls 120.2 2011/07/14 09:54:23 rvkondur ship $ */
3 	FUNCTION PL_TO_SQL7(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_HDR_REC_TYPE)
4  	RETURN DPP_COVEREDINVENTORY_PVT_DPP7 IS
5 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP7;
6 	BEGIN
7 		-- initialize the object
8 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP7(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_SQL7;
20 	FUNCTION SQL_TO_PL7(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP7)
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_PL7;
35 	FUNCTION PL_TO_SQL8(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_REC_TYPE)
36  	RETURN DPP_COVEREDINVENTORY_PVT_DP13 IS
37 	aSqlItem DPP_COVEREDINVENTORY_PVT_DP13;
38 	BEGIN
39 		-- initialize the object
40 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DP13(NULL, NULL);
41 		aSqlItem.DATE_RECEIVED := aPlsqlItem.DATE_RECEIVED;
42 		aSqlItem.ONHAND_QUANTITY := aPlsqlItem.ONHAND_QUANTITY;
43 		RETURN aSqlItem;
44 	END PL_TO_SQL8;
45 	FUNCTION SQL_TO_PL9(aSqlItem DPP_COVEREDINVENTORY_PVT_DP13)
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_PL9;
53 	FUNCTION PL_TO_SQL9(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_RCT_TBL_TYPE)
54  	RETURN DPPCOVEREDINVENTORYPVTDP11_DP IS
55 	aSqlItem DPPCOVEREDINVENTORYPVTDP11_DP;
56 	BEGIN
57 		-- initialize the table
58 		aSqlItem := DPPCOVEREDINVENTORYPVTDP11_DP();
59 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
60 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
61 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL8(aPlsqlItem(I));
62 		END LOOP;
63 		RETURN aSqlItem;
64 	END PL_TO_SQL9;
65 	FUNCTION SQL_TO_PL10(aSqlItem DPPCOVEREDINVENTORYPVTDP11_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_PL9(aSqlItem(I));
71 		END LOOP;
72 		RETURN aPlsqlItem;
73 	END SQL_TO_PL10;
74 	FUNCTION PL_TO_SQL10(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_REC_TYPE)
75  	RETURN DPP_COVEREDINVENTORY_PVT_DP11 IS
76 	aSqlItem DPP_COVEREDINVENTORY_PVT_DP11;
77 	BEGIN
78 		-- initialize the object
79 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DP11(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_SQL9(aPlsqlItem.RCT_LINE_TBL);
84 		RETURN aSqlItem;
85 	END PL_TO_SQL10;
86 	FUNCTION SQL_TO_PL11(aSqlItem DPP_COVEREDINVENTORY_PVT_DP11)
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_PL10(aSqlItem.RCT_LINE_TBL);
94 		RETURN aPlsqlItem;
95 	END SQL_TO_PL11;
96 	FUNCTION PL_TO_SQL11(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_WH_TBL_TYPE)
97  	RETURN DPPCOVEREDINVENTORYPVTDPP9_DP IS
98 	aSqlItem DPPCOVEREDINVENTORYPVTDPP9_DP;
99 	BEGIN
100 		-- initialize the table
101 		aSqlItem := DPPCOVEREDINVENTORYPVTDPP9_DP();
102 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
103 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
104 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL10(aPlsqlItem(I));
105 		END LOOP;
106 		RETURN aSqlItem;
107 	END PL_TO_SQL11;
108 	FUNCTION SQL_TO_PL12(aSqlItem DPPCOVEREDINVENTORYPVTDPP9_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_PL11(aSqlItem(I));
114 		END LOOP;
115 		RETURN aPlsqlItem;
116 	END SQL_TO_PL12;
117 	FUNCTION PL_TO_SQL12(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_REC_TYPE)
118  	RETURN DPP_COVEREDINVENTORY_PVT_DPP9 IS
119 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP9;
120 	BEGIN
121 		-- initialize the object
122 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP9(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_SQL11(aPlsqlItem.WH_LINE_TBL);
129 		RETURN aSqlItem;
130 	END PL_TO_SQL12;
131 	FUNCTION SQL_TO_PL13(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP9)
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_PL12(aSqlItem.WH_LINE_TBL);
141 		RETURN aPlsqlItem;
142 	END SQL_TO_PL13;
143 	FUNCTION PL_TO_SQL13(aPlsqlItem DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_TBL_TYPE)
144  	RETURN DPP_COVEREDINVENTORY_PVT_DPP8 IS
145 	aSqlItem DPP_COVEREDINVENTORY_PVT_DPP8;
146 	BEGIN
147 		-- initialize the table
148 		aSqlItem := DPP_COVEREDINVENTORY_PVT_DPP8();
149 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
150 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
151 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL12(aPlsqlItem(I));
152 		END LOOP;
153 		RETURN aSqlItem;
154 	END PL_TO_SQL13;
155 	FUNCTION SQL_TO_PL8(aSqlItem DPP_COVEREDINVENTORY_PVT_DPP8)
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_PL13(aSqlItem(I));
161 		END LOOP;
162 		RETURN aPlsqlItem;
163 	END SQL_TO_PL8;
164 
165    PROCEDURE DPP_COVEREDINVENTORY_PVT$POPU (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,
166    P_VALIDATION_LEVEL NUMBER,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_DPP7,P_COVERED_INV_TBL DPP_COVEREDINVENTORY_PVT_DPP8) IS
168       P_INV_HDR_REC_ DPP_COVEREDINVENTORY_PVT.DPP_INV_HDR_REC_TYPE;
169       P_COVERED_INV_TBL_ DPP_COVEREDINVENTORY_PVT.DPP_INV_COV_TBL_TYPE;
170    BEGIN
171       P_INV_HDR_REC_ := DPP_BPEL_POPCOVINV.SQL_TO_PL7(P_INV_HDR_REC);
172       P_COVERED_INV_TBL_ := DPP_BPEL_POPCOVINV.SQL_TO_PL8(P_COVERED_INV_TBL);
173       DPP_COVEREDINVENTORY_PVT.POPULATE_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    END DPP_COVEREDINVENTORY_PVT$POPU;
175 
176 END DPP_BPEL_POPCOVINV;