PACKAGE: APPS.JG_CREATE_JOURNALS_PKG

Source

1 PACKAGE JG_CREATE_JOURNALS_PKG AUTHID CURRENT_USER AS
2 /* $Header: jgzztals.pls 115.2 2002/11/20 09:21:37 arimai ship $ */
3 
4   PROCEDURE create_journal;
5 
6   PROCEDURE write_error_to_output;
7 
8   PROCEDURE Create_Offset_For_Acct_Range;
9 
10   TYPE KEY_SEGMENTS_TABLE IS TABLE OF gl_code_combinations.segment1%TYPE
11         INDEX BY BINARY_INTEGER;
12   G_key_segment             KEY_SEGMENTS_TABLE;
13   G_offset_grp_key_segment  KEY_SEGMENTS_TABLE;
14 
15   --
16   -- Allocated table records
17   --
18   TYPE ALLOCATED_LINE IS RECORD (je_batch_name    	  GL_JE_BATCHES.name%TYPE,
19 	 			je_header_name 		  GL_JE_HEADERS.name%TYPE,
20 	 			code_combination_id	  GL_JE_LINES.code_combination_id%TYPE,
21 	 			je_line_num		  GL_JE_LINES.je_line_num%TYPE,
22 				cc_range_id		  JG_ZZ_TA_CC_RANGES.cc_range_id%TYPE,
23 				remarks			  VARCHAR2(240),
24 	 			accounted_cr		  GL_JE_LINES.accounted_cr%TYPE,
25 	 			accounted_dr		  GL_JE_LINES.accounted_dr%TYPE,
26 	 			destn_account_number	  GL_CODE_COMBINATIONS.segment1%TYPE,
27 	 			destn_accted_cr		  GL_JE_LINES.accounted_cr%TYPE,
28 	 			destn_accted_dr		  GL_JE_LINES.accounted_dr%TYPE,
29 				destn_entered_cr	  GL_JE_LINES.entered_cr%TYPE,
30 				destn_entered_dr	  GL_JE_LINES.entered_dr%TYPE);
31 
32   TYPE ALLOCATED_LINES_TABLE IS TABLE OF ALLOCATED_LINE INDEX BY BINARY_INTEGER;
33   alloc_lines_arr		ALLOCATED_LINES_TABLE;
34   i				BINARY_INTEGER := 0; -- total num of alloc lines
35 
36   G_total_alloc_accted_cr_amt  	GL_JE_LINES.accounted_cr%TYPE := 0;
37   G_total_alloc_accted_dr_amt  	GL_JE_LINES.accounted_dr%TYPE := 0;
38 
39   G_total_offset_accted_cr_amt  GL_JE_LINES.accounted_cr%TYPE := 0;
40   G_total_offset_accted_dr_amt  GL_JE_LINES.accounted_dr%TYPE := 0;
41   G_total_offset_entered_cr_amt GL_JE_LINES.entered_cr%TYPE := 0;
42   G_total_offset_entered_dr_amt GL_JE_LINES.entered_dr%TYPE := 0;
43 
44   G_Journal_Name		GL_INTERFACE.reference4%TYPE := NULL;
45   G_Journal_Description		GL_INTERFACE.reference5%TYPE := NULL;
46   G_Batch_Name			GL_INTERFACE.reference1%TYPE := NULL;
47 
48 END JG_CREATE_JOURNALS_PKG;