[Home] [Help]
PACKAGE BODY: APPS.WSH_AR_INTERFACE_PUB
Source
1 PACKAGE BODY WSH_AR_INTERFACE_PUB as
2 /* $Header: WSHARMGB.pls 115.0 99/07/16 08:17:48 porting ship $ */
3
4 --
5 -- PUBLIC FUNCTIONS
6 --
7 PROCEDURE wsh_ar_null_group_cols(
8 col_names IN cnameTabTyp,
9 col_values IN OUT cvalTabTyp) IS
10 i BINARY_INTEGER;
11 Begin
12
13 WSH_UTIL.Write_Log('Enter wsh_ar_null_grouping_rules');
14 For i IN 1..col_names.count LOOP
15 WSH_UTIL.Write_Log(col_names(i) || ': ' || col_values(i));
16 -- test case
17 --if ( col_names(i) = col_orig_bill_contact_id ) then
18 --col_values(i) := NULL;
19 --end if;
20 END LOOP;
21
22 --VEHGPRLS.VEH_WSH_AR_GRP (col_names, col_values);
23
24 WSH_UTIL.Write_Log('Exit wsh_ar_null_grouping_rules');
25 return;
26
27 End wsh_ar_null_group_cols;
28
29 END WSH_AR_INTERFACE_PUB;