DBA Data[Home] [Help]

APPS.IGI_ITR_FUNDS_CONTROL_PKG dependencies on IGI_ITR_FUNDS_CONTROL_PKG

Line 1: PACKAGE BODY IGI_ITR_FUNDS_CONTROL_PKG AS

1: PACKAGE BODY IGI_ITR_FUNDS_CONTROL_PKG AS
2: -- $Header: igiitrhb.pls 120.10 2007/08/23 14:52:16 smannava ship $
3:
4: ------------------------------------------------------------------------
5: -- Cursor to be used in Funds_Control for both Fundschecker and Approval

Line 122: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'|| l_debug_loc;

118: l_curr_calling_sequence varchar2(2000);
119: l_debug_info varchar2(100);
120: Begin
121: ----------------------------------------------------------------------
122: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'|| l_debug_loc;
123: l_debug_info := 'Checking if encumbrance is enabled';
124: ----------------------------------------------------------------------
125: Select nvl(use_encumbrance_flag,'N')
126: Into l_enc_enabled

Line 148: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Encumbrance_Enabled.msg1',TRUE);

144: IF ( l_unexp_level >= l_debug_level) THEN
145: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
146: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
147: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
148: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Encumbrance_Enabled.msg1',TRUE);
149: END IF;
150:
151: End If;
152: APP_EXCEPTION.RAISE_EXCEPTION;

Line 169: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;

165: l_mode_old varchar2(1);
166: l_partial_resv_flag_old varchar2(1);
167: Begin
168: -----------------------------------------------------------------------------------------------
169: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
170: l_debug_info := 'Call Get_Gl_Fundschk_Packet_id';
171: -----------------------------------------------------------------------------------------------
172:
173: l_packet_id_old := p_packet_id;

Line 208: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Setup_Gl_Fundschk_Params.msg2',TRUE);

204: IF ( l_unexp_level >= l_debug_level) THEN
205: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
206: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
207: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
208: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Setup_Gl_Fundschk_Params.msg2',TRUE);
209: END IF;
210:
211: End If;
212: APP_EXCEPTION.RAISE_EXCEPTION;

Line 224: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc;

220: l_debug_info varchar2(100);
221: l_packet_id_old igi_itr_charge_lines_audit.packet_id%type;
222: Begin
223: ---------------------------------------------------------------
224: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc;
225: l_debug_info := 'Retrieve next packet id from gl_bc_packets_s';
226: ---------------------------------------------------------------
227:
228: l_packet_id_old := p_packet_id;

Line 247: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Packet_Id.msg3',TRUE);

243: IF ( l_unexp_level >= l_debug_level) THEN
244: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
245: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
247: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Packet_Id.msg3',TRUE);
248: END IF;
249:
250: End If;
251: APP_EXCEPTION.RAISE_EXCEPTION;

Line 319: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;

315: From fnd_application
316: Where application_short_name = 'SQLGL');
317: Begin
318: -----------------------------------------------------------------------------------------------
319: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
320: -----------------------------------------------------------------------------------------------
321:
322: l_return_message_name_old := p_return_message_name;
323:

Line 684: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Funds_Check_Reserve.msg4',TRUE);

680: IF ( l_unexp_level >= l_debug_level) THEN
681: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
682: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
683: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
684: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Funds_Check_Reserve.msg4',TRUE);
685: END IF;
686:
687: End If;
688: APP_EXCEPTION.RAISE_EXCEPTION;

Line 705: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;

701: l_itr_enc_type_id_old igi_itr_charge_setup.encumbrance_type_id%type;
702: l_gl_user_id_old number;
703: Begin
704: -----------------------------------------------------------------------------------------------
705: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
706: l_debug_info := 'Retrieving system parameters for fundschecker';
707: -----------------------------------------------------------------------------------------------
708:
709: l_chart_of_accounts_id_old := p_chart_of_accounts_id;

Line 744: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Fundscheck_Init.msg5',TRUE);

740: IF ( l_unexp_level >= l_debug_level) THEN
741: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
742: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
743: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
744: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Fundscheck_Init.msg5',TRUE);
745: END IF;
746:
747: End If;
748: APP_EXCEPTION.RAISE_EXCEPTION;

Line 787: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;

783: l_serial_id number := NULL;
784: Begin
785:
786: ------------------------------------------------------------------------------------------------
787: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
788: l_debug_info := 'Inserting record into gl_bc_packets';
789: ------------------------------------------------------------------------------------------------
790: -- Logic for switching
791: If ((p_status_flag in ('R','J') and p_reversal_flag = 'Y') -- Modification and Reversal

Line 867: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.BC_Packets_Insert.msg6',TRUE);

863: IF ( l_unexp_level >= l_debug_level) THEN
864: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
865: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
866: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
867: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.BC_Packets_Insert.msg6',TRUE);
868: END IF;
869:
870: End If;
871: APP_EXCEPTION.RAISE_EXCEPTION;

Line 891: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;

887: l_return_message_name_old varchar2(30);
888:
889: Begin
890: -----------------------------------------------------------------------------------------------
891: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
892: -----------------------------------------------------------------------------------------------
893:
894: l_return_message_name_old := p_return_message_name;
895:

Line 941: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Process_Fundschk_Failure_Code.msg7',TRUE);

937: IF ( l_unexp_level >= l_debug_level) THEN
938: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
939: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
940: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
941: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Process_Fundschk_Failure_Code.msg7',TRUE);
942: END IF;
943:
944: End If;
945: APP_EXCEPTION.RAISE_EXCEPTION;

Line 962: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc;

958: l_curr_calling_sequence varchar2(2000);
959: l_debug_info varchar2(100);
960: Begin
961: ---------------------------------------------------------------------
962: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc;
963: ---------------------------------------------------------------------
964: If (p_status_flag = 'L' or p_prevent_encumbrance_flag = 'Y') Then
965: -------------------------------------------------------------------------------------------
966: l_debug_info := 'Cancelled , Unreservation Lines , updating Charge Lines and Audit Tables';

Line 1017: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Itr_Enc_Update.msg8',TRUE);

1013: IF ( l_unexp_level >= l_debug_level) THEN
1014: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1015: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1016: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1017: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Itr_Enc_Update.msg8',TRUE);
1018: END IF;
1019:
1020: End If;
1021: APP_EXCEPTION.RAISE_EXCEPTION;

Line 1033: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc;

1029: l_fc_result_code_old varchar2(30);
1030:
1031: Begin
1032: ---------------------------------------------------------------------
1033: l_curr_calling_sequence := 'IGI_ITR_FUNDS_CONTROL_PKG.'||l_debug_loc;
1034: ---------------------------------------------------------------------
1035:
1036: l_fc_result_code_old := p_fc_result_code;
1037:

Line 1062: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Result_Code.msg9',TRUE);

1058: IF ( l_unexp_level >= l_debug_level) THEN
1059: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1060: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1061: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1062: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Result_Code.msg9',TRUE);
1063: END IF;
1064: End If;
1065: APP_EXCEPTION.RAISE_EXCEPTION;
1066: End Get_Gl_Fundschk_Result_Code;

Line 1068: END IGI_ITR_FUNDS_CONTROL_PKG;

1064: End If;
1065: APP_EXCEPTION.RAISE_EXCEPTION;
1066: End Get_Gl_Fundschk_Result_Code;
1067:
1068: END IGI_ITR_FUNDS_CONTROL_PKG;