PACKAGE BODY: APPS.POS_SUPPLIER_ITEM_TOL_PKG

Source

1 PACKAGE BODY POS_SUPPLIER_ITEM_TOL_PKG AS
2 /*$Header: POSSITHB.pls 120.1 2005/06/29 15:44:02 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_days_in_advance          IN NUMBER
17 , p_tolerance                IN NUMBER
18 , p_user_id                  IN NUMBER
19 )
20 IS
21 
22 BEGIN
23 
24 insert into po_supplier_item_tolerance
25           (
26            ASL_ID,
27            USING_ORGANIZATION_ID,
28            NUMBER_OF_DAYS,
29            TOLERANCE,
30            LAST_UPDATE_DATE,
31            LAST_UPDATED_BY,
32            LAST_UPDATE_LOGIN,
33            CREATION_DATE,
34            CREATED_BY
35            )
36         values (
37            to_number(p_asl_id),
38            -1,
39            nvl(p_days_in_advance, 0),
40            nvl(p_tolerance, 0),
41            sysdate,
42            p_user_id,
43            p_user_id,
44            sysdate,
45            p_user_id );
46 
47 
48 EXCEPTION when others THEN
49 raise;
50 
51 END Store_Line;
52 
53 PROCEDURE Update_Line
54   ( p_asl_id                   IN VARCHAR2
55     , p_days_in_advance       IN NUMBER
56     , p_tolerance               IN NUMBER
57     , p_user_id                  IN NUMBER
58     , p_days_in_advance_prev     IN NUMBER
59     )
60   IS
61 
62 BEGIN
63 
64    UPDATE po_supplier_item_tolerance
65      SET
66      NUMBER_OF_DAYS = p_days_in_advance,
67      TOLERANCE = p_tolerance,
68      last_update_date = Sysdate,
69      last_updated_by = p_user_id,
70      last_update_login = p_user_id
71      WHERE
72      asl_id = To_number(p_asl_id) AND number_of_days = p_days_in_advance_prev;
73 
74 
75 EXCEPTION WHEN OTHERS THEN
76    RAISE;
77 
78 END update_line;
79 
80 PROCEDURE delete
81   ( p_asl_id                   IN VARCHAR2
82    )
83   IS
84 
85 BEGIN
86 
87    DELETE from po_supplier_item_tolerance
88      WHERE
89      asl_id = To_number(p_asl_id);
90 
91 
92 EXCEPTION WHEN OTHERS THEN
93    RAISE;
94 
95 END delete;
96 
97 
98 END POS_SUPPLIER_ITEM_TOL_PKG;