[Home] [Help]
PACKAGE BODY: APPS.WSH_PARAMETERS_PVT
Source
1 PACKAGE BODY WSH_PARAMETERS_PVT as
2 /* $Header: WSHUPRMB.pls 115.2 99/07/16 08:23:22 porting ship $ */
3
4 X_ROW_FETCHED NUMBER := 0;
5 CUR_ORGANIZATION_ID NUMBER := 0;
6 X_PLANNING_METHOD_FLAG VARCHAR2(1);
7 X_WEIGHT_UOM_CLASS VARCHAR2(10) ;
8 X_VOLUME_UOM_CLASS VARCHAR2(10) ;
9 X_INVOICE_DEL_COMPLETE_FLAG VARCHAR2(1) ;
10 X_WEIGHT_VOLUME_DPW_FLAG VARCHAR2(1) ;
11 X_WEIGHT_VOLUME_SC_FLAG VARCHAR2(1) ;
12 X_INV_CONTROLS_CONTAINER_FLAG VARCHAR2(1) ;
13 X_PERCENT_FILL_BASIS_FLAG VARCHAR2(1) ;
14 X_ENFORCE_PACKING_FLAG VARCHAR2(1) ;
15 X_DEPARTURE_REPORT_SET_ID NUMBER ;
16 X_DELIVERY_REPORT_SET_ID NUMBER ;
17 X_PICK_RELEASE_REPORT_SET_ID NUMBER ;
18 X_RELEASE_SEQ_RULE_ID NUMBER ;
19 X_PICK_SLIP_RULE_ID NUMBER ;
20 X_PRINT_PICK_SLIP_MODE VARCHAR2(1) ;
21
22 Procedure x_fetch_row IS
23 Cursor C (x_organization_id NUMBER) Is
24 Select PLANNING_METHOD_FLAG, WEIGHT_UOM_CLASS,
25 VOLUME_UOM_CLASS, INVOICE_DELIVERY_COMPLETE_FLAG,
26 WEIGHT_VOLUME_DPW_FLAG, WEIGHT_VOLUME_SC_FLAG,
27 INV_CONTROLS_CONTAINER_FLAG, PERCENT_FILL_BASIS_FLAG,
28 nvl(DEPARTURE_REPORT_SET_ID, 0), nvl(DELIVERY_REPORT_SET_ID, 0),
29 RELEASE_SEQ_RULE_ID, PICK_SLIP_RULE_ID,
30 nvl(PRINT_PICK_SLIP_MODE,''), PICK_RELEASE_REPORT_SET_ID,
31 ENFORCE_PACKING_FLAG
32 From wsh_parameters
33 Where organization_id = x_organization_id;
34
35 Begin
36 OPEN C (CUR_ORGANIZATION_ID);
37 FETCH C INTO
38 X_PLANNING_METHOD_FLAG, X_WEIGHT_UOM_CLASS,
39 X_VOLUME_UOM_CLASS, X_INVOICE_DEL_COMPLETE_FLAG,
40 X_WEIGHT_VOLUME_DPW_FLAG, X_WEIGHT_VOLUME_SC_FLAG,
41 X_INV_CONTROLS_CONTAINER_FLAG, X_PERCENT_FILL_BASIS_FLAG,
42 X_DEPARTURE_REPORT_SET_ID, X_DELIVERY_REPORT_SET_ID,
43 X_RELEASE_SEQ_RULE_ID, X_PICK_SLIP_RULE_ID,
44 X_PRINT_PICK_SLIP_MODE, X_PICK_RELEASE_REPORT_SET_ID,
45 X_ENFORCE_PACKING_FLAG;
46
47 If (C%NOTFOUND) Then
48 Close C;
49 FND_MESSAGE.SET_NAME('OE','WSH_DPW_PARAM_NOT_SET');
50 FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', TO_CHAR(CUR_ORGANIZATION_ID));
51 APP_EXCEPTION.RAISE_EXCEPTION;
52 End if;
53
54 Close C;
55 End x_fetch_row;
56
57 --
58 -- PUBLIC FUNCTIONS
59 --
60
61 /*===========================================================================+
62 | Name: get_param_value |
63 | Purpose: To get the value of a parameter from wsh_parameters table |
64 +===========================================================================*/
65
66 PROCEDURE get_param_value(x_organization_id IN NUMBER,
67 param_name IN VARCHAR2,
68 param_value OUT VARCHAR2) IS
69 BEGIN
70 if (( x_organization_id <> CUR_ORGANIZATION_ID ) OR
71 ( x_row_fetched = 0 )) Then
72 CUR_ORGANIZATION_ID := x_organization_id;
73 wsh_parameters_pvt.x_fetch_row;
74 x_row_fetched := 1;
75 end if;
76 if ( param_name = 'PLANNING_METHOD_FLAG') Then
77 param_value := X_PLANNING_METHOD_FLAG;
78 elsif ( param_name = 'WEIGHT_UOM_CLASS') Then
79 param_value := X_WEIGHT_UOM_CLASS;
80 elsif ( param_name = 'VOLUME_UOM_CLASS') Then
81 param_value := X_VOLUME_UOM_CLASS;
82 elsif ( param_name = 'INVOICE_DELIVERY_COMPLETE_FLAG') Then
83 param_value := X_INVOICE_DEL_COMPLETE_FLAG;
84 elsif ( param_name = 'WEIGHT_VOLUME_DPW_FLAG') Then
85 param_value := X_WEIGHT_VOLUME_DPW_FLAG;
86 elsif ( param_name = 'WEIGHT_VOLUME_SC_FLAG') Then
87 param_value := X_WEIGHT_VOLUME_SC_FLAG;
88 elsif ( param_name = 'INV_CONTROLS_CONTAINER_FLAG') Then
89 param_value := X_INV_CONTROLS_CONTAINER_FLAG;
90 elsif ( param_name = 'PERCENT_FILL_BASIS_FLAG') Then
91 param_value := X_PERCENT_FILL_BASIS_FLAG;
92 elsif ( param_name = 'PRINT_PICK_SLIP_MODE') Then
93 param_value := X_PRINT_PICK_SLIP_MODE;
94 elsif ( param_name = 'ENFORCE_PACKING_FLAG') Then
95 param_value := X_ENFORCE_PACKING_FLAG;
96 end if;
97 END get_param_value;
98
99 PROCEDURE get_param_value_num(x_organization_id IN NUMBER,
100 param_name IN VARCHAR2,
101 param_value OUT NUMBER) IS
102 BEGIN
103 if (( x_organization_id <> CUR_ORGANIZATION_ID ) OR
104 ( x_row_fetched = 0 )) Then
105 CUR_ORGANIZATION_ID := x_organization_id;
106 wsh_parameters_pvt.x_fetch_row;
107 x_row_fetched := 1;
108 end if;
109 if ( param_name = 'DEPARTURE_REPORT_SET_ID') Then
110 param_value := X_DEPARTURE_REPORT_SET_ID;
111 elsif ( param_name = 'DELIVERY_REPORT_SET_ID') Then
112 param_value := X_DELIVERY_REPORT_SET_ID;
113 elsif ( param_name = 'PICK_RELEASE_REPORT_SET_ID') Then
114 param_value := X_PICK_RELEASE_REPORT_SET_ID;
115 elsif ( param_name = 'RELEASE_SEQ_RULE_ID') Then
116 param_value := X_RELEASE_SEQ_RULE_ID;
117 elsif ( param_name = 'PICK_SLIP_RULE_ID') Then
118 param_value := X_PICK_SLIP_RULE_ID;
119 end if;
120 END get_param_value_num;
121
122 END WSH_PARAMETERS_PVT;