[Home] [Help]
PACKAGE: APPS.GMICVAL
Source
1 PACKAGE GMICVAL AS
2 /* $Header: gmicvals.pls 120.0 2005/05/25 16:06:40 appldev noship $ */
3
4 /* Subtypes
5 ======== */
6 SUBTYPE item_surg_type IS ic_item_mst.item_id%TYPE;
7 SUBTYPE item_number_type IS ic_item_mst.item_no%TYPE;
8 SUBTYPE lot_surg_type IS ic_lots_mst.lot_id%TYPE;
9 SUBTYPE form_surg_type IS lm_item_dat.formula_id%TYPE;
10 SUBTYPE lab_type IS lm_item_dat.lab_type%TYPE;
11 SUBTYPE reason_type IS sy_reas_cds.reason_code%TYPE;
12 SUBTYPE loct_type IS ic_loct_mst.location%TYPE;
13 SUBTYPE whse_type IS ic_whse_mst.whse_code%TYPE;
14 SUBTYPE grade_type IS qc_grad_mst.qc_grade%TYPE;
15 SUBTYPE status_type IS ic_lots_sts.lot_status%TYPE;
16 SUBTYPE lot_no_type IS ic_lots_mst.lot_no%TYPE;
17 SUBTYPE desc_type IS ic_lots_mst.lot_desc%TYPE;
18 SUBTYPE dualum_type IS ic_item_mst.dualum_ind%TYPE;
19 SUBTYPE uom_type IS ic_item_mst.item_um%TYPE;
20 SUBTYPE dev_type IS ic_item_mst.deviation_hi%TYPE;
21 SUBTYPE quantity_type IS ic_loct_inv.loct_onhand%TYPE;
22 SUBTYPE orgn_type IS sy_orgn_mst.orgn_code%TYPE;
23 SUBTYPE ctl_type IS ic_item_mst.loct_ctl%TYPE;
24 SUBTYPE flag_type IS NUMBER;
25
26 /* Constants
27 =========*/
28 ss_debug CONSTANT INTEGER := 1;
29
30 /* Error Return Code Constants:
31 ============================*/
32 VAL_PACKAGE_ERR CONSTANT INTEGER := -1;
33 VAL_REASONCODE_ERR CONSTANT INTEGER := -61;
34 VAL_LOCATION_ERR CONSTANT INTEGER := -62;
35 VAL_GRADE_ERR CONSTANT INTEGER := -63;
36 VAL_LOTSTATUS_ERR CONSTANT INTEGER := -64;
37 VAL_WHSE_ERR CONSTANT INTEGER := -65;
38 VAL_LOT_ERR CONSTANT INTEGER := -66;
39 VAL_DUALUM_ERR CONSTANT INTEGER := -67;
40 VAL_CALCDEV_HIGH_ERR CONSTANT INTEGER := -68;
41 VAL_CALCDEV_LO_ERR CONSTANT INTEGER := -69;
42 VAL_ITEMATTR_ERR CONSTANT INTEGER := -70;
43 VAL_NOTLOT_CTL_ERR CONSTANT INTEGER := -71;
44 VAL_LOT_PARM_ERR CONSTANT INTEGER := -72;
45 VAL_SUBLOT_ERR CONSTANT INTEGER := -73;
46 VAL_UOMATTR_ERR CONSTANT INTEGER := -74;
47 VAL_ITEM_ERR CONSTANT INTEGER := -75;
48 VAL_CONTROLS_ERR CONSTANT INTEGER := -76;
49 VAL_DEFAULT_LOCT_ERR CONSTANT INTEGER := -77;
50 VAL_USING_DEFAULT_ERR CONSTANT INTEGER := -78;
51 VAL_CO_CODE_ERR CONSTANT INTEGER := -79;
52 VAL_ORGN_CODE_ERR CONSTANT INTEGER := -80;
53 VAL_UOMCODE_ERR CONSTANT INTEGER := -81;
54 VAL_NOTLOCATION_CTL_ERR CONSTANT INTEGER := -82;
55
56
57 /* Functions and Procedures
58 ========================*/
59 PROCEDURE trans_date_val(ptrans_date DATE,
60 porgn_code VARCHAR2,
61 pwhse_code VARCHAR2);
62
63 PROCEDURE deviation_val(pitem_id NUMBER,
64 plot_id NUMBER,
65 pcur_qty NUMBER,
66 pcur_uom VARCHAR2,
67 pnew_qty NUMBER,
68 pnew_uom VARCHAR2);
69
70 PROCEDURE itm_loct_validation(plocation VARCHAR2,
71 pwhse_code VARCHAR2,
72 ploct_ctl NUMBER);
73
74 FUNCTION item_val(pitem_id NUMBER) RETURN NUMBER;
75
76 FUNCTION item_val(pitem_no VARCHAR2) RETURN NUMBER;
77
78 FUNCTION lot_validate(pitem_id NUMBER,
79 plot_id NUMBER) RETURN NUMBER;
80
81 FUNCTION lot_validate(pitem_no VARCHAR2,
82 plot_no VARCHAR2,
83 psublot_no VARCHAR2 DEFAULT 0)
84 RETURN NUMBER;
85
86 FUNCTION reason_code_val(preason_code VARCHAR2) RETURN NUMBER;
87
88 FUNCTION itm_location_val(plocation VARCHAR2,
89 pwhse_code VARCHAR2,
90 ploct_ctl NUMBER) RETURN NUMBER;
91
92 FUNCTION whse_location_val(porgn_code VARCHAR2,
93 pwhse_code VARCHAR2,
94 plocation VARCHAR2) RETURN NUMBER;
95
96 FUNCTION grade_val(pqc_grade VARCHAR2) RETURN NUMBER;
97
98 FUNCTION lot_status_val(plot_status VARCHAR2) RETURN NUMBER;
99
100 FUNCTION whse_val(pwhse_code VARCHAR2,
101 porgn_code VARCHAR2) RETURN NUMBER;
102
103 FUNCTION co_code_val(porgn_code VARCHAR2) RETURN NUMBER;
104
105 FUNCTION orgn_code_val(porgn_code VARCHAR2) RETURN NUMBER;
106
107 FUNCTION uomcode_val(puom_code VARCHAR2) RETURN NUMBER;
108
109 FUNCTION dev_validation(pitem_id NUMBER,
110 plot_id NUMBER,
111 ptrans_qty1 NUMBER,
112 pprim_uom VARCHAR2,
113 ptrans_qty2 NUMBER,
114 psec_uom VARCHAR2,
115 patomic NUMBER) RETURN NUMBER;
116
117 FUNCTION det_dualum_ind(pitem_id NUMBER) RETURN NUMBER;
118
119 FUNCTION calc_deviation(pitem_id NUMBER,
120 ptrans_qty2 NUMBER,
121 pconverted_qty NUMBER) RETURN NUMBER;
122
123
124 END;
125