3123: l_new_trans NUMBER;
3124: l_not_found NUMBER;
3125: l_short_qty NUMBER;
3126: l_xtra_qty NUMBER;
3127: v_outputfile UTL_FILE.FILE_TYPE;
3128: l_db_name VARCHAR2(10);
3129: l_old_response VARCHAR2(10);
3130: l_location VARCHAR2(10);
3131: l_trans_id NUMBER;
3145: ('OE_DEBUG_LOG_DIRECTORY'), '/tmp');
3146: */
3147:
3148: /*
3149: If /tmp OR the dir specified in the profile itself is not one of the values for database parameter 'utl_file_dir' this will fail . Added the following cursor toget the default directory NC - 11/26/01
3150: */
3151:
3152: CURSOR get_log_file_location IS
3153: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
3151:
3152: CURSOR get_log_file_location IS
3153: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
3154: FROM v$parameter
3155: WHERE name = 'utl_file_dir';
3156:
3157: l_FILE Varchar2(255) := NULL;
3158: l_DIR Varchar2(255) := NULL;
3159: CANNOT_OPEN EXCEPTION;
3166: l_FILE := 'MATCHLINES'||l_time;
3167: --DBMS_OUTPut.disable;
3168: -- DBMS_OUTPut.enable(1000000);
3169:
3170: /* Getting the log file location from 'utl_file_dir' parameter itself
3171: is not fool proof , for it could have values like '*' . But in this
3172: case, FOPEN would fail and OTHERS exception should catch it.
3173: */
3174:
3175: OPEN get_log_file_location;
3176: FETCH get_log_file_location into l_DIR;
3177: CLOSE get_log_file_location;
3178:
3179: v_outputfile := UTL_FILE.FOPEN(l_DIR,l_FILE,'W');
3180:
3181: /* NC - added 11/26/01 . Say fopen did not fail,there still could be
3182: a problem with the file handler.
3183: */
3180:
3181: /* NC - added 11/26/01 . Say fopen did not fail,there still could be
3182: a problem with the file handler.
3183: */
3184: IF NOT UTL_FILE.IS_OPEN(v_outputfile) THEN
3185: raise CANNOT_OPEN;
3186: END IF;
3187:
3188: select name into l_db_name
3187:
3188: select name into l_db_name
3189: from v$database;
3190:
3191: UTL_FILE.putf(v_outputfile,'\n***************************************\n');
3192: UTL_FILE.putf(v_outputfile,'******* DATABASE - %s \n',l_db_name);
3193: UTL_FILE.putf(v_outputfile,'******* RUN DATE - %s \n',TO_CHAR(SYSDATE,'DD-MM-YY HH24:MI:SS'));
3194: UTL_FILE.putf(v_outputfile,'******************************************\n');
3195:
3188: select name into l_db_name
3189: from v$database;
3190:
3191: UTL_FILE.putf(v_outputfile,'\n***************************************\n');
3192: UTL_FILE.putf(v_outputfile,'******* DATABASE - %s \n',l_db_name);
3193: UTL_FILE.putf(v_outputfile,'******* RUN DATE - %s \n',TO_CHAR(SYSDATE,'DD-MM-YY HH24:MI:SS'));
3194: UTL_FILE.putf(v_outputfile,'******************************************\n');
3195:
3196: UTL_FILE.putf(v_outputfile,'\n INITIALIZE MSG STACK\n');
3189: from v$database;
3190:
3191: UTL_FILE.putf(v_outputfile,'\n***************************************\n');
3192: UTL_FILE.putf(v_outputfile,'******* DATABASE - %s \n',l_db_name);
3193: UTL_FILE.putf(v_outputfile,'******* RUN DATE - %s \n',TO_CHAR(SYSDATE,'DD-MM-YY HH24:MI:SS'));
3194: UTL_FILE.putf(v_outputfile,'******************************************\n');
3195:
3196: UTL_FILE.putf(v_outputfile,'\n INITIALIZE MSG STACK\n');
3197: --BEGIN BUG#2736088 V. Ajay Kumar
3190:
3191: UTL_FILE.putf(v_outputfile,'\n***************************************\n');
3192: UTL_FILE.putf(v_outputfile,'******* DATABASE - %s \n',l_db_name);
3193: UTL_FILE.putf(v_outputfile,'******* RUN DATE - %s \n',TO_CHAR(SYSDATE,'DD-MM-YY HH24:MI:SS'));
3194: UTL_FILE.putf(v_outputfile,'******************************************\n');
3195:
3196: UTL_FILE.putf(v_outputfile,'\n INITIALIZE MSG STACK\n');
3197: --BEGIN BUG#2736088 V. Ajay Kumar
3198: --Removed the reference to "apps"
3192: UTL_FILE.putf(v_outputfile,'******* DATABASE - %s \n',l_db_name);
3193: UTL_FILE.putf(v_outputfile,'******* RUN DATE - %s \n',TO_CHAR(SYSDATE,'DD-MM-YY HH24:MI:SS'));
3194: UTL_FILE.putf(v_outputfile,'******************************************\n');
3195:
3196: UTL_FILE.putf(v_outputfile,'\n INITIALIZE MSG STACK\n');
3197: --BEGIN BUG#2736088 V. Ajay Kumar
3198: --Removed the reference to "apps"
3199: FND_MSG_PUB.INITIALIZE;
3200: --END BUG#2736088
3206:
3207: FOR lines IN c_get_lines LOOP
3208: l_required_lines := l_required_lines + 1;
3209: IF l_old_response <> lines.org THEN
3210: UTL_FILE.putf(v_outputfile,'\n ****** START RESPONSE ******\n');
3211: END IF;
3212:
3213: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3209: IF l_old_response <> lines.org THEN
3210: UTL_FILE.putf(v_outputfile,'\n ****** START RESPONSE ******\n');
3211: END IF;
3212:
3213: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3215: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3216: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3217: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3210: UTL_FILE.putf(v_outputfile,'\n ****** START RESPONSE ******\n');
3211: END IF;
3212:
3213: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3215: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3216: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3217: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3218: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3211: END IF;
3212:
3213: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3215: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3216: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3217: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3218: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3219:
3212:
3213: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3215: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3216: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3217: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3218: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3219:
3220: BEGIN
3213: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3215: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3216: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3217: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3218: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3219:
3220: BEGIN
3221: IF ( NOT INV_GMI_RSV_BRANCH.Process_Branch
3214: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3215: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3216: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3217: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3218: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3219:
3220: BEGIN
3221: IF ( NOT INV_GMI_RSV_BRANCH.Process_Branch
3222: (p_organization_id => lines.ship_org )
3226: -- Find Matching Transactions
3227: OPEN c_get_item_info( lines.item_id, lines.ship_org);
3228: FETCH c_get_item_info INTO l_item_id;
3229: IF c_get_item_info%NOTFOUND THEN
3230: UTL_FILE.putf(v_outputfile,'\n ITEM DETAILS NOT FOUND\n');
3231: RAISE NO_DATA_FOUND;
3232: END IF;
3233: CLOSE c_get_item_info;
3234: IF lines.locator_id IS NULL
3260: l_item_id, l_lot_id,l_location);
3261: LOOP
3262: FETCH get_opm_transaction_c INTO l_trans_id, l_line_detail_id;
3263: IF get_opm_transaction_c%NOTFOUND THEN
3264: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******');
3265: UTL_FILE.putf(v_outputfile,'\n OPM TRANSACTION NOT FOUND ');
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3261: LOOP
3262: FETCH get_opm_transaction_c INTO l_trans_id, l_line_detail_id;
3263: IF get_opm_transaction_c%NOTFOUND THEN
3264: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******');
3265: UTL_FILE.putf(v_outputfile,'\n OPM TRANSACTION NOT FOUND ');
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3262: FETCH get_opm_transaction_c INTO l_trans_id, l_line_detail_id;
3263: IF get_opm_transaction_c%NOTFOUND THEN
3264: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******');
3265: UTL_FILE.putf(v_outputfile,'\n OPM TRANSACTION NOT FOUND ');
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3270: UTL_FILE.putf(v_outputfile,'\n WHSE %s', lines.SHIP_ORG);
3263: IF get_opm_transaction_c%NOTFOUND THEN
3264: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******');
3265: UTL_FILE.putf(v_outputfile,'\n OPM TRANSACTION NOT FOUND ');
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3270: UTL_FILE.putf(v_outputfile,'\n WHSE %s', lines.SHIP_ORG);
3271: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******\n');
3264: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******');
3265: UTL_FILE.putf(v_outputfile,'\n OPM TRANSACTION NOT FOUND ');
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3270: UTL_FILE.putf(v_outputfile,'\n WHSE %s', lines.SHIP_ORG);
3271: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******\n');
3272: l_trans_notfound := l_trans_notfound +1;
3265: UTL_FILE.putf(v_outputfile,'\n OPM TRANSACTION NOT FOUND ');
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3270: UTL_FILE.putf(v_outputfile,'\n WHSE %s', lines.SHIP_ORG);
3271: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******\n');
3272: l_trans_notfound := l_trans_notfound +1;
3273: EXIT;
3266: UTL_FILE.putf(v_outputfile,'\n LINE_ID %s',lines.line_id);
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3270: UTL_FILE.putf(v_outputfile,'\n WHSE %s', lines.SHIP_ORG);
3271: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******\n');
3272: l_trans_notfound := l_trans_notfound +1;
3273: EXIT;
3274: ELSE
3267: UTL_FILE.putf(v_outputfile,'\n ITEM_ID %s',l_item_id);
3268: UTL_FILE.putf(v_outputfile,'\n LOT_ID %s',l_lot_id);
3269: UTL_FILE.putf(v_outputfile,'\n LOCAT %s',l_location);
3270: UTL_FILE.putf(v_outputfile,'\n WHSE %s', lines.SHIP_ORG);
3271: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******\n');
3272: l_trans_notfound := l_trans_notfound +1;
3273: EXIT;
3274: ELSE
3275: UTL_FILE.putf(v_outputfile,' MATCHING TRANS = %s',l_trans_id);
3271: UTL_FILE.putf(v_outputfile,'\n ***** ERROR ******\n');
3272: l_trans_notfound := l_trans_notfound +1;
3273: EXIT;
3274: ELSE
3275: UTL_FILE.putf(v_outputfile,' MATCHING TRANS = %s',l_trans_id);
3276: UTL_FILE.putf(v_outputfile,',LINE DETAIL ID = %s\n',l_line_detail_id);
3277: -- Check if Line detail id NOT populated
3278: IF l_line_detail_id is NULL THEN
3279: -- Okay Now Perform Updates
3272: l_trans_notfound := l_trans_notfound +1;
3273: EXIT;
3274: ELSE
3275: UTL_FILE.putf(v_outputfile,' MATCHING TRANS = %s',l_trans_id);
3276: UTL_FILE.putf(v_outputfile,',LINE DETAIL ID = %s\n',l_line_detail_id);
3277: -- Check if Line detail id NOT populated
3278: IF l_line_detail_id is NULL THEN
3279: -- Okay Now Perform Updates
3280: UPDATE IC_TRAN_PND
3292: END IF; /* For OPM WHSE CHECK */
3293:
3294: EXCEPTION
3295: WHEN NO_DATA_FOUND THEN
3296: UTL_FILE.putf(v_outputfile,'\n NO DATA FOUND\n');
3297: CLOSE c_get_item_info;
3298: WHEN NON_OPM_WHSE THEN
3299: UTL_FILE.putf(v_outputfile,'\n NON OPM SHIPMENT \n');
3300: l_non_opm_whse := l_non_opm_whse + 1;
3295: WHEN NO_DATA_FOUND THEN
3296: UTL_FILE.putf(v_outputfile,'\n NO DATA FOUND\n');
3297: CLOSE c_get_item_info;
3298: WHEN NON_OPM_WHSE THEN
3299: UTL_FILE.putf(v_outputfile,'\n NON OPM SHIPMENT \n');
3300: l_non_opm_whse := l_non_opm_whse + 1;
3301: END; /* inner begin */
3302: l_old_response := lines.org;
3303: END LOOP; /* FOR ALL ORDERS */
3306: l_default_location := FND_PROFILE.VALUE('IC$DEFAULT_LOCT');
3307: FOR lines IN get_unstaged_lines LOOP
3308: l_required_lines := l_required_lines + 1;
3309: IF l_old_response <> lines.org THEN
3310: UTL_FILE.putf(v_outputfile,'\n ****** unstaged shipping lines ******\n');
3311: END IF;
3312: BEGIN
3313: IF ( NOT INV_GMI_RSV_BRANCH.Process_Branch
3314: (p_organization_id => lines.ship_org )
3318: Open count_trans_unstaged( lines.line_id, l_default_location);
3319: Fetch count_trans_unstaged Into l_trans_count;
3320: Close count_trans_unstaged;
3321: If l_trans_count <> 0 THEN
3322: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3323: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3324: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3325: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3326: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3319: Fetch count_trans_unstaged Into l_trans_count;
3320: Close count_trans_unstaged;
3321: If l_trans_count <> 0 THEN
3322: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3323: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3324: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3325: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3326: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3327: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3320: Close count_trans_unstaged;
3321: If l_trans_count <> 0 THEN
3322: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3323: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3324: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3325: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3326: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3327: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3328: Open count_unstaged_wdd_for_mo(lines.line_id);
3321: If l_trans_count <> 0 THEN
3322: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3323: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3324: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3325: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3326: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3327: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3328: Open count_unstaged_wdd_for_mo(lines.line_id);
3329: Fetch count_unstaged_wdd_for_mo Into l_wdd_count;
3322: UTL_FILE.putf(v_outputfile,'\n RESP => %s',lines.org);
3323: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3324: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3325: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3326: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3327: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3328: Open count_unstaged_wdd_for_mo(lines.line_id);
3329: Fetch count_unstaged_wdd_for_mo Into l_wdd_count;
3330: Close count_unstaged_wdd_for_mo;
3323: UTL_FILE.putf(v_outputfile,'\n WHSE => %s',lines.WHSE);
3324: UTL_FILE.putf(v_outputfile,'\n ORDER NO => %s',lines.SO_NUMBER);
3325: UTL_FILE.putf(v_outputfile,'\n LINE NO => %s',lines.LINE_NO);
3326: UTL_FILE.putf(v_outputfile,'\n ORDER QTY => %s',lines.ORDER_QTY);
3327: UTL_FILE.putf(v_outputfile,'\n SOURCE LINE ID => %s\n',lines.LINE_ID);
3328: Open count_unstaged_wdd_for_mo(lines.line_id);
3329: Fetch count_unstaged_wdd_for_mo Into l_wdd_count;
3330: Close count_unstaged_wdd_for_mo;
3331: IF l_wdd_count = 1 THEN
3356: And completed_ind = 0
3357: And (lot_id <> 0 or location <> l_default_location ) -- NON default
3358: ;
3359: ELSIF l_wdd_count > 1 THEN
3360: UTL_FILE.putf(v_outputfile,'\n ***********Order Number '|| lines.so_number||
3361: 'needs manual attention \n');
3362: END IF;
3363: END IF;
3364: END IF;
3363: END IF;
3364: END IF;
3365: EXCEPTION
3366: WHEN NO_DATA_FOUND THEN
3367: UTL_FILE.putf(v_outputfile,'\n NO DATA FOUND\n');
3368: CLOSE c_get_item_info;
3369: WHEN NON_OPM_WHSE THEN
3370: UTL_FILE.putf(v_outputfile,'\n NON OPM SHIPMENT \n');
3371: l_non_opm_whse := l_non_opm_whse + 1;
3366: WHEN NO_DATA_FOUND THEN
3367: UTL_FILE.putf(v_outputfile,'\n NO DATA FOUND\n');
3368: CLOSE c_get_item_info;
3369: WHEN NON_OPM_WHSE THEN
3370: UTL_FILE.putf(v_outputfile,'\n NON OPM SHIPMENT \n');
3371: l_non_opm_whse := l_non_opm_whse + 1;
3372: END; /* inner begin */
3373: l_old_response := lines.org;
3374: END LOOP; /* FOR ALL ORDERS */
3372: END; /* inner begin */
3373: l_old_response := lines.org;
3374: END LOOP; /* FOR ALL ORDERS */
3375:
3376: UTL_FILE.putf(v_outputfile,'\n ************ SUMMARY *********** \n');
3377: UTL_FILE.putf(v_outputfile,'\n TOTAL LINES PROCESSED => %s\n',l_required_lines);
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3373: l_old_response := lines.org;
3374: END LOOP; /* FOR ALL ORDERS */
3375:
3376: UTL_FILE.putf(v_outputfile,'\n ************ SUMMARY *********** \n');
3377: UTL_FILE.putf(v_outputfile,'\n TOTAL LINES PROCESSED => %s\n',l_required_lines);
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3374: END LOOP; /* FOR ALL ORDERS */
3375:
3376: UTL_FILE.putf(v_outputfile,'\n ************ SUMMARY *********** \n');
3377: UTL_FILE.putf(v_outputfile,'\n TOTAL LINES PROCESSED => %s\n',l_required_lines);
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3382: UTL_FILE.putf(v_outputfile,'\n ********************************* \n');
3375:
3376: UTL_FILE.putf(v_outputfile,'\n ************ SUMMARY *********** \n');
3377: UTL_FILE.putf(v_outputfile,'\n TOTAL LINES PROCESSED => %s\n',l_required_lines);
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3382: UTL_FILE.putf(v_outputfile,'\n ********************************* \n');
3383: UTL_FILE.FCLOSE(v_outputfile);
3376: UTL_FILE.putf(v_outputfile,'\n ************ SUMMARY *********** \n');
3377: UTL_FILE.putf(v_outputfile,'\n TOTAL LINES PROCESSED => %s\n',l_required_lines);
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3382: UTL_FILE.putf(v_outputfile,'\n ********************************* \n');
3383: UTL_FILE.FCLOSE(v_outputfile);
3384:
3377: UTL_FILE.putf(v_outputfile,'\n TOTAL LINES PROCESSED => %s\n',l_required_lines);
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3382: UTL_FILE.putf(v_outputfile,'\n ********************************* \n');
3383: UTL_FILE.FCLOSE(v_outputfile);
3384:
3385: EXCEPTION
3378: UTL_FILE.putf(v_outputfile,'\n TOTAL OPM PROCESSED => %s\n',l_required_lines - l_non_opm_whse);
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3382: UTL_FILE.putf(v_outputfile,'\n ********************************* \n');
3383: UTL_FILE.FCLOSE(v_outputfile);
3384:
3385: EXCEPTION
3386:
3379: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS NOT FOUND => %s\n',l_trans_notfound);
3380: UTL_FILE.putf(v_outputfile,'\n TOTAL TRANS UPDATED => %s\n',l_trans_updated);
3381: UTL_FILE.putf(v_outputfile,'\n TOTAL LINE DETAIL TRANS => %s\n',l_detail_exists);
3382: UTL_FILE.putf(v_outputfile,'\n ********************************* \n');
3383: UTL_FILE.FCLOSE(v_outputfile);
3384:
3385: EXCEPTION
3386:
3387: WHEN CANNOT_OPEN THEN
3385: EXCEPTION
3386:
3387: WHEN CANNOT_OPEN THEN
3388: --DBMS_OUTPUT.enable(10000);
3389: --dbms_output.put_line('Can not open utl_file');
3390: null;
3391: WHEN OTHERS THEN
3392: --DBMS_OUTPUT.enable(10000);
3393: --dbms_output.put_line('In others exception : procedure match_lines');