[Home] [Help]
PACKAGE BODY: APPS.ASO_EDUCATION_INT
Source
1 PACKAGE BODY ASO_EDUCATION_INT as
2 /* $Header: asoiedub.pls 120.1 2005/06/29 12:33:17 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_EDUCATION_INT
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 PROCEDURE Delete_OTA_Line(
12 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
13 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
14 P_Qte_Line_Id IN NUMBER,
15 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
16 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
17 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
18
19 IS
20
21 CURSOR C_Get_UOM(l_qte_ln_id NUMBER) IS
22 SELECT UOM_Code FROM ASO_QUOTE_LINES_ALL
23 WHERE Quote_Line_Id = l_qte_ln_id;
24
25 l_UOM_Code VARCHAR2(3);
26
27 BEGIN
28
29 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
30 aso_debug_pub.add('Enter Delete_OTA_Line ', 1, 'Y');
31 aso_debug_pub.add('Delete_OTA_Line- P_Qte_Line_Id: '||P_Qte_Line_Id, 1, 'N');
32 END IF;
33
34 -- Initialize message list if p_init_msg_list is set to TRUE.
35 IF FND_API.to_Boolean( P_Init_Msg_List ) THEN
36 FND_MSG_PUB.initialize;
37 END IF;
38
39 -- Initialize API return status to success
40 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
41
42 OPEN C_Get_UOM(P_Qte_Line_Id);
43 FETCH C_Get_UOM INTO l_UOM_Code;
44 CLOSE C_Get_UOM;
45
46 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
47 aso_debug_pub.add('Delete_OTA_Line- l_UOM_Code: '||l_UOM_Code, 1, 'N');
48 END IF;
49
50 IF l_UOM_Code = 'ENR' THEN
51
52 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
53 aso_debug_pub.add('Delete_OTA_Line- l_UOM_Code=ENR ', 1, 'N');
54 END IF;
55 /*
56 OTA_ASO_INTERFACE.ota_aso_del(
57 P_Api_Version => 1.0,
58 P_Init_Msg_List => FND_API.G_FALSE,
59 P_Commit => FND_API.G_FALSE,
60 P_Quote_Line_Id => P_Qte_Line_Id,
61 X_Return_Status => X_Return_Status,
62 X_Msg_Count => X_Msg_Count,
63 X_Msg_Data => X_Msg_Data);
64 aso_debug_pub.add('Delete_OTA_Line- after OTA_ASO_INTERFACE.ota_aso_del: '||X_Return_Status, 1, 'N');
65 IF X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
66 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
67 FND_MESSAGE.Set_Name('ASO', 'ASO_ERR_DELETE_OTA_LINE');
68 FND_MSG_PUB.ADD;
69 END IF;
70 END IF;
71 */
72 END IF;
73
74 END Delete_OTA_Line;
75
76
77 PROCEDURE Update_OTA_With_OrderLine(
78 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
79 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
80 P_Order_Line_Tbl IN ASO_ORDER_INT.Order_Line_Tbl_Type,
81 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
82 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
83 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
84
85 IS
86
87 CURSOR C_Get_UOM_Line(l_ship_ln_id NUMBER) IS
88 SELECT qtl.UOM_Code, qtl.Quote_Line_Id
89 FROM ASO_QUOTE_LINES_ALL qtl, ASO_SHIPMENTS shp
90 WHERE shp.Shipment_Id = l_ship_ln_id
91 AND shp.Quote_Line_Id = qtl.Quote_Line_Id;
92
93 l_UOM_Code VARCHAR2(3);
94 l_Qte_Line_Id NUMBER;
95
96 BEGIN
97
98 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
99 aso_debug_pub.add('Enter Update_OTA_Line ', 1, 'Y');
100 aso_debug_pub.add('Update_OTA_Line- P_Order_Line_Tbl.count: '||P_Order_Line_Tbl.count, 1, 'N');
101 END IF;
102
103 -- Initialize message list if p_init_msg_list is set to TRUE.
104 IF FND_API.to_Boolean( P_Init_Msg_List ) THEN
105 FND_MSG_PUB.initialize;
106 END IF;
107
108 -- Initialize API return status to success
109 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
110
111 FOR i IN 1..P_Order_Line_Tbl.count LOOP
112
113 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
114 aso_debug_pub.add('Update_OTA_Line- P_Order_Line_Tbl(i).Quote_Shipment_Line_Id: '||P_Order_Line_Tbl(i).Quote_Shipment_Line_Id, 1, 'N');
115 END IF;
116
117 OPEN C_Get_UOM_Line(P_Order_Line_Tbl(i).Quote_Shipment_Line_Id);
118 FETCH C_Get_UOM_Line INTO l_UOM_Code, l_Qte_Line_Id;
119 CLOSE C_Get_UOM_Line;
120
121 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
122 aso_debug_pub.add('Update_OTA_Line- l_UOM_Code: '||l_UOM_Code, 1, 'N');
123 aso_debug_pub.add('Update_OTA_Line- l_Qte_Line_Id: '||l_Qte_Line_Id, 1, 'N');
124 END IF;
125
126 IF l_UOM_Code = 'ENR' THEN
127
128 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
129 aso_debug_pub.add('Update_OTA_Line- l_UOM_Code=ENR ', 1, 'N');
130 END IF;
131 /*
132 OTA_ASO_INTERFACE.ota_aso_upd(
133 P_Api_Version => 1.0,
134 P_Init_Msg_List => FND_API.G_FALSE,
135 P_Commit => FND_API.G_FALSE,
136 P_Quote_Line_Id => l_Qte_Line_Id,
137 P_Order_Line_Id => P_Order_Line_Tbl(i).Order_Line_Id,
138 X_Return_Status => X_Return_Status,
139 X_Msg_Count => X_Msg_Count,
140 X_Msg_Data => X_Msg_Data);
141 aso_debug_pub.add('Update_OTA_Line- after OTA_ASO_INTERFACE.ota_aso_upd: '||X_Return_Status, 1, 'N');
142 IF X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
143 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
144 FND_MESSAGE.Set_Name('ASO', 'ASO_ERR_UPDATE_OTA_LINE');
145 FND_MSG_PUB.ADD;
146 END IF;
147 END IF;
148 */
149 END IF; -- UOM = 'ENR'
150
151 END LOOP; -- Order_line_tbl
152
153 END Update_OTA_With_OrderLine;
154
155
156 END ASO_EDUCATION_INT;