901: END IF;
902:
903: -- Printing In Process Billing Transactions report header. The formatting of the message titles is
904: -- also taken care here.
905: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
906: RPAD(' ', 53 , ' ' ));
907: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
903: -- Printing In Process Billing Transactions report header. The formatting of the message titles is
904: -- also taken care here.
905: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
906: RPAD(' ', 53 , ' ' ));
907: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
904: -- also taken care here.
905: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
906: RPAD(' ', 53 , ' ' ));
907: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
905: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
906: RPAD(' ', 53 , ' ' ));
907: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
913: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
907: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
913: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));*/
915:
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
913: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));*/
915:
916: -- Printing the titles for 'Contract Number' and 'Next Step'
909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_IN_PRCS_BILL_TRANS_REP') ||
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
913: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));*/
915:
916: -- Printing the titles for 'Contract Number' and 'Next Step'
917: /* FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('Contract Number Next Step',150,' '));
910: RPAD(' ', 53 , ' ' ));
911: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
913: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));*/
915:
916: -- Printing the titles for 'Contract Number' and 'Next Step'
917: /* FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('Contract Number Next Step',150,' '));
918: FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('------------------ --------------',150,' ')); */
913: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));*/
915:
916: -- Printing the titles for 'Contract Number' and 'Next Step'
917: /* FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('Contract Number Next Step',150,' '));
918: FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('------------------ --------------',150,' ')); */
919:
920: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract Number Next Step');
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------------ --------------'); */
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));*/
915:
916: -- Printing the titles for 'Contract Number' and 'Next Step'
917: /* FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('Contract Number Next Step',150,' '));
918: FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('------------------ --------------',150,' ')); */
919:
920: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract Number Next Step');
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------------ --------------'); */
922:
916: -- Printing the titles for 'Contract Number' and 'Next Step'
917: /* FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('Contract Number Next Step',150,' '));
918: FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('------------------ --------------',150,' ')); */
919:
920: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract Number Next Step');
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------------ --------------'); */
922:
923: -- Initialize the contract variable to Null.
924: -- Open the cursor Int_Ext_Check_Csr, Loop through it and display the contract number
917: /* FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('Contract Number Next Step',150,' '));
918: FND_FILE.PUT(FND_FILE.OUTPUT, RPAD('------------------ --------------',150,' ')); */
919:
920: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract Number Next Step');
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------------ --------------'); */
922:
923: -- Initialize the contract variable to Null.
924: -- Open the cursor Int_Ext_Check_Csr, Loop through it and display the contract number
925: -- and the Next step value should be 'Run Prepare Receivables Bills concurrent program'.
933: THEN
934: LOOP
935: x_any_data_exists := true; -- VPANWAR changed for pre upgrade test
936: x_retcode := 1;
937: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(SUBSTR(l_contract,1,28),30,' ')||
938: RPAD(' Run Prepare Receivables Bills concurrent program',120,' '));
939: FETCH int_ext_check_csr INTO l_contract;
940: EXIT WHEN int_ext_check_csr%NOTFOUND;*/
941: x_errbuf := 'Prepare Receivables Bills concurrent program';
941: x_errbuf := 'Prepare Receivables Bills concurrent program';
942: EXIT;
943: END LOOP;
944: /* ELSE
945: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || 'No Records Found' || RPAD(' ', 51, ' ' ));*/
946: END IF;
947: CLOSE int_ext_check_csr;
948:
949: -- Insert blank lines
946: END IF;
947: CLOSE int_ext_check_csr;
948:
949: -- Insert blank lines
950: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
951: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
952: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
953:
954: -- Initialize the contract variable to Null.
947: CLOSE int_ext_check_csr;
948:
949: -- Insert blank lines
950: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
951: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
952: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
953:
954: -- Initialize the contract variable to Null.
955: -- Open the cursor ext_cnsld_check_csr, Loop through it and display the contract number
948:
949: -- Insert blank lines
950: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
951: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
952: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
953:
954: -- Initialize the contract variable to Null.
955: -- Open the cursor ext_cnsld_check_csr, Loop through it and display the contract number
956: -- and the Next step value should be 'Run Receivables Bills Consolidation concurrent program'.
964: THEN
965: LOOP
966: x_any_data_exists := true; -- VPANWAR changed for pre upgrade test
967: x_retcode := 1;
968: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(SUBSTR(l_contract,1,28),30,' ')||
969: RPAD(' Run Receivables Bills Consolidation concurrent program',120,' '));
970: FETCH ext_cnsld_check_csr INTO l_contract;
971: EXIT WHEN ext_cnsld_check_csr%NOTFOUND;*/
972: x_errbuf := 'Receivables Bills Consolidation concurrent program';
972: x_errbuf := 'Receivables Bills Consolidation concurrent program';
973: EXIT;
974: END LOOP;
975: /*ELSE
976: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || 'No Records Found' || RPAD(' ', 51, ' ' ));*/
977: END IF;
978: CLOSE ext_cnsld_check_csr;
979:
980: -- Insert blank lines
977: END IF;
978: CLOSE ext_cnsld_check_csr;
979:
980: -- Insert blank lines
981: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
982: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
983: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
984:
985: -- Initialize the contract variable to Null.
978: CLOSE ext_cnsld_check_csr;
979:
980: -- Insert blank lines
981: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
982: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
983: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
984:
985: -- Initialize the contract variable to Null.
986: -- Open the cursor cnsld_ar_check_csr, Loop through it and display the contract number
979:
980: -- Insert blank lines
981: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
982: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
983: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
984:
985: -- Initialize the contract variable to Null.
986: -- Open the cursor cnsld_ar_check_csr, Loop through it and display the contract number
987: -- and the Next step value should be 'Run Prepare Receivables Bills concurrent program'.
995: THEN
996: LOOP
997: x_any_data_exists := true; -- VPANWAR changed for pre upgrade test
998: x_retcode := 1;
999: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(SUBSTR(l_contract,1,28),30,' ')||
1000: RPAD(' Run Receivables Invoice Transfer to AR concurrent program',120,' '));
1001: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',30,' ')||
1002: RPAD(' Run AutoInvoice Master Program',120,' '));
1003: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',30,' ')||
997: x_any_data_exists := true; -- VPANWAR changed for pre upgrade test
998: x_retcode := 1;
999: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(SUBSTR(l_contract,1,28),30,' ')||
1000: RPAD(' Run Receivables Invoice Transfer to AR concurrent program',120,' '));
1001: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',30,' ')||
1002: RPAD(' Run AutoInvoice Master Program',120,' '));
1003: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',30,' ')||
1004: RPAD(' Run Fetch AR Invoice Numbers',120,' '));
1005: FETCH cnsld_ar_check_csr INTO l_contract;
999: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(SUBSTR(l_contract,1,28),30,' ')||
1000: RPAD(' Run Receivables Invoice Transfer to AR concurrent program',120,' '));
1001: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',30,' ')||
1002: RPAD(' Run AutoInvoice Master Program',120,' '));
1003: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',30,' ')||
1004: RPAD(' Run Fetch AR Invoice Numbers',120,' '));
1005: FETCH cnsld_ar_check_csr INTO l_contract;
1006: EXIT WHEN cnsld_ar_check_csr%NOTFOUND;*/
1007: x_errbuf := 'AutoInvoice Master Program and Fetch AR Invoice Numbers';
1007: x_errbuf := 'AutoInvoice Master Program and Fetch AR Invoice Numbers';
1008: EXIT;
1009: END LOOP;
1010: /*ELSE
1011: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || 'No Records Found' || RPAD(' ', 51, ' ' ));*/
1012: END IF;
1013: CLOSE cnsld_ar_check_csr;
1014:
1015: -- Insert blank lines
1012: END IF;
1013: CLOSE cnsld_ar_check_csr;
1014:
1015: -- Insert blank lines
1016: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
1017: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
1018: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
1019:
1020: -- Initialize the contract variable to Null.
1013: CLOSE cnsld_ar_check_csr;
1014:
1015: -- Insert blank lines
1016: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
1017: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
1018: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
1019:
1020: -- Initialize the contract variable to Null.
1021: -- Open the cursor cnsld_pstv_check_csr, Loop through it and display the contract number
1014:
1015: -- Insert blank lines
1016: /*FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
1017: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));
1018: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, rPAD(' ', 150, ' '));*/
1019:
1020: -- Initialize the contract variable to Null.
1021: -- Open the cursor cnsld_pstv_check_csr, Loop through it and display the contract number
1022: -- and the Next step value should be 'Run Prepare Receivables Bills concurrent program'.
1030: THEN
1031: LOOP
1032: x_any_data_exists := true; -- VPANWAR changed for pre upgrade test
1033: x_retcode := 1;
1034: /*FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(SUBSTR(l_contract,1,28),30,' ')||
1035: RPAD(' Run Fetch AR Invoice Numbers',120,' '));
1036: FETCH cnsld_pstv_check_csr INTO l_contract;
1037: EXIT WHEN cnsld_pstv_check_csr%NOTFOUND;*/
1038: x_errbuf := 'Fetch AR Invoice Numbers';
1038: x_errbuf := 'Fetch AR Invoice Numbers';
1039: EXIT;
1040: END LOOP;
1041: /*ELSE
1042: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || 'No Records Found' || RPAD(' ', 51, ' ' ));*/
1043: END IF;
1044: CLOSE cnsld_pstv_check_csr;
1045:
1046: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
1069: x_errbuf := SQLERRM;
1070: x_retcode := 2;
1071: x_any_data_exists := true; -- VPANWAR changed for pre upgrade test
1072:
1073: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
1074:
1075: IF (SQLCODE <> -20001) THEN
1076: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1077: RAISE;
1072:
1073: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
1074:
1075: IF (SQLCODE <> -20001) THEN
1076: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1077: RAISE;
1078: ELSE
1079: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1075: IF (SQLCODE <> -20001) THEN
1076: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1077: RAISE;
1078: ELSE
1079: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1081: END IF;
1082: END check_preupgrade_data;
1083: