PACKAGE BODY: APPS.MRP_SCHEDULE_CONS_PKG

Source

1 PACKAGE BODY MRP_SCHEDULE_CONS_PKG AS
2 /* $Header: MRSCONSB.pls 115.0 99/07/16 12:44:24 porting ship $ */
3 
4 
5 PROCEDURE Get_PO( X_disposition_id 		NUMBER,
6                   X_disposition    	IN OUT  VARCHAR2
7 ) IS
8 
9  	disposition VARCHAR2(80);
10 
11 BEGIN
12 
13   SELECT segment1
14     INTO disposition
15     FROM PO_HEADERS_ALL
16    WHERE po_header_id = X_disposition_id;
17 
18   X_disposition := disposition;
19 
20 END Get_PO;
21 
22 
23 PROCEDURE Get_POReq( X_disposition_id 		NUMBER,
24                      X_disposition    	IN OUT  VARCHAR2
25 ) IS
26 
27  	disposition VARCHAR2(80);
28 
29 BEGIN
30 
31   SELECT segment1
32     INTO disposition
33     FROM PO_REQUISITION_HEADERS_ALL
34    WHERE requisition_header_id = X_disposition_id;
35 
36   X_disposition := disposition;
37 
38 END Get_POReq;
39 
40 
41 PROCEDURE Get_Ship( X_disposition_id 		NUMBER,
42                     X_disposition    	IN OUT  VARCHAR2
43 ) IS
44 
45  	disposition VARCHAR2(80);
46 
47 BEGIN
48 
49   SELECT shipment_num
50     INTO disposition
51     FROM RCV_SHIPMENT_HEADERS
52    WHERE shipment_header_id = X_disposition_id;
53 
54   X_disposition := disposition;
55 
56 END Get_Ship;
57 
58 
59 FUNCTION Get_WIP( X_organization_id 		NUMBER,
60                   X_disposition_id 		NUMBER,
61                   X_disposition    	IN OUT  VARCHAR2) RETURN NUMBER IS
62 
63  	disposition VARCHAR2(80);
64 
65 BEGIN
66 
67   --
68   -- Returns: 1 - normal
69   -- 	      2 - no data found
70   --
71 
72   SELECT wip_entity_name
73     INTO disposition
74     FROM WIP_ENTITIES
75    WHERE wip_entity_id = X_disposition_id
76      AND organization_id = X_organization_id;
77 
78   X_disposition := disposition;
79 
80   RETURN(1);
81 
82   EXCEPTION
83     WHEN NO_DATA_FOUND THEN
84         RETURN(2);
85 
86 END Get_WIP;
87 
88 
89 END MRP_SCHEDULE_CONS_PKG;