PACKAGE: APPS.GMICUOM

Source

1 PACKAGE GMICUOM AUTHID CURRENT_USER AS
2 /* $Header: gmicuoms.pls 115.2 2002/11/12 21:21:14 jdiiorio ship $ */
3 /* Subtypes
4 ========*/
5 SUBTYPE itm_surg_type  IS ic_item_cnv.item_id%TYPE;
6 SUBTYPE form_surg_type IS lm_item_dat.formula_id%TYPE;
7 SUBTYPE lab_type       IS lm_item_dat.lab_type%TYPE;
8 SUBTYPE lot_surg_type  IS ic_item_cnv.lot_id%TYPE;
9 SUBTYPE quantity_type  IS ic_loct_inv.loct_onhand%TYPE;
10 SUBTYPE uomcode_type   IS sy_uoms_mst.um_code%TYPE;
11 SUBTYPE flag_type      IS NUMBER;
12 
13 /* Constants
14 =========*/
15 ss_debug           CONSTANT INTEGER := 1;
16 cur_factor_default CONSTANT INTEGER := 1;
17 new_factor_default CONSTANT INTEGER := 1;
18 default_lot        CONSTANT INTEGER := 0;
19 
20 /* RETURN Error Code Constants:
21 ============================*/
22 UOM_LAB_TYPE_ERR    CONSTANT INTEGER := -2;
23 UOM_CUR_UOMTYPE_ERR CONSTANT INTEGER := -3;
24 UOM_NEW_UOMTYPE_ERR CONSTANT INTEGER := -4;
25 UOM_INVUOM_ERR      CONSTANT INTEGER := -5;
26 UOM_INV_UOMTYPE_ERR CONSTANT INTEGER := -6;
27 UOM_CUR_CONV_ERR    CONSTANT INTEGER := -7;
28 UOM_LAB_CONST_ERR   CONSTANT INTEGER := -8;
29 UOM_LAB_CONV_ERR    CONSTANT INTEGER := -9;
30 UOM_NEW_CONV_ERR    CONSTANT INTEGER := -10;
31 UOM_NOITEM_ERR      CONSTANT INTEGER := -11;
32 
33 /* Functions and Procedures
34 ========================*/
35 PROCEDURE icuomcv(pitem_id     NUMBER,
36                   plot_id      NUMBER,
37                   pcur_qty     NUMBER,
38                   pcur_uom     VARCHAR2,
39                   pnew_uom     VARCHAR2,
40                   onew_qty OUT NOCOPY NUMBER);
41 
42 PROCEDURE icuomcvl(pitem_id     NUMBER,
43                    pformula_id  NUMBER,
44                    pcur_qty     NUMBER,
45                    pcur_uom     VARCHAR2,
46                    pnew_uom     VARCHAR2,
47                    plab_type    VARCHAR2,
48                    pcnv_factor  NUMBER,
49                    onew_qty OUT NOCOPY NUMBER);
50 
51 /* This is for all Modules except
52 Laboratory Management and CRP/I2 integration
53 ============================================*/
54 FUNCTION uom_conversion(pitem_id  NUMBER,
55                       plot_id     NUMBER,
56                       pcur_qty    NUMBER ,
57                       pcur_uom    VARCHAR2,
58                       pnew_uom    VARCHAR2,
59                       patomic     NUMBER) RETURN NUMBER;
60 
61 PRAGMA RESTRICT_REFERENCES(uom_conversion, WNDS, WNPS);
62 
63 /* This is an overloaded function specifically
64 for Laboratory Management.
65 =========================================*/
66 FUNCTION uom_conversion(pitem_id  NUMBER,
67                       pformula_id NUMBER,
68                       pcur_qty    NUMBER,
69                       pcur_uom    VARCHAR2,
70                       pnew_uom    VARCHAR2,
71                       patomic     NUMBER,
72                       plab_type   VARCHAR2,
73                       pcnv_factor NUMBER DEFAULT 0) RETURN NUMBER;
74 
75 
76 /* This function is a wrapper fuction specifically
77 for Capacity Requirements Planning/I2 Integration.
78 ==================================================*/
79 FUNCTION i2uom_cv(pitem_id  NUMBER,
80                   plot_id   NUMBER,
81                   pcur_uom  VARCHAR2,
82                   pcur_qty  NUMBER,
83                   pnew_uom  VARCHAR2) RETURN NUMBER;
84 
85 PRAGMA RESTRICT_REFERENCES(i2uom_cv, WNDS, WNPS);
86 
87 END;