[Home] [Help]
24: Function Valid_Drop_Ship_Source_ID(P_Drop_Ship_Source_ID In Number)
25: Return Boolean Is
26: Cursor L_Drop_Ship_Source_ID_Csr Is
27: Select Count(*)
28: From SO_DROP_SHIP_SOURCES
29: Where Drop_Ship_Source_ID = P_Drop_Ship_Source_ID ;
30: --
31: L_Drop_Ship_Source_Count Number(4);
32: Begin
38: Return False;
39: End If;
40: End Valid_Drop_Ship_Source_ID;
41: --
42: Procedure Insert_SO_Drop_Ship_Sources (P_Drop_Ship_Source_ID In Number,
43: P_Header_ID In Number,
44: P_Line_ID In Number,
45: P_Org_ID In Number,
46: P_Destination_Organization_ID In Number,
52: Default Null)
53: IS
54: Begin
55:
56: Insert Into SO_Drop_Ship_Sources
57: (
58: Drop_Ship_Source_ID,
59: Header_ID,
60: Line_ID,
88: Nvl(To_Number(FND_PROFILE.VALUE('USER_ID')),-1),
89: Trunc(Sysdate),
90: Nvl(To_Number(FND_PROFILE.VALUE('USER_ID')),-1)
91: );
92: End Insert_SO_Drop_Ship_Sources;
93: --
94: -- Update_Req_Info is an OE procedure that is called by Oracle Purchasing to
95: -- update requisition information for a drop shipped line. This procedure is
96: -- called in the Requisition Import (ReqImport) process of Oracle Purchasing
118: Requisition_Header_ID,
119: Requisition_Line_ID,
120: PO_Header_ID,
121: PO_Line_ID
122: From SO_Drop_Ship_Sources
123: Where Drop_Ship_source_ID = P_Interface_Source_Line_ID
124: For Update of Requisition_Header_ID;
125: --
126: Begin
164: --
165: If L_SO_Drop_Ship_Source_Csr%Found Then
166: If G_Requisition_Header_ID Is Null Then -- Requisition being updated for the
167: -- first time
168: Update SO_Drop_Ship_Sources
169: Set Requisition_Header_ID = P_Requisition_Header_ID,
170: Requisition_LIne_ID = P_Requisition_Line_ID,
171: Last_Update_Date = Trunc(Sysdate),
172: Last_Updated_By = Nvl(To_Number(FND_PROFILE.VALUE('USER_ID')),-1)
171: Last_Update_Date = Trunc(Sysdate),
172: Last_Updated_By = Nvl(To_Number(FND_PROFILE.VALUE('USER_ID')),-1)
173: Where Current of L_SO_Drop_Ship_SOurce_Csr;
174: Else -- Another requisition for same order line.
175: Insert_SO_Drop_Ship_Sources ( P_Drop_Ship_Source_ID => G_Drop_Ship_Source_ID,
176: P_Header_ID => G_Header_ID,
177: P_Line_ID => G_Line_ID,
178: P_Org_ID => G_Org_ID,
179: P_Destination_Organization_ID =>
311: Requisition_Header_ID,
312: Requisition_Line_ID,
313: PO_Header_ID,
314: PO_Line_ID
315: From SO_Drop_Ship_Sources
316: Where Requisition_Line_ID = P_Req_Line_ID
317: And Requisition_Header_ID = P_Req_Header_ID
318: For Update of PO_Header_ID;
319: Begin
338: If L_SO_Drop_Ship_Source_CSR%Found Then -- P_Req_Line_Id Is a drop ship
339: -- line id
340: If G_Requisition_Header_ID Is Not Null -- PO being updated for the
341: And G_PO_Header_ID Is Null Then -- first time
342: Update SO_Drop_Ship_Sources
343: Set PO_Header_ID = P_PO_Header_ID,
344: PO_Line_ID = P_PO_Line_ID,
345: Line_Location_ID = P_Line_Location_ID,
346: PO_Release_ID = Nvl(P_PO_Release_Id,PO_Release_ID),
347: Last_Update_Date = Trunc(Sysdate),
348: Last_Updated_By = Nvl(To_Number(FND_PROFILE.VALUE('USER_ID')),-1)
349: Where Current of L_SO_Drop_Ship_Source_Csr;
350: Else -- Another PO for same order line.
351: Insert_SO_Drop_Ship_Sources (P_Drop_Ship_Source_ID => G_Drop_Ship_Source_ID,
352: P_Header_ID => G_Header_ID,
353: P_Line_ID => G_Line_ID,
354: P_Org_ID => G_Org_ID,
355: P_Destination_Organization_ID =>
380: Return Number Is
381: L_Line_Id Number;
382: Cursor L_Drop_Ship_Csr Is
383: Select Line_Id
384: From SO_Drop_Ship_Sources
385: Where Requisition_Line_ID = P_Req_Line_ID;
386: Begin
387: Open L_Drop_Ship_Csr;
388:
406: Return Number Is
407: L_Line_Id Number;
408: Cursor L_Drop_Ship_Csr Is
409: Select Line_Id
410: From SO_Drop_Ship_Sources
411: Where Line_Location_Id = P_PO_Line_Location_ID;
412: Begin
413: Open L_Drop_Ship_Csr;
414: