PACKAGE BODY: APPS.POS_SUPPLIER_ITEM_CAPACITY_PKG

Source

1 PACKAGE BODY POS_SUPPLIER_ITEM_CAPACITY_PKG AS
2 /* $Header: POSSICHB.pls 120.1 2005/06/29 15:43:28 jacheung noship $*/
3 
4 --===================
5 -- PROCEDURES
6 --===================
7 --========================================================================
8 -- PROCEDURE : Store_Line         PUBLIC
9 -- PARAMETERS:
10 -- VERSION   : current version         1.0
11 --             initial version         1.0
12 -- COMMENT   : Stores a line
13 --========================================================================
14 PROCEDURE Store_Line
15   ( p_asl_id                   IN VARCHAR2
16     , p_from_date                IN VARCHAR2
17     , p_to_date                  IN VARCHAR2
18     , p_capacity_per_day         IN NUMBER
19     , p_user_id                  IN NUMBER
20     )
21   IS
22 
23 BEGIN
24 
25    insert into po_supplier_item_capacity
26      (CAPACITY_ID,
27       ASL_ID,
28       USING_ORGANIZATION_ID,
29       FROM_DATE,
30       TO_DATE,
31       CAPACITY_PER_DAY,
32       LAST_UPDATE_DATE,
33       LAST_UPDATED_BY,
34       LAST_UPDATE_LOGIN,
35       CREATION_DATE,
36       CREATED_BY)
37      values (
38 	     po_supplier_item_capacity_s.nextval,
39 	     to_number(p_asl_id),
40 	     -1,
41 	     to_date(p_from_date, 'YYYY-MM-DD'),
42 	     to_date(p_to_date, 'YYYY-MM-DD'),
43 	     p_capacity_per_day,
44 	     sysdate,
45 	     p_user_id,
46 	     p_user_id,
47 	     sysdate,
48 	     p_user_id);
49 
50 
51 EXCEPTION when others THEN
52    raise;
53 
54 END Store_Line;
55 
56 PROCEDURE Update_Line
57   ( p_asl_id                   IN VARCHAR2
58     , p_capacity_id              IN NUMBER
59     , p_from_date                IN VARCHAR2
60     , p_to_date                  IN VARCHAR2
61     , p_capacity_per_day         IN NUMBER
62     , p_user_id                  IN NUMBER
63     )
64   IS
65 
66 sourcedate      date;
67 destdate        date;
68 
69 BEGIN
70 
71    sourcedate := to_date(p_from_date, 'YYYY-MM-DD');
72    destdate   := to_date(p_to_date, 'YYYY-MM-DD');
73 
74    UPDATE po_supplier_item_capacity
75      SET
76      FROM_DATE = sourcedate,
77      TO_DATE = destdate,
78      CAPACITY_PER_DAY = p_capacity_per_day,
79      last_update_date = Sysdate,
80      last_updated_by = p_user_id,
81      last_update_login = p_user_id
82      WHERE
83      asl_id = To_number(p_asl_id) AND capacity_id = p_capacity_id;
84 
85 
86 
87 EXCEPTION WHEN OTHERS THEN
88    RAISE;
89 
90 END update_line;
91 
92 
93 PROCEDURE Delete_Line
94   ( p_asl_id                   IN VARCHAR2
95     , p_capacity_id              IN NUMBER
96     )
97   IS
98 
99 BEGIN
100 
101    DELETE from po_supplier_item_capacity
102      WHERE
103      asl_id = To_number(p_asl_id) AND capacity_id = p_capacity_id;
104 
105 EXCEPTION WHEN OTHERS THEN
106    RAISE;
107 
108 END delete_line;
109 
110 END POS_SUPPLIER_ITEM_CAPACITY_PKG;