1: PACKAGE BODY IGS_GE_MSG_STACK AS
2: /* $Header: IGSGE09B.pls 115.4 2002/11/29 00:33:04 nsidana ship $ */
3:
4: Procedure INITIALIZE as
5: Begin
42: lv_msg_text VARCHAR2(2000);
43: ln_msg_index NUMBER;
44: Begin
45: If FND_PROFILE.VALUE('DEBUG_ON') <> 'Y' then
46: While IGS_GE_MSG_STACK.COUNT_MSG <> 0 loop
47: IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
48: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
49: IGS_GE_MSG_STACK.DELETE_MSG(ln_msg_index);
50: END LOOP;
43: ln_msg_index NUMBER;
44: Begin
45: If FND_PROFILE.VALUE('DEBUG_ON') <> 'Y' then
46: While IGS_GE_MSG_STACK.COUNT_MSG <> 0 loop
47: IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
48: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
49: IGS_GE_MSG_STACK.DELETE_MSG(ln_msg_index);
50: END LOOP;
51: else
45: If FND_PROFILE.VALUE('DEBUG_ON') <> 'Y' then
46: While IGS_GE_MSG_STACK.COUNT_MSG <> 0 loop
47: IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
48: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
49: IGS_GE_MSG_STACK.DELETE_MSG(ln_msg_index);
50: END LOOP;
51: else
52: IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
53: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
48: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
49: IGS_GE_MSG_STACK.DELETE_MSG(ln_msg_index);
50: END LOOP;
51: else
52: IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
53: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
54: End If;
55: End CONC_EXCEPTION_HNDL;
56:
53: FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
54: End If;
55: End CONC_EXCEPTION_HNDL;
56:
57: End IGS_GE_MSG_STACK;