PACKAGE BODY: APPS.ICX_GET_ORDER

Source

1 PACKAGE BODY ICX_GET_ORDER AS
2 /* $Header: ICXGETOB.pls 115.0 99/07/17 03:17:31 porting ship $ */
3 
4 function GET_PO_NUMBER (
5 		IN_HEAD_ID number
6 ) return VARCHAR2 is
7 CODE_ID VARCHAR2(20);
8 begin
9 select
10   SEGMENT1
11   into CODE_ID
12   from PO_HEADERS_ALL POHEAD
13   where 	PO_HEADER_ID = IN_HEAD_ID
14   ;
15   return CODE_ID;
16 end GET_PO_NUMBER;
17 
18 function GET_REQ_NUMBER (
19 		IN_HEAD_ID number
20 ) return VARCHAR2 is
21 CODE_ID VARCHAR2(20);
22 begin
23 select
24   SEGMENT1
25   into CODE_ID
26   from PO_REQUISITION_HEADERS_ALL
27   where 	REQUISITION_HEADER_ID = IN_HEAD_ID
28   ;
29   return CODE_ID;
30 end GET_REQ_NUMBER;
31 
32 function GET_SO_NUMBER (
33 		IN_HEAD_ID number
34 ) return VARCHAR2 is
35 CODE_ID VARCHAR2(20);
36 begin
37 select
38   SEGMENT1
39   into CODE_ID
40   from MTL_SALES_ORDERS
41   where 	SALES_ORDER_ID = IN_HEAD_ID
42   ;
43   return CODE_ID;
44 end GET_SO_NUMBER;
45 
46 function GET_WIP_NUMBER (
47 		IN_HEAD_ID number
48 ) return VARCHAR2 is
49 CODE_ID VARCHAR2(240);
50 begin
51 select
52   WIP_ENTITY_NAME
53   into CODE_ID
54   from WIP_ENTITIES
55   where 	WIP_ENTITY_ID = IN_HEAD_ID
56   ;
57   return CODE_ID;
58 end GET_WIP_NUMBER;
59 
60 END ICX_GET_ORDER;