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;