1: package body pay_us_1099R_udfs AS
2: /* $Header: py99udfs.pkb 115.18 2003/12/16 16:34:45 jgoswami ship $ */
3: /*
4: +======================================================================+
5: | Copyright (c) 1996 Oracle Corporation |
6: | Redwood Shores, California, USA |
7: | All rights reserved. |
8: +======================================================================+
9:
10: Name : pay_us_1099R_udfs
11: Filename : py99udfs.pkb
12: Change List
13: -----------
14: Date Name Vers Bug No Description
40: */
41:
42: -------------------------------------------------------------------------
43: --Name: init_global_1099R_tables
44: --Purpose: Initializes pay_us_1099R_udfs global tables for K-record totals
45: -------------------------------------------------------------------------
46: FUNCTION init_global_1099R_tables(p_dummy in VARCHAR2) RETURN VARCHAR2 IS
47: l_size number:= 55;
48: BEGIN
46: FUNCTION init_global_1099R_tables(p_dummy in VARCHAR2) RETURN VARCHAR2 IS
47: l_size number:= 55;
48: BEGIN
49: FOR l_count IN 1..l_size LOOP
50: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
51: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
47: l_size number:= 55;
48: BEGIN
49: FOR l_count IN 1..l_size LOOP
50: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
51: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
48: BEGIN
49: FOR l_count IN 1..l_size LOOP
50: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
51: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
49: FOR l_count IN 1..l_size LOOP
50: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
51: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
50: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
51: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
51: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
52: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
53: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
61: END LOOP;
54: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
61: END LOOP;
62: return 1;
55: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
61: END LOOP;
62: return 1;
63: END init_global_1099R_tables;
56: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
61: END LOOP;
62: return 1;
63: END init_global_1099R_tables;
64:
98: --
99: ----------------------------------------------------------------
100: --increment table
101: ----------------------------------------------------------------
102: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
103: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
104: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
105: --
106: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
99: ----------------------------------------------------------------
100: --increment table
101: ----------------------------------------------------------------
102: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
103: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
104: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
105: --
106: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
107: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
100: --increment table
101: ----------------------------------------------------------------
102: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
103: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
104: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
105: --
106: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
107: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
108: --
102: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
103: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
104: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
105: --
106: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
107: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
108: --
109:
110: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
103: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
104: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
105: --
106: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
107: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
108: --
109:
110: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
106: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
107: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
108: --
109:
110: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
112: --
113: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
114: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
107: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
108: --
109:
110: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
112: --
113: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
114: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
115: --
109:
110: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
112: --
113: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
114: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
115: --
116: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
117: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
110: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
112: --
113: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
114: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
115: --
116: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
117: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
118: --
112: --
113: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
114: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
115: --
116: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
117: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
118: --
119: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
120: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
113: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
114: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
115: --
116: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
117: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
118: --
119: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
120: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
121: --
115: --
116: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
117: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
118: --
119: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
120: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
121: --
122: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
123: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
116: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
117: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
118: --
119: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
120: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
121: --
122: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
123: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
124: --
118: --
119: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
120: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
121: --
122: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
123: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
124: --
125: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
126: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
119: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
120: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
121: --
122: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
123: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
124: --
125: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
126: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
127: --
121: --
122: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
123: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
124: --
125: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
126: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
127: --
128: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
129: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
122: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
123: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
124: --
125: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
126: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
127: --
128: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
129: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
130: --
124: --
125: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
126: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
127: --
128: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
129: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
130: --
131: --
132: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
125: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
126: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
127: --
128: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
129: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
130: --
131: --
132: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
128: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
129: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
130: --
131: --
132: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
134: --
135: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
136: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
129: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
130: --
131: --
132: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
134: --
135: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
136: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
137:
131: --
132: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
134: --
135: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
136: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
137:
138: --------------------------------------------------------------------------
139: --specify field
132: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
134: --
135: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
136: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
137:
138: --------------------------------------------------------------------------
139: --specify field
140: --------------------------------------------------------------------------
191: FUNCTION get_1099R_state_payee_count(p_state in VARCHAR2)
192: RETURN NUMBER IS
193: l_index number;
194: BEGIN
195: l_index := pay_us_1099R_udfs.get_1099R_state_code(p_state);
196: IF l_index IS NULL THEN
197: return 0;
198: ELSE return pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index);
199: END IF;
194: BEGIN
195: l_index := pay_us_1099R_udfs.get_1099R_state_code(p_state);
196: IF l_index IS NULL THEN
197: return 0;
198: ELSE return pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index);
199: END IF;
200: END get_1099R_state_payee_count;
201: --
202: -------------------------------------------------------------------------
207: p_type in VARCHAR2 ) RETURN VARCHAR2 IS
208:
209: l_index number; -- index into global tables
210: BEGIN
211: l_index := pay_us_1099R_udfs.get_1099R_state_code(p_state);
212: IF l_index IS NULL THEN
213: return 0;
214: END IF;
215: IF p_type = 'amount_1' THEN
212: IF l_index IS NULL THEN
213: return 0;
214: END IF;
215: IF p_type = 'amount_1' THEN
216: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_1(l_index));
217: ELSIF p_type = 'amount_2' THEN
218: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
219: ELSIF p_type = 'amount_3' THEN
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
214: END IF;
215: IF p_type = 'amount_1' THEN
216: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_1(l_index));
217: ELSIF p_type = 'amount_2' THEN
218: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
219: ELSIF p_type = 'amount_3' THEN
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
221: ELSIF p_type = 'amount_4' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
216: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_1(l_index));
217: ELSIF p_type = 'amount_2' THEN
218: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
219: ELSIF p_type = 'amount_3' THEN
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
221: ELSIF p_type = 'amount_4' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
223: ELSIF p_type = 'amount_5' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
218: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
219: ELSIF p_type = 'amount_3' THEN
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
221: ELSIF p_type = 'amount_4' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
223: ELSIF p_type = 'amount_5' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
225: ELSIF p_type = 'amount_6' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
221: ELSIF p_type = 'amount_4' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
223: ELSIF p_type = 'amount_5' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
225: ELSIF p_type = 'amount_6' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
227: ELSIF p_type = 'amount_8' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
223: ELSIF p_type = 'amount_5' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
225: ELSIF p_type = 'amount_6' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
227: ELSIF p_type = 'amount_8' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
229: ELSIF p_type = 'amount_9' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
225: ELSIF p_type = 'amount_6' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
227: ELSIF p_type = 'amount_8' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
229: ELSIF p_type = 'amount_9' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
231: ELSIF p_type = 'SIT' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
227: ELSIF p_type = 'amount_8' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
229: ELSIF p_type = 'amount_9' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
231: ELSIF p_type = 'SIT' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
233: ELSIF p_type = 'LIT' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_LIT_total(l_index));
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
229: ELSIF p_type = 'amount_9' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
231: ELSIF p_type = 'SIT' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
233: ELSIF p_type = 'LIT' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_LIT_total(l_index));
235: END IF;
236:
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
231: ELSIF p_type = 'SIT' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
233: ELSIF p_type = 'LIT' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_LIT_total(l_index));
235: END IF;
236:
237: END get_1099R_state_total;
238: --
729: IF p_format = 'PUB1220' then
730: --
731: -- Format Employee Address for 1099R (PUB1220 format)
732:
733: pay_us_1099R_udfs.format_pub1220_address(
734: lr_employee_addr.full_name,
735: l_locality_company_id,
736: lr_employee_addr.employee_number,
737: lr_employee_addr.addr_line_1,
764: );
765: ELSIF p_format = '1099R_WV' then
766: -- Format Employee Address for 1099R (PUB1220 format)
767:
768: pay_us_1099R_udfs.format_1099r_wv_address(
769: lr_employee_addr.full_name,
770: l_locality_company_id,
771: lr_employee_addr.employee_number,
772: lr_employee_addr.addr_line_1,
1353:
1354: END Get_1099R_Transmitter_Value;
1355: --
1356: -------------------------------------------------------------------------
1357: END pay_us_1099R_udfs;
1358: