1: package body pay_us_1099R_udfs AS
2: /* $Header: py99udfs.pkb 120.2 2010/09/17 09:00:49 nkjaladi 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
44: */
45:
46: -------------------------------------------------------------------------
47: --Name: init_global_1099R_tables
48: --Purpose: Initializes pay_us_1099R_udfs global tables for K-record totals
49: -------------------------------------------------------------------------
50: FUNCTION init_global_1099R_tables(p_dummy in VARCHAR2) RETURN VARCHAR2 IS
51: l_size number:= 55;
52: BEGIN
50: FUNCTION init_global_1099R_tables(p_dummy in VARCHAR2) RETURN VARCHAR2 IS
51: l_size number:= 55;
52: BEGIN
53: FOR l_count IN 1..l_size LOOP
54: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
51: l_size number:= 55;
52: BEGIN
53: FOR l_count IN 1..l_size LOOP
54: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
52: BEGIN
53: FOR l_count IN 1..l_size LOOP
54: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
53: FOR l_count IN 1..l_size LOOP
54: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
54: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
55: pay_us_1099R_udfs.gt_CFS_control_total_1(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
63: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
56: pay_us_1099R_udfs.gt_CFS_control_total_2(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
63: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
64: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
57: pay_us_1099R_udfs.gt_CFS_control_total_3(l_count) := 0;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
63: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
64: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
65: END LOOP;
58: pay_us_1099R_udfs.gt_CFS_control_total_4(l_count) := 0;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
63: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
64: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
65: END LOOP;
66: return 1;
59: pay_us_1099R_udfs.gt_CFS_control_total_5(l_count) := 0;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
63: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
64: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
65: END LOOP;
66: return 1;
67: END init_global_1099R_tables;
60: pay_us_1099R_udfs.gt_CFS_control_total_6(l_count) := 0;
61: pay_us_1099R_udfs.gt_CFS_control_total_8(l_count) := 0;
62: pay_us_1099R_udfs.gt_CFS_control_total_9(l_count) := 0;
63: pay_us_1099R_udfs.gt_CFS_SIT_total(l_count) := 0;
64: pay_us_1099R_udfs.gt_CFS_LIT_total(l_count) := 0;
65: END LOOP;
66: return 1;
67: END init_global_1099R_tables;
68:
102: --
103: ----------------------------------------------------------------
104: --increment table
105: ----------------------------------------------------------------
106: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
107: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
108: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
109: --
110: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
103: ----------------------------------------------------------------
104: --increment table
105: ----------------------------------------------------------------
106: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
107: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
108: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
109: --
110: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
104: --increment table
105: ----------------------------------------------------------------
106: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
107: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
108: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
109: --
110: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
112: --
106: l_index := fnd_number.canonical_to_number(pay_us_1099R_udfs.get_1099R_state_code(p_state));
107: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
108: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
109: --
110: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
112: --
113:
114: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
107: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) :=
108: pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index) + 1;
109: --
110: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
112: --
113:
114: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
115: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
110: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) :=
111: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
112: --
113:
114: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
115: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
116: --
117: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
118: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
111: pay_us_1099R_udfs.gt_CFS_control_total_1(l_index) + p_amount_1;
112: --
113:
114: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
115: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
116: --
117: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
118: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
119: --
113:
114: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
115: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
116: --
117: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
118: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
119: --
120: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
121: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
114: pay_us_1099R_udfs.gt_CFS_control_total_2(l_index) :=
115: pay_us_1099R_udfs.gt_CFS_control_total_2 (l_index)+ p_amount_2;
116: --
117: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
118: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
119: --
120: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
121: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
122: --
116: --
117: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
118: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
119: --
120: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
121: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
122: --
123: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
124: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
117: pay_us_1099R_udfs.gt_CFS_control_total_3(l_index) :=
118: pay_us_1099R_udfs.gt_CFS_control_total_3 (l_index)+ p_amount_3;
119: --
120: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
121: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
122: --
123: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
124: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
125: --
119: --
120: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
121: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
122: --
123: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
124: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
125: --
126: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
127: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
120: pay_us_1099R_udfs.gt_CFS_control_total_4(l_index) :=
121: pay_us_1099R_udfs.gt_CFS_control_total_4 (l_index)+ p_amount_4;
122: --
123: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
124: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
125: --
126: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
127: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
128: --
122: --
123: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
124: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
125: --
126: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
127: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
128: --
129: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
130: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
123: pay_us_1099R_udfs.gt_CFS_control_total_5(l_index) :=
124: pay_us_1099R_udfs.gt_CFS_control_total_5 (l_index)+ p_amount_5;
125: --
126: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
127: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
128: --
129: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
130: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
131: --
125: --
126: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
127: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
128: --
129: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
130: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
131: --
132: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
126: pay_us_1099R_udfs.gt_CFS_control_total_6(l_index) :=
127: pay_us_1099R_udfs.gt_CFS_control_total_6 (l_index)+ p_amount_6;
128: --
129: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
130: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
131: --
132: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
134: --
128: --
129: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
130: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
131: --
132: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
134: --
135: --
136: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
129: pay_us_1099R_udfs.gt_CFS_control_total_8(l_index) :=
130: pay_us_1099R_udfs.gt_CFS_control_total_8 (l_index)+ p_amount_8;
131: --
132: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
134: --
135: --
136: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
137: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
132: pay_us_1099R_udfs.gt_CFS_control_total_9(l_index) :=
133: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
134: --
135: --
136: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
137: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
138: --
139: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
140: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
133: pay_us_1099R_udfs.gt_CFS_control_total_9 (l_index)+ p_amount_9;
134: --
135: --
136: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
137: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
138: --
139: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
140: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
141:
135: --
136: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
137: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
138: --
139: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
140: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
141:
142: --------------------------------------------------------------------------
143: --specify field
136: pay_us_1099R_udfs.gt_CFS_SIT_total(l_index) :=
137: pay_us_1099R_udfs.gt_CFS_SIT_total (l_index)+ p_SIT;
138: --
139: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) :=
140: pay_us_1099R_udfs.gt_CFS_LIT_total(l_index) + p_LIT;
141:
142: --------------------------------------------------------------------------
143: --specify field
144: --------------------------------------------------------------------------
195: FUNCTION get_1099R_state_payee_count(p_state in VARCHAR2)
196: RETURN NUMBER IS
197: l_index number;
198: BEGIN
199: l_index := pay_us_1099R_udfs.get_1099R_state_code(p_state);
200: IF l_index IS NULL THEN
201: return 0;
202: ELSE return pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index);
203: END IF;
198: BEGIN
199: l_index := pay_us_1099R_udfs.get_1099R_state_code(p_state);
200: IF l_index IS NULL THEN
201: return 0;
202: ELSE return pay_us_1099R_udfs.gt_combined_filer_state_payees(l_index);
203: END IF;
204: END get_1099R_state_payee_count;
205: --
206: -------------------------------------------------------------------------
211: p_type in VARCHAR2 ) RETURN VARCHAR2 IS
212:
213: l_index number; -- index into global tables
214: BEGIN
215: l_index := pay_us_1099R_udfs.get_1099R_state_code(p_state);
216: IF l_index IS NULL THEN
217: return 0;
218: END IF;
219: IF p_type = 'amount_1' THEN
216: IF l_index IS NULL THEN
217: return 0;
218: END IF;
219: IF p_type = 'amount_1' THEN
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_1(l_index));
221: ELSIF p_type = 'amount_2' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
223: ELSIF p_type = 'amount_3' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
218: END IF;
219: IF p_type = 'amount_1' THEN
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_1(l_index));
221: ELSIF p_type = 'amount_2' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
223: ELSIF p_type = 'amount_3' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
225: ELSIF p_type = 'amount_4' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
220: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_1(l_index));
221: ELSIF p_type = 'amount_2' THEN
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
223: ELSIF p_type = 'amount_3' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
225: ELSIF p_type = 'amount_4' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
227: ELSIF p_type = 'amount_5' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
222: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_2(l_index));
223: ELSIF p_type = 'amount_3' THEN
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
225: ELSIF p_type = 'amount_4' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
227: ELSIF p_type = 'amount_5' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
229: ELSIF p_type = 'amount_6' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
224: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_3(l_index));
225: ELSIF p_type = 'amount_4' THEN
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
227: ELSIF p_type = 'amount_5' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
229: ELSIF p_type = 'amount_6' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
231: ELSIF p_type = 'amount_8' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
226: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_4(l_index));
227: ELSIF p_type = 'amount_5' THEN
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
229: ELSIF p_type = 'amount_6' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
231: ELSIF p_type = 'amount_8' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
233: ELSIF p_type = 'amount_9' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
228: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_5(l_index));
229: ELSIF p_type = 'amount_6' THEN
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
231: ELSIF p_type = 'amount_8' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
233: ELSIF p_type = 'amount_9' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
235: ELSIF p_type = 'SIT' THEN
236: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
230: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_6(l_index));
231: ELSIF p_type = 'amount_8' THEN
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
233: ELSIF p_type = 'amount_9' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
235: ELSIF p_type = 'SIT' THEN
236: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
237: ELSIF p_type = 'LIT' THEN
238: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_LIT_total(l_index));
232: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_8(l_index));
233: ELSIF p_type = 'amount_9' THEN
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
235: ELSIF p_type = 'SIT' THEN
236: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
237: ELSIF p_type = 'LIT' THEN
238: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_LIT_total(l_index));
239: END IF;
240:
234: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_control_total_9(l_index));
235: ELSIF p_type = 'SIT' THEN
236: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_SIT_total(l_index));
237: ELSIF p_type = 'LIT' THEN
238: return fnd_number.number_to_canonical(pay_us_1099R_udfs.gt_CFS_LIT_total(l_index));
239: END IF;
240:
241: END get_1099R_state_total;
242: --
747: IF p_format = 'PUB1220' then
748: --
749: -- Format Employee Address for 1099R (PUB1220 format)
750:
751: pay_us_1099R_udfs.format_pub1220_address(
752: lr_employee_addr.full_name,
753: l_locality_company_id,
754: lr_employee_addr.employee_number,
755: lr_employee_addr.addr_line_1,
782: );
783: ELSIF p_format = '1099R_WV' then
784: -- Format Employee Address for 1099R (PUB1220 format)
785:
786: pay_us_1099R_udfs.format_1099r_wv_address(
787: lr_employee_addr.full_name,
788: l_locality_company_id,
789: lr_employee_addr.employee_number,
790: lr_employee_addr.addr_line_1,
1377:
1378: END Get_1099R_Transmitter_Value;
1379: --
1380: -------------------------------------------------------------------------
1381: END pay_us_1099R_udfs;
1382: