├── AEMetadataSampleCode.peoplecode ├── All_PeopleCode_EPSYS.peoplecode ├── CheckifPIAisUp.curl ├── CompInterfaceUtils.peoplecode ├── ExportProjectDMS.dms ├── How to use LISTAGG in PSQuery.doc ├── IntegrationBroker ├── GetCIXMLJSON.peoplecode ├── IBInfowithPATCH ├── Interchange.peoplecode ├── PPTriggerAE.peoplecode ├── PSJobRESTAPI.peoplecode ├── README.md ├── SampleRESTfulHandler ├── Stub_CIXMLJSON.peoplecode ├── UniversalCIHandler ├── XML2JSON_reverse_java_stub.peoplecode └── XMLtoJSON_reverse.peoplecode ├── KeepPSAlive.bash ├── LoadXML2Convert.peoplecode ├── PIALogin.curl ├── PO_SavePostChangeRS2JSON.peoplecode ├── PPs_Understanding_of_FG.doc ├── PS Commitment Ledger ├── .gitignore ├── CR001515_D1_Verifications_2014-05-27 11-14-53.xlsx ├── DATs and Logs │ ├── .gitignore │ ├── CR00XXXX_00_SRCEXPORT.DAT │ └── CR00XXXX_00_SRCEXPORT.LOG ├── FirstPass_Verification_SOURCE_D1.txt ├── P1_POActivitySummary_UNU_2014_V2_11Jun14.xls ├── POActivitySummaryQueryTesting_Jun2014.sql ├── PSBUILD.SQL ├── README.md ├── Scripts │ ├── .gitignore │ ├── CR00XXXX_00_SRCEXPORT.dms │ ├── CR00XXXX_01_TGTEXPORT.dms │ ├── CR00XXXX_02_TGTDELETE.dms │ ├── CR00XXXX_03_TGTIMPORT.dms │ └── CR00XXXX_99_VerificationSQLs.sql ├── UNU-Commitment_Ledger_ConfigurationSteps_V1.xlsx ├── UNU-Commitment_Ledger_Setup_V1.doc ├── UNU-Commitment_Ledger_UnitTest_V1.doc ├── UNU_COMM_LEDGER.sql ├── UNU_CR001515_BRD_UNU_Commitment_Ledger_V1_0.docx ├── UNU_Commitment_Ledger_Setup_V1.doc ├── UNU_Commitment_Ledger_SystemTest_V1.doc ├── UNU_Commitment_Ledger_SystemTest_V2.doc ├── UNU_Commitment_Ledger_UnitTest_V1.doc ├── UNU_QuerySecuritySteps_V1.doc └── UN_PO_ACTSUM_VW.sql ├── PS Customer Contracts ├── .gitignore ├── CR001514_S1_Verification_2014-06-04 15-07-36.xlsx ├── Confguration Customer Contracts for script.docx ├── DATs and Logs │ ├── .gitignore │ ├── CR001514_00_SRCEXPORT.DAT │ └── CR001514_00_SRCEXPORT.LOG ├── FirstPass_Verification_SOURCE_S1.txt ├── FirstPass_Verification_TARGET_S1.txt ├── FirstPass_Verification_TARGET_T1.txt ├── README.md ├── SYSTEM TESTING T1.docx ├── Scripts │ ├── .gitignore │ ├── CR001514_00_SRCEXPORT.dms │ ├── CR001514_01_TGTEXPORT.dms │ ├── CR001514_02_TGTDELETE.dms │ ├── CR001514_03_TGTIMPORT.dms │ └── CR001514_99_VerificationSQLs.sql ├── Source_Verification_S1.tas ├── UNIT TESTING D1.docx ├── UNU Customer Contracts Configuration Billing-Revenue Plan.docx ├── UNU_CustomerContracts_ConfigurationSteps_V1.xlsx ├── log.txt └── output.txt ├── PS New BU ├── .gitignore ├── Adding_ShipToLocation_623_message_1.PNG ├── Ading_ShipToLocation_623_message_1.PNG ├── CR001451_D1_Verification2014-05-20 10-33-41.xlsx ├── CR001451_D1_Verification2014-05-20 10-41-53.xlsx ├── CR001451_D1_Verification2014-05-27 11-07-51.xlsx ├── Configuration_Workbok(BU_setup).docx ├── Create_AP_BU.PNG ├── D1_S1_Migration_Verification_23June2014.htm ├── D1_T1_Migration_Verification_6June2014.htm ├── DATs and Logs │ ├── .gitignore │ ├── CR001451_00_SRCEXPORT.DAT │ ├── CR001451_00_SRCEXPORT.LOG │ ├── CR001451_00_SRCEXPORT_PER.DAT │ ├── CR001451_00_SRCEXPORT_PER.LOG │ ├── CR001451_01_TGTEXPORT.DAT │ └── CR001451_01_TGTEXPORT.LOG ├── FirstPass_Verification_SOURCE_D1.txt ├── FirstPass_Verification_SystemTesting_T1.txt ├── FirstPass_Verification_UAT_S1.txt ├── PHIRE_1451_Script_Notes.txt ├── README.md ├── RouteControlProfiles_D1_P1_21May2014.xlsx ├── SET_CNTRL_GROUP_623UU.xlsx ├── Scripts │ ├── .gitignore │ ├── ALLScripts_CR001451.txt │ ├── CR001451_00_SRCEXPORT.dms │ ├── CR001451_00_SRCEXPORT_PER.dms │ ├── CR001451_01_TGTEXPORT.dms │ ├── CR001451_02_TGTDELETE.dms │ ├── CR001451_03_TGTIMPORT.dms │ ├── CR001451_03_TGTIMPORT_PER.dms │ ├── CR001451_04_P1FS_SECURITY.sql │ └── CR001451_99_VerificationSQLs.sql ├── SecondPass_Verification_SOURCE_D1.txt ├── SetControlsContracts_623UU.PNG ├── UNFEM_BRD_8_bu_s_for_UNFEM_agency.docx ├── UNU-IRADDA-Unit_System_UAT.xlsx ├── UNU-IRADDA-Unit_System_UAT_JACK.xlsx ├── UNU-IRADDA-Unit_System_UAT_JACK_NEW.xlsx ├── UNU-IRADDA_BU_Setup.doc ├── UNU-IRADDA_BU_Setup_OLD.doc ├── UNU-IRADDA_BU_Setup_V1.doc ├── UNU-IRADDA_ConfigurationSteps_V1.xlsx ├── UNU-IRADDA_SystemTesting.doc ├── UNU-IRADDA_UnitTesting.doc ├── UNU_BU-CutOverWeekend.xlsx ├── UNU_CR001451_BRD_NewLegalEntity_IRADDA_V1_0_DRAFT.docx ├── Unit_test_result.docx ├── Verification_D1.tas ├── log.txt ├── output.txt ├── setup_security_scripts_8bu_s.txt └── test_result.docx ├── README.md ├── Rowset2JSON.peoplecode ├── Rowset2XML.peoplecode ├── SQLs ├── AEDetails.sql ├── AEPerformanceData.sql ├── AETParserSQLs.sql ├── AllReports_Navigation.sql ├── AssetRetirementReport.sql ├── Check_Assets.sql ├── Check_Banking.sql ├── Check_COMBOEdits.sql ├── Check_DocumentsStuck.sql ├── Check_GL.sql ├── Check_Grants.sql ├── Check_Payables.sql ├── Check_Purchasing.sql ├── Check_ReceiptAccrual.sql ├── Check_Receivables.sql ├── Check_Requisitions.sql ├── ComputeSQLID.sql ├── CustomerContracts_RevMgmt.sql ├── DecipherExplainPlan.sql ├── DropTAOTablesOracle.sql ├── ExportTempTableData.sql ├── FGTQueries.sql ├── FieldRecord_PageList.sql ├── Fields_From_PSDBFIELD.sql ├── FindFieldDefinitionReferences.sql ├── FindFieldDefnReferences.sql ├── FindIn_Records.sql ├── FindIn_SQLs.sql ├── FindRecordDefinitionReferences.sql ├── Find_By_FieldLabels.sql ├── GDPR_Phase1.sql ├── GDPR_Phase2_1.sql ├── GDPR_Phase2_2.sql ├── GLS8005.sql ├── GLvsKKvsACTKK.sql ├── GettingStarted_PerfTuning.sql ├── GrantSYSADM_PSVBox.sql ├── IdentifyPSObjects.sql ├── Imp_SecuritySQLs.sql ├── KK_ProjectDetails_TOAD.sql ├── ListColumnsofaTable.sql ├── List_IBSvOp_GDPR.sql ├── LongRunningQueriesOracleONLY ├── NewPOCommitmentLedger.sql ├── PO_CommitmentLedger.sql ├── PO_Register_FromKK.sql ├── PSFSCMReceiptDelivery.sql ├── PSFSCM_ObjectOwnerIDs_Find.sql ├── PSPROJECTDEFN.sql ├── PSSearchDefinition_Analysis.sql ├── PS_BatchMonitoring.sql ├── PS_P2P_Register.sql ├── PerformanceTuningSQLs.sql ├── PointInTime_PSPendingItems.sql ├── PvG_Analysis.sql ├── Query_Analysis.sql ├── README.md ├── SQLIDHistoryOnOracle.sql ├── SQLTips.sql ├── TB_Base_Tran.sql ├── TSE_Voucher_Query.sql ├── Toad_ATLAS_Latest.sql ├── TrackRunninSQLStats.sql ├── TreeFlattner.sql ├── TrialBalance.sql ├── UNU_AM_Report.sql ├── UNU_AP_Report.sql ├── UNU_AR_Report.sql ├── UNU_CoA_Check.sql ├── UNU_FundStatus_GLQueries.sql ├── UNU_GL_Report.sql ├── UNU_KK_Exceptions.sql ├── UNU_KK_Report.sql ├── UNU_PO_Activity_View.sql ├── UNU_RA_To_Be_Accrued.sql ├── UNU_TOAD_ATLAS_LATEST.sql ├── UNU_TrialBalance.sql ├── UNU_TrialBalance_IPSAS.sql ├── UNU_UserReport.sql ├── UN_Secretariat_TB.sql ├── VendorBankingUpdate.sql ├── VolumeSQLQueries.sql └── xmlcast.sql ├── Stub_RS2JSON.peoplecode ├── VendorMaster.sql ├── XML2JSONConvert.peoplecode ├── cURLandJQ.sh ├── httprequestreporter.peoplecode ├── manageCREF.peoplecode └── pside_launch.vbs /CheckifPIAisUp.curl: -------------------------------------------------------------------------------- 1 | curl -X GET http://slc07kwc.us.oracle.com:8000/e92ppiotx/signon.html --trace-time -v -s -o /dev/null 2 | -------------------------------------------------------------------------------- /How to use LISTAGG in PSQuery.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/How to use LISTAGG in PSQuery.doc -------------------------------------------------------------------------------- /IntegrationBroker/IBInfowithPATCH: -------------------------------------------------------------------------------- 1 | REM How to use HTTP PATCH; 2 | &oGenRqstRESTMsg_ = CreateMessage(Operation.IB_GENERIC_REST_POST); /* Use the delivered IB REST POST SvOp */ 3 | &bRet_ = &oGenRqstRESTMsg_.SetContentString(&jsonbldr_.ToString()); /* Assign the JSON String to the Request Message */ 4 | &IBInfo_ = &oGenRqstRESTMsg_.IBInfo; 5 | 6 | &bRet = &IBInfo_.LoadConnectorProp("HTTPTARGET"); 7 | &IBInfo_.ConnectorOverride = True; 8 | &IBInfo_.IBConnectorInfo.ConnectorClassName = "HttpTargetConnector"; 9 | &IBInfo_.IBConnectorInfo.ConnectorName = "HTTPTARGET"; 10 | &sAuthInfo_ = "iot:welcome1"; /* This should ideally be hidden */ 11 | &oString_ = CreateJavaObject("java.lang.String", &sAuthInfo_); 12 | &oEncoder_ = CreateJavaObject("sun.misc.BASE64Encoder"); 13 | &sAuthEnc_ = &oEncoder_.encodeBuffer(&oString_.getBytes()); 14 | &sAuthHeader_ = &sAuthEnc_; 15 | &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("Authorization", "Basic " | &sAuthHeader_, %HttpHeader); /* V IMP */ 16 | rem &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("SearchUser", %UserId, %HttpHeader); 17 | &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("Content-Type", "application/json; encoding=""UTF-8""", %HttpHeader); 18 | &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("X-HTTP-Method-Override", "PATCH", %HttpHeader); /* V IMP */ 19 | &bRet = &IBInfo_.IBConnectorInfo.DeleteConnectorProperties("URL"); 20 | &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("URL", &sAssetURI_, %HttpProperty); 21 | &bRet = &IBInfo_.IBConnectorInfo.DeleteConnectorProperties("Method"); 22 | &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("Method", "POST", %HttpProperty); /* Change this based on HTTP Verbs */ 23 | rem &bRet = &IBInfo_.IBConnectorInfo.AddConnectorProperties("Method", "PATCH", %HttpProperty); /* Change this based on HTTP Verbs */ 24 | 25 | &oGenRspnsRESTMsg_ = %IntBroker.ConnectorRequest(&oGenRqstRESTMsg_, True); /* Response received from IoT */ 26 | If &oGenRspnsRESTMsg_.ResponseStatus <> %IB_Status_Success Then 27 | 28 | MessageBox(0, "", 0, 0, "Update Failed: " | &oGenRspnsRESTMsg_.HTTPResponseCode); 29 | rem throw &oGenRspnsRESTMsg_.IBException; 30 | Else 31 | If &oLogFile_.IsOpen Then /* write to file */ 32 | &oLogFile_.WriteLine("---------" | "Response : " | %Datetime | "---------"); 33 | &oLogFile_.WriteLine(&oGenRspnsRESTMsg_.GetContentString()); 34 | &oLogFile_.WriteLine("---------" | "---------"); 35 | End-If; 36 | MessageBox(0, "", 0, 0, "Asset updated " | &oGenRspnsRESTMsg_.HTTPResponseCode); 37 | End-If; 38 | -------------------------------------------------------------------------------- /IntegrationBroker/PPTriggerAE.peoplecode: -------------------------------------------------------------------------------- 1 | import PS_PT:Integration:IRequestHandler; 2 | 3 | class PPRestService implements PS_PT:Integration:IRequestHandler 4 | method PPRestService(); 5 | method onRequest(&MSG As Message) Returns Message; 6 | method onError(&MSG As Message) Returns string; 7 | end-class; 8 | 9 | method PPRestService 10 | end-method; 11 | 12 | method onRequest 13 | /+ &MSG as Message +/ 14 | /+ Returns Message +/ 15 | /+ Extends/implements PS_PT:Integration:IRequestHandler.OnRequest +/ 16 | Local Message &response; 17 | Local Document &Doc_Tmpl, &Doc1; 18 | Local Compound &COM1; 19 | Local Record &rec1; 20 | Local ProcessRequest &RQST; 21 | Local integer &PRCSSTATUS, &PRCSINSTANCE; 22 | 23 | /*****HTTP POST method************/ 24 | If &MSG.HTTPMethod = %IntBroker_HTTP_POST Then 25 | /* Get the document message */ 26 | &Doc1 = &MSG.GetDocument(); 27 | &COM1 = &Doc1.DocumentElement; 28 | rem URL - http://192.168.56.101:8000/PSIGW/RESTListeningConnector/PSFT_EP/PRCS_RQST.v1/update/PPJOB; 29 | &rec1 = CreateRecord(Record.PSPRCSRQST); 30 | &rec1.GetField(Field.PRCSJOBNAME).Value = &COM1.GetPropertyByName("JOB_NAME").Value; 31 | &RQST = CreateProcessRequest(); 32 | &RQST.ProcessType = "PSJob"; 33 | rem &RQST.JobName = ""; 34 | &RQST.JobName = "PPJOB"; 35 | &RQST.RunControlID = "SAMPLEPP"; 36 | &RQST.RunLocation = "PSUNX"; 37 | &RQST.OutDestType = "6"; 38 | &RQST.OutDestFormat = "5"; 39 | &RQST.OutDest = "User : VP1"; 40 | &RQST.RunDateTime = %Datetime; 41 | &RQST.TimeZone = %ServerTimeZone; 42 | 43 | &RQST.Schedule(); 44 | &PRCSSTATUS = &RQST.Status; 45 | 46 | If &PRCSSTATUS = 0 Then 47 | /* Scheduling successful. */ 48 | &PRCSINSTANCE = &RQST.ProcessInstance; 49 | rem MessageBox(0, "", 0, 0, "PPJOB PSJob scheduled under process instance: " | &PRCSINSTANCE); 50 | Else 51 | rem MessageBox(0, "", 0, 0, "ERROR: Did not schedule PPJOB PSJob."); 52 | End-If; 53 | /*Create the response message */ 54 | &response = CreateMessage(Operation.PRCS_RQST_POST, %IntBroker_Response); 55 | 56 | End-If; 57 | 58 | Return &response; 59 | 60 | end-method; 61 | 62 | method onError 63 | /+ &MSG as Message +/ 64 | /+ Returns String +/ 65 | /+ Extends/implements PS_PT:Integration:IRequestHandler.OnError +/ 66 | Local integer &nMsgNumber, &nMsgSetNumber; 67 | Local string &str; 68 | &nMsgNumber = &MSG.IBException.MessageNumber; 69 | &nMsgSetNumber = &MSG.IBException.MessageSetNumber; 70 | &str = &MSG.IBException.DefaultText; 71 | Return &str; 72 | end-method; 73 | -------------------------------------------------------------------------------- /IntegrationBroker/PSJobRESTAPI.peoplecode: -------------------------------------------------------------------------------- 1 | --Sample PPRestService 2 | import PS_PT:Integration:IRequestHandler; 3 | 4 | class PPRestService implements PS_PT:Integration:IRequestHandler 5 | method PPRestService(); 6 | method onRequest(&MSG As Message) Returns Message; 7 | method onError(&MSG As Message) Returns string; 8 | property string sFilePath_; 9 | property File oLogFile_; 10 | end-class; 11 | 12 | method PPRestService 13 | 14 | %This.sFilePath_ = "C:\Temp\PPJOB_Log_" | %PerfTime | ".out"; 15 | %This.oLogFile_ = GetFile(&sFilePath_, "W", %FilePath_Absolute); 16 | If %This.oLogFile_.IsOpen Then 17 | %This.oLogFile_.WriteLine("---------" | "Inside Constructor : " | %PerfTime | "---------"); 18 | End-If; 19 | end-method; 20 | 21 | method onRequest 22 | /+ &MSG as Message +/ 23 | /+ Returns Message +/ 24 | /+ Extends/implements PS_PT:Integration:IRequestHandler.OnRequest +/ 25 | Local Message &response; 26 | Local Document &Doc_Tmpl, &Doc1; 27 | Local Compound &COM1; 28 | Local Record &rec1; 29 | Local ProcessRequest &RQST; 30 | Local integer &PRCSSTATUS, &PRCSINSTANCE; 31 | 32 | /*****HTTP POST method************/ 33 | If &MSG.HTTPMethod = %IntBroker_HTTP_POST Then 34 | /* Get the document message */ 35 | &Doc1 = &MSG.GetDocument(); 36 | &COM1 = &Doc1.DocumentElement; 37 | 38 | If %This.oLogFile_.IsOpen Then 39 | %This.oLogFile_.WriteLine("---------" | "Incoming Message : " | %PerfTime | "---------"); 40 | %This.oLogFile_.WriteLine(&MSG.GetContentString()); 41 | %This.oLogFile_.WriteLine("---------" | "---------"); 42 | End-If; 43 | 44 | &rec1 = CreateRecord(Record.PSPRCSRQST); 45 | &rec1.GetField(Field.PRCSJOBNAME).Value = &COM1.GetPropertyByName("JOB_NAME").Value; 46 | &RQST = CreateProcessRequest(); 47 | &RQST.ProcessType = "PSJob"; 48 | rem &RQST.JobName = ""; 49 | &RQST.JobName = "PPJOB"; 50 | &RQST.RunControlID = "SAMPLEPP"; 51 | &RQST.RunLocation = "PSUNX"; 52 | &RQST.OutDestType = "6"; 53 | &RQST.OutDestFormat = "5"; 54 | &RQST.OutDest = "User : VP1"; 55 | &RQST.RunDateTime = %Datetime; 56 | &RQST.TimeZone = %ServerTimeZone; 57 | 58 | &RQST.Schedule(); 59 | &PRCSSTATUS = &RQST.Status; 60 | 61 | If &PRCSSTATUS = 0 Then 62 | /* Scheduling successful. */ 63 | &PRCSINSTANCE = &RQST.ProcessInstance; 64 | rem MessageBox(0, "", 0, 0, "PPJOB PSJob scheduled under process instance: " | &PRCSINSTANCE); 65 | Else 66 | rem MessageBox(0, "", 0, 0, "ERROR: Did not schedule PPJOB PSJob."); 67 | End-If; 68 | /*Create the response message */ 69 | &response = CreateMessage(Operation.PRCS_RQST_POST, %IntBroker_Response); 70 | 71 | End-If; 72 | 73 | If %This.oLogFile_.IsOpen Then 74 | %This.oLogFile_.WriteLine("---------" | "It was not a POST : " | %PerfTime | "---------"); 75 | %This.oLogFile_.WriteLine(&MSG.GetContentString()); 76 | %This.oLogFile_.WriteLine("---------" | "---------"); 77 | End-If; 78 | 79 | Return &response; 80 | 81 | end-method; 82 | 83 | method onError 84 | /+ &MSG as Message +/ 85 | /+ Returns String +/ 86 | /+ Extends/implements PS_PT:Integration:IRequestHandler.OnError +/ 87 | Local integer &nMsgNumber, &nMsgSetNumber; 88 | Local string &str; 89 | &nMsgNumber = &MSG.IBException.MessageNumber; 90 | &nMsgSetNumber = &MSG.IBException.MessageSetNumber; 91 | &str = &MSG.IBException.DefaultText; 92 | 93 | If %This.oLogFile_.IsOpen Then 94 | %This.oLogFile_.WriteLine("---------" | "OnError : " | %PerfTime | "---------"); 95 | %This.oLogFile_.WriteLine(&str); 96 | %This.oLogFile_.WriteLine("---------" | "---------"); 97 | End-If; 98 | 99 | Return &str; 100 | end-method; 101 | -------------------------------------------------------------------------------- /IntegrationBroker/README.md: -------------------------------------------------------------------------------- 1 | ## Integration Broker 2 | 3 | #### IB Handler demonstrating the use of caching. Pagination is a subjective topic amongst developers and I personally feel that it is best handled at the UI level, rather than at the API level 4 | -------------------------------------------------------------------------------- /IntegrationBroker/Stub_CIXMLJSON.peoplecode: -------------------------------------------------------------------------------- 1 | import X_PP_IB_HNDLR_X:*; 2 | 3 | Local Rowset &RS_LEVEL0_, &RS_Level1_; 4 | Local Row &RowLevel0_; 5 | Local Record &recPP_DEV_WRK_, &recPP_DEV_DVW_, &Rec1_; 6 | Local Message &ReqMSG_, &RespMSG_; 7 | Local string &handlername_, &strJSONString_, &error_string_, &strReq_; 8 | Local XmlDoc &ReqXML_, &RespXML_, &DummyXML_; 9 | Local boolean &bool_, &retBool_; 10 | Local number &nErrorMsgNumber#_, &nErrorMsgSetNumber#_, &GetKeyCount_; 11 | Local X_PP_IB_HNDLR_X:PPGetCIXMLJSON &PP_IB_OnRequest_; 12 | Local XmlNode &CINameNode_, &CINameText_; 13 | Local XmlNode &GetKeyNode_, &GetKeyText_; 14 | 15 | If (None(&PP_IB_OnRequest_)) Then 16 | &PP_IB_OnRequest_ = create X_PP_IB_HNDLR_X:PPGetCIXMLJSON(); 17 | End-If; 18 | 19 | REM Retrieve values from buffer; 20 | &RS_LEVEL0_ = GetLevel0(); 21 | &RowLevel0_ = &RS_LEVEL0_.GetRow(1); 22 | &recPP_DEV_WRK_ = &RS_LEVEL0_.GetRow(1).GetRecord(Record.X_PP_DEV_WRK_X); 23 | &RS_Level1_ = &RowLevel0_.GetRowset(Scroll.X_PP_DEV_DVW_X); 24 | REM Use the dummy PP IB SVOP; 25 | &ReqMSG_ = CreateMessage(Operation.X_PP_IB_SVOP_X, %IntBroker_Request); 26 | &RespMSG_ = CreateMessage(Operation.X_PP_IB_SVOP_X, %IntBroker_Response); 27 | 28 | If All(&recPP_DEV_WRK_.DESCRLONG3.Value) Then 29 | rem &ReqXML_ = CreateXmlDoc(&recPP_DEV_WRK_.DESCRLONG3.Value); 30 | End-If; 31 | &ReqXML_ = CreateXmlDoc(""); 32 | /***** CI Name *****/ 33 | &CINameNode_ = &ReqXML_.DocumentElement.AddElement("CI_NAME"); 34 | &CINameText_ = &CINameNode_.AddText(&recPP_DEV_WRK_.DESCR100.Value); 35 | For &GetKeyCount_ = 1 To &RS_Level1_.RowCount 36 | &Rec1_ = &RS_Level1_.GetRow(&GetKeyCount_).GetRecord(Record.X_PP_DEV_DVW_X); 37 | &GetKeyNode_ = &ReqXML_.DocumentElement.AddElement(&Rec1_.GetField(1).Value); 38 | &GetKeyText_ = &GetKeyNode_.AddText(&Rec1_.GetField(2).Value); 39 | End-For; 40 | &recPP_DEV_WRK_.DESCRLONG3.Value = &ReqXML_.GenFormattedXmlString(); 41 | &ReqMSG_.SetXmlDoc(&ReqXML_); /* Load Unstructured Message */ 42 | 43 | &RespMSG_ = %IntBroker.SyncRequest(&ReqMSG_); /* Ensure that a Local - Local routing is setup for the SvOp */ 44 | If (&RespMSG_.ResponseStatus = %IB_Status_Success) Then 45 | &RespXML_ = &RespMSG_.GetXmlDoc(); /* Get the XML Response */ 46 | rem Assign to page fields; 47 | &recPP_DEV_WRK_.DESCRLONG.Value = &RespXML_.GenFormattedXmlString(); /* XML Response */ 48 | Else 49 | &error_string_ = &RespMSG_.IBException.ToString(); 50 | &nErrorMsgNumber#_ = &RespMSG_.IBException.MessageNumber; 51 | &nErrorMsgSetNumber#_ = &RespMSG_.IBException.MessageSetNumber; 52 | End-If; 53 | REM Get JSON String; 54 | &strJSONString_ = &PP_IB_OnRequest_.getJSONFromXMLDoc(&RespXML_, &PP_IB_OnRequest_.emptyspaces_); 55 | &recPP_DEV_WRK_.DESCRLONG2.Value = &strJSONString_; /* JSON Response */ 56 | -------------------------------------------------------------------------------- /IntegrationBroker/XML2JSON_reverse_java_stub.peoplecode: -------------------------------------------------------------------------------- 1 | import PT_INTEGRATION:CIRESTDefinition; 2 | 3 | Local PT_INTEGRATION:CIRESTDefinition &oConvert_ = create PT_INTEGRATION:CIRESTDefinition(); 4 | Local string &sJSON_, &sXML_; 5 | Local XmlDoc &xmlDoc_, &retXmlDoc_; 6 | 7 | &sXML_ = GetHTMLText(HTML.X_PP_HTML_X); 8 | &xmlDoc_ = CreateXmlDoc(&sXML_); 9 | &sJSON_ = &oConvert_.convertXMLtoJSON(&xmlDoc_); 10 | 11 | WinMessage(&sJSON_, 64); 12 | 13 | REM Structure of the XML. It is saved as an HTML object; 14 | REM Copy XML from here - https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms762271(v%3Dvs.85); 15 | 16 | REM X_PP_JSON_X - create an HTML object and paste the JSON from above into this HTML so that it can be compared with the original XML; 17 | &retXmlDoc_ = &oConvert_.convertJSONtoXML(GetHTMLText(HTML.X_PP_JSON_X)); 18 | WinMessage(&retXmlDoc_.GenFormattedXmlString(), 64); 19 | -------------------------------------------------------------------------------- /IntegrationBroker/XMLtoJSON_reverse.peoplecode: -------------------------------------------------------------------------------- 1 | rem check PT_INTEGRATION:CIRESTDefinition; 2 | 3 | method convertXMLtoJSON 4 |    /+ &theXmlDoc as XmlDoc +/ 5 |    /+ Returns String +/ 6 |     7 |    Local JavaObject &jsonObject = CreateJavaObject("org.json.JSONObject"); 8 |    Local JavaObject &xmlObject = CreateJavaObject("org.json.XML"); 9 |     10 |    Local string &xml_data = &theXmlDoc.GenXmlString(); 11 |    &jsonObject = &xmlObject.toJSONObject(&xml_data); 12 |     13 |    Return &jsonObject.toString(); 14 | end-method; 15 | 16 | method convertJSONtoXML 17 |    /+ &theJSON as String +/ 18 |    /+ Returns XmlDoc +/ 19 |    Local JavaObject &jsonStr = CreateJavaObject("java.lang.String", &theJSON); 20 |    Local JavaObject &constructorArgTypes = CreateJavaObject("java.lang.Class[]", &jsonStr.getClass()); 21 |     22 |    Local JavaObject &jsonClass = CreateJavaObject("org.json.JSONObject").getClass(); 23 |    Local JavaObject &constructor = &jsonClass.getConstructor(&constructorArgTypes); 24 |    Local JavaObject &parserObject = &constructor.newInstance(CreateJavaObject("java.lang.Object[]", &jsonStr)); 25 |    Local JavaObject &roleJson = &jsonClass.cast(&parserObject); 26 |     27 |    Local JavaObject &xmlObject = CreateJavaObject("org.json.XML"); 28 |     29 |    Local string &XMLData = ""; 30 |    &XMLData = &XMLData | &xmlObject.toString(&roleJson); 31 |     32 |    Local XmlDoc &xmlDoc = CreateXmlDoc(&XMLData); 33 |    Return &xmlDoc; 34 |     35 | end-method; 36 | -------------------------------------------------------------------------------- /KeepPSAlive.bash: -------------------------------------------------------------------------------- 1 | --BASH 2 | #!/bin/bash 3 | for i in {1..10}; do curl -XGET -k "http://slc08vkx.us.oracle.com:8000/psp/e92pp858x/?cmd=login&languageCd=ENG&" -s -o /dev/null --user VP1:VP1; done 4 | 5 | --BASH 6 | #!/bin/bash 7 | $ proto="http" portNum="8000" wsName="slc08vkx" siteName="e92pp858" userName="VP2"; 8 | curl -X GET -k $proto"://"$wsName".us.oracle.com:"$portNum"/psp/"$siteName"x/?cmd=login&languageCd=ENG&" -v -s -o /dev/null --user $userName:$userName; 9 | -------------------------------------------------------------------------------- /LoadXML2Convert.peoplecode: -------------------------------------------------------------------------------- 1 | REM Allow user to upload an XML file; 2 | Local string &strLocalURL_ = "record://X_PPXML_ATT_X"; 3 | Local string &strUploadedFile_; 4 | Local File &fileXMLFile_, &fileInput_, &fileOutput_; 5 | Local string &strReadLine_, &strFileString_; 6 | Local XmlDoc &xmlDummyXMLDoc_; 7 | Local boolean &bool_; 8 | Local integer &retcode_; 9 | 10 | If %Component = Component.X_PP_IB_TEST_CMP_X Then 11 | X_PP_DEV_WRK_X.DESCR150_MIXED.Enabled = True; 12 | Else 13 | X_PP_DEV_WRK_X.DESCR150_MIXED.Enabled = False; 14 | End-If; 15 | 16 | &retcode_ = AddAttachment(&strLocalURL_, "", ".xml", &strUploadedFile_, 0); /* Upload XML file */ 17 | 18 | If &retcode_ <> %Attachment_Success Then /* Check return code (integer or constant) */ 19 | Exit; 20 | End-If; 21 | 22 | try 23 | &retcode_ = GetAttachment(&strLocalURL_, &strUploadedFile_, "IB_XML.TXT", "PS_FILEDIR"); /* Get the uploaded XML file */ 24 | catch Exception &error_ 25 | &retcode_ = GetAttachment(&strLocalURL_, &strUploadedFile_, "/files/" | "IB_XML.TXT", "PS_SERVDIR"); 26 | end-try; 27 | 28 | If &retcode_ <> %Attachment_Success Then 29 | MessageBox(0, "", 158, 653, "Error retrieving file from database"); 30 | Exit; 31 | End-If; 32 | REM Need to check the encoding of the XML file. Make sure Encoding is always UTF-8; 33 | &fileInput_ = GetFile("IB_XML.TXT", "R", "UTF8"); 34 | &fileOutput_ = GetFile("IB_XML-UTF16.TXT", "W", "UCS2"); 35 | While &fileInput_.ReadLine(&strReadLine_) 36 | &fileOutput_.WriteLine(&strReadLine_); 37 | End-While; 38 | &fileInput_.Delete(); 39 | &fileOutput_.Close(); 40 | &fileXMLFile_ = GetFile("IB_XML-UTF16.TXT", "R", "UCS2"); 41 | 42 | If &fileXMLFile_ = Null Then 43 | MessageBox(0, "", 158, 653, "Error opening file from application server"); 44 | Exit; 45 | End-If; 46 | 47 | While &fileXMLFile_.ReadLine(&strReadLine_) 48 | &strFileString_ = &strFileString_ | &strReadLine_; 49 | End-While; 50 | &fileXMLFile_.Delete(); 51 | &retcode_ = DeleteAttachment(&strLocalURL_, &strUploadedFile_); 52 | /* Format XML using an XMLDoc object.*/ 53 | &xmlDummyXMLDoc_ = CreateXmlDoc(""); 54 | try 55 | &bool_ = &xmlDummyXMLDoc_.ParseXmlString(&strFileString_); 56 | If &bool_ Then 57 | X_PP_DEV_WRK_X.DESCRLONG_NOTES = &xmlDummyXMLDoc_.GenFormattedXmlString(); 58 | Else 59 | 60 | End-If; 61 | catch Exception &error2_ 62 | 63 | X_PP_DEV_WRK_X.DESCRLONG_NOTES = ""; 64 | MessageBox(0, MsgGetText(158, 702, "Message"), 158, 715, "Invalid XML detected. Unable to load XMLDoc object."); 65 | X_PP_DEV_WRK_X.DESCRLONG_NOTES = &strFileString_; 66 | 67 | end-try; 68 | -------------------------------------------------------------------------------- /PIALogin.curl: -------------------------------------------------------------------------------- 1 | --Use this 2 | curl -XGET "http://slc08vkx.us.oracle.com:8000/psp/e92pp858x/?cmd=login&languageCd=ENG&" -v -s -o /dev/null --user VP1:VP1 3 | -------------------------------------------------------------------------------- /PO_SavePostChangeRS2JSON.peoplecode: -------------------------------------------------------------------------------- 1 | REM **** PP ADD START ****; 2 | rem Convert Rowset to JSON; 3 | import PP_UTIL_PKG:RowsetJS:*; 4 | import PSXP_ENGINE:*; 5 | import PSXP_RPTDEFNMANAGER:*; 6 | import PSXP_XMLGEN:RowSetDS:*; 7 | 8 | REM **** PP ADD END ****; 9 | 10 | REM **** PP ADD START ****; 11 | &startTime = %PerfTime; 12 | REM **** PP ADD END ****; 13 | 14 | REM **** PP ADD START ****; 15 | Local XmlDoc &SomeXMLDoc_; 16 | Local Rowset &rsLvl0_; 17 | Local Record &recPPWrk_; 18 | Local string &sJSONReply_; 19 | Local PSXP_XMLGEN:RowSetDS &oRowSetDS; 20 | Local PP_UTIL_PKG:RowsetJS &oRS2JSON_; 21 | 22 | &oRowSetDS = create PSXP_XMLGEN:RowSetDS(); 23 | &oRS2JSON_ = create PP_UTIL_PKG:RowsetJS(); 24 | 25 | &rsLvl0_ = GetLevel0(); 26 | &sJSONReply_ = &oRS2JSON_.getJSONData(&rsLvl0_); 27 | &End = %PerfTime; 28 | &TimeDiff = NumberToString("%6.3", Value(&End - &startTime)); 29 | MessageBox(0, "", 0, 0, "Time taken to generate JSON for " | GetLevel0()(1).GetRowset(Scroll.PO_LINE).RowCount | " line PO: " | &TimeDiff); 30 | 31 | /* 32 | Local File &BCFile_ = GetFile("/tmp/POComponentFile_" | %Datetime | ".txt", "W", "A", %FilePath_Absolute); 33 | &SomeXMLDoc_ = CreateXmlDoc(""); 34 | 35 | Local string &strXML = &oRowSetDS.getXMLData(&rsLvl0_, ""); 36 | Local boolean &boolval_ = &SomeXMLDoc_.ParseXmlString(&strXML); 37 | Local string &newoutStr_ = &SomeXMLDoc_.GenFormattedXmlString(); 38 | If &BCFile_.IsOpen Then 39 | &BCFile_.WriteLine(&newoutStr_); 40 | &BCFile_.WriteLine("**** JSON START ****"); 41 | &BCFile_.WriteLine(&sJSONReply_); 42 | &BCFile_.Close(); 43 | Else 44 | MessageBox(0, "", 0, 0, "File is NOT OPEN"); 45 | End-If; 46 | */ 47 | rem MessageBox(0, "", 0, 0, "&sJSONReply_ " | &sJSONReply_); 48 | rem &recPPWrk_.DESCRLONG.Value = ""; 49 | rem &recPPWrk_.DESCRLONG.Value = &sJSONReply_; 50 | rem &recPPWrk_.DESCRLONG.Value = &newoutStr_; 51 | 52 | REM **** PP ADD START ****; 53 | -------------------------------------------------------------------------------- /PPs_Understanding_of_FG.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PPs_Understanding_of_FG.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS Commitment Ledger/CR001515_D1_Verifications_2014-05-27 11-14-53.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/CR001515_D1_Verifications_2014-05-27 11-14-53.xlsx -------------------------------------------------------------------------------- /PS Commitment Ledger/DATs and Logs/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS Commitment Ledger/DATs and Logs/CR00XXXX_00_SRCEXPORT.LOG: -------------------------------------------------------------------------------- 1 | Started: Tue May 27 11:10:25 2014 2 | Data Mover Release: 8.53.04 3 | Database: UNDPFSD1 (ENG) 4 | Exporting LED_FLDS_TBL 5 | Export LED_FLDS_TBL 21 6 | Exporting BU_LED_GRP_TBL 7 | Export BU_LED_GRP_TBL 1 8 | Exporting LED_DEFN_TBL 9 | Export LED_DEFN_TBL 1 10 | Exporting LED_GRP_FLD_TBL 11 | Export LED_GRP_FLD_TBL 21 12 | Exporting LED_GRP_LED_TBL 13 | Export LED_GRP_LED_TBL 1 14 | Exporting LED_GRP_TBL 15 | Export LED_GRP_TBL 1 16 | Ended: Tue May 27 11:11:25 2014 17 | Successful completion 18 | -------------------------------------------------------------------------------- /PS Commitment Ledger/P1_POActivitySummary_UNU_2014_V2_11Jun14.xls: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/P1_POActivitySummary_UNU_2014_V2_11Jun14.xls -------------------------------------------------------------------------------- /PS Commitment Ledger/README.md: -------------------------------------------------------------------------------- 1 | #### Create a Commitment Ledger in PS to support modified cash accounting 2 | 3 | #### PS supports full accrual for both Budgets and Actuals 4 | -------------------------------------------------------------------------------- /PS Commitment Ledger/Scripts/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS Commitment Ledger/Scripts/CR00XXXX_00_SRCEXPORT.dms: -------------------------------------------------------------------------------- 1 | --EXPORT CLAUSE(S) SOURCE 2 | REM WR: CR00XXXX; 3 | REM Description: UNU Commitment Ledger; 4 | SET LOG C:\TEMP\CR00XXXX_00_SRCEXPORT.LOG; 5 | SET OUTPUT C:\TEMP\CR00XXXX_00_SRCEXPORT.DAT; 6 | EXPORT PS_LED_FLDS_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%'; 7 | EXPORT PS_BU_LED_GRP_TBL WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 8 | EXPORT PS_LED_DEFN_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT'; 9 | EXPORT PS_LED_GRP_FLD_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%'; 10 | EXPORT PS_LED_GRP_LED_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 11 | EXPORT PS_LED_GRP_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT'; 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /PS Commitment Ledger/Scripts/CR00XXXX_01_TGTEXPORT.dms: -------------------------------------------------------------------------------- 1 | --TARGET EXPORT CLAUSE(S) 2 | REM WR: CR00XXXX; 3 | REM Description: UNU Commitment Ledger; 4 | SET LOG C:\TEMP\CR00XXXX_01_TGTEXPORT.LOG; 5 | SET OUTPUT C:\TEMP\CR00XXXX_01_TGTEXPORT.DAT; 6 | EXPORT PS_LED_FLDS_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%'; 7 | EXPORT PS_BU_LED_GRP_TBL WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 8 | EXPORT PS_LED_DEFN_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT'; 9 | EXPORT PS_LED_GRP_FLD_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%'; 10 | EXPORT PS_LED_GRP_LED_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 11 | EXPORT PS_LED_GRP_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT'; 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /PS Commitment Ledger/Scripts/CR00XXXX_02_TGTDELETE.dms: -------------------------------------------------------------------------------- 1 | --DELETE CLAUSE(S) TARGET 2 | REM WR: CR00XXXX; 3 | REM Description: UNU Commitment Ledger; 4 | SET LOG C:\TEMP\CR00XXXX_02_TGTDELETE.LOG; 5 | DELETE PS_LED_FLDS_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%'; 6 | DELETE PS_BU_LED_GRP_TBL WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 7 | DELETE PS_LED_DEFN_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT'; 8 | DELETE PS_LED_GRP_FLD_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%'; 9 | DELETE PS_LED_GRP_LED_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 10 | DELETE PS_LED_GRP_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT'; 11 | 12 | 13 | 14 | -------------------------------------------------------------------------------- /PS Commitment Ledger/Scripts/CR00XXXX_03_TGTIMPORT.dms: -------------------------------------------------------------------------------- 1 | --IMPORT CLAUSE(S) TARGET 2 | REM WR: CR00XXXX; 3 | REM Description: UNU Commitment Ledger; 4 | SET LOG C:\TEMP\CR00XXXX_03_TGTIMPORT.LOG; 5 | SET INPUT C:\TEMP\CR00XXXX_00_SRCEXPORT.DAT; 6 | SET UPDATE_DUPS; 7 | IMPORT PS_LED_FLDS_TBL; 8 | IMPORT PS_BU_LED_GRP_TBL; 9 | IMPORT PS_LED_DEFN_TBL; 10 | IMPORT PS_LED_GRP_FLD_TBL; 11 | IMPORT PS_LED_GRP_LED_TBL; 12 | IMPORT PS_LED_GRP_TBL; 13 | 14 | -------------------------------------------------------------------------------- /PS Commitment Ledger/Scripts/CR00XXXX_99_VerificationSQLs.sql: -------------------------------------------------------------------------------- 1 | --Verification 2 | SELECT ORA_DATABASE_NAME, SYSDATE FROM DUAL; 3 | SELECT 'LED_DEFN_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_DEFN_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT'; 4 | SELECT 'LED_DEFN_TBL' AS TABLE_NAME, A.* FROM PS_LED_DEFN_TBL A WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' ORDER BY 1, 2; 5 | SELECT 'LED_GRP_LED_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_GRP_LED_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 6 | SELECT 'LED_GRP_LED_TBL' AS TABLE_NAME, A.* FROM PS_LED_GRP_LED_TBL A WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%' ORDER BY 1, 2; 7 | SELECT 'LED_GRP_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_GRP_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT'; 8 | SELECT 'LED_GRP_TBL' AS TABLE_NAME, A.* FROM PS_LED_GRP_TBL A WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' ORDER BY 1, 2; 9 | SELECT 'LED_GRP_FLD_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_GRP_FLD_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%'; 10 | SELECT 'LED_GRP_FLD_TBL' AS TABLE_NAME, A.* FROM PS_LED_GRP_FLD_TBL A WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%' ORDER BY 1, 2; 11 | --SELECT 'BUS_UNIT_TBL_GL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUS_UNIT_TBL_GL WHERE BUSINESS_UNIT = 'UNUNI'; 12 | --SELECT 'BUS_UNIT_TBL_GL' AS TABLE_NAME, A.* FROM PS_BUS_UNIT_TBL_GL A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY 1, 2; 13 | SELECT 'BU_LED_GRP_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BU_LED_GRP_TBL WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 14 | SELECT 'BU_LED_GRP_TBL' AS TABLE_NAME, A.* FROM PS_BU_LED_GRP_TBL A WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%' ORDER BY 1, 2; 15 | --SELECT 'BU_LED_COMB_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BU_LED_COMB_TBL WHERE BUSINESS_UNIT = 'UNUNI'; 16 | --SELECT 'BU_LED_COMB_TBL' AS TABLE_NAME, A.* FROM PS_BU_LED_COMB_TBL A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY 1, 2; 17 | --SELECT 'BUL_CNTL_BUD' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUL_CNTL_BUD WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND KK_LEDGER_GROUP LIKE '%'; 18 | --SELECT 'BUL_CNTL_BUD' AS TABLE_NAME, A.* FROM PS_BUL_CNTL_BUD A WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND KK_LEDGER_GROUP LIKE '%' ORDER BY 1, 2; 19 | SELECT 'LED_FLDS_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_FLDS_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%'; 20 | SELECT 'LED_FLDS_TBL' AS TABLE_NAME, A.* FROM PS_LED_FLDS_TBL A WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' ORDER BY 1, 2; 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU-Commitment_Ledger_ConfigurationSteps_V1.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU-Commitment_Ledger_ConfigurationSteps_V1.xlsx -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU-Commitment_Ledger_Setup_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU-Commitment_Ledger_Setup_V1.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU-Commitment_Ledger_UnitTest_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU-Commitment_Ledger_UnitTest_V1.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_COMM_LEDGER.sql: -------------------------------------------------------------------------------- 1 | 2 | --SELECT * FROM PS_LEDGER_SET_LED WHERE BUSINESS_UNIT IN ('07380', '07384') AND LEDGER LIKE '%' AND LEDGER_SET LIKE '%'; 3 | --SELECT * FROM PS_LEDGER_SET_TBL WHERE LEDGER_SET IN ('Z') OR LEDGER_SET LIKE '%REG%' OR LEDGER_SET LIKE 'V%R %'; 4 | --Ledger 5 | SELECT * FROM PS_LED_DEFN_TBL WHERE SETID = 'SHARE' AND LEDGER = 'EXT_COMMIT'; 6 | SELECT * FROM PS_LED_FLDS_TBL WHERE SETID = 'SHARE' AND LEDGER = 'EXT_COMMIT'; 7 | 8 | --Ledger Group 9 | SELECT * FROM PS_LED_GRP_FLD_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'EXT_COMMIT'; 10 | SELECT * FROM PS_LED_GRP_LED_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'EXT_COMMIT'; 11 | SELECT * FROM PS_LED_GRP_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'EXT_COMMIT'; 12 | SELECT * FROM PS_BU_LED_GRP_TBL WHERE BUSINESS_UNIT = 'UNDP1' AND LEDGER_GROUP = 'EXT_COMMIT'; 13 | 14 | --SELECT * FROM PS_BUL_CNTL_BUD WHERE BUSINESS_UNIT = 'UNDP1' AND LEDGER_GROUP = 'EXT_COMMIT'; 15 | --Open Period(s) 16 | --SELECT * FROM PS_FIN_BU_LGRP_TBL WHERE LEDGER_GROUP = 'EXT_COMMIT'; 17 | 18 | --SELECT * FROM PS_BU_LED_COMB_TBL WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'ACTUAL_REG' AND PROCESS_GROUP LIKE '%'; 19 | --SELECT * FROM PS_BU_LED_TBL WHERE BUSINESS_UNIT = 'UNDP1' AND LEDGER IN ('V_ACTAMR ', 'V_ACTAYR', 'V_ACTREG' ) OR LEDGER LIKE '%REG'; 20 | 21 | SELECT * FROM PS_JRNLGEN_REQUEST WHERE APPL_JRNL_ID = 'COMMITMENT' ORDER BY DTTM_STAMP_SEC DESC; 22 | SELECT * FROM PS_JRNL_HEADER WHERE BUSINESS_UNIT = 'UNDP1' AND FISCAL_YEAR = '2014' AND LEDGER_GROUP = 'EXT_COMMIT' AND JOURNAL_ID LIKE 'COM%'; 23 | SELECT DISTINCT SYSTEM_SOURCE FROM PS_JRNL_HEADER WHERE BUSINESS_UNIT = 'UNDP1' AND FISCAL_YEAR = '2014' AND LEDGER_GROUP = 'EXT_COMMIT' AND JOURNAL_ID LIKE 'COM%'; 24 | SELECT * FROM PS_JRNL_LN WHERE BUSINESS_UNIT = 'UNDP1' AND JOURNAL_ID = 'COM5410988'; 25 | 26 | SELECT * FROM PSXLATITEM WHERE FIELDNAME = 'SYSTEM_SOURCE' ORDER BY 1,2; 27 | SELECT * FROM PS_SOURCE_TBL ORDER BY 1,2; 28 | 29 | SELECT * FROM PSPRCSRQST WHERE PRCSNAME = 'GL_JRNL_IMP'; 30 | SELECT * FROM PSPRCSRQST WHERE PRCSNAME = 'UN_JRNL_CNV'; 31 | 32 | SELECT * FROM PS_KSEC_EVENTS; 33 | SELECT * FROM PS_KSEC_SUPER_USER; 34 | 35 | --One can change the KK Amount Type options on the Journal for Ledger Group ACTUALS (under KK options) because, this ledger group has KK enabled. 36 | --gray/ungray commitment control fields 37 | SELECT COMMITMENT_CNTL, LEDGER_TYPE, A.* FROM PS_BU_LED_GRP_VW A WHERE BUSINESS_UNIT = 'UNUNI'; 38 | --One can change the KK Amount Type options on the Journal for Ledger Group ACTUALS (under KK options) because, this ledger group has KK enabled 39 | 40 | --Verification 41 | SELECT ORA_DATABASE_NAME, SYSDATE FROM DUAL; 42 | SELECT 'LED_DEFN_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_DEFN_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT'; 43 | SELECT 'LED_DEFN_TBL' AS TABLE_NAME, A.* FROM PS_LED_DEFN_TBL A WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' ORDER BY 1, 2; 44 | SELECT 'LED_GRP_LED_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_GRP_LED_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 45 | SELECT 'LED_GRP_LED_TBL' AS TABLE_NAME, A.* FROM PS_LED_GRP_LED_TBL A WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%' ORDER BY 1, 2; 46 | SELECT 'LED_GRP_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_GRP_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT'; 47 | SELECT 'LED_GRP_TBL' AS TABLE_NAME, A.* FROM PS_LED_GRP_TBL A WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' ORDER BY 1, 2; 48 | SELECT 'LED_GRP_FLD_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_GRP_FLD_TBL WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%'; 49 | SELECT 'LED_GRP_FLD_TBL' AS TABLE_NAME, A.* FROM PS_LED_GRP_FLD_TBL A WHERE SETID = 'SHARE' AND LEDGER_GROUP = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' AND CHARTFIELD LIKE '%' ORDER BY 1, 2; 50 | --SELECT 'BUS_UNIT_TBL_GL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUS_UNIT_TBL_GL WHERE BUSINESS_UNIT = 'UNUNI'; 51 | --SELECT 'BUS_UNIT_TBL_GL' AS TABLE_NAME, A.* FROM PS_BUS_UNIT_TBL_GL A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY 1, 2; 52 | SELECT 'BU_LED_GRP_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BU_LED_GRP_TBL WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%'; 53 | SELECT 'BU_LED_GRP_TBL' AS TABLE_NAME, A.* FROM PS_BU_LED_GRP_TBL A WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND LEDGER LIKE '%' ORDER BY 1, 2; 54 | --SELECT 'BU_LED_COMB_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BU_LED_COMB_TBL WHERE BUSINESS_UNIT = 'UNUNI'; 55 | --SELECT 'BU_LED_COMB_TBL' AS TABLE_NAME, A.* FROM PS_BU_LED_COMB_TBL A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY 1, 2; 56 | --SELECT 'BUL_CNTL_BUD' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUL_CNTL_BUD WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND KK_LEDGER_GROUP LIKE '%'; 57 | --SELECT 'BUL_CNTL_BUD' AS TABLE_NAME, A.* FROM PS_BUL_CNTL_BUD A WHERE BUSINESS_UNIT = 'UNUNI' AND LEDGER_GROUP = 'UNU_COMMIT' AND KK_LEDGER_GROUP LIKE '%' ORDER BY 1, 2; 58 | SELECT 'LED_FLDS_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LED_FLDS_TBL WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%'; 59 | SELECT 'LED_FLDS_TBL' AS TABLE_NAME, A.* FROM PS_LED_FLDS_TBL A WHERE SETID = 'SHARE' AND LEDGER = 'UNU_COMMIT' AND FIELD_SEQUENCE LIKE '%' ORDER BY 1, 2; -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_CR001515_BRD_UNU_Commitment_Ledger_V1_0.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU_CR001515_BRD_UNU_Commitment_Ledger_V1_0.docx -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_Commitment_Ledger_Setup_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU_Commitment_Ledger_Setup_V1.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_Commitment_Ledger_SystemTest_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU_Commitment_Ledger_SystemTest_V1.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_Commitment_Ledger_SystemTest_V2.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU_Commitment_Ledger_SystemTest_V2.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_Commitment_Ledger_UnitTest_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU_Commitment_Ledger_UnitTest_V1.doc -------------------------------------------------------------------------------- /PS Commitment Ledger/UNU_QuerySecuritySteps_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Commitment Ledger/UNU_QuerySecuritySteps_V1.doc -------------------------------------------------------------------------------- /PS Customer Contracts/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS Customer Contracts/CR001514_S1_Verification_2014-06-04 15-07-36.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/CR001514_S1_Verification_2014-06-04 15-07-36.xlsx -------------------------------------------------------------------------------- /PS Customer Contracts/Confguration Customer Contracts for script.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/Confguration Customer Contracts for script.docx -------------------------------------------------------------------------------- /PS Customer Contracts/DATs and Logs/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS Customer Contracts/DATs and Logs/CR001514_00_SRCEXPORT.LOG: -------------------------------------------------------------------------------- 1 | Started: Wed Jun 04 15:00:15 2014 2 | Data Mover Release: 8.53.04 3 | Database: UNDPFSS1 (ENG) 4 | Exporting BI_IVC_NUM 5 | Export BI_IVC_NUM 1 6 | Exporting BI_SRC 7 | Export BI_SRC 1 8 | Exporting BI_TYPE 9 | Export BI_TYPE 1 10 | Exporting CA_PLAN_TMPL 11 | Export CA_PLAN_TMPL 10 12 | Exporting CA_PLAN_TMPL_EV 13 | Export CA_PLAN_TMPL_EV 26 14 | Exporting CA_PROD_GRP_TBL 15 | Export CA_PROD_GRP_TBL 4 16 | Exporting DST_CODE_TBL 17 | Export DST_CODE_TBL 2 18 | Exporting PROD_COMPTTRS 19 | Export PROD_COMPTTRS 0 20 | Exporting PROD_ITEM 21 | Export PROD_ITEM 4 22 | Exporting PROD_ITEM_CURR 23 | Export PROD_ITEM_CURR 0 24 | Exporting PROD_PHOTO 25 | Export PROD_PHOTO 4 26 | Exporting PROD_PGRP_LNK 27 | Export PROD_PGRP_LNK 4 28 | Exporting PROD_GROUP_TBL 29 | Export PROD_GROUP_TBL 4 30 | Ended: Wed Jun 04 15:03:07 2014 31 | Successful completion 32 | -------------------------------------------------------------------------------- /PS Customer Contracts/README.md: -------------------------------------------------------------------------------- 1 | #### Revenue Recognition for a Public Sector Org 2 | -------------------------------------------------------------------------------- /PS Customer Contracts/SYSTEM TESTING T1.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/SYSTEM TESTING T1.docx -------------------------------------------------------------------------------- /PS Customer Contracts/Scripts/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS Customer Contracts/Scripts/CR001514_00_SRCEXPORT.dms: -------------------------------------------------------------------------------- 1 | --EXPORT CLAUSE(S) SOURCE 2 | REM WR: CR001514; 3 | REM Description: UNU Customer Contracts Scripts; 4 | SET LOG C:\TEMP\CR001514_00_SRCEXPORT.LOG; 5 | SET OUTPUT C:\TEMP\CR001514_00_SRCEXPORT.DAT; 6 | EXPORT PS_BI_IVC_NUM WHERE IVC_NUM_ID = 'UNUNI'; 7 | EXPORT PS_BI_SRC WHERE SETID = 'UNUNI' AND BILL_SOURCE_ID LIKE '%' AND EFFDT LIKE '%'; 8 | EXPORT PS_BI_TYPE WHERE SETID = 'UNUNI' AND BILL_TYPE_ID LIKE '%' AND EFFDT LIKE '%'; 9 | EXPORT PS_CA_PLAN_TMPL WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 10 | EXPORT PS_CA_PLAN_TMPL_EV WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 11 | EXPORT PS_CA_PROD_GRP_TBL WHERE SETID = 'UNUNI' AND PRODUCT_GROUP LIKE '%'; 12 | EXPORT PS_DST_CODE_TBL WHERE SETID = 'UNUNI' AND DST_ID IN ('AR', 'DFR_REV') AND EFFDT LIKE '%'; 13 | EXPORT PS_PROD_COMPTTRS WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 14 | EXPORT PS_PROD_ITEM WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 15 | EXPORT PS_PROD_ITEM_CURR WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') AND CURRENCY_CD LIKE '%'; 16 | EXPORT PS_PROD_PHOTO WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 17 | EXPORT PS_PROD_PGRP_LNK WHERE SETID = 'UNUNI' AND PRODUCT_ID LIKE '%' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 18 | EXPORT PS_PROD_GROUP_TBL WHERE SETID = 'UNUNI' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /PS Customer Contracts/Scripts/CR001514_01_TGTEXPORT.dms: -------------------------------------------------------------------------------- 1 | --TARGET EXPORT CLAUSE(S) 2 | REM WR: CR001514; 3 | REM Description: UNU Customer Contracts Scripts; 4 | SET LOG C:\TEMP\CR001514_01_TGTEXPORT.LOG; 5 | SET OUTPUT C:\TEMP\CR001514_01_TGTEXPORT.DAT; 6 | EXPORT PS_BI_IVC_NUM WHERE IVC_NUM_ID = 'UNUNI'; 7 | EXPORT PS_BI_SRC WHERE SETID = 'UNUNI' AND BILL_SOURCE_ID LIKE '%' AND EFFDT LIKE '%'; 8 | EXPORT PS_BI_TYPE WHERE SETID = 'UNUNI' AND BILL_TYPE_ID LIKE '%' AND EFFDT LIKE '%'; 9 | EXPORT PS_CA_PLAN_TMPL WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 10 | EXPORT PS_CA_PLAN_TMPL_EV WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 11 | EXPORT PS_CA_PROD_GRP_TBL WHERE SETID = 'UNUNI' AND PRODUCT_GROUP LIKE '%'; 12 | EXPORT PS_DST_CODE_TBL WHERE SETID = 'UNUNI' AND DST_ID IN ('AR', 'DFR_REV') AND EFFDT LIKE '%'; 13 | EXPORT PS_PROD_COMPTTRS WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 14 | EXPORT PS_PROD_ITEM WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 15 | EXPORT PS_PROD_ITEM_CURR WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') AND CURRENCY_CD LIKE '%'; 16 | EXPORT PS_PROD_PHOTO WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 17 | EXPORT PS_PROD_PGRP_LNK WHERE SETID = 'UNUNI' AND PRODUCT_ID LIKE '%' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 18 | EXPORT PS_PROD_GROUP_TBL WHERE SETID = 'UNUNI' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /PS Customer Contracts/Scripts/CR001514_02_TGTDELETE.dms: -------------------------------------------------------------------------------- 1 | --DELETE CLAUSE(S) TARGET 2 | REM WR: CR001514; 3 | REM Description: UNU Customer Contracts Scripts; 4 | SET LOG C:\TEMP\CR001514_02_TGTDELETE.LOG; 5 | DELETE PS_BI_IVC_NUM WHERE IVC_NUM_ID = 'UNUNI'; 6 | DELETE PS_BI_SRC WHERE SETID = 'UNUNI' AND BILL_SOURCE_ID LIKE '%' AND EFFDT LIKE '%'; 7 | DELETE PS_BI_TYPE WHERE SETID = 'UNUNI' AND BILL_TYPE_ID LIKE '%' AND EFFDT LIKE '%'; 8 | DELETE PS_CA_PLAN_TMPL WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 9 | DELETE PS_CA_PLAN_TMPL_EV WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 10 | DELETE PS_CA_PROD_GRP_TBL WHERE SETID = 'UNUNI' AND PRODUCT_GROUP LIKE '%'; 11 | DELETE PS_DST_CODE_TBL WHERE SETID = 'UNUNI' AND DST_ID IN ('AR', 'DFR_REV') AND EFFDT LIKE '%'; 12 | DELETE PS_PROD_COMPTTRS WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 13 | DELETE PS_PROD_ITEM WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 14 | DELETE PS_PROD_ITEM_CURR WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') AND CURRENCY_CD LIKE '%'; 15 | DELETE PS_PROD_PHOTO WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 16 | DELETE PS_PROD_PGRP_LNK WHERE SETID = 'UNUNI' AND PRODUCT_ID LIKE '%' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 17 | DELETE PS_PROD_GROUP_TBL WHERE SETID = 'UNUNI' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 18 | 19 | 20 | 21 | -------------------------------------------------------------------------------- /PS Customer Contracts/Scripts/CR001514_03_TGTIMPORT.dms: -------------------------------------------------------------------------------- 1 | --IMPORT CLAUSE(S) TARGET 2 | REM WR: CR001514; 3 | REM Description: UNU Customer Contracts Scripts; 4 | SET LOG C:\TEMP\CR001514_03_TGTIMPORT.LOG; 5 | SET INPUT C:\TEMP\CR001514_00_SRCEXPORT.DAT; 6 | SET UPDATE_DUPS; 7 | IMPORT PS_BI_IVC_NUM; 8 | IMPORT PS_BI_SRC; 9 | IMPORT PS_BI_TYPE; 10 | IMPORT PS_CA_PLAN_TMPL; 11 | IMPORT PS_CA_PLAN_TMPL_EV; 12 | IMPORT PS_CA_PROD_GRP_TBL; 13 | IMPORT PS_DST_CODE_TBL; 14 | IMPORT PS_PROD_COMPTTRS; 15 | IMPORT PS_PROD_ITEM; 16 | IMPORT PS_PROD_ITEM_CURR; 17 | IMPORT PS_PROD_PHOTO; 18 | IMPORT PS_PROD_PGRP_LNK; 19 | IMPORT PS_PROD_GROUP_TBL; 20 | 21 | -------------------------------------------------------------------------------- /PS Customer Contracts/Scripts/CR001514_99_VerificationSQLs.sql: -------------------------------------------------------------------------------- 1 | --Verification 2 | SELECT ORA_DATABASE_NAME, SYSDATE FROM DUAL; 3 | SELECT 'PROD_COMPTTRS' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_PROD_COMPTTRS WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 4 | SELECT 'PROD_COMPTTRS' AS TABLE_NAME, A.* FROM PS_PROD_COMPTTRS A WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') ORDER BY 1, 2; 5 | SELECT 'PROD_ITEM' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_PROD_ITEM WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 6 | SELECT 'PROD_ITEM' AS TABLE_NAME, A.* FROM PS_PROD_ITEM A WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') ORDER BY 1, 2; 7 | SELECT 'PROD_PHOTO' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_PROD_PHOTO WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE'); 8 | SELECT 'PROD_PHOTO' AS TABLE_NAME, A.* FROM PS_PROD_PHOTO A WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') ORDER BY 1, 2; 9 | SELECT 'PROD_ITEM_CURR' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_PROD_ITEM_CURR WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') AND CURRENCY_CD LIKE '%'; 10 | SELECT 'PROD_ITEM_CURR' AS TABLE_NAME, A.* FROM PS_PROD_ITEM_CURR A WHERE SETID = 'UNUNI' AND PRODUCT_ID IN ('CORE', 'NON_CORE_EC', 'NON_CORE_NON_STD', 'NON_CORE') AND CURRENCY_CD LIKE '%' ORDER BY 1, 2; 11 | SELECT 'PROD_GROUP_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_PROD_GROUP_TBL WHERE SETID = 'UNUNI' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 12 | SELECT 'PROD_GROUP_TBL' AS TABLE_NAME, A.* FROM PS_PROD_GROUP_TBL A WHERE SETID = 'UNUNI' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%' ORDER BY 1, 2; 13 | SELECT 'PROD_PGRP_LNK' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_PROD_PGRP_LNK WHERE SETID = 'UNUNI' AND PRODUCT_ID LIKE '%' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%'; 14 | SELECT 'PROD_PGRP_LNK' AS TABLE_NAME, A.* FROM PS_PROD_PGRP_LNK A WHERE SETID = 'UNUNI' AND PRODUCT_ID LIKE '%' AND PROD_GRP_TYPE LIKE '%' AND PRODUCT_GROUP LIKE '%' ORDER BY 1, 2; 15 | SELECT 'CA_PROD_GRP_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_CA_PROD_GRP_TBL WHERE SETID = 'UNUNI' AND PRODUCT_GROUP LIKE '%'; 16 | SELECT 'CA_PROD_GRP_TBL' AS TABLE_NAME, A.* FROM PS_CA_PROD_GRP_TBL A WHERE SETID = 'UNUNI' AND PRODUCT_GROUP LIKE '%' ORDER BY 1, 2; 17 | SELECT 'DST_CODE_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_DST_CODE_TBL WHERE SETID = 'UNUNI' AND DST_ID IN ('AR', 'DFR_REV') AND EFFDT LIKE '%'; 18 | SELECT 'DST_CODE_TBL' AS TABLE_NAME, A.* FROM PS_DST_CODE_TBL A WHERE SETID = 'UNUNI' AND DST_ID IN ('AR', 'DFR_REV') AND EFFDT LIKE '%' ORDER BY 1, 2; 19 | SELECT 'BI_TYPE' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BI_TYPE WHERE SETID = 'UNUNI' AND BILL_TYPE_ID LIKE '%' AND EFFDT LIKE '%'; 20 | SELECT 'BI_TYPE' AS TABLE_NAME, A.* FROM PS_BI_TYPE A WHERE SETID = 'UNUNI' AND BILL_TYPE_ID LIKE '%' AND EFFDT LIKE '%' ORDER BY 1, 2; 21 | SELECT 'BI_SRC' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BI_SRC WHERE SETID = 'UNUNI' AND BILL_SOURCE_ID LIKE '%' AND EFFDT LIKE '%'; 22 | SELECT 'BI_SRC' AS TABLE_NAME, A.* FROM PS_BI_SRC A WHERE SETID = 'UNUNI' AND BILL_SOURCE_ID LIKE '%' AND EFFDT LIKE '%' ORDER BY 1, 2; 23 | SELECT 'BI_IVC_NUM' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BI_IVC_NUM WHERE IVC_NUM_ID = 'UNUNI'; 24 | SELECT 'BI_IVC_NUM' AS TABLE_NAME, A.* FROM PS_BI_IVC_NUM A WHERE IVC_NUM_ID = 'UNUNI' ORDER BY 1, 2; 25 | SELECT 'CA_PLAN_TMPL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_CA_PLAN_TMPL WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 26 | SELECT 'CA_PLAN_TMPL' AS TABLE_NAME, A.* FROM PS_CA_PLAN_TMPL A WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%' ORDER BY 1, 2; 27 | SELECT 'CA_PLAN_TMPL_EV' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_CA_PLAN_TMPL_EV WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%'; 28 | SELECT 'CA_PLAN_TMPL_EV' AS TABLE_NAME, A.* FROM PS_CA_PLAN_TMPL_EV A WHERE SETID = 'SHARE' AND PLAN_TMPL_ID LIKE '%UNU%' ORDER BY 1, 2; 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /PS Customer Contracts/Source_Verification_S1.tas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/Source_Verification_S1.tas -------------------------------------------------------------------------------- /PS Customer Contracts/UNIT TESTING D1.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/UNIT TESTING D1.docx -------------------------------------------------------------------------------- /PS Customer Contracts/UNU Customer Contracts Configuration Billing-Revenue Plan.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/UNU Customer Contracts Configuration Billing-Revenue Plan.docx -------------------------------------------------------------------------------- /PS Customer Contracts/UNU_CustomerContracts_ConfigurationSteps_V1.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS Customer Contracts/UNU_CustomerContracts_ConfigurationSteps_V1.xlsx -------------------------------------------------------------------------------- /PS Customer Contracts/log.txt: -------------------------------------------------------------------------------- 1 | Started: Tue Jun 10 16:48:36 2014 2 | Data Mover Release: 8.53.04 3 | Database: UNDPFST1 (ENG) 4 | Indexing export file d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat 5 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 6 | Commit done at end of record 7 | Importing BI_IVC_NUM 8 | Import BI_IVC_NUM 0 9 | Update BI_IVC_NUM 1 10 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 11 | Importing BI_SRC 12 | Import BI_SRC 0 13 | Update BI_SRC 1 14 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 15 | Importing BI_TYPE 16 | Import BI_TYPE 0 17 | Update BI_TYPE 1 18 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 19 | Importing CA_PLAN_TMPL 20 | Import CA_PLAN_TMPL 9 21 | Update CA_PLAN_TMPL 1 22 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 23 | Importing CA_PLAN_TMPL_EV 24 | Import CA_PLAN_TMPL_EV 25 25 | Update CA_PLAN_TMPL_EV 1 26 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 27 | Importing CA_PROD_GRP_TBL 28 | Import CA_PROD_GRP_TBL 0 29 | Update CA_PROD_GRP_TBL 4 30 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 31 | Importing DST_CODE_TBL 32 | Import DST_CODE_TBL 0 33 | Update DST_CODE_TBL 2 34 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 35 | Importing PROD_COMPTTRS 36 | Import PROD_COMPTTRS 0 37 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 38 | Importing PROD_ITEM 39 | Import PROD_ITEM 0 40 | Update PROD_ITEM 4 41 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 42 | Importing PROD_ITEM_CURR 43 | Import PROD_ITEM_CURR 0 44 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 45 | Importing PROD_PHOTO 46 | Import PROD_PHOTO 0 47 | Update PROD_PHOTO 4 48 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 49 | Importing PROD_PGRP_LNK 50 | Import PROD_PGRP_LNK 0 51 | Update PROD_PGRP_LNK 4 52 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 53 | Importing PROD_GROUP_TBL 54 | Import PROD_GROUP_TBL 0 55 | Update PROD_GROUP_TBL 4 56 | Ended: Tue Jun 10 16:48:39 2014 57 | Successful completion 58 | -------------------------------------------------------------------------------- /PS Customer Contracts/output.txt: -------------------------------------------------------------------------------- 1 | PeopleTools 8.53.04 - Data Mover 2 | Copyright (c) 2014 PeopleSoft, Inc. 3 | All Rights Reserved 4 | 5 | Started: Tue Jun 10 16:48:36 2014 6 | Data Mover Release: 8.53.04 7 | Database: UNDPFST1 (ENG) 8 | Indexing export file d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat 9 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 10 | Commit done at end of record 11 | Importing BI_IVC_NUM 12 | Import BI_IVC_NUM 0 13 | Update BI_IVC_NUM 1 14 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 15 | Importing BI_SRC 16 | Import BI_SRC 0 17 | Update BI_SRC 1 18 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 19 | Importing BI_TYPE 20 | Import BI_TYPE 0 21 | Update BI_TYPE 1 22 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 23 | Importing CA_PLAN_TMPL 24 | Import CA_PLAN_TMPL 9 25 | Update CA_PLAN_TMPL 1 26 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 27 | Importing CA_PLAN_TMPL_EV 28 | Import CA_PLAN_TMPL_EV 25 29 | Update CA_PLAN_TMPL_EV 1 30 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 31 | Importing CA_PROD_GRP_TBL 32 | Import CA_PROD_GRP_TBL 0 33 | Update CA_PROD_GRP_TBL 4 34 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 35 | Importing DST_CODE_TBL 36 | Import DST_CODE_TBL 0 37 | Update DST_CODE_TBL 2 38 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 39 | Importing PROD_COMPTTRS 40 | Import PROD_COMPTTRS 0 41 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 42 | Importing PROD_ITEM 43 | Import PROD_ITEM 0 44 | Update PROD_ITEM 4 45 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 46 | Importing PROD_ITEM_CURR 47 | Import PROD_ITEM_CURR 0 48 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 49 | Importing PROD_PHOTO 50 | Import PROD_PHOTO 0 51 | Update PROD_PHOTO 4 52 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 53 | Importing PROD_PGRP_LNK 54 | Import PROD_PGRP_LNK 0 55 | Update PROD_PGRP_LNK 4 56 | Input file: d:\Phire\working\FIN\FIN_CR001514_2_20140610164834\data.dat (ENG) 57 | Importing PROD_GROUP_TBL 58 | Import PROD_GROUP_TBL 0 59 | Update PROD_GROUP_TBL 4 60 | Ended: Tue Jun 10 16:48:39 2014 61 | Successful completion 62 | -------------------------------------------------------------------------------- /PS New BU/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS New BU/Adding_ShipToLocation_623_message_1.PNG: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/Adding_ShipToLocation_623_message_1.PNG -------------------------------------------------------------------------------- /PS New BU/Ading_ShipToLocation_623_message_1.PNG: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/Ading_ShipToLocation_623_message_1.PNG -------------------------------------------------------------------------------- /PS New BU/CR001451_D1_Verification2014-05-20 10-33-41.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/CR001451_D1_Verification2014-05-20 10-33-41.xlsx -------------------------------------------------------------------------------- /PS New BU/CR001451_D1_Verification2014-05-20 10-41-53.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/CR001451_D1_Verification2014-05-20 10-41-53.xlsx -------------------------------------------------------------------------------- /PS New BU/CR001451_D1_Verification2014-05-27 11-07-51.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/CR001451_D1_Verification2014-05-27 11-07-51.xlsx -------------------------------------------------------------------------------- /PS New BU/Configuration_Workbok(BU_setup).docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/Configuration_Workbok(BU_setup).docx -------------------------------------------------------------------------------- /PS New BU/Create_AP_BU.PNG: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/Create_AP_BU.PNG -------------------------------------------------------------------------------- /PS New BU/DATs and Logs/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS New BU/DATs and Logs/CR001451_00_SRCEXPORT.LOG: -------------------------------------------------------------------------------- 1 | Started: Tue May 20 11:26:26 2014 2 | Data Mover Release: 8.53.04 3 | Database: UNDPFSD1 (ENG) 4 | Exporting SET_CNTRL_REC 5 | Export SET_CNTRL_REC 6017 6 | Exporting AUTO_NUM_TBL_BU 7 | Export AUTO_NUM_TBL_BU 1 8 | Exporting BUS_UNIT_TBL_PM 9 | Export BUS_UNIT_TBL_PM 1 10 | Exporting POBUILD_APPR 11 | Export POBUILD_APPR 0 12 | Exporting AP_BU_TAX_CF 13 | Export AP_BU_TAX_CF 0 14 | Exporting BUS_UNIT_TBL_AP 15 | Export BUS_UNIT_TBL_AP 1 16 | Exporting BUS_UNIT_TBL_FS 17 | Export BUS_UNIT_TBL_FS 1 18 | Exporting BUS_UNIT_OPT_AP 19 | Export BUS_UNIT_OPT_AP 1 20 | Exporting CNTRCT_CONTROL 21 | Export CNTRCT_CONTROL 1 22 | Exporting GM_INSTITUTION 23 | Export GM_INSTITUTION 1 24 | Exporting GM_IN_ADDRESS 25 | Export GM_IN_ADDRESS 1 26 | Exporting GM_IN_ATTR 27 | Export GM_IN_ATTR 0 28 | Exporting GM_IN_INFO 29 | Export GM_IN_INFO 1 30 | Exporting GM_IN_TYPE 31 | Export GM_IN_TYPE 1 32 | Exporting LOCATION_TBL 33 | Export LOCATION_TBL 1 34 | Exporting RTE_CNTL_HDR 35 | Export RTE_CNTL_HDR 1 36 | Exporting RTE_CNTL_LN 37 | Export RTE_CNTL_LN 3 38 | Exporting RTE_CNTL_PROF 39 | Export RTE_CNTL_PROF 1 40 | Exporting SETID_TBL 41 | Export SETID_TBL 1 42 | Exporting SET_CNTRL_GROUP 43 | Export SET_CNTRL_GROUP 347 44 | Exporting SET_CNTRL_TBL 45 | Export SET_CNTRL_TBL 1 46 | Exporting SHIPTO_TBL 47 | Export SHIPTO_TBL 1 48 | Exporting SHIPTO_VNDR_LOC 49 | Export SHIPTO_VNDR_LOC 1 50 | Exporting SUT_CALC_PARMS 51 | Export SUT_CALC_PARMS 0 52 | Exporting SUT_DFLT_TBL 53 | Export SUT_DFLT_TBL 1 54 | Exporting SUT_EXCPTN_TBL 55 | Export SUT_EXCPTN_TBL 1 56 | Ended: Tue May 20 11:31:44 2014 57 | Successful completion 58 | -------------------------------------------------------------------------------- /PS New BU/DATs and Logs/CR001451_00_SRCEXPORT_PER.LOG: -------------------------------------------------------------------------------- 1 | Started: Fri Jun 06 14:29:40 2014 2 | Data Mover Release: 8.53.04 3 | Database: UNDPFSD1 (ENG) 4 | Exporting FIN_BU_LGRP_TBL 5 | Export FIN_BU_LGRP_TBL 1 6 | Exporting FIN_OPEN_OPTN 7 | Export FIN_OPEN_OPTN 1 8 | Exporting FIN_OPEN_PERIOD 9 | Export FIN_OPEN_PERIOD 1 10 | Exporting FIN_BU_MAPPING 11 | Export FIN_BU_MAPPING 1 12 | Ended: Fri Jun 06 14:30:11 2014 13 | Successful completion 14 | -------------------------------------------------------------------------------- /PS New BU/DATs and Logs/CR001451_01_TGTEXPORT.LOG: -------------------------------------------------------------------------------- 1 | Started: Thu Jun 05 11:00:03 2014 2 | Data Mover Release: 8.53.04 3 | Database: UNDPFST1 (ENG) 4 | Exporting SET_CNTRL_REC 5 | Export SET_CNTRL_REC 0 6 | Exporting AUTO_NUM_TBL_BU 7 | Export AUTO_NUM_TBL_BU 0 8 | Exporting BUS_UNIT_TBL_PM 9 | Export BUS_UNIT_TBL_PM 0 10 | Exporting POBUILD_APPR 11 | Export POBUILD_APPR 0 12 | Exporting AP_BU_TAX_CF 13 | Export AP_BU_TAX_CF 0 14 | Exporting BUS_UNIT_TBL_AP 15 | Export BUS_UNIT_TBL_AP 0 16 | Exporting BUS_UNIT_TBL_FS 17 | Export BUS_UNIT_TBL_FS 0 18 | Exporting BUS_UNIT_OPT_AP 19 | Export BUS_UNIT_OPT_AP 0 20 | Exporting CNTRCT_CONTROL 21 | Export CNTRCT_CONTROL 0 22 | Exporting GM_INSTITUTION 23 | Export GM_INSTITUTION 0 24 | Exporting GM_IN_ADDRESS 25 | Export GM_IN_ADDRESS 0 26 | Exporting GM_IN_ATTR 27 | Export GM_IN_ATTR 0 28 | Exporting GM_IN_INFO 29 | Export GM_IN_INFO 0 30 | Exporting GM_IN_TYPE 31 | Export GM_IN_TYPE 0 32 | Exporting LOCATION_TBL 33 | Export LOCATION_TBL 0 34 | Exporting RTE_CNTL_HDR 35 | Export RTE_CNTL_HDR 1 36 | Exporting RTE_CNTL_LN 37 | Export RTE_CNTL_LN 2 38 | Exporting RTE_CNTL_PROF 39 | Export RTE_CNTL_PROF 1 40 | Exporting SETID_TBL 41 | Export SETID_TBL 0 42 | Exporting SET_CNTRL_GROUP 43 | Export SET_CNTRL_GROUP 0 44 | Exporting SET_CNTRL_TBL 45 | Export SET_CNTRL_TBL 0 46 | Exporting SHIPTO_TBL 47 | Export SHIPTO_TBL 0 48 | Exporting SHIPTO_VNDR_LOC 49 | Export SHIPTO_VNDR_LOC 0 50 | Exporting SUT_CALC_PARMS 51 | Export SUT_CALC_PARMS 0 52 | Exporting SUT_DFLT_TBL 53 | Export SUT_DFLT_TBL 0 54 | Exporting SUT_EXCPTN_TBL 55 | Export SUT_EXCPTN_TBL 0 56 | Ended: Thu Jun 05 11:04:07 2014 57 | Successful completion 58 | -------------------------------------------------------------------------------- /PS New BU/PHIRE_1451_Script_Notes.txt: -------------------------------------------------------------------------------- 1 | --SOURCE DAT File 2 | This file is the source DAT file which has been created from D1 environment. 3 | This file should first be placed in a location which would be accessible by the TGTIMPORT.DMS file to import configuration in TARGET environment. 4 | 5 | FYI, The TGTIMPORT.DMS file has the SET INPUT command mentioned for C:\TEMP directory as that is the default location Data Mover will search in case the Input Directory is not defined on PS Configuration Manager 6 | 7 | --TARGET Import File 8 | This file SHOULD BE run in TARGET environment. 9 | This file uses the DAT file "CR001451_00_SRCEXPORT.DAT"as INPUT 10 | 11 | SET LOG and SET INPUT commands have been defaulted to C:\TEMP directory 12 | 13 | This script contains the command SET UPDATE_DUPS. 14 | 15 | FYI, The TGTIMPORT.DMS file has the SET INPUT command mentioned for C:\TEMP directory as that is the default location Data Mover will search in case the Input Directory is not defined on PS Configuration Manager 16 | 17 | --TARGET SQL File 18 | This SQL will setup Row Level Security for the new UNU BU 623UU 19 | 20 | Table(s) included - PS_SEC_BU_CLS -------------------------------------------------------------------------------- /PS New BU/README.md: -------------------------------------------------------------------------------- 1 | #### Create a new BU in PS 2 | -------------------------------------------------------------------------------- /PS New BU/RouteControlProfiles_D1_P1_21May2014.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/RouteControlProfiles_D1_P1_21May2014.xlsx -------------------------------------------------------------------------------- /PS New BU/SET_CNTRL_GROUP_623UU.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/SET_CNTRL_GROUP_623UU.xlsx -------------------------------------------------------------------------------- /PS New BU/Scripts/.gitignore: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_00_SRCEXPORT.dms: -------------------------------------------------------------------------------- 1 | --EXPORT CLAUSE(S) SOURCE 2 | REM WR: CR001451; 3 | REM Description: UNU-IRADDA Setup; 4 | SET LOG C:\TEMP\CR001451_00_SRCEXPORT.LOG; 5 | SET OUTPUT C:\TEMP\CR001451_00_SRCEXPORT.DAT; 6 | EXPORT PS_SET_CNTRL_REC WHERE SETCNTRLVALUE = '623UU'; 7 | EXPORT PS_AUTO_NUM_TBL_BU WHERE BEG_SEQ LIKE '%' AND BUSINESS_UNIT = '623UU' AND NUM_TYPE LIKE '%'; 8 | EXPORT PS_BUS_UNIT_TBL_PM WHERE BUSINESS_UNIT = '623UU'; 9 | EXPORT PS_POBUILD_APPR WHERE BUSINESS_UNIT = '623UU' AND PO_PROCESS_ID LIKE '%'; 10 | EXPORT PS_AP_BU_TAX_CF WHERE BUSINESS_UNIT = '623UU'; 11 | EXPORT PS_BUS_UNIT_TBL_AP WHERE BUSINESS_UNIT = '623UU'; 12 | EXPORT PS_BUS_UNIT_TBL_FS WHERE BUSINESS_UNIT = '623UU'; 13 | EXPORT PS_BUS_UNIT_OPT_AP WHERE SETID = '623UU'; 14 | EXPORT PS_CNTRCT_CONTROL WHERE SETID = '623UU'; 15 | EXPORT PS_GM_INSTITUTION WHERE INSTID = '623' AND SETID = 'UNUNI'; 16 | EXPORT PS_GM_IN_ADDRESS WHERE INSTID = '623' AND SETID = 'UNUNI'; 17 | EXPORT PS_GM_IN_ATTR WHERE INSTID = '623' AND SETID = 'UNUNI'; 18 | EXPORT PS_GM_IN_INFO WHERE INSTID = '623' AND SETID = 'UNUNI'; 19 | EXPORT PS_GM_IN_TYPE WHERE INSTID = '623' AND SETID = 'UNUNI'; 20 | EXPORT PS_LOCATION_TBL WHERE LOCATION = '623' AND SETID = 'UNUNI'; 21 | EXPORT PS_RTE_CNTL_HDR WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 22 | EXPORT PS_RTE_CNTL_LN WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 23 | EXPORT PS_RTE_CNTL_PROF WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 24 | EXPORT PS_SETID_TBL WHERE SETID = '623UU'; 25 | EXPORT PS_SET_CNTRL_GROUP WHERE SETCNTRLVALUE = '623UU'; 26 | EXPORT PS_SET_CNTRL_TBL WHERE SETCNTRLVALUE = '623UU'; 27 | EXPORT PS_SHIPTO_TBL WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 28 | EXPORT PS_SHIPTO_VNDR_LOC WHERE APPLY_ALL_VENDOR LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%'; 29 | EXPORT PS_SUT_CALC_PARMS WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 30 | EXPORT PS_SUT_DFLT_TBL WHERE CATEGORY_ID LIKE '%' AND INV_ITEM_ID LIKE '%' AND ITM_SETID LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND SORT_SEQ_NBR LIKE '%' AND ULTIMATE_USE_CD LIKE '%' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%' AND VNDR_LOC LIKE '%'; 31 | EXPORT PS_SUT_EXCPTN_TBL WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_00_SRCEXPORT_PER.dms: -------------------------------------------------------------------------------- 1 | --EXPORT CLAUSE(S) SOURCE 2 | REM WR: CR001451; 3 | REM Description: UNU-IRADDA Setup; 4 | SET LOG C:\TEMP\CR001451_00_SRCEXPORT_PER.LOG; 5 | SET OUTPUT C:\TEMP\CR001451_00_SRCEXPORT_PER.DAT; 6 | EXPORT PS_FIN_BU_LGRP_TBL WHERE BUSINESS_UNIT IN ('623UU'); 7 | EXPORT PS_FIN_OPEN_OPTN WHERE BUSINESS_UNIT IN ('623UU'); 8 | EXPORT PS_FIN_OPEN_PERIOD WHERE BUSINESS_UNIT IN ('623UU'); 9 | EXPORT PS_FIN_BU_MAPPING WHERE BUSINESS_UNIT IN ('623UU'); -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_01_TGTEXPORT.dms: -------------------------------------------------------------------------------- 1 | --TARGET EXPORT CLAUSE(S) 2 | REM WR: CR001451; 3 | REM Description: UNU-IRADDA Setup; 4 | SET LOG C:\TEMP\CR001451_01_TGTEXPORT.LOG; 5 | SET OUTPUT C:\TEMP\CR001451_01_TGTEXPORT.DAT; 6 | EXPORT PS_SET_CNTRL_REC WHERE SETCNTRLVALUE = '623UU'; 7 | EXPORT PS_AUTO_NUM_TBL_BU WHERE BEG_SEQ LIKE '%' AND BUSINESS_UNIT = '623UU' AND NUM_TYPE LIKE '%'; 8 | EXPORT PS_BUS_UNIT_TBL_PM WHERE BUSINESS_UNIT = '623UU'; 9 | EXPORT PS_POBUILD_APPR WHERE BUSINESS_UNIT = '623UU' AND PO_PROCESS_ID LIKE '%'; 10 | EXPORT PS_AP_BU_TAX_CF WHERE BUSINESS_UNIT = '623UU'; 11 | EXPORT PS_BUS_UNIT_TBL_AP WHERE BUSINESS_UNIT = '623UU'; 12 | EXPORT PS_BUS_UNIT_TBL_FS WHERE BUSINESS_UNIT = '623UU'; 13 | EXPORT PS_BUS_UNIT_OPT_AP WHERE SETID = '623UU'; 14 | EXPORT PS_CNTRCT_CONTROL WHERE SETID = '623UU'; 15 | EXPORT PS_GM_INSTITUTION WHERE INSTID = '623' AND SETID = 'UNUNI'; 16 | EXPORT PS_GM_IN_ADDRESS WHERE INSTID = '623' AND SETID = 'UNUNI'; 17 | EXPORT PS_GM_IN_ATTR WHERE INSTID = '623' AND SETID = 'UNUNI'; 18 | EXPORT PS_GM_IN_INFO WHERE INSTID = '623' AND SETID = 'UNUNI'; 19 | EXPORT PS_GM_IN_TYPE WHERE INSTID = '623' AND SETID = 'UNUNI'; 20 | EXPORT PS_LOCATION_TBL WHERE LOCATION = '623' AND SETID = 'UNUNI'; 21 | EXPORT PS_RTE_CNTL_HDR WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 22 | EXPORT PS_RTE_CNTL_LN WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 23 | EXPORT PS_RTE_CNTL_PROF WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 24 | EXPORT PS_SETID_TBL WHERE SETID = '623UU'; 25 | EXPORT PS_SET_CNTRL_GROUP WHERE SETCNTRLVALUE = '623UU'; 26 | EXPORT PS_SET_CNTRL_TBL WHERE SETCNTRLVALUE = '623UU'; 27 | EXPORT PS_SHIPTO_TBL WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 28 | EXPORT PS_SHIPTO_VNDR_LOC WHERE APPLY_ALL_VENDOR LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%'; 29 | EXPORT PS_SUT_CALC_PARMS WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 30 | EXPORT PS_SUT_DFLT_TBL WHERE CATEGORY_ID LIKE '%' AND INV_ITEM_ID LIKE '%' AND ITM_SETID LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND SORT_SEQ_NBR LIKE '%' AND ULTIMATE_USE_CD LIKE '%' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%' AND VNDR_LOC LIKE '%'; 31 | EXPORT PS_SUT_EXCPTN_TBL WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 32 | -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_02_TGTDELETE.dms: -------------------------------------------------------------------------------- 1 | --DELETE CLAUSE(S) TARGET 2 | REM WR: CR001451; 3 | REM Description: UNU-IRADDA Setup; 4 | SET LOG C:\TEMP\CR001451_02_TGTDELETE.LOG; 5 | DELETE PS_SET_CNTRL_REC WHERE SETCNTRLVALUE = '623UU'; 6 | DELETE PS_AUTO_NUM_TBL_BU WHERE BEG_SEQ LIKE '%' AND BUSINESS_UNIT = '623UU' AND NUM_TYPE LIKE '%'; 7 | DELETE PS_BUS_UNIT_TBL_PM WHERE BUSINESS_UNIT = '623UU'; 8 | DELETE PS_POBUILD_APPR WHERE BUSINESS_UNIT = '623UU' AND PO_PROCESS_ID LIKE '%'; 9 | DELETE PS_AP_BU_TAX_CF WHERE BUSINESS_UNIT = '623UU'; 10 | DELETE PS_BUS_UNIT_TBL_AP WHERE BUSINESS_UNIT = '623UU'; 11 | DELETE PS_BUS_UNIT_TBL_FS WHERE BUSINESS_UNIT = '623UU'; 12 | DELETE PS_BUS_UNIT_OPT_AP WHERE SETID = '623UU'; 13 | DELETE PS_CNTRCT_CONTROL WHERE SETID = '623UU'; 14 | DELETE PS_GM_INSTITUTION WHERE INSTID = '623' AND SETID = 'UNUNI'; 15 | DELETE PS_GM_IN_ADDRESS WHERE INSTID = '623' AND SETID = 'UNUNI'; 16 | DELETE PS_GM_IN_ATTR WHERE INSTID = '623' AND SETID = 'UNUNI'; 17 | DELETE PS_GM_IN_INFO WHERE INSTID = '623' AND SETID = 'UNUNI'; 18 | DELETE PS_GM_IN_TYPE WHERE INSTID = '623' AND SETID = 'UNUNI'; 19 | DELETE PS_LOCATION_TBL WHERE LOCATION = '623' AND SETID = 'UNUNI'; 20 | DELETE PS_RTE_CNTL_HDR WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 21 | DELETE PS_RTE_CNTL_LN WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 22 | DELETE PS_RTE_CNTL_PROF WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 23 | DELETE PS_SETID_TBL WHERE SETID = '623UU'; 24 | DELETE PS_SET_CNTRL_GROUP WHERE SETCNTRLVALUE = '623UU'; 25 | DELETE PS_SET_CNTRL_TBL WHERE SETCNTRLVALUE = '623UU'; 26 | DELETE PS_SHIPTO_TBL WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 27 | DELETE PS_SHIPTO_VNDR_LOC WHERE APPLY_ALL_VENDOR LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%'; 28 | DELETE PS_SUT_CALC_PARMS WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 29 | DELETE PS_SUT_DFLT_TBL WHERE CATEGORY_ID LIKE '%' AND INV_ITEM_ID LIKE '%' AND ITM_SETID LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND SORT_SEQ_NBR LIKE '%' AND ULTIMATE_USE_CD LIKE '%' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%' AND VNDR_LOC LIKE '%'; 30 | DELETE PS_SUT_EXCPTN_TBL WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 31 | -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_03_TGTIMPORT.dms: -------------------------------------------------------------------------------- 1 | --IMPORT CLAUSE(S) TARGET 2 | REM WR: CR001451; 3 | REM Description: UNU-IRADDA Setup; 4 | SET LOG C:\TEMP\CR001451_03_TGTIMPORT.LOG; 5 | SET INPUT C:\TEMP\CR001451_00_SRCEXPORT.DAT; 6 | SET UPDATE_DUPS; 7 | IMPORT PS_SET_CNTRL_REC; 8 | IMPORT PS_AUTO_NUM_TBL_BU; 9 | IMPORT PS_BUS_UNIT_TBL_PM; 10 | IMPORT PS_POBUILD_APPR; 11 | IMPORT PS_AP_BU_TAX_CF; 12 | IMPORT PS_BUS_UNIT_TBL_AP; 13 | IMPORT PS_BUS_UNIT_TBL_FS; 14 | IMPORT PS_BUS_UNIT_OPT_AP; 15 | IMPORT PS_CNTRCT_CONTROL; 16 | IMPORT PS_GM_INSTITUTION; 17 | IMPORT PS_GM_IN_ADDRESS; 18 | IMPORT PS_GM_IN_ATTR; 19 | IMPORT PS_GM_IN_INFO; 20 | IMPORT PS_GM_IN_TYPE; 21 | IMPORT PS_LOCATION_TBL; 22 | IMPORT PS_RTE_CNTL_HDR; 23 | IMPORT PS_RTE_CNTL_LN; 24 | IMPORT PS_RTE_CNTL_PROF; 25 | IMPORT PS_SETID_TBL; 26 | IMPORT PS_SET_CNTRL_GROUP; 27 | IMPORT PS_SET_CNTRL_TBL; 28 | IMPORT PS_SHIPTO_TBL; 29 | IMPORT PS_SHIPTO_VNDR_LOC; 30 | IMPORT PS_SUT_CALC_PARMS; 31 | IMPORT PS_SUT_DFLT_TBL; 32 | IMPORT PS_SUT_EXCPTN_TBL; 33 | -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_03_TGTIMPORT_PER.dms: -------------------------------------------------------------------------------- 1 | --IMPORT CLAUSE(S) TARGET 2 | REM WR: CR001451; 3 | REM Description: UNU-IRADDA Setup; 4 | SET LOG C:\TEMP\CR001451_03_TGTIMPORT_PER.LOG; 5 | SET INPUT C:\TEMP\CR001451_00_SRCEXPORT_PER.DAT; 6 | SET UPDATE_DUPS; 7 | IMPORT PS_FIN_BU_LGRP_TBL; 8 | IMPORT PS_FIN_OPEN_OPTN; 9 | IMPORT PS_FIN_OPEN_PERIOD; 10 | IMPORT PS_FIN_BU_MAPPING; -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_04_P1FS_SECURITY.sql: -------------------------------------------------------------------------------- 1 | --CR001451 2 | --Row Level Security set up for the new UNU BU (623UU) 3 | --Row Level Security for 623UU 4 | INSERT INTO PS_SEC_BU_CLS 5 | SELECT '623UU' , BUSINESS_UNIT FROM PS_BUS_UNIT_TBL_FS 6 | WHERE NOT EXISTS (SELECT 'X' FROM PS_SEC_BU_CLS WHERE OPRCLASS = '623UU'); 7 | --572 rows 8 | 9 | INSERT INTO PS_SEC_BU_CLS 10 | SELECT DISTINCT(OPRCLASS), '623UU' FROM PS_SEC_BU_CLS WHERE OPRCLASS NOT LIKE 'EA%' 11 | AND OPRCLASS NOT IN (SELECT OPRCLASS FROM PS_SEC_BU_CLS WHERE BUSINESS_UNIT = '623UU'); 12 | --278 rows -------------------------------------------------------------------------------- /PS New BU/Scripts/CR001451_99_VerificationSQLs.sql: -------------------------------------------------------------------------------- 1 | 2 | SELECT ORA_DATABASE_NAME, SYSDATE FROM DUAL; 3 | SELECT 'SET_CNTRL_REC' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SET_CNTRL_REC A WHERE SETCNTRLVALUE = '623UU'; 4 | SELECT 'SET_CNTRL_REC' AS TABLE_NAME, A.* FROM PS_SET_CNTRL_REC A WHERE SETCNTRLVALUE = '623UU' ORDER BY 1, 2; 5 | SELECT 'AUTO_NUM_TBL_BU' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_AUTO_NUM_TBL_BU A WHERE BEG_SEQ LIKE '%' AND BUSINESS_UNIT = '623UU' AND NUM_TYPE LIKE '%'; 6 | SELECT 'AUTO_NUM_TBL_BU' AS TABLE_NAME, A.* FROM PS_AUTO_NUM_TBL_BU A WHERE BEG_SEQ LIKE '%' AND BUSINESS_UNIT = '623UU' AND NUM_TYPE LIKE '%' ORDER BY 1, 2; 7 | SELECT 'BUS_UNIT_TBL_PM' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUS_UNIT_TBL_PM A WHERE BUSINESS_UNIT = '623UU'; 8 | SELECT 'BUS_UNIT_TBL_PM' AS TABLE_NAME, A.* FROM PS_BUS_UNIT_TBL_PM A WHERE BUSINESS_UNIT = '623UU' ORDER BY 1, 2; 9 | SELECT 'POBUILD_APPR' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_POBUILD_APPR A WHERE BUSINESS_UNIT = '623UU' AND PO_PROCESS_ID LIKE '%'; 10 | SELECT 'POBUILD_APPR' AS TABLE_NAME, A.* FROM PS_POBUILD_APPR A WHERE BUSINESS_UNIT = '623UU' AND PO_PROCESS_ID LIKE '%' ORDER BY 1, 2; 11 | SELECT 'AP_BU_TAX_CF' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_AP_BU_TAX_CF A WHERE BUSINESS_UNIT = '623UU'; 12 | SELECT 'AP_BU_TAX_CF' AS TABLE_NAME, A.* FROM PS_AP_BU_TAX_CF A WHERE BUSINESS_UNIT = '623UU' ORDER BY 1, 2; 13 | SELECT 'BUS_UNIT_TBL_AP' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUS_UNIT_TBL_AP A WHERE BUSINESS_UNIT = '623UU'; 14 | SELECT 'BUS_UNIT_TBL_AP' AS TABLE_NAME, A.* FROM PS_BUS_UNIT_TBL_AP A WHERE BUSINESS_UNIT = '623UU' ORDER BY 1, 2; 15 | SELECT 'BUS_UNIT_TBL_FS' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUS_UNIT_TBL_FS A WHERE BUSINESS_UNIT = '623UU'; 16 | SELECT 'BUS_UNIT_TBL_FS' AS TABLE_NAME, A.* FROM PS_BUS_UNIT_TBL_FS A WHERE BUSINESS_UNIT = '623UU' ORDER BY 1, 2; 17 | SELECT 'BUS_UNIT_OPT_AP' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_BUS_UNIT_OPT_AP A WHERE SETID = '623UU'; 18 | SELECT 'BUS_UNIT_OPT_AP' AS TABLE_NAME, A.* FROM PS_BUS_UNIT_OPT_AP A WHERE SETID = '623UU' ORDER BY 1, 2; 19 | SELECT 'CNTRCT_CONTROL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_CNTRCT_CONTROL A WHERE SETID = '623UU'; 20 | SELECT 'CNTRCT_CONTROL' AS TABLE_NAME, A.* FROM PS_CNTRCT_CONTROL A WHERE SETID = '623UU' ORDER BY 1, 2; 21 | SELECT 'GM_INSTITUTION' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_GM_INSTITUTION A WHERE INSTID = '623' AND SETID = 'UNUNI'; 22 | SELECT 'GM_INSTITUTION' AS TABLE_NAME, A.* FROM PS_GM_INSTITUTION A WHERE INSTID = '623' AND SETID = 'UNUNI' ORDER BY 1, 2; 23 | SELECT 'GM_IN_ADDRESS' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_GM_IN_ADDRESS A WHERE INSTID = '623' AND SETID = 'UNUNI'; 24 | SELECT 'GM_IN_ADDRESS' AS TABLE_NAME, A.* FROM PS_GM_IN_ADDRESS A WHERE INSTID = '623' AND SETID = 'UNUNI' ORDER BY 1, 2; 25 | SELECT 'GM_IN_ATTR' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_GM_IN_ATTR A WHERE INSTID = '623' AND SETID = 'UNUNI'; 26 | SELECT 'GM_IN_ATTR' AS TABLE_NAME, A.* FROM PS_GM_IN_ATTR A WHERE INSTID = '623' AND SETID = 'UNUNI' ORDER BY 1, 2; 27 | SELECT 'GM_IN_INFO' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_GM_IN_INFO A WHERE INSTID = '623' AND SETID = 'UNUNI'; 28 | SELECT 'GM_IN_INFO' AS TABLE_NAME, A.* FROM PS_GM_IN_INFO A WHERE INSTID = '623' AND SETID = 'UNUNI' ORDER BY 1, 2; 29 | SELECT 'GM_IN_TYPE' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_GM_IN_TYPE A WHERE INSTID = '623' AND SETID = 'UNUNI'; 30 | SELECT 'GM_IN_TYPE' AS TABLE_NAME, A.* FROM PS_GM_IN_TYPE A WHERE INSTID = '623' AND SETID = 'UNUNI' ORDER BY 1, 2; 31 | SELECT 'LOCATION_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_LOCATION_TBL A WHERE LOCATION = '623' AND SETID = 'UNUNI'; 32 | SELECT 'LOCATION_TBL' AS TABLE_NAME, A.* FROM PS_LOCATION_TBL A WHERE LOCATION = '623' AND SETID = 'UNUNI' ORDER BY 1, 2; 33 | SELECT 'RTE_CNTL_HDR' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_RTE_CNTL_HDR A WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 34 | SELECT 'RTE_CNTL_HDR' AS TABLE_NAME, A.* FROM PS_RTE_CNTL_HDR A WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL' ORDER BY 1, 2; 35 | SELECT 'RTE_CNTL_LN' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_RTE_CNTL_LN A WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 36 | SELECT 'RTE_CNTL_LN' AS TABLE_NAME, A.* FROM PS_RTE_CNTL_LN A WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL' ORDER BY 1, 2; 37 | SELECT 'RTE_CNTL_PROF' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_RTE_CNTL_PROF A WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL'; 38 | SELECT 'RTE_CNTL_PROF' AS TABLE_NAME, A.* FROM PS_RTE_CNTL_PROF A WHERE RTE_CNTL_PROFILE = 'UN_BU_UNU_ALL' ORDER BY 1, 2; 39 | SELECT 'SETID_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SETID_TBL A WHERE SETID = '623UU'; 40 | SELECT 'SETID_TBL' AS TABLE_NAME, A.* FROM PS_SETID_TBL A WHERE SETID = '623UU' ORDER BY 1, 2; 41 | SELECT 'SET_CNTRL_GROUP' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SET_CNTRL_GROUP A WHERE SETCNTRLVALUE = '623UU'; 42 | SELECT 'SET_CNTRL_GROUP' AS TABLE_NAME, A.* FROM PS_SET_CNTRL_GROUP A WHERE SETCNTRLVALUE = '623UU' ORDER BY 1, 2; 43 | SELECT 'SET_CNTRL_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SET_CNTRL_TBL A WHERE SETCNTRLVALUE = '623UU'; 44 | SELECT 'SET_CNTRL_TBL' AS TABLE_NAME, A.* FROM PS_SET_CNTRL_TBL A WHERE SETCNTRLVALUE = '623UU' ORDER BY 1, 2; 45 | SELECT 'SHIPTO_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SHIPTO_TBL A WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 46 | SELECT 'SHIPTO_TBL' AS TABLE_NAME, A.* FROM PS_SHIPTO_TBL A WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' ORDER BY 1, 2; 47 | SELECT 'SHIPTO_VNDR_LOC' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SHIPTO_VNDR_LOC A WHERE APPLY_ALL_VENDOR LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%'; 48 | SELECT 'SHIPTO_VNDR_LOC' AS TABLE_NAME, A.* FROM PS_SHIPTO_VNDR_LOC A WHERE APPLY_ALL_VENDOR LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%' ORDER BY 1, 2; 49 | SELECT 'SUT_CALC_PARMS' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SUT_CALC_PARMS A WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 50 | SELECT 'SUT_CALC_PARMS' AS TABLE_NAME, A.* FROM PS_SUT_CALC_PARMS A WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' ORDER BY 1, 2; 51 | SELECT 'SUT_DFLT_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SUT_DFLT_TBL A WHERE CATEGORY_ID LIKE '%' AND INV_ITEM_ID LIKE '%' AND ITM_SETID LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND SORT_SEQ_NBR LIKE '%' AND ULTIMATE_USE_CD LIKE '%' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%' AND VNDR_LOC LIKE '%'; 52 | SELECT 'SUT_DFLT_TBL' AS TABLE_NAME, A.* FROM PS_SUT_DFLT_TBL A WHERE CATEGORY_ID LIKE '%' AND INV_ITEM_ID LIKE '%' AND ITM_SETID LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' AND SORT_SEQ_NBR LIKE '%' AND ULTIMATE_USE_CD LIKE '%' AND VENDOR_ID LIKE '%' AND VENDOR_SETID LIKE '%' AND VNDR_LOC LIKE '%' ORDER BY 1, 2; 53 | SELECT 'SUT_EXCPTN_TBL' AS TABLE_NAME, COUNT(1) AS ROW_COUNT FROM PS_SUT_EXCPTN_TBL A WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623'; 54 | SELECT 'SUT_EXCPTN_TBL' AS TABLE_NAME, A.* FROM PS_SUT_EXCPTN_TBL A WHERE EFFDT LIKE '%' AND SETID = 'UNUNI' AND SHIPTO_ID = '623' ORDER BY 1, 2; -------------------------------------------------------------------------------- /PS New BU/SetControlsContracts_623UU.PNG: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/SetControlsContracts_623UU.PNG -------------------------------------------------------------------------------- /PS New BU/UNFEM_BRD_8_bu_s_for_UNFEM_agency.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNFEM_BRD_8_bu_s_for_UNFEM_agency.docx -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA-Unit_System_UAT.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA-Unit_System_UAT.xlsx -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA-Unit_System_UAT_JACK.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA-Unit_System_UAT_JACK.xlsx -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA-Unit_System_UAT_JACK_NEW.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA-Unit_System_UAT_JACK_NEW.xlsx -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA_BU_Setup.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA_BU_Setup.doc -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA_BU_Setup_OLD.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA_BU_Setup_OLD.doc -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA_BU_Setup_V1.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA_BU_Setup_V1.doc -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA_ConfigurationSteps_V1.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA_ConfigurationSteps_V1.xlsx -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA_SystemTesting.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA_SystemTesting.doc -------------------------------------------------------------------------------- /PS New BU/UNU-IRADDA_UnitTesting.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU-IRADDA_UnitTesting.doc -------------------------------------------------------------------------------- /PS New BU/UNU_BU-CutOverWeekend.xlsx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU_BU-CutOverWeekend.xlsx -------------------------------------------------------------------------------- /PS New BU/UNU_CR001451_BRD_NewLegalEntity_IRADDA_V1_0_DRAFT.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/UNU_CR001451_BRD_NewLegalEntity_IRADDA_V1_0_DRAFT.docx -------------------------------------------------------------------------------- /PS New BU/Unit_test_result.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/Unit_test_result.docx -------------------------------------------------------------------------------- /PS New BU/Verification_D1.tas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/Verification_D1.tas -------------------------------------------------------------------------------- /PS New BU/log.txt: -------------------------------------------------------------------------------- 1 | SQL> WHENEVER SQLERROR EXIT SQL.SQLCODE; 2 | SQL> WHENEVER OSERROR EXIT; 3 | SQL> 4 | SQL> --CR001451 5 | SQL> --Row Level Security set up for the new UNU BU (623UU) 6 | SQL> --Row Level Security for 623UU 7 | SQL> INSERT INTO PS_SEC_BU_CLS 8 | 2 SELECT '623UU' , BUSINESS_UNIT FROM PS_BUS_UNIT_TBL_FS; 9 | 10 | 572 rows created. 11 | 12 | SQL> --572 rows 13 | SQL> 14 | SQL> INSERT INTO PS_SEC_BU_CLS 15 | 2 SELECT DISTINCT(OPRCLASS), '623UU' FROM PS_SEC_BU_CLS WHERE OPRCLASS NOT LIKE 'EA%' 16 | 3 AND OPRCLASS NOT IN (SELECT OPRCLASS FROM PS_SEC_BU_CLS WHERE BUSINESS_UNIT = '623UU'); 17 | 18 | 279 rows created. 19 | 20 | SQL> --278 rows 21 | SQL> 22 | SQL> EXIT; 23 | -------------------------------------------------------------------------------- /PS New BU/output.txt: -------------------------------------------------------------------------------- 1 | 2 | SQL*Plus: Release 11.2.0.1.0 Production on Thu Jun 5 16:48:05 2014 3 | 4 | Copyright (c) 1982, 2010, Oracle. All rights reserved. 5 | 6 | 7 | Connected to: 8 | Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 - 64bit Production 9 | With the Partitioning, OLAP, Data Mining and Real Application Testing options 10 | 11 | SQL> SET DEFINE OFF; 12 | SQL> SPOOL d:\Phire\working\FIN\FIN_CR001451_3_20140605164805\log.txt; 13 | SQL> WHENEVER SQLERROR EXIT SQL.SQLCODE; 14 | SQL> WHENEVER OSERROR EXIT; 15 | SQL> 16 | SQL> --CR001451 17 | SQL> --Row Level Security set up for the new UNU BU (623UU) 18 | SQL> --Row Level Security for 623UU 19 | SQL> INSERT INTO PS_SEC_BU_CLS 20 | 2 SELECT '623UU' , BUSINESS_UNIT FROM PS_BUS_UNIT_TBL_FS; 21 | 22 | 572 rows created. 23 | 24 | SQL> --572 rows 25 | SQL> 26 | SQL> INSERT INTO PS_SEC_BU_CLS 27 | 2 SELECT DISTINCT(OPRCLASS), '623UU' FROM PS_SEC_BU_CLS WHERE OPRCLASS NOT LIKE 'EA%' 28 | 3 AND OPRCLASS NOT IN (SELECT OPRCLASS FROM PS_SEC_BU_CLS WHERE BUSINESS_UNIT = '623UU'); 29 | 30 | 279 rows created. 31 | 32 | SQL> --278 rows 33 | SQL> 34 | SQL> EXIT; 35 | Disconnected from Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 - 64bit Production 36 | With the Partitioning, OLAP, Data Mining and Real Application Testing options 37 | -------------------------------------------------------------------------------- /PS New BU/test_result.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ciphersbak/psftpp/86c2aa6706d0a6fcd08965905f70123a8d5240b2/PS New BU/test_result.docx -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # PSFT_PP 2 | [PP and PeopleSoft](http://psftpp.blogspot.com/) 3 | 4 | #### Modified Cash Accounting Solution for PeopleSoft 5 | #### Revenue Recognition in PeopleSoft 6 | #### How to create a new BU in PeopleSoft 7 | #### How to use LISTAGG in PSQuery 8 | #### What is PS Financial Gateway 9 | #### PeopleCode/SQLs one might find handy to use across Integration Broker, Process Monitor, SQL, Page Design, AE Design, and many more 10 | -------------------------------------------------------------------------------- /Rowset2XML.peoplecode: -------------------------------------------------------------------------------- 1 | import PSXP_ENGINE:*; 2 | import PSXP_RPTDEFNMANAGER:*; 3 | import PSXP_XMLGEN:RowSetDS:*; 4 | 5 | Local Rowset &RSLevel0_; 6 | Local XmlDoc &SomeXMLDoc_; 7 | 8 | &RSLevel0_ = GetLevel0(); 9 | Local PSXP_XMLGEN:RowSetDS &oRowSetDS; 10 | 11 | &oRowSetDS = create PSXP_XMLGEN:RowSetDS(); 12 | Local string &strXML = &oRowSetDS.getXMLData(&RSLevel0_, ""); 13 | 14 | Local File &BCFile_ = GetFile("/tmp/testfile_" | %Datetime | ".txt", "W", %FilePath_Absolute); 15 | &SomeXMLDoc_ = CreateXmlDoc(""); 16 | rem &BCFile_.WriteLine(&strXML); 17 | 18 | &boolval_ = &SomeXMLDoc_.ParseXmlString(&strXML); 19 | &newoutStr_ = &SomeXMLDoc_.GenFormattedXmlString(); 20 | &BCFile_.WriteLine(&newoutStr_); 21 | 22 | rem &ret_ = &SomeXMLDoc_.CopyRowset(&RSLevel0_); 23 | rem &sXmlData = &nRptHandler_.GenerateXmlFromRowset(); 24 | 25 | rem &SomeStr_ = &SomeXMLDoc_.GenXmlFile("/tmp/webprofdemo.xml"); 26 | -------------------------------------------------------------------------------- /SQLs/AETParserSQLs.sql: -------------------------------------------------------------------------------- 1 | UPDATE PSPPPARSEAET A 2 | SET A.PM_SQL_TYPE = NVL( 3 | (SELECT PM_SQL_TYPE 4 | FROM PSPPPARSEAET B 5 | WHERE A.PROCESS_INSTANCE = B.PROCESS_INSTANCE 6 | AND A.AE_APPLID = B.AE_APPLID 7 | AND A.SQLID = B.SQLID 8 | --AND B.PM_SQL_TYPE <> ' ' 9 | AND B.ACTION_PLAN_DESCR = A.ACTION_PLAN_DESCR 10 | AND B.SEQ_NBR = 11 | (SELECT MIN(C.SEQ_NBR) 12 | FROM PSPPPARSEAET C 13 | WHERE C.PROCESS_INSTANCE = B.PROCESS_INSTANCE 14 | AND C.AE_APPLID = B.AE_APPLID 15 | AND C.SQLID = B.SQLID 16 | AND C.ACTION_PLAN_DESCR = B.ACTION_PLAN_DESCR 17 | -- AND C.PM_SQL_TYPE = B.PM_SQL_TYPE 18 | ) 19 | ), 'Not Found') 20 | WHERE PROCESS_INSTANCE = 10691980 21 | AND PM_SQL_TYPE = ' '; 22 | 23 | UPDATE PSPPPARSEAET A 24 | SET END_TIME = 25 | (SELECT START_TIME 26 | FROM PSPPPARSEAET B 27 | WHERE A.PROCESS_INSTANCE = B.PROCESS_INSTANCE 28 | AND B.SEQ_NBR = 29 | (SELECT MIN(C.SEQ_NBR) 30 | FROM PSPPPARSEAET C 31 | WHERE A.PROCESS_INSTANCE = C.PROCESS_INSTANCE 32 | AND A.SEQ_NBR < C.SEQ_NBR 33 | ) 34 | ) 35 | WHERE PROCESS_INSTANCE = 144321; 36 | 37 | --Generate Output 38 | WITH t1 AS 39 | ( 40 | SELECT 41 | PROCESS_INSTANCE, SEQ_NBR, AERP, AE_APPLID, SQLID, ACTION_PLAN_DESCR, PM_SQL_TYPE, PF_ITERATION_NBR, COUNTER, SQLROWS_2, DP_RESTART_CONTROL, COMMIT_ACTN_STRNG, 42 | FIELD_LIST_AET, BINDNAME, DBID, START_TIME, END_TIME, CALC_TIME, 43 | SQLTEXT2, AE_RUN_DATA, 44 | TO_DATE(TO_CHAR(START_TIME,'yyyymmddhh24.mi.ss'),'yyyymmddhh24.mi.ss') real_start, 45 | TO_DATE(TO_CHAR(END_TIME,'yyyymmddhh24.mi.ss'),'yyyymmddhh24.mi.ss') real_end 46 | FROM PSPPPARSEAET 47 | ) 48 | SELECT 49 | PROCESS_INSTANCE, SEQ_NBR, AERP "Parent", AE_APPLID "App Engine", SQLID "Section.Step", 50 | --trunc(mod(real_end - real_start,1)*24*60*60,1) as Total_Seconds, 51 | ACTION_PLAN_DESCR "Action", PM_SQL_TYPE "DDL/DML", PF_ITERATION_NBR "Iteration", 52 | COUNTER "Counter", SQLROWS_2 "Rows(s) Affected", 53 | CASE 54 | WHEN trunc(24*mod(real_end - real_start,1)) < 0 55 | THEN 86400 + trunc(mod(real_end - real_start,1)*24*60*60,1) --assumption is that its one day 56 | ELSE trunc(mod(real_end - real_start,1)*24*60*60,1) 57 | END AS TOTAL_SECONDS, --extract(second from real_end - real_start) * 1000 "MILLISECONDS", 58 | DP_RESTART_CONTROL "CHKPOINT", COMMIT_ACTN_STRNG "COMMIT", FIELD_LIST_AET "Buffers", BINDNAME "Bind variables", DBID "Oracle SQLID", 59 | SQLTEXT2 "SQL Statement", AE_RUN_DATA "AE Tree", 60 | --real_start, 61 | --real_end, 62 | --real_end - real_start, 63 | START_TIME "Begin Time", END_TIME "End Time", 64 | trunc(real_end - real_start) days, 65 | trunc(24*mod(real_end - real_start,1)) as hrs, 66 | trunc(mod(mod(real_end - real_start,1)*24,1)*60 ) as mins, 67 | trunc(mod(mod(mod(real_end - real_start,1)*24,1)*60, 1)*60) as seconds 68 | FROM t1 69 | WHERE PROCESS_INSTANCE = 144321 70 | --AND SQLID IN ('CLEANUP3.UPD_PDS', 'INSPRT.DELETE', 'MN1200.LOCK') 71 | ORDER BY PROCESS_INSTANCE, SEQ_NBR ASC; 72 | 73 | --Analytics 74 | --Across runs, find how a particular Action has been performing 75 | --Process Instance is NOT INLCUDED 76 | SELECT F.*, COUNT(*) OVER (PARTITION BY AE_APPLID, SQLID, ACTION_PLAN_DESCR) CT 77 | FROM PSPPPARSEAET F 78 | WHERE F.ACTION_PLAN_DESCR = 'SQL' 79 | --AND F.SQLID IN ('CLEANUP3.UPD_PDS', 'INSPRT.DELETE', 'MN1200.LOCK', 'MN1200.PR_TA1', 'CLEANUP3.DEL_PRC'); 80 | AND F.SQLID IN ('CLEANUP3.UPD_PDS', 'MN1200.LOCK', 'MN1200.PR_TA1', 'CLEANUP3.DEL_PRC'); 81 | 82 | --Inline View 83 | SELECT * FROM ( 84 | SELECT F.*, COUNT(*) OVER (PARTITION BY PROCESS_INSTANCE, AE_APPLID, SQLID, ACTION_PLAN_DESCR) CT 85 | FROM PSPPPARSEAET F 86 | WHERE F.ACTION_PLAN_DESCR = 'SQL' 87 | --AND F.SQLID IN ('CLEANUP3.UPD_PDS', 'INSPRT.DELETE', 'MN1200.LOCK', 'MN1200.PR_TA1', 'CLEANUP3.DEL_PRC'); 88 | --AND F.SQLID IN ('CLEANUP3.UPD_PDS', 'MN1200.LOCK', 'MN1200.PR_TA1', 'CLEANUP3.DEL_PRC'); 89 | ) WHERE CT > 1 90 | ORDER BY AE_APPLID, SQLID, ACTION_PLAN_DESCR, PROCESS_INSTANCE; 91 | 92 | --WITH Clause 93 | WITH COUNTS AS ( 94 | SELECT F.*, COUNT(*) OVER (PARTITION BY PROCESS_INSTANCE, AE_APPLID, SQLID, ACTION_PLAN_DESCR) CT 95 | FROM PSPPPARSEAET F 96 | WHERE F.ACTION_PLAN_DESCR = 'SQL' 97 | AND F.SQLID IN ('CLEANUP3.UPD_PDS', 'MN1200.LOCK', 'MN1200.PR_TA1', 'CLEANUP3.DEL_PRC') 98 | ) 99 | SELECT * FROM COUNTS 100 | WHERE CT > 1 101 | ORDER BY AE_APPLID, SQLID, ACTION_PLAN_DESCR, PROCESS_INSTANCE; 102 | 103 | --Added Over (Partition BY) Clause 104 | WITH t1 AS 105 | ( 106 | SELECT 107 | PROCESS_INSTANCE, SEQ_NBR, AERP, AE_APPLID, SQLID, ACTION_PLAN_DESCR, PM_SQL_TYPE, PF_ITERATION_NBR, COUNTER, SQLROWS_2, DP_RESTART_CONTROL, COMMIT_ACTN_STRNG, 108 | FIELD_LIST_AET, BINDNAME, DBID, START_TIME, END_TIME, CALC_TIME, COUNT(*) OVER (PARTITION BY PROCESS_INSTANCE, AE_APPLID, SQLID, ACTION_PLAN_DESCR) CT, 109 | SQLTEXT2, AE_RUN_DATA, 110 | TO_DATE(TO_CHAR(START_TIME,'yyyymmddhh24.mi.ss'),'yyyymmddhh24.mi.ss') real_start, 111 | TO_DATE(TO_CHAR(END_TIME,'yyyymmddhh24.mi.ss'),'yyyymmddhh24.mi.ss') real_end 112 | FROM PSPPPARSEAET 113 | ) 114 | SELECT 115 | PROCESS_INSTANCE, SEQ_NBR, AERP "Parent", AE_APPLID "App Engine", SQLID "Section.Step", 116 | --trunc(mod(real_end - real_start,1)*24*60*60,1) as Total_Seconds, 117 | ACTION_PLAN_DESCR "Action", PM_SQL_TYPE "DDL/DML", PF_ITERATION_NBR "Iteration", 118 | COUNTER "Counter", SQLROWS_2 "Rows(s) Affected", 119 | CASE 120 | WHEN trunc(24*mod(real_end - real_start,1)) < 0 121 | THEN 86400 + trunc(mod(real_end - real_start,1)*24*60*60,1) --assumption is that its one day 122 | ELSE trunc(mod(real_end - real_start,1)*24*60*60,1) 123 | END AS TOTAL_SECONDS, --extract(second from real_end - real_start) * 1000 "MILLISECONDS", 124 | DP_RESTART_CONTROL "CHKPOINT", COMMIT_ACTN_STRNG "COMMIT", FIELD_LIST_AET "Buffers", BINDNAME "Bind variables", DBID "Oracle SQLID", CT, 125 | SQLTEXT2 "SQL Statement", AE_RUN_DATA "AE Tree", 126 | --real_start, 127 | --real_end, 128 | --real_end - real_start, 129 | START_TIME "Begin Time", END_TIME "End Time", 130 | trunc(real_end - real_start) days, 131 | trunc(24*mod(real_end - real_start,1)) as hrs, 132 | trunc(mod(mod(real_end - real_start,1)*24,1)*60 ) as mins, 133 | trunc(mod(mod(mod(real_end - real_start,1)*24,1)*60, 1)*60) as seconds 134 | FROM t1 135 | WHERE PROCESS_INSTANCE = 10691980 136 | --AND SQLID IN ('CLEANUP3.UPD_PDS', 'INSPRT.DELETE', 'MN1200.LOCK') 137 | ORDER BY PROCESS_INSTANCE, SEQ_NBR ASC; 138 | -------------------------------------------------------------------------------- /SQLs/AllReports_Navigation.sql: -------------------------------------------------------------------------------- 1 | --Version 4 2 | --UNION ALL both Processes and PSJobs 3 | SELECT N.NAVIGATION, ' ' AS PRCSJOBNAME, PRCS.PRCSNAME, PRCS.PRCSTYPE, PRCS.DESCR, PORTAL_DESC 4 | FROM ( 5 | SELECT SYS_CONNECT_BY_PATH(A.PORTAL_LABEL ,'->') NAVIGATION, '/EMPLOYEE/ERP/C/' || PORTAL_URI_SEG1 || '.' || PORTAL_URI_SEG2 || '.' || PORTAL_URI_SEG3 URL, 6 | PORTAL_URI_SEG2 AS PORTAL_PNLGRPNAME, PORTAL_DESC , PORTAL_URLTEXT 7 | FROM ( 8 | SELECT DISTINCT A.PORTAL_NAME, A.PORTAL_LABEL, A.PORTAL_OBJNAME, A.PORTAL_PRNTOBJNAME, A.DESCR254 AS PORTAL_DESC, A.PORTAL_URI_SEG1, A.PORTAL_URI_SEG2, 9 | A.PORTAL_URI_SEG3, A.PORTAL_REFTYPE, PORTAL_URLTEXT 10 | FROM PSPRSMDEFN A WHERE PORTAL_NAME = 'EMPLOYEE' AND PORTAL_OBJNAME <> PORTAL_PRNTOBJNAME) A 11 | START WITH A.PORTAL_PRNTOBJNAME = 'PORTAL_ROOT_OBJECT' 12 | CONNECT BY PRIOR A.PORTAL_OBJNAME = A.PORTAL_PRNTOBJNAME) N, PS_PRCSDEFNPNL PR, PS_PRCSDEFN PRCS 13 | WHERE PORTAL_PNLGRPNAME = PR.PNLGRPNAME 14 | AND PRCS.PRCSNAME = PR.PRCSNAME 15 | AND PRCS.PRCSTYPE = PR.PRCSTYPE 16 | --AND PRCS.PRCSNAME IN ('APY2100-', 'APY2101-', 'PVY2000-', 'PORC700', 'APS8001-', 'APS8001J') 17 | --AND UPPER(NAVIGATION) LIKE UPPER('%PeopleTools%') 18 | AND UPPER(N.NAVIGATION) NOT LIKE '%PORTAL%OBJECTS%' 19 | UNION ALL 20 | SELECT N.NAVIGATION, PR.PRCSJOBNAME, PRCS.PRCSNAME, PRCS.PRCSTYPE, PRCS.DESCR, PORTAL_DESC 21 | FROM ( 22 | SELECT SYS_CONNECT_BY_PATH(A.PORTAL_LABEL ,'->') NAVIGATION, '/EMPLOYEE/ERP/C/' || PORTAL_URI_SEG1 || '.' || PORTAL_URI_SEG2 || '.' || PORTAL_URI_SEG3 URL, 23 | PORTAL_URI_SEG2 AS PORTAL_PNLGRPNAME, PORTAL_DESC , PORTAL_URLTEXT 24 | FROM ( 25 | SELECT DISTINCT A.PORTAL_NAME, A.PORTAL_LABEL, A.PORTAL_OBJNAME, A.PORTAL_PRNTOBJNAME, A.DESCR254 AS PORTAL_DESC, A.PORTAL_URI_SEG1, A.PORTAL_URI_SEG2, 26 | A.PORTAL_URI_SEG3, A.PORTAL_REFTYPE, PORTAL_URLTEXT 27 | FROM PSPRSMDEFN A WHERE PORTAL_NAME = 'EMPLOYEE' AND PORTAL_OBJNAME <> PORTAL_PRNTOBJNAME) A 28 | START WITH A.PORTAL_PRNTOBJNAME = 'PORTAL_ROOT_OBJECT' CONNECT BY PRIOR A.PORTAL_OBJNAME = A.PORTAL_PRNTOBJNAME) N, 29 | PS_PRCSJOBPNL PR, PS_PRCSDEFN PRCS, PS_PRCSJOBITEM PRJ 30 | WHERE PORTAL_PNLGRPNAME = PR.PNLGRPNAME 31 | AND PR.PRCSJOBNAME = PRJ.PRCSJOBNAME 32 | AND PRCS.PRCSNAME = PRJ.PRCSNAME 33 | AND PRCS.PRCSTYPE = PRJ.PRCSTYPE 34 | --AND PRCS.PRCSNAME IN ('APY2100-', 'APY2101-', 'PVY2000-', 'PORC700', 'APS8001-', 'APS8001J') 35 | --AND UPPER(NAVIGATION) LIKE UPPER('%PeopleTools%') 36 | AND UPPER(N.NAVIGATION) NOT LIKE '%PORTAL%OBJECTS%'; 37 | -------------------------------------------------------------------------------- /SQLs/AssetRetirementReport.sql: -------------------------------------------------------------------------------- 1 | --UNU AM Retirement Report 2 | --Trimmed Version based on 9.2 SQR AMRT2100 3 | --Version 2 4 | --Added XLAT 5 | --Added CoA 6 | --Added PROFILE_ID based on HM's email - 13July2015 7 | SELECT DISTINCT R.BUSINESS_UNIT, R.BOOK, B.FINANCIAL_ASSET_SW "Capitalized Asset", R.ASSET_ID, B.DESCR, B.PROFILE_ID, 8 | TO_CHAR(CAST((R.DTTM_STAMP) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF') AS DTTM_STAMP, 9 | TO_CHAR(R.RETIREMENT_DT, 'YYYY-MM-DD') AS RETIREMENT_DT, TO_DATE('1901-01-01','YYYY-MM-DD') AS TRANS_DT, R.ACCOUNTING_DT, R.CONVENTION, TO_CHAR(R.END_DEPR_DT, 'YYYY-MM-DD') AS END_DEPR_DT, 10 | R.DISPOSAL_CODE, X1.XLATLONGNAME AS DISPOSAL_CD_DESCR, R.RETIREMENT_TYPE, X2.XLATLONGNAME AS RETIREMENT_TYPE_DESCR, R.RETIREMENT_STATUS, X3.XLATLONGNAME AS RETIREMENT_STS_DESCR, 11 | R.REFERENCE, R.QUANTITY, R.RETIREMENT_AMT, R.RETIREMENT_RSV, R.GAIN_LOSS, ACQ.CURRENCY_CD AS ACQ_CURR_CD, ACQ.AMOUNT AS ACQ_AMT, ACQ.TXN_CURRENCY_CD AS ACQ_TXN_CURR_CD, ACQ.TXN_AMOUNT AS ACQ_TXN_AMT, 12 | R.TXN_CURRENCY_CD, R.FROM_CUR, R.RETIREMENT_PCT, R.FULLY_DEPR_SW, R.IN_SERVICE_PDS, 13 | DECODE(C.OPERATING_UNIT, '', ACQ.OPERATING_UNIT, C.OPERATING_UNIT) OPERATING_UNIT, 14 | DECODE(C.FUND_CODE,'', ACQ.FUND_CODE, C.FUND_CODE) FUND_CODE, 15 | DECODE(C.DEPTID, '', ACQ.DEPTID, C.DEPTID) DEPTID, 16 | DECODE(C.CHARTFIELD2, '', ACQ.CHARTFIELD2, C.CHARTFIELD2) CHARTFIELD2, 17 | DECODE(C.PROJECT_ID, '', ACQ.PROJECT_ID, C.PROJECT_ID) PROJECT_ID, 18 | ASD.CUSTODIAN, ASD.OPERATING_UNIT AS CUST_OP_UNIT, ASD.FUND_CODE AS CUST_FUND_CODE, ASD.DEPTID AS CUST_DEPTID, ASD.CHARTFIELD2 AS CUST_DONOR, ASD.PROJECT_ID AS CUST_PROJECT_ID 19 | FROM (((((((PS_RETIREMENT R LEFT OUTER JOIN PS_COST C ON R.BUSINESS_UNIT = C.BUSINESS_UNIT AND R.ASSET_ID = C.ASSET_ID AND R.BOOK = C.BOOK AND R.DTTM_STAMP = C.DTTM_STAMP) 20 | LEFT OUTER JOIN PS_ASSET_ACQ_DET ACQ ON R.BUSINESS_UNIT = ACQ.BUSINESS_UNIT AND R.ASSET_ID = ACQ.ASSET_ID) 21 | LEFT OUTER JOIN PS_UN_OAPR_COST_CF C ON R.BUSINESS_UNIT = C.BUSINESS_UNIT AND R.ASSET_ID = C.ASSET_ID) 22 | LEFT OUTER JOIN PS_ASSET_CUSTODIAN ASD ON R.BUSINESS_UNIT = ASD.BUSINESS_UNIT AND R.ASSET_ID = ASD.ASSET_ID) 23 | LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'DISPOSAL_CODE' AND X1.FIELDVALUE = R.DISPOSAL_CODE AND X1.EFF_STATUS = 'A') 24 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'RETIREMENT_TYPE' AND X2.FIELDVALUE = R.RETIREMENT_TYPE AND X2.EFF_STATUS = 'A') 25 | LEFT OUTER JOIN PSXLATITEM X3 ON X3.FIELDNAME = 'RETIREMENT_STATUS' AND X3.FIELDVALUE = R.RETIREMENT_STATUS AND X3.EFF_STATUS = 'A'), PS_ASSET B 26 | WHERE R.BUSINESS_UNIT = B.BUSINESS_UNIT 27 | AND R.ASSET_ID = B.ASSET_ID 28 | AND (ASD.EFFDT = (SELECT MAX(EFFDT) FROM PS_ASSET_CUSTODIAN A_ASD WHERE ASD.BUSINESS_UNIT = A_ASD.BUSINESS_UNIT AND ASD.ASSET_ID = A_ASD.ASSET_ID AND A_ASD.EFFDT <= SYSDATE) 29 | OR ASD.EFFDT IS NULL) 30 | AND (ASD.EFFSEQ = (SELECT MAX(ASD_ED.EFFSEQ) FROM PS_ASSET_CUSTODIAN ASD_ED WHERE ASD.BUSINESS_UNIT = ASD_ED.BUSINESS_UNIT AND ASD.ASSET_ID = ASD_ED.ASSET_ID AND ASD.EFFDT = ASD_ED.EFFDT) 31 | OR ASD.EFFSEQ IS NULL) 32 | AND R.BUSINESS_UNIT = 'UNUNI' 33 | --AND C.AM_PHY_TXN_SW <> 'Y' 34 | UNION 35 | SELECT DISTINCT R.BUSINESS_UNIT, R.BOOK, B.FINANCIAL_ASSET_SW, R.ASSET_ID, B.DESCR, B.PROFILE_ID, 36 | TO_CHAR(CAST((R.DTTM_STAMP) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF') AS DTTM_STAMP, TO_CHAR(R.RETIREMENT_DT, 'YYYY-MM-DD') AS RETIREMENT_DT, 37 | R.TRANS_DT, TO_DATE('1901-01-01','YYYY-MM-DD') AS ACCOUNTING_DT, R.CONVENTION, TO_CHAR(R.END_DEPR_DT, 'YYYY-MM-DD') AS END_DEPR_DT, 38 | R.DISPOSAL_CODE, X1.XLATLONGNAME AS DISPOSAL_CD_DESCR, R.RETIREMENT_TYPE, X2.XLATLONGNAME AS RETIREMENT_TYPE_DESCR, R.RETIREMENT_STATUS, X3.XLATLONGNAME AS RETIREMENT_STS_DESCR, 39 | R.REFERENCE, R.QUANTITY, R.RETIREMENT_AMT, R.RETIREMENT_RSV, R.GAIN_LOSS, ACQ.CURRENCY_CD AS ACQ_CURR_CD, ACQ.AMOUNT AS ACQ_AMT, ACQ.TXN_CURRENCY_CD AS ACQ_TXN_CURR_CD, ACQ.TXN_AMOUNT AS ACQ_TXN_AMT, 40 | ' ', R.FROM_CUR, R.RETIREMENT_PCT, R.FULLY_DEPR_SW, 0.00, 41 | ACQ.OPERATING_UNIT, ACQ.FUND_CODE, ACQ.DEPTID, ACQ.CHARTFIELD2, ACQ.PROJECT_ID, 42 | ASD.CUSTODIAN, ASD.OPERATING_UNIT AS CUST_OP_UNIT, ASD.FUND_CODE AS CUST_FUND_CODE, ASD.DEPTID AS CUST_DEPTID, ASD.CHARTFIELD2 AS CUST_DONOR, ASD.PROJECT_ID AS CUST_PROJECT_ID 43 | FROM (((((PS_RETIREMENT_NF R LEFT OUTER JOIN PS_ASSET_ACQ_DET ACQ ON R.BUSINESS_UNIT = ACQ.BUSINESS_UNIT AND R.ASSET_ID = ACQ.ASSET_ID) 44 | LEFT OUTER JOIN PS_ASSET_CUSTODIAN ASD ON R.BUSINESS_UNIT = ASD.BUSINESS_UNIT AND R.ASSET_ID = ASD.ASSET_ID) 45 | LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'DISPOSAL_CODE' AND X1.FIELDVALUE = R.DISPOSAL_CODE AND X1.EFF_STATUS = 'A') 46 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'RETIREMENT_TYPE' AND X2.FIELDVALUE = R.RETIREMENT_TYPE AND X2.EFF_STATUS = 'A') 47 | LEFT OUTER JOIN PSXLATITEM X3 ON X3.FIELDNAME = 'RETIREMENT_STATUS' AND X3.FIELDVALUE = R.RETIREMENT_STATUS AND X3.EFF_STATUS = 'A'), PS_ASSET B 48 | WHERE R.BUSINESS_UNIT = B.BUSINESS_UNIT 49 | AND R.ASSET_ID = B.ASSET_ID 50 | AND (ASD.EFFDT = (SELECT MAX(EFFDT) FROM PS_ASSET_CUSTODIAN A_ASD WHERE ASD.BUSINESS_UNIT = A_ASD.BUSINESS_UNIT AND ASD.ASSET_ID = A_ASD.ASSET_ID AND A_ASD.EFFDT <= SYSDATE) 51 | OR ASD.EFFDT IS NULL) 52 | AND (ASD.EFFSEQ = (SELECT MAX(ASD_ED.EFFSEQ) FROM PS_ASSET_CUSTODIAN ASD_ED WHERE ASD.BUSINESS_UNIT = ASD_ED.BUSINESS_UNIT AND ASD.ASSET_ID = ASD_ED.ASSET_ID AND ASD.EFFDT = ASD_ED.EFFDT) 53 | OR ASD.EFFSEQ IS NULL) 54 | AND R.BUSINESS_UNIT = 'UNUNI' 55 | ORDER BY DTTM_STAMP DESC, BUSINESS_UNIT, ASSET_ID, BOOK, RETIREMENT_DT; 56 | -------------------------------------------------------------------------------- /SQLs/Check_Banking.sql: -------------------------------------------------------------------------------- 1 | --Bank Statements 2 | --Yearly Aggregation 3 | --More detail and easier to interpret 4 | SELECT X.BANK_CD, X.DESCR, X.COUNTRY, X.BANK_ACCT_KEY, X.BNK_ID_NBR, X.BANK_ACCOUNT_NUM, X.BANK_ACCT_DESCR, X.CURRENCY_CD, X.VALUE_YEAR, X.VALUE_MONTH, 5 | SUM(X.OPENING_LEDGER) AS "OPENING LEDGER", SUM(X.CLOSING_LEDGER) "CLOSING LEDGER" 6 | FROM 7 | ( 8 | SELECT B.BANK_CD, B.DESCR, B.COUNTRY, C.BANK_ACCT_KEY, A.BNK_ID_NBR, A.BANK_ACCOUNT_NUM, C.DESCR AS BANK_ACCT_DESCR, A.CURRENCY_CD, 9 | TO_CHAR(A.VALUE_DT, 'YYYY') AS VALUE_YEAR, TO_CHAR(A.VALUE_DT, 'MM') AS VALUE_MONTH, COUNT(1), SUM(A.BALANCE) AS BALANCE 10 | , CASE A.BANK_STMT_CODE WHEN '010' THEN SUM(A.BALANCE) ELSE 0 END AS "OPENING_LEDGER" 11 | , CASE A.BANK_STMT_CODE WHEN '015' THEN SUM(A.BALANCE) ELSE 0 END AS "CLOSING_LEDGER" 12 | FROM PS_BANK_BALANCES A, PS_BANK_CD_TBL B, PS_BANK_ACCT_DEFN C 13 | WHERE B.SETID = 'SHARE' 14 | AND A.BNK_ID_NBR = B.BNK_ID_NBR 15 | AND B.SETID = C.SETID 16 | AND B.BANK_CD = C.BANK_CD 17 | AND A.BANK_ACCOUNT_NUM = C.BANK_ACCOUNT_NUM 18 | AND B.BANK_CD LIKE '6%' 19 | --AND B.BANK_CD = '60001' 20 | AND TO_CHAR(A.VALUE_DT, 'YYYY') >= '2015' 21 | GROUP BY B.BANK_CD, B.DESCR, B.COUNTRY, C.BANK_ACCT_KEY, A.BNK_ID_NBR, A.BANK_ACCOUNT_NUM, C.DESCR, A.CURRENCY_CD, A.BANK_STMT_CODE, TO_CHAR(A.VALUE_DT, 'YYYY'), TO_CHAR(A.VALUE_DT, 'MM') 22 | ) X 23 | GROUP BY X.BANK_CD, X.DESCR, X.COUNTRY, X.BANK_ACCT_KEY, X.BNK_ID_NBR, X.BANK_ACCOUNT_NUM, X.BANK_ACCT_DESCR, X.CURRENCY_CD, X.VALUE_YEAR, X.VALUE_MONTH 24 | ORDER BY X.BANK_CD, X.VALUE_YEAR DESC, X.VALUE_MONTH DESC; 25 | --Trying to see if the numbers can somehow be reconciled with PAYMENT_TBL 26 | --Numbers tie 27 | --Creation Date and Payment Date need to check 28 | SELECT BANK_NAME, COUNTRY_NAME, BANK_ACCOUNT_NUM, PAY_CYCLE, TO_CHAR(PYMNT_DT, 'YYYY') AS "YEAR", SUM(PYMNT_AMT) AS "PYMNT_AMT", CURRENCY_CD 29 | FROM PS_EFT_BANK_TMP 30 | WHERE BNK_ID_NBR IN (SELECT BNK_ID_NBR FROM PS_BANK_CD_TBL WHERE SETID = 'SHARE' AND BANK_CD LIKE '6%') 31 | AND TO_CHAR(PYMNT_DT, 'YYYY') >= '2015' 32 | GROUP BY BANK_NAME, COUNTRY_NAME, BANK_ACCOUNT_NUM, PAY_CYCLE, TO_CHAR(PYMNT_DT, 'YYYY'), CURRENCY_CD 33 | ORDER BY TO_CHAR(PYMNT_DT, 'YYYY') DESC, BANK_NAME, COUNTRY_NAME, BANK_ACCOUNT_NUM, PAY_CYCLE; 34 | --Stats from PAYMENT_TBL 35 | --Numbers tie with EFT_BANK_TMP 36 | SELECT PY.BANK_CD, BCD.DESCR AS BANK_CD_DESCR, BCD.BANK_ID_QUAL, BCD.COUNTRY, BAD.BANK_ACCT_KEY, PY.BANK_ACCOUNT_NUM, BAD.DESCR AS BANK_ACCT_NUM_DESCR, 37 | PY.PAY_CYCLE, PY.PYMNT_METHOD, PY.PYMNT_HANDLING_CD, PY.EFT_PYMNT_FMT_CD, PY.EFT_TRANS_HANDLING, X2.XLATLONGNAME AS EFT_TANS_CD, PY.PYMNT_TYPE, PY.SOURCE_TXN, PY.PREFERRED_LANGUAGE, PY.EFT_LAYOUT_CD, 38 | PY.STL_THROUGH, X1.XLATLONGNAME AS SETTLED_BY, TO_CHAR(PY.PYMNT_DT, 'YYYY') AS "YEAR", SUM(PY.PYMNT_AMT) AS "PYMNT_AMT", PY.CURRENCY_PYMNT 39 | FROM ((((PS_PAYMENT_TBL PY LEFT OUTER JOIN PS_BANK_CD_TBL BCD ON PY.BANK_SETID = BCD.SETID AND PY.BANK_CD = BCD.BANK_CD) 40 | LEFT OUTER JOIN PS_BANK_ACCT_DEFN BAD ON BCD.SETID = BAD.SETID AND BCD.BANK_CD = BAD.BANK_CD AND PY.BANK_ACCT_KEY = BAD.BANK_ACCT_KEY) 41 | LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'STL_THROUGH' AND X1.FIELDVALUE = PY.STL_THROUGH AND X1.EFF_STATUS = 'A') 42 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'EFT_TRANS_HANDLING' AND X2.FIELDVALUE = PY.EFT_TRANS_HANDLING AND X2.EFF_STATUS = 'A') 43 | WHERE PY.BANK_SETID = 'SHARE' 44 | AND PY.BANK_CD LIKE '6%' 45 | AND TO_CHAR(PY.PYMNT_DT, 'YYYY') >= '2015' 46 | GROUP BY PY.BANK_CD, BCD.DESCR, BCD.BANK_ID_QUAL, BCD.COUNTRY, BAD.BANK_ACCT_KEY, PY.BANK_ACCOUNT_NUM, BAD.DESCR, 47 | PY.PAY_CYCLE, PY.PYMNT_METHOD, PY.PYMNT_HANDLING_CD, PY.EFT_PYMNT_FMT_CD, PY.EFT_TRANS_HANDLING, X2.XLATLONGNAME, PY.PYMNT_TYPE, PY.SOURCE_TXN, PY.PREFERRED_LANGUAGE, 48 | PY.EFT_LAYOUT_CD, PY.STL_THROUGH, X1.XLATLONGNAME, TO_CHAR(PY.PYMNT_DT, 'YYYY'), PY.CURRENCY_PYMNT 49 | ORDER BY TO_CHAR(PY.PYMNT_DT, 'YYYY') DESC, PY.BANK_CD, BAD.BANK_ACCT_KEY, PY.BANK_ACCOUNT_NUM, PY.PAY_CYCLE; 50 | -------------------------------------------------------------------------------- /SQLs/Check_COMBOEdits.sql: -------------------------------------------------------------------------------- 1 | --COMBO Edit Checks 2 | --Budgets CC Combo Edit Template 3 | SELECT 'BUDGETS_CC_COMBO', A.* FROM PS_TSE_BD_KK_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 4 | --Combo Template for Journals 5 | SELECT 'JOURNALS_COMBO', A.* FROM PS_TSE_JLNE_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 6 | --Voucher Edit Template 7 | SELECT 'VCHR_EDIT_COMBO', A.* FROM PS_TSE_ACCTLN_FLD A WHERE BUSINESS_UNIT LIKE '6%' ORDER BY TSE_PROC_INSTANCE DESC; 8 | --AR Combo Edit Template 9 | SELECT 'AR_EDIT_COMBO', A.* FROM PS_TSE_AR_LN_FLD A WHERE (GROUP_BU LIKE '6%' OR BUSINESS_UNIT LIKE '6%') ORDER BY TSE_PROC_INSTANCE DESC; 10 | --Combo Template for Billing 11 | SELECT 'BILLING_COMBO', A.* FROM PS_TSE_BICOMBO_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 12 | --Template for F&A Accounting 13 | SELECT 'FnA_ACCTG_COMBO', A.* FROM PS_TSE_GM_LINE_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 14 | --Purchase Order Batch Creation 15 | SELECT 'PO_BATCH_CREATION', A.* FROM PS_TSE_PO_LN_FLD A WHERE BUSINESS_UNIT LIKE '6%' ORDER BY TSE_PROC_INSTANCE DESC; 16 | --Template for Projects Acctg 17 | SELECT 'PROJECT_ACCTG', A.* FROM PS_TSE_PC_LINE_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 18 | --Projects Interface Template 19 | SELECT 'PROJECT_INTFC', A.* FROM PS_TSE_PC_LINE_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 20 | --Contract Transactions 21 | SELECT 'CONTRACTS', A.* FROM PS_TSE_CA_LINE_FLD A ORDER BY TSE_PROC_INSTANCE DESC; 22 | --Requisition Batch Creation 23 | SELECT 'REQ_BATCH_CREATION', A.* FROM PS_TSE_REQ_LN_FLD A ORDER BY TSE_PROC_INSTANCE DESC; 24 | -------------------------------------------------------------------------------- /SQLs/Check_DocumentsStuck.sql: -------------------------------------------------------------------------------- 1 | --Req's Stuck in Batch 2 | SELECT A.BUSINESS_UNIT, A.REQ_ID, A.REQUESTOR_ID, A.OPRID_ENTERED_BY, A.OPRID_MODIFIED_BY, B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM FROM PS_REQ_HDR A, PSPRCSRQST B, PSXLATITEM C WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE (+) AND C.FIELDNAME = 'RUNSTATUS' AND C.FIELDVALUE = RUNSTATUS AND A.IN_PROCESS_FLG = 'Y' AND A.BUSINESS_UNIT LIKE '6%'; 3 | --PO's Stuck in Batch 4 | SELECT 'POs_Stuck_in_Batch', A.BUSINESS_UNIT, A.PO_ID, A.VENDOR_ID, A.BUYER_ID, B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM FROM PS_PO_HDR A, PSPRCSRQST B, PSXLATITEM C WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) AND C.FIELDNAME = 'RUNSTATUS' AND C.FIELDVALUE = RUNSTATUS AND A.IN_PROCESS_FLG = 'Y' AND A.BUSINESS_UNIT LIKE '6%'; 5 | --Vouchers Stuck in Batch 6 | SELECT 'Vouchers_Stuck_in_Batch', A.BUSINESS_UNIT, A.VOUCHER_ID, A.VENDOR_ID, B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM FROM PS_VOUCHER A, PSPRCSRQST B, PSXLATITEM C WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) AND C.FIELDNAME = 'RUNSTATUS' AND C.FIELDVALUE = RUNSTATUS AND A.IN_PROCESS_FLG = 'Y' AND A.BUSINESS_UNIT LIKE '6%'; 7 | --UN Mass Approved and Budget Check 8 | SELECT * FROM PS_UN_APPBCHK_RUN A WHERE BUSINESS_UNIT LIKE '6%' AND EXISTS (SELECT 'X' FROM PS_VOUCHER V WHERE V.BUSINESS_UNIT = A.BUSINESS_UNIT AND A.VOUCHER_ID = V.VOUCHER_ID AND V.BUSINESS_UNIT LIKE '6%' AND APPR_STATUS <> 'A'); 9 | --Payments Stuck in Batch 10 | SELECT A.BANK_SETID, A.BANK_CD, A.PYMNT_ID, A.PYMNT_ID_REF, A.REMIT_VENDOR, NAME1, A.PYMNT_DT, A.PAY_CYCLE, B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM FROM PS_PAYMENT_TBL A, PSPRCSRQST B, PSXLATITEM C WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE (+) AND C.FIELDNAME = 'RUNSTATUS' AND C.FIELDVALUE = RUNSTATUS AND A.IN_PROCESS_FLG = 'Y' AND A.REMIT_SETID = 'UNUNI'; 11 | --Documents Stuck in KK 12 | SELECT 'Documents_Stuck_in_KK', BUSINESS_UNIT, KK_PROCESS_STATUS, DEPOSIT_ID, INTFC_ID, INVOICE, JOURNAL_ID, PO_ID, REQ_ID, VOUCHER_ID, RECEIVER_ID, KK_PROC_INSTANCE, COUNT (1) FROM PS_KK_SOURCE_HDR WHERE (BUSINESS_UNIT LIKE '6%' OR BUSINESS_UNIT = 'UNUNI') AND KK_PROCESS_STATUS = 'I' AND TO_CHAR (KK_TRAN_DT, 'YYYY') > '2009' GROUP BY BUSINESS_UNIT, KK_PROCESS_STATUS, DEPOSIT_ID, INTFC_ID, INVOICE, JOURNAL_ID, PO_ID, REQ_ID, VOUCHER_ID, RECEIVER_ID, KK_PROC_INSTANCE ORDER BY 1, 2; 13 | --UN Budget Unlock 14 | SELECT H.KK_TRAN_ID, H.KK_TRAN_DT, H.KK_SOURCE_TRAN, H.SEQUENCE_NBR_9, H.KK_PROCESS_STATUS, H.KK_PROC_INSTANCE, H.BUSINESS_UNIT, H.KEYLIST FROM PS_KK_SOURCE_HDR H WHERE (BUSINESS_UNIT LIKE '6%' OR BUSINESS_UNIT = 'UNUNI') AND H.KK_PROCESS_STATUS = 'I' AND H.KK_PROC_INSTANCE IN ( SELECT /*+ FULL(B) PARALLEL(20) */ B.PRCSINSTANCE FROM PSPRCSRQST B WHERE B.RUNSTATUS <> '7'); 15 | --Receipts Stuck in Batch 16 | --For receipts need to check both (MATCH_PROCESS_FLG = I) and (IN_PROCESS_FLG = Y) 17 | SELECT 'Receipts_Stuck_in_Batch', A.BUSINESS_UNIT, A.RECEIVER_ID, A.INVOICE_ID, A.MATCH_PROCESS_FLG, A.IN_PROCESS_FLG, A.OPRID, A.RECEIPT_DT, A.SETID, A.VENDOR_ID, B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM FROM PS_RECV_HDR A, PSPRCSRQST B, PSXLATITEM C WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) AND C.FIELDNAME = 'RUNSTATUS' AND C.FIELDVALUE = RUNSTATUS AND (A.IN_PROCESS_FLG = 'Y' OR A.MATCH_PROCESS_FLG = 'I') AND A.BUSINESS_UNIT LIKE '6%'; 18 | --UNU PO sourcing status 19 | SELECT A.PROCESS_INSTANCE, A.STAGE_STATUS, A.BUSINESS_UNIT, A.PO_STG_TYPE, A.PO_STG_ID, A.LINE_NBR, A.SCHED_NBR, A.BUYER_ID, A.CNTRCT_ID, 20 | A.CNTRCT_LINE_NBR, A.CNTRCT_SETID, A.CURRENCY_CD, A.CURRENCY_CD_BASE, 21 | TO_CHAR(CAST((A.DATETIME_MODIFIED) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF'), TO_CHAR(A.DUE_DT,'YYYY-MM-DD'), 22 | A.ITM_ID_VNDR, A.ITM_SETID, A.OPRID, A.PO_ID, A.PO_LINE_NBR, A.PO_PROCESS_ID, A.VENDOR_ID, A.VENDOR_SETID, 23 | A.MERCHANDISE_AMT, A.MESSAGE_SET_NBR, A.MESSAGE_NBR, B.MESSAGE_TEXT, B.DESCRLONG 24 | FROM PS_PO_ITM_STG A, PSMSGCATDEFN B 25 | WHERE A.BUSINESS_UNIT LIKE '6%' 26 | AND A.MESSAGE_SET_NBR = B.MESSAGE_SET_NBR (+) 27 | AND A.MESSAGE_NBR = B.MESSAGE_NBR (+) 28 | --AND A.STAGE_STATUS IN ('B','E','I','N','P','S','V') 29 | AND A.STAGE_STATUS <> 'C' 30 | ORDER BY 1 DESC; 31 | --Budget Journals Stuck in Batch 32 | SELECT 'Budget_Journals_Stuck', A.BUSINESS_UNIT, A.JOURNAL_ID, A.JOURNAL_DATE, A.LEDGER_GROUP, 33 | B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM 34 | FROM PS_KK_BUDGET_HDR A, PSPRCSRQST B, PSXLATITEM C 35 | WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) 36 | AND C.FIELDNAME = 'RUNSTATUS' 37 | AND C.FIELDVALUE = RUNSTATUS 38 | AND A.BUSINESS_UNIT = 'UNUNI' 39 | AND A.IN_PROCESS_FLG = 'Y' 40 | ORDER BY 2,3; 41 | --AR Items Stuck in Batch 42 | SELECT 'AR_ITEMS_Stuck', A.BUSINESS_UNIT, A.CUST_ID, A.ITEM, A.LEDGER_GROUP, 43 | B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM 44 | FROM PS_ITEM_DST A, PSPRCSRQST B, PSXLATITEM C 45 | WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) 46 | AND C.FIELDNAME = 'RUNSTATUS' 47 | AND C.FIELDVALUE = RUNSTATUS 48 | AND A.BUSINESS_UNIT LIKE '6%' 49 | AND A.IN_PROCESS_FLG = 'Y' 50 | ORDER BY 2,3; 51 | --Contract Releases Stuck in Batch 52 | SELECT 'CNTRCT_RELEASE_Stuck', A.SETID, A.CNTRCT_ID, A.RELEASE_STATUS, A.BUYER_ID, 53 | B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM 54 | FROM PS_CNTRCT_RLS_HDR A, PSPRCSRQST B, PSXLATITEM C 55 | WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) 56 | AND C.FIELDNAME = 'RUNSTATUS' 57 | AND C.FIELDVALUE = RUNSTATUS 58 | AND A.SETID LIKE '6%' 59 | AND (A.IN_PROCESS_FLG = 'Y' OR RELEASE_STATUS <> 'C') 60 | ORDER BY 2,3; 61 | --DEPOSIT IDs Stuck in Batch 62 | SELECT 'DEPOSITIDs_Stuck', A.DEPOSIT_BU, A.DEPOSIT_ID, A.PAYMENT_SEQ_NUM, A.DST_SEQ_NUM, 63 | B.PRCSNAME, B.PRCSINSTANCE, B.OPRID, B.RUNCNTLID, C.XLATLONGNAME AS RUNSTATUS_DESC, B.RUNDTTM 64 | FROM PS_PAY_MISC_DST A, PSPRCSRQST B, PSXLATITEM C 65 | WHERE A.PROCESS_INSTANCE = B.PRCSINSTANCE(+) 66 | AND C.FIELDNAME = 'RUNSTATUS' 67 | AND C.FIELDVALUE = RUNSTATUS 68 | AND A.DEPOSIT_BU LIKE '6%' 69 | AND A.IN_PROCESS_FLG = 'Y' 70 | ORDER BY 2,3; 71 | -------------------------------------------------------------------------------- /SQLs/Check_GL.sql: -------------------------------------------------------------------------------- 1 | -----------------GL 2 | --Check Journal Status for fiscal years 2013 and beyond 3 | SELECT JRNL_HDR_STATUS, SOURCE, TO_CHAR(JOURNAL_DATE, 'YYYY') AS JRNL_DT, COUNT(1) 4 | FROM PS_JRNL_HEADER 5 | WHERE BUSINESS_UNIT = 'UNUNI' 6 | AND TO_CHAR(JOURNAL_DATE, 'YYYY') > 2012 7 | GROUP BY JRNL_HDR_STATUS, SOURCE, TO_CHAR(JOURNAL_DATE, 'YYYY') ORDER BY 1,2; 8 | --UNU_GL_PAYROLL_JOURNAL_STATUS 9 | SELECT A.BUSINESS_UNIT_IU, A.JOURNAL_ID, TO_CHAR(A.JOURNAL_DATE,'YYYY-MM-DD') AS JOURNAL_DT, A.UNPOST_SEQ, A.BUSINESS_UNIT, A.TRANS_REF_NUM, A.JRNL_HDR_STATUS, A.BUDGET_HDR_STATUS, A.DESCR254, 10 | TO_CHAR(CAST((A.JRNL_CREATE_DTTM) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF') AS JRNL_CREATE_DTTM, 11 | TO_CHAR(CAST((A.DTTM_STAMP_SEC) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF') AS DTTM_STAMP, 12 | TO_CHAR(A.POSTED_DATE,'YYYY-MM-DD') AS POSTED_DT, A.PROCESS_INSTANCE 13 | FROM PS_JRNL_HEADER A 14 | WHERE A.BUSINESS_UNIT = 'UNUNI' 15 | AND A.SOURCE = 'GP' 16 | AND TO_CHAR(A.JOURNAL_DATE,'YYYY') > 2012 17 | ORDER BY 1, 2, 3, 4, 5; 18 | --Locked Journals 19 | SELECT * FROM PS_JRNL_EDIT_LOG; 20 | --LOCKED_JOURNAL flag in PS_JRNL_HEADER for UNUNI 21 | SELECT 'LOCKED_JOURNALS', A.* FROM PS_JRNL_HEADER A WHERE BUSINESS_UNIT = 'UNUNI' AND JOURNAL_LOCKED = 'Y'; 22 | --Check locked journal across all journal sources 23 | SELECT JOURNAL_LOCKED, SOURCE, COUNT(1) FROM PS_JRNL_HEADER A WHERE BUSINESS_UNIT = 'UNUNI' GROUP BY JOURNAL_LOCKED, SOURCE ORDER BY 1,2; 24 | --Reversal entries 25 | SELECT FISCAL_YEAR, ACCOUNTING_PERIOD, SOURCE, COUNT(1) FROM PS_JRNL_HEADER 26 | WHERE BUSINESS_UNIT = 'UNUNI' 27 | AND REVERSAL_CD <> 'N' 28 | GROUP BY FISCAL_YEAR, ACCOUNTING_PERIOD, SOURCE 29 | ORDER BY 1,2,3; 30 | --Journals with Status N, E & V 31 | SELECT DISTINCT JOURNAL_ID, BUSINESS_UNIT_IU, JOURNAL_DATE, LEDGER_GROUP, SOURCE, SYSTEM_SOURCE, OPRID, PROC_PART_ID, 32 | JRNL_HDR_STATUS, DESCR, PROCESS_INSTANCE, KK_AMOUNT_TYPE, DTTM_STAMP_SEC 33 | FROM PS_JRNL_HEADER 34 | WHERE BUSINESS_UNIT = 'UNUNI' 35 | AND JRNL_HDR_STATUS IN ('N','E','V') 36 | ORDER BY JOURNAL_DATE DESC; 37 | --TSE Journal Header Field Log 38 | SELECT 'TSE_JRNL_HDR_LOG', A.* FROM PS_TSE_JHDR_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 39 | --TSE Journal Line Field Log 40 | SELECT 'TSE_JRNL_LINE_LOG', A.* FROM PS_TSE_JLNE_FLD A WHERE BUSINESS_UNIT = 'UNUNI' ORDER BY TSE_PROC_INSTANCE DESC; 41 | --GL Non Shared Table Maintenance 42 | SELECT TRUNC((CAST(Q.BEGINDTTM AS DATE) - CAST(Q.ENDDTTM AS DATE))*24*60) || ' minutes' AS DURATION_MINUTES, 43 | A.*, Q.PRCSTYPE, Q.PRCSNAME , Q.RUNDTTM, Q.RQSTDTTM, 44 | Q.LASTUPDDTTM, Q.BEGINDTTM, Q.ENDDTTM, Q.ORIGPRCSINSTANCE, Q.OPRID 45 | FROM PS_TEMP_TBL_ASGNM A, PSPRCSRQST Q 46 | WHERE A.PROCESS_INSTANCE = Q.PRCSINSTANCE (+) 47 | AND A.IN_USE_SW <> 'N'; 48 | --Find active processes which are using GL Non Shared Tables 49 | SELECT * FROM PSPRCSRQST WHERE PRCSINSTANCE IN (SELECT PROCESS_INSTANCE FROM PS_TEMP_TBL_ASGNM WHERE PROCESS_INSTANCE <> 0); 50 | --Number of times each base working table was shared by GL processes due to unavailability of non-shared instances YEAR wise 51 | --Version 2 52 | SELECT STS.TEMP_TBL_NAME "Shared Table", REC.RECDESCR, TO_CHAR(STS.DATE_ASSIGNED ,'YYYY') "YEAR", COUNT(1) "Shared Table Count" 53 | FROM PS_TEMP_TBL_STATS STS, PSRECDEFN REC 54 | WHERE STS.TEMP_TBL_NAME = REC.RECNAME (+) 55 | GROUP BY STS.TEMP_TBL_NAME, REC.RECDESCR, TO_CHAR(STS.DATE_ASSIGNED ,'YYYY') 56 | ORDER BY TO_CHAR(STS.DATE_ASSIGNED ,'YYYY'), STS.TEMP_TBL_NAME; 57 | --Version 1 58 | --WITHOUT PSRECDEFN 59 | SELECT TEMP_TBL_NAME "Shared Table", TO_CHAR(DATE_ASSIGNED ,'YYYY') "YEAR", COUNT(1) "Shared Table Count" 60 | FROM PS_TEMP_TBL_STATS 61 | GROUP BY TEMP_TBL_NAME, TO_CHAR(DATE_ASSIGNED ,'YYYY') 62 | ORDER BY TO_CHAR(DATE_ASSIGNED ,'YYYY'); 63 | --OPEN PERIOD DETAILS for UNU BUs 64 | --Need to ensure that GL is also listed 65 | SELECT OPN.PSFT_PRODUCT, OPN.BUSINESS_UNIT, OPN.LEDGER_GROUP, OPN.TRANSACTION_TYPE, TRAN.DESCR, OPN.LEDGER_CODE, OPN.GL_ADJUST_TYPE, OPN.CALENDAR_ID, 66 | OPN.OPEN_YEAR_FROM, OPN.OPEN_PERIOD_FROM, OPN.BEGIN_LAG_DAYS, OPN.OPEN_FROM_DATE, OPN.OPEN_YEAR_TO, OPN.OPEN_PERIOD_TO, OPN.END_LAG_DAYS, OPN.OPEN_TO_DATE 67 | FROM PS_TRANS_TYPE_TBL TRAN, (PS_FIN_OPEN_PERIOD OPN LEFT OUTER JOIN PS_FIN_BU_MAPPING MAP ON OPN.PSFT_PRODUCT = MAP.PSFT_PRODUCT 68 | AND OPN.BUSINESS_UNIT = MAP.BUSINESS_UNIT 69 | AND MAP.BUSINESS_UNIT_GL = 'UNUNI') 70 | WHERE OPN.PSFT_PRODUCT = TRAN.PSFT_PRODUCT 71 | AND OPN.TRANSACTION_TYPE = TRAN.TRANSACTION_TYPE 72 | AND OPN.LEDGER_GROUP = 'ACTUALS' 73 | AND (OPN.BUSINESS_UNIT LIKE '6%' OR OPN.BUSINESS_UNIT = 'UNUNI') 74 | ORDER BY OPN.PSFT_PRODUCT, OPN.BUSINESS_UNIT, OPN.LEDGER_GROUP, OPN.TRANSACTION_TYPE; 75 | --Journals other than POSTED for FY greater than and equal to 2014 76 | SELECT JOURNAL_ID, BUSINESS_UNIT_IU, JOURNAL_DATE, LEDGER_GROUP, SOURCE, SYSTEM_SOURCE, OPRID, PROC_PART_ID, 77 | JRNL_HDR_STATUS, DESCR, PROCESS_INSTANCE, KK_AMOUNT_TYPE, DTTM_STAMP_SEC 78 | FROM PS_JRNL_HEADER 79 | WHERE BUSINESS_UNIT = 'UNUNI' 80 | --AND JRNL_HDR_STATUS IN ('N','E','V') 81 | AND JRNL_HDR_STATUS <> 'P' 82 | AND TO_CHAR(JOURNAL_DATE, 'YYYY') >= '2014' 83 | ORDER BY JOURNAL_DATE DESC; 84 | -------------------------------------------------------------------------------- /SQLs/Check_Grants.sql: -------------------------------------------------------------------------------- 1 | --Review Commitment Control - PC Exceptions 2 | SELECT A.BUSINESS_UNIT, A.PROJECT_ID, A.RESOURCE_ID, A.PC_BUDGET_ID, B.PC_BUD_TYPE, B.DESCR, B.START_DT, B.CALENDAR_ID, B.NUM_PERIODS, 3 | B.PC_BUDGET_STATUS, B.ANALYSIS_TYPE, B.PC_FUND_FINALIZED, B.FINALIZE_SW, B.PROJECT_ID_TO, B.POST_OPTION, B.PC_SEND_TO_KK, B.LAST_DTTIME, 4 | B.FMS_DTTM_STAMP, B.FMS_OPRID, B.FMS_LASTUPDDTTM, B.FMS_LASTUPDOPRID, B.BUDGET_ADJUST, 5 | A.ANALYSIS_TYPE, A.INTFC_ID, A.PROCESS_INSTANCE, A.KK_DISTRIB_STATUS, A.PC_BUDGET_ITEM, KK_BUDG_LN_TYPE, BD_HDR_STATUS, GM_DISTRIB_STATUS, LOAD_STATUS, 6 | A.JOURNAL_ID, ACCOUNT, A.OPERATING_UNIT, A.FUND_CODE, A.DEPTID, A.CHARTFIELD2, 7 | A.MESSAGE_SET_NBR, A.MESSAGE_NBR, C.MESSAGE_TEXT 8 | FROM PS_INTFC_PROJ_RES A, PS_PC_BUD_PLAN B, PSMSGCATDEFN C 9 | WHERE A.KK_DISTRIB_STATUS IN ('E', 'S', 'B', 'C', 'N', ' ') 10 | AND A.BUSINESS_UNIT = B.BUSINESS_UNIT 11 | AND A.PROJECT_ID = B.PROJECT_ID 12 | AND (A.PC_BUDGET_ID = B.PC_BUDGET_ID OR A.PC_BUDGET_ID = 0) 13 | AND A.MESSAGE_SET_NBR = C.MESSAGE_SET_NBR (+) 14 | AND A.MESSAGE_NBR = C.MESSAGE_NBR (+) 15 | AND A.BUSINESS_UNIT = 'UNUNI' 16 | ORDER BY B.FMS_LASTUPDDTTM DESC; 17 | --FURTHER DRILL DOWN ON CF's for ATLAS 18 | SELECT X.PROJECT_ID, X.ACCOUNT, X.DEPTID, X.OPERATING_UNIT, X.FUND_CODE, X.CHARTFIELD2, 19 | SUM(BUD) AS Budget, SUM(ACT) AS Actuals, SUM(ENC) AS Encumbered, SUM(PRE) AS PreEncumbered 20 | FROM( 21 | SELECT A.PROJECT_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, 22 | CASE B.ANALYSIS_GROUP WHEN 'BUD' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS BUD, 23 | CASE B.ANALYSIS_GROUP WHEN 'GMACT' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS ACT, 24 | CASE B.ANALYSIS_GROUP WHEN 'COM' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS ENC, 25 | CASE B.ANALYSIS_GROUP WHEN 'REQ' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS PRE 26 | FROM PS_PROJ_RESOURCE A, PS_PROJ_AN_GRP_MAP B, PS_PROJ_AN_GRP_TBL C 27 | WHERE C.SETID=(SELECT SETID FROM PS_SET_CNTRL_REC G WHERE G.SETCNTRLVALUE = A.BUSINESS_UNIT AND G.RECNAME = 'PROJ_AN_GRP_TBL') 28 | AND C.ANALYSIS_GROUP IN ('BUD', 'COM', 'REQ', 'GMACT') 29 | --AND C.ANALYSIS_GROUP IN ('BUD', 'COM', 'REQ', 'GMACT', 'UNACT') 30 | AND B.SETID = C.SETID 31 | AND B.ANALYSIS_GROUP = C.ANALYSIS_GROUP 32 | AND B.ANALYSIS_TYPE = A.ANALYSIS_TYPE 33 | AND A.BUSINESS_UNIT = 'UNUNI' 34 | AND A.PROJECT_ID = '00064159' 35 | AND A.ACCOUNTING_DT BETWEEN TO_DATE('2014-01-01','YYYY-MM-DD') AND TO_DATE('2015-12-31','YYYY-MM-DD') 36 | GROUP BY A.PROJECT_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, B.ANALYSIS_GROUP 37 | ) X 38 | GROUP BY X.PROJECT_ID, X.ACCOUNT, X.DEPTID, X.OPERATING_UNIT, X.FUND_CODE, X.CHARTFIELD2 39 | ORDER BY 1,3; 40 | --FURTHER DRILL DOWN ON CF's for C3 41 | SELECT X.PROJECT_ID, X.ACCOUNT, X.DEPTID, X.OPERATING_UNIT, X.FUND_CODE, X.CHARTFIELD2, 42 | SUM(BUD) AS Budget, SUM(ACT) AS Actuals, SUM(ENC) AS Encumbered, SUM(PRE) AS PreEncumbered 43 | FROM( 44 | SELECT A.PROJECT_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, 45 | CASE B.ANALYSIS_GROUP WHEN 'BUD' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS BUD, 46 | CASE B.ANALYSIS_GROUP WHEN 'GMACT' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS ACT, 47 | CASE B.ANALYSIS_GROUP WHEN 'COM' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS ENC, 48 | CASE B.ANALYSIS_GROUP WHEN 'REQ' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS PRE 49 | FROM PS_PROJ_RESOURCE A, PS_PROJ_AN_GRP_MAP B, PS_PROJ_AN_GRP_TBL C 50 | WHERE C.SETID=(SELECT SETID FROM PS_SET_CNTRL_REC G WHERE G.SETCNTRLVALUE = A.BUSINESS_UNIT AND G.RECNAME = 'PROJ_AN_GRP_TBL') 51 | AND C.ANALYSIS_GROUP IN ('BUD', 'COM', 'REQ', 'GMACT') 52 | --AND C.ANALYSIS_GROUP IN ('BUD', 'COM', 'REQ', 'GMACT', 'UNACT') 53 | AND B.SETID = C.SETID 54 | AND B.ANALYSIS_GROUP = C.ANALYSIS_GROUP 55 | AND B.ANALYSIS_TYPE = A.ANALYSIS_TYPE 56 | AND A.BUSINESS_UNIT = 'UNUNI' 57 | AND A.PROJECT_ID = '00064153' 58 | AND A.ACCOUNTING_DT BETWEEN TO_DATE('2014-01-01','YYYY-MM-DD') AND TO_DATE('2015-12-31','YYYY-MM-DD') 59 | GROUP BY A.PROJECT_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, B.ANALYSIS_GROUP 60 | ) X 61 | GROUP BY X.PROJECT_ID, X.ACCOUNT, X.DEPTID, X.OPERATING_UNIT, X.FUND_CODE, X.CHARTFIELD2 62 | ORDER BY 1,3; 63 | --FURTHER DRILL DOWN ON CF's for ADMIN 64 | SELECT X.PROJECT_ID, X.ACCOUNT, X.DEPTID, X.OPERATING_UNIT, X.FUND_CODE, X.CHARTFIELD2, 65 | SUM(BUD) AS Budget, SUM(ACT) AS Actuals, SUM(ENC) AS Encumbered, SUM(PRE) AS PreEncumbered 66 | FROM( 67 | SELECT A.PROJECT_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, 68 | CASE B.ANALYSIS_GROUP WHEN 'BUD' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS BUD, 69 | CASE B.ANALYSIS_GROUP WHEN 'GMACT' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS ACT, 70 | CASE B.ANALYSIS_GROUP WHEN 'COM' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS ENC, 71 | CASE B.ANALYSIS_GROUP WHEN 'REQ' THEN SUM(A.RESOURCE_AMOUNT) ELSE 0 END AS PRE 72 | FROM PS_PROJ_RESOURCE A, PS_PROJ_AN_GRP_MAP B, PS_PROJ_AN_GRP_TBL C 73 | WHERE C.SETID=(SELECT SETID FROM PS_SET_CNTRL_REC G WHERE G.SETCNTRLVALUE = A.BUSINESS_UNIT AND G.RECNAME = 'PROJ_AN_GRP_TBL') 74 | AND C.ANALYSIS_GROUP IN ('BUD', 'COM', 'REQ', 'GMACT') 75 | --AND C.ANALYSIS_GROUP IN ('BUD', 'COM', 'REQ', 'GMACT', 'UNACT') 76 | AND B.SETID = C.SETID 77 | AND B.ANALYSIS_GROUP = C.ANALYSIS_GROUP 78 | AND B.ANALYSIS_TYPE = A.ANALYSIS_TYPE 79 | AND A.BUSINESS_UNIT = 'UNUNI' 80 | AND A.PROJECT_ID = '00064158' 81 | AND A.ACCOUNTING_DT BETWEEN TO_DATE('2014-01-01','YYYY-MM-DD') AND TO_DATE('2015-12-31','YYYY-MM-DD') 82 | GROUP BY A.PROJECT_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, B.ANALYSIS_GROUP 83 | ) X 84 | GROUP BY X.PROJECT_ID, X.ACCOUNT, X.DEPTID, X.OPERATING_UNIT, X.FUND_CODE, X.CHARTFIELD2 85 | ORDER BY 1,3; 86 | -------------------------------------------------------------------------------- /SQLs/Check_Purchasing.sql: -------------------------------------------------------------------------------- 1 | -----------------PO 2 | --UNU_PO_SOURCING_STATUS 3 | SELECT A.PROCESS_INSTANCE, A.STAGE_STATUS, A.BUSINESS_UNIT, A.PO_STG_TYPE, A.PO_STG_ID, A.LINE_NBR, A.SCHED_NBR, A.BUYER_ID, A.CNTRCT_ID, 4 | A.CNTRCT_LINE_NBR, A.CNTRCT_SETID, A.CURRENCY_CD, A.CURRENCY_CD_BASE, 5 | TO_CHAR(CAST((A.DATETIME_MODIFIED) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF'), TO_CHAR(A.DUE_DT,'YYYY-MM-DD'), 6 | A.ITM_ID_VNDR, A.ITM_SETID, A.OPRID, A.PO_ID, A.PO_LINE_NBR, A.PO_PROCESS_ID, A.VENDOR_ID, A.VENDOR_SETID, 7 | A.MERCHANDISE_AMT, A.MESSAGE_SET_NBR, A.MESSAGE_NBR, B.MESSAGE_TEXT, B.DESCRLONG 8 | FROM PS_PO_ITM_STG A, PSMSGCATDEFN B 9 | WHERE A.BUSINESS_UNIT LIKE '6%' 10 | AND A.MESSAGE_SET_NBR = B.MESSAGE_SET_NBR (+) 11 | AND A.MESSAGE_NBR = B.MESSAGE_NBR (+) 12 | --AND A.STAGE_STATUS IN ('B','E','I','N','P','S','V') 13 | AND A.STAGE_STATUS <> 'C' 14 | ORDER BY 1 DESC; 15 | --X C POs needing Bud Check 16 | SELECT 'X_C_POs_needing_Bud_Check', A.BUSINESS_UNIT, A.PO_ID, A.PO_STATUS, A.BUDGET_HDR_STATUS, TO_CHAR(PO_DT,'YYYY'), B.LINE_NBR, B.SCHED_NBR, B.DISTRIB_LINE_NUM, B.BUDGET_LINE_STATUS, 17 | B.ACCOUNT, B.OPERATING_UNIT, B.DEPTID, B.FUND_CODE, B.CHARTFIELD2, B.PROJECT_ID, A.HOLD_STATUS, 18 | TO_CHAR(A.ACCOUNTING_DT,'YYYY-MM-DD') AS ACCTG_DT, B.MERCH_AMT_BSE, B.DISTRIB_LN_STATUS, TO_CHAR(B.BUDGET_DT,'YYYY-MM-DD') AS BUDGET_DT 19 | FROM PS_PO_HDR A, PS_PO_LINE_DISTRIB B 20 | WHERE A.BUSINESS_UNIT LIKE '6%' 21 | AND A.BUSINESS_UNIT = B.BUSINESS_UNIT 22 | AND A.PO_ID = B.PO_ID 23 | AND A.PO_STATUS NOT IN ('I','O','PA') 24 | AND B.BUDGET_DT > TO_DATE('2008-12-31','YYYY-MM-DD') 25 | AND ( B.BUDGET_LINE_STATUS IN ('E','N') AND A.BUDGET_HDR_STATUS <> 'V') 26 | AND B.DISTRIB_LN_STATUS IN ('C','X') 27 | ORDER BY 1, 2, 6, 7, 8; 28 | --UNU PO's not fully processed 29 | SELECT 'UNU_PO_not_fully_processed', A.BUSINESS_UNIT, A.PO_ID, A.BUYER_ID, TO_CHAR(A.ACCOUNTING_DT,'YYYY-MM-DD') AS ACCTG_DT, A.PO_STATUS, A.BUDGET_HDR_STATUS, 30 | A.CHNG_ORD_BATCH, A.PO_REF, A.VENDOR_ID, 31 | E.ACCOUNT, E.DEPTID, E.OPERATING_UNIT, E.FUND_CODE, E.BUSINESS_UNIT_PC, E.PROJECT_ID, E.ACTIVITY_ID 32 | FROM PS_PO_HDR A, PS_PO_LINE C, PS_PO_LINE_SHIP D, PS_PO_LINE_DISTRIB E 33 | WHERE A.BUSINESS_UNIT = C.BUSINESS_UNIT 34 | AND A.PO_ID = C.PO_ID 35 | AND C.BUSINESS_UNIT = D.BUSINESS_UNIT 36 | AND C.PO_ID = D.PO_ID 37 | AND C.LINE_NBR = D.LINE_NBR 38 | AND D.BUSINESS_UNIT = E.BUSINESS_UNIT 39 | AND D.PO_ID = E.PO_ID 40 | AND D.LINE_NBR = E.LINE_NBR 41 | AND D.SCHED_NBR = E.SCHED_NBR 42 | AND A.BUSINESS_UNIT LIKE '6%' 43 | AND E.BUDGET_DT BETWEEN TO_DATE('2012-01-01','YYYY-MM-DD') AND TO_DATE('2015-12-31','YYYY-MM-DD') 44 | AND ( A.PO_STATUS IN ('I','O','PA') OR A.BUDGET_HDR_STATUS <> 'V' OR ( A.PO_STATUS = 'A' AND NOT EXISTS (SELECT 'X' FROM PS_CNTRCT_RPO_XREF B WHERE B.BUSINESS_UNIT = A.BUSINESS_UNIT AND B.PO_ID = A.PO_ID))) 45 | ORDER BY 1, 2; 46 | --PO's not fully matched or closed 47 | SELECT DISTINCT B.BUSINESS_UNIT, B.PO_ID, TO_CHAR(B.ACCOUNTING_DT,'YYYY') AS ACCTNG, TO_CHAR(B.PO_DT,'YYYY') PODATE, 48 | B.VENDOR_ID, B.PO_STATUS, B.RECV_STATUS, B.MATCH_STATUS_PO 49 | FROM PS_PO_LINE A, PS_PO_HDR B, PS_PO_LINE_DISTRIB C 50 | WHERE A.BUSINESS_UNIT LIKE '6%' 51 | AND A.BUSINESS_UNIT = B.BUSINESS_UNIT 52 | AND A.PO_ID = B.PO_ID 53 | AND B.PO_STATUS NOT IN ('C','X') 54 | AND B.MATCH_STATUS_PO NOT IN ('M','N') 55 | AND A.CANCEL_STATUS <> 'X' 56 | AND A.BUSINESS_UNIT = C.BUSINESS_UNIT 57 | AND A.PO_ID = C.PO_ID 58 | AND A.LINE_NBR = C.LINE_NBR 59 | AND C.KK_CLOSE_FLAG = 'N' 60 | AND TO_CHAR(B.ACCOUNTING_DT,'YYYY') IN ('2011', '2012', '2013', '2014', '2015') 61 | ORDER BY 1, 2; 62 | --Open PO Lines 63 | SELECT DISTINCT B.BUSINESS_UNIT, B.PO_ID, TO_CHAR(B.PO_DT,'YYYY-MM-DD') AS PO_DT, B.VENDOR_ID, B.PO_STATUS, B.BUDGET_HDR_STATUS, B.RECV_STATUS, 64 | B.MATCH_STATUS_PO, C.LINE_NBR, C.REQ_ID, D.REQUESTOR_ID, TO_CHAR(C.BUDGET_DT,'YYYY-MM-DD') AS BD_DT, B.PO_REF, C.MERCH_AMT_BSE, 65 | TO_CHAR(B.ACCOUNTING_DT,'YYYY-MM-DD') AS ACCTG_DT, B.BUYER_ID, C.DEPTID, C.KK_CLOSE_FLAG 66 | FROM PS_PO_LINE A, PS_PO_HDR B, PS_PO_LINE_DISTRIB C, PS_REQ_HDR D 67 | WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT 68 | AND A.PO_ID = B.PO_ID 69 | AND A.BUSINESS_UNIT = C.BUSINESS_UNIT 70 | AND A.PO_ID = C.PO_ID 71 | AND A.LINE_NBR = C.LINE_NBR 72 | AND C.BUSINESS_UNIT = D.BUSINESS_UNIT(+) 73 | AND D.REQ_ID(+) = C.REQ_ID 74 | AND B.BUSINESS_UNIT LIKE '6%' 75 | AND B.PO_STATUS NOT IN ('C','X') 76 | AND A.CANCEL_STATUS IN ('A','H') 77 | AND B.ACCOUNTING_DT BETWEEN TO_DATE('2012-01-01','YYYY-MM-DD') AND TO_DATE('2015-12-31','YYYY-MM-DD') 78 | ORDER BY 1, 2; 79 | --Check for PO's which are Pending Cancellation 80 | SELECT 'PX', BUSINESS_UNIT, DISP_METHOD, PO_STATUS, COUNT(1) 81 | FROM PS_PO_HDR 82 | WHERE BUSINESS_UNIT LIKE '6%' 83 | AND PO_STATUS = 'PX' 84 | GROUP BY BUSINESS_UNIT, DISP_METHOD, PO_STATUS 85 | ORDER BY 1,2; 86 | --UNU_PO_OPEN_LINES_CLOSED 87 | --Open POs all lines closed 88 | SELECT A.BUSINESS_UNIT, A.PO_ID, A.BUDGET_HDR_STATUS 89 | FROM PS_PO_HDR A 90 | WHERE A.BUSINESS_UNIT LIKE '6%' 91 | AND A.PO_STATUS = 'D' 92 | AND NOT EXISTS (SELECT B.PO_ID FROM PS_PO_LINE B WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.PO_ID = B.PO_ID AND B.CANCEL_STATUS = 'A') 93 | ORDER BY 1, 2; 94 | -------------------------------------------------------------------------------- /SQLs/ComputeSQLID.sql: -------------------------------------------------------------------------------- 1 | GRANT EXECUTE ON SYS.DBMS_CRYPTO TO csierra; 2 | CREATE OR REPLACE FUNCTION compute_sql_id (sql_text IN CLOB) 3 | RETURN VARCHAR2 IS 4 | BASE_32 CONSTANT VARCHAR2(32) := '0123456789abcdfghjkmnpqrstuvwxyz'; 5 | l_raw_128 RAW(128); 6 | l_hex_32 VARCHAR2(32); 7 | l_low_16 VARCHAR(16); 8 | l_q3 VARCHAR2(8); 9 | l_q4 VARCHAR2(8); 10 | l_low_16_m VARCHAR(16); 11 | l_number NUMBER; 12 | l_idx INTEGER; 13 | l_sql_id VARCHAR2(13); 14 | BEGIN 15 | l_raw_128 := /* use md5 algorithm on sql_text and produce 128 bit hash */ 16 | SYS.DBMS_CRYPTO.hash(TRIM(CHR(0) FROM sql_text)||CHR(0), SYS.DBMS_CRYPTO.hash_md5); 17 | l_hex_32 := RAWTOHEX(l_raw_128); /* 32 hex characters */ 18 | l_low_16 := SUBSTR(l_hex_32, 17, 16); /* we only need lower 16 */ 19 | l_q3 := SUBSTR(l_low_16, 1, 8); /* 3rd quarter (8 hex characters) */ 20 | l_q4 := SUBSTR(l_low_16, 9, 8); /* 4th quarter (8 hex characters) */ 21 | /* need to reverse order of each of the 4 pairs of hex characters */ 22 | l_q3 := SUBSTR(l_q3, 7, 2)||SUBSTR(l_q3, 5, 2)||SUBSTR(l_q3, 3, 2)||SUBSTR(l_q3, 1, 2); 23 | l_q4 := SUBSTR(l_q4, 7, 2)||SUBSTR(l_q4, 5, 2)||SUBSTR(l_q4, 3, 2)||SUBSTR(l_q4, 1, 2); 24 | /* assembly back lower 16 after reversing order on each quarter */ 25 | l_low_16_m := l_q3||l_q4; 26 | /* convert to number */ 27 | SELECT TO_NUMBER(l_low_16_m, 'xxxxxxxxxxxxxxxx') INTO l_number FROM DUAL; 28 | /* 13 pieces base-32 (5 bits each) make 65 bits. we do have 64 bits */ 29 | FOR i IN 1 .. 13 30 | LOOP 31 | l_idx := TRUNC(l_number / POWER(32, (13 - i))); /* index on BASE_32 */ 32 | l_sql_id := l_sql_id||SUBSTR(BASE_32, (l_idx + 1), 1); /* stitch 13 characters */ 33 | l_number := l_number - (l_idx * POWER(32, (13 - i))); /* for next piece */ 34 | END LOOP; 35 | RETURN l_sql_id; 36 | END compute_sql_id; 37 | / 38 | SHOW ERRORS; 39 | -- test 40 | SET SERVEROUT ON; 41 | SELECT compute_sql_id('select ''Slavik'' from dual') FROM DUAL; 42 | -- you should get 29schpgjyfxux 43 | -------------------------------------------------------------------------------- /SQLs/DecipherExplainPlan.sql: -------------------------------------------------------------------------------- 1 | --------------------------------- 2 | --Tony Hasler's Book Listing 4-4 3 | --------------------------------- 4 | --This is much easier to read than EXPLAIN PLAN table 5 | SELECT DEPTH, LPAD (' ', DEPTH) || operation operation, options, object_name, time "EST TIME (Secs)", 6 | last_elapsed_time / 1000000 "ACTUAL TIME (Secs)", CARDINALITY "EST ROWS", last_output_rows "Actual Rows" 7 | FROM v$sql_plan_statistics_all 8 | WHERE sql_id = '199v14ct2bq0k' 9 | AND child_number = 0 10 | ORDER BY id; 11 | 12 | --Version 2 13 | --Additional column added OPERATION_2 14 | SELECT DEPTH, LPAD (' ', DEPTH) || operation operation, options, object_name, time "EST TIME (Secs)", 15 | last_elapsed_time / 1000000 "ACTUAL TIME (Secs)", CARDINALITY "EST ROWS", last_output_rows "ACTUAL ROWS", 16 | LPAD(' ',depth)||OPERATION||' '||OPTIONS||' '||OBJECT_NAME||DECODE(PARTITION_START,NULL,' ',':')||TRANSLATE(PARTITION_START,'(NRUMBE','(NR')|| 17 | DECODE(PARTITION_STOP,NULL,' ','-')||TRANSLATE(PARTITION_STOP,'(NRUMBE','(NR') operation_2 18 | FROM v$sql_plan_statistics_all 19 | WHERE sql_id = '199v14ct2bq0k' 20 | AND child_number = 0 21 | ORDER BY id; 22 | 23 | --Version 3 24 | --Added Predicates, OBJECT_TYPE, LAST_STARTS, OPTIMIZER columns 25 | SELECT DEPTH, LPAD (' ', DEPTH) || operation operation, options, object_name, time "EST TIME (Secs)", OPTIMIZER, LAST_STARTS, 26 | last_elapsed_time / 1000000 "ACTUAL TIME (Secs)", CARDINALITY "EST ROWS", last_output_rows "ACTUAL ROWS", 27 | LPAD(' ',depth)||OPERATION||' '||OPTIONS||' '||OBJECT_NAME||DECODE(PARTITION_START,NULL,' ',':')||TRANSLATE(PARTITION_START,'(NRUMBE','(NR')|| 28 | DECODE(PARTITION_STOP,NULL,' ','-')||TRANSLATE(PARTITION_STOP,'(NRUMBE','(NR') operation_2, OBJECT_TYPE, ACCESS_PREDICATES, FILTER_PREDICATES 29 | FROM v$sql_plan_statistics_all 30 | --WHERE sql_id = 'aptcgpbtgguv3' 31 | WHERE sql_id = '3j7dcjwvc9p7n' 32 | AND child_number = 0 33 | ORDER BY id; 34 | 35 | ---------------------------------- 36 | --Tuning by Cardinality Feedback 37 | ---------------------------------- 38 | set define '~' 39 | define hv=~1 40 | set verify off echo off feed off 41 | set linesize 300 pagesize 3000 42 | 43 | col hv head 'hv' noprint 44 | col "cn" for 90 print 45 | col "card" for 999,999,990 46 | col "ROWS" for 999,999,990 47 | col "ELAPSED" for 99,990.999 48 | col "CPU" for 99,990.999 49 | col CR_GETS for 99,999,990 50 | col CU_GETS for 99,999,990 51 | col READS for 9,999,990 52 | col WRITES for 99,990 53 | break on hv skip 0 on "cn" skip 0 54 | SELECT P.HASH_VALUE hv, P.CHILD_NUMBER "cn", to_char(p.id,'990')||decode(access_predicates,null,null,'A')||decode(filter_predicates,null,null,'F') id, P.COST "cost", 55 | P.CARDINALITY "card", LPAD(' ',depth)||P.OPERATION||' '||P.OPTIONS||' '||P.OBJECT_NAME||DECODE(P.PARTITION_START,NULL,' ',':')|| 56 | TRANSLATE(P.PARTITION_START,'(NRUMBE','(NR')||DECODE(P.PARTITION_STOP,NULL,' ','-')||TRANSLATE(P.PARTITION_STOP,'(NRUMBE','(NR') "operation", P.POSITION "pos", 57 | (SELECT S.LAST_OUTPUT_ROWS FROM V$SQL_PLAN_STATISTICS S WHERE S.ADDRESS = P.ADDRESS and s.hash_value = p.hash_value 58 | and s.child_number = p.child_number AND S.OPERATION_ID = P.ID) "ROWS", 59 | (SELECT ROUND(S.LAST_ELAPSED_TIME/1000000,2) FROM V$SQL_PLAN_STATISTICS S WHERE S.ADDRESS = P.ADDRESS and s.hash_value = p.hash_value 60 | and s.child_number = p.child_number AND S.OPERATION_ID = P.ID) "ELAPSED", 61 | (SELECT S.LAST_CR_BUFFER_GETS FROM V$SQL_PLAN_STATISTICS S WHERE S.ADDRESS=P.ADDRESS and s.hash_value = p.hash_value 62 | and s.child_number = p.child_number AND S.OPERATION_ID = P.ID) "CR_GETS", 63 | (SELECT S.LAST_CU_BUFFER_GETS FROM V$SQL_PLAN_STATISTICS S WHERE S.ADDRESS = P.ADDRESS and s.hash_value = p.hash_value 64 | and s.child_number = p.child_number AND S.OPERATION_ID = P.ID) "CU_GETS", 65 | (SELECT S.LAST_DISK_READS FROM V$SQL_PLAN_STATISTICS S WHERE S.ADDRESS = P.ADDRESS and s.hash_value = p.hash_value 66 | and s.child_number = p.child_number AND S.OPERATION_ID = P.ID) "READS", 67 | (SELECT S.LAST_DISK_WRITES FROM V$SQL_PLAN_STATISTICS S WHERE S.ADDRESS = P.ADDRESS and s.hash_value = p.hash_value 68 | and s.child_number = p.child_number AND S.OPERATION_ID = P.ID) "WRITES" 69 | FROM V$SQL_PLAN P 70 | where p.hash_value = ~hv 71 | order by P.CHILD_NUMBER, p.id 72 | / 73 | -------------------------------------------------------------------------------- /SQLs/DropTAOTablesOracle.sql: -------------------------------------------------------------------------------- 1 | begin 2 | for c1 in (select owner,table_name from dba_tables where table_name LIKE 'PS_PC_PDJ_CP_TA0%') loop 3 | execute immediate 'drop table '||c1.owner||'.'||c1.table_name||''; 4 | end loop; 5 | end; 6 | --PS_PC_PDJ_CP_TA0 7 | begin 8 | for c1 in (select table_name from user_tables where table_name LIKE 'PS_PC_PDJ_CP_TA0%') loop 9 | execute immediate 'drop table '||c1.table_name||''; 10 | end loop; 11 | end; 12 | 13 | --PS_PC_PO_TAO1 14 | begin 15 | for c1 in (select table_name from user_tables where table_name LIKE 'PS_PC_PO_TAO1%') loop 16 | execute immediate 'drop table '||c1.table_name||''; 17 | end loop; 18 | end; 19 | 20 | --PS_PC_PRJA_TA0 21 | begin 22 | for c1 in (select table_name from user_tables where table_name LIKE 'PS_PC_PRJA_TA0%') loop 23 | execute immediate 'drop table '||c1.table_name||''; 24 | end loop; 25 | end; 26 | 27 | --PS_PC_REQ_TAO1 28 | begin 29 | for c1 in (select table_name from user_tables where table_name LIKE 'PS_PC_REQ_TAO1%') loop 30 | execute immediate 'drop table '||c1.table_name||''; 31 | end loop; 32 | end; 33 | 34 | --PS_PC_RES_PA_TA9 35 | begin 36 | for c1 in (select table_name from user_tables where table_name LIKE 'PS_PC_RES_PA_TA9%') loop 37 | execute immediate 'drop table '||c1.table_name||''; 38 | end loop; 39 | end; 40 | -------------------------------------------------------------------------------- /SQLs/ExportTempTableData.sql: -------------------------------------------------------------------------------- 1 | set pages 50000 lines 32767; 2 | --set verify off 3 | set trimspool on; 4 | set trimout on; 5 | --set termout off; 6 | set sqlformat default; 7 | def s = 'EMDBO.'; 8 | def x = 4; 9 | def ProcessInstance = 160535; 10 | def BU = 'US004'; 11 | def ProjectID = 'PP17AUG18'; 12 | 13 | --PROJ_RESOURCE BEFORE RUN 14 | SELECT 'PS_PROJ_RESOURCE', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PROJ_RESOURCE A 15 | WHERE BUSINESS_UNIT = '&BU' AND PROJECT_ID = '&ProjectID' ORDER BY A.DTTM_STAMP DESC; 16 | --Temp Table Data Export 17 | SELECT 'PS_PC_RES_PA_TA0&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_RES_PA_TA0&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 18 | SELECT 'PS_PC_RES_PA_TA1&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_RES_PA_TA1&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 19 | SELECT 'PS_PC_TRAN_BAL_TAO', PROCESS_INSTANCE, DTTM_STAMP, AMOUNT_FLG, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, T.* FROM &s.PS_PC_TRAN_BAL_TAO T 20 | WHERE PROCESS_INSTANCE = &ProcessInstance; 21 | SELECT 'PS_PC_ORIG_BAL_TAO', PROCESS_INSTANCE, DTTM_STAMP, AMT_ONLY_FLG, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, O.* FROM &s.PS_PC_ORIG_BAL_TAO O 22 | WHERE PROCESS_INSTANCE = &ProcessInstance; 23 | SELECT 'PS_PC_RES_PA_TA3&x' PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_RES_PA_TA3&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 24 | SELECT 'PS_PC_RES_PA_TA4&x' PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_RES_PA_TA4&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 25 | --SEL_BAL BACK_REV -- PC_PO_PO_TAO --Q/A 26 | SELECT 'PS_PC_PO_PO_TAO', PROCESS_INSTANCE, PR.BUSINESS_UNIT_PO, PR.PO_ID, PR.LINE_NBR, PR.SCHED_NBR, PR.DST_ACCT_TYPE, PR.DISTRIB_LINE_NUM, 27 | -- SUM(((PR.RESOURCE_QUANTITY) * (AGM.QUANTITY_MULTIPLY))), SUM(((PR.RESOURCE_AMOUNT) * (AGM.SIGNED_VALUE))), PR.CURRENCY_CD, 28 | PR.RESOURCE_QUANTITY, AGM.QUANTITY_MULTIPLY, PR.RESOURCE_AMOUNT, AGM.SIGNED_VALUE, PR.CURRENCY_CD, PR.ANALYSIS_TYPE 29 | FROM &s.PS_PC_RES_PA_TA0&x PR , &s.PS_PROJ_AN_GRP_MAP AGM 30 | WHERE PR.PROCESS_INSTANCE = &ProcessInstance 31 | -- AND PR.ANALYSIS_TYPE IN ('COM', 'CRV', 'CCO', 'CCR') 32 | AND (PR.ANALYSIS_TYPE IN ('COM', 'CRV', 'CCO', 'CCR') OR PR.ANALYSIS_TYPE IN ('CCA', 'CAJ')) 33 | AND PR.BUSINESS_UNIT = '&BU' 34 | AND PR.PROJECT_ID = '&ProjectID' 35 | AND AGM.ANALYSIS_GROUP = 'POADJ' 36 | AND PR.ANALYSIS_TYPE = AGM.ANALYSIS_TYPE 37 | AND AGM.SETID = ( SELECT SETID FROM &s.PS_SET_CNTRL_REC WHERE RECNAME = 'PROJ_AN_GRP_MAP' AND SETCNTRLVALUE = PR.BUSINESS_UNIT) 38 | AND BUSINESS_UNIT_PO <> ' ' AND PO_ID <> ' ' AND LINE_NBR <> 0 AND SCHED_NBR <> 0 AND DST_ACCT_TYPE <> ' ' AND DISTRIB_LINE_NUM <> 0; 39 | --GROUP BY PR.BUSINESS_UNIT, PR.PROJECT_ID, PR.ACTIVITY_ID, PR.BUSINESS_UNIT_PO, PR.PO_ID, PR.LINE_NBR, PR.SCHED_NBR, PR.DST_ACCT_TYPE, PR.DISTRIB_LINE_NUM, PR.CURRENCY_CD 40 | --HAVING SUM(((PR.RESOURCE_AMOUNT) * (AGM.SIGNED_VALUE))) < 0; 41 | --SEL_BAL ADD_REV -- PC_PO_PO_TAO --Q/A 42 | SELECT 'PS_PC_PO_PO_TAO', PROCESS_INSTANCE, PR.BUSINESS_UNIT_PO, PR.PO_ID, PR.LINE_NBR, PR.SCHED_NBR, PR.DST_ACCT_TYPE, PR.DISTRIB_LINE_NUM, 43 | -- SUM(((PR.RESOURCE_QUANTITY) * (AGM.QUANTITY_MULTIPLY))), SUM(((PR.RESOURCE_AMOUNT) * (AGM.SIGNED_VALUE))), MAX(PR.CURRENCY_CD) 44 | PR.RESOURCE_QUANTITY, AGM.QUANTITY_MULTIPLY, PR.RESOURCE_AMOUNT, AGM.SIGNED_VALUE, PR.CURRENCY_CD, PR.ANALYSIS_TYPE 45 | FROM &s.PS_PC_RES_PA_TA0&x PR, &s.PS_PROJ_AN_GRP_MAP AGM 46 | WHERE PR.PROCESS_INSTANCE = &ProcessInstance 47 | AND (PR.ANALYSIS_TYPE IN ('ACT', 'ACT', 'TLX', 'CAC', 'VIN') OR PR.ANALYSIS_TYPE IN ('CRV', 'CCR')) 48 | AND PR.BUSINESS_UNIT = '&BU' 49 | AND PR.PROJECT_ID = '&ProjectID' 50 | AND AGM.ANALYSIS_GROUP = 'POADJ' 51 | AND PR.ANALYSIS_TYPE = AGM.ANALYSIS_TYPE 52 | AND AGM.SETID = ( SELECT SETID FROM PS_SET_CNTRL_REC WHERE RECNAME = 'PROJ_AN_GRP_MAP' AND SETCNTRLVALUE = PR.BUSINESS_UNIT) 53 | AND BUSINESS_UNIT_PO <> ' ' AND PO_ID <> ' ' AND LINE_NBR <> 0 AND SCHED_NBR <> 0 AND DST_ACCT_TYPE <> ' ' AND DISTRIB_LINE_NUM <> 0; 54 | -- AND NOT EXISTS ( SELECT 'X' FROM &s.PS_PC_PO_PO_TAO WHERE PS_PC_PO_PO_TAO.PROCESS_INSTANCE = &ProcessInstance AND PR.BUSINESS_UNIT_PO = PS_PC_PO_PO_TAO.BUSINESS_UNIT_PO 55 | -- AND PR.PO_ID = PS_PC_PO_PO_TAO.PO_ID AND PR.LINE_NBR = PS_PC_PO_PO_TAO.LINE_NBR 56 | -- AND PR.SCHED_NBR = PS_PC_PO_PO_TAO.SCHED_NBR AND PR.DISTRIB_LINE_NUM = PS_PC_PO_PO_TAO.DISTRIB_LINE_NUM 57 | -- AND PR.DST_ACCT_TYPE = PS_PC_PO_PO_TAO.DST_ACCT_TYPE ) 58 | --GROUP BY PR.BUSINESS_UNIT_PO, PR.PO_ID, PR.LINE_NBR, PR.SCHED_NBR, PR.DST_ACCT_TYPE, PR.DISTRIB_LINE_NUM 59 | --HAVING SUM(((PR.RESOURCE_AMOUNT) * (AGM.SIGNED_VALUE))) <> 0; 60 | SELECT 'PS_PC_RES_PA_TA5&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_RES_PA_TA5&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 61 | SELECT 'PS_PC_RES_PA_TA6&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_RES_PA_TA6&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 62 | SELECT 'PS_PC_RES_PA_TA7&x', PROCESS_INSTANCE, RESOURCE_AMOUNT2, RESOURCE_QUANTITY2, A.* FROM &s.PS_PC_RES_PA_TA7&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 63 | SELECT 'PS_PC_RES_PA_TA8&x', PROCESS_INSTANCE, RESOURCE_AMOUNT2, RESOURCE_QUANTITY2, A.* FROM &s.PS_PC_RES_PA_TA8&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 64 | SELECT 'PS_PC_CPY_PA_TA0&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_CPY_PA_TA0&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 65 | SELECT 'PS_PC_CPY_PA_TA1&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_CPY_PA_TA0&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 66 | SELECT 'PS_PC_PA_DTL_TAO&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_PA_DTL_TAO&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 67 | SELECT 'PS_PC_PA_RES_TMP&x', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PC_PA_RES_TMP&x A WHERE PROCESS_INSTANCE = &ProcessInstance; 68 | --PROJ_RESOURCE AFTER RUN 69 | SELECT 'PS_PROJ_RESOURCE', PROCESS_INSTANCE, DTTM_STAMP, ANALYSIS_TYPE, RESOURCE_AMOUNT, RESOURCE_QUANTITY, A.* FROM &s.PS_PROJ_RESOURCE A 70 | WHERE BUSINESS_UNIT = '&BU' AND PROJECT_ID = '&ProjectID' ORDER BY A.DTTM_STAMP DESC; 71 | -------------------------------------------------------------------------------- /SQLs/Fields_From_PSDBFIELD.sql: -------------------------------------------------------------------------------- 1 | --Version 2 2 | --Add Page References 3 | --LISTAGG/XMLAGG 4 | SELECT DBF.FIELDNAME, 5 | CASE DBF.FIELDTYPE 6 | WHEN 0 THEN '0 - Char' WHEN 1 THEN '1 - Long Char' WHEN 2 THEN '2 - NBR' WHEN 3 THEN '3 - Sign NBR' WHEN 4 THEN '4 - Date' WHEN 5 THEN '5 - Time' WHEN 6 THEN '6 - Dttm' 7 | WHEN 7 THEN '7 - Img' WHEN 8 THEN '8 - Img/Attch' WHEN 9 THEN '9 - Img/Ref' 8 | ELSE 'Unknown' END "DB Field Type", DBF.LENGTH, DBF.OBJECTOWNERID || ' - ' || X1.XLATLONGNAME AS "DBField Object Ident", 9 | CASE DBF.FORMAT 10 | WHEN 0 THEN CASE WHEN DBF.FIELDTYPE = 0 THEN '0 - Char(UpperCase)' WHEN DBF.FIELDTYPE = 6 THEN '6 - HH:MM' END 11 | WHEN 1 THEN '1 - Name' WHEN 2 THEN '2 - Phone Number North American (mandatory length 12 characters)' 12 | WHEN 3 THEN '3 - Zip/Postal Code North American (mandatory length 10 characters)' WHEN 4 THEN '4 - US Social Security Number (mandatory length 9 characters)' 13 | WHEN 5 THEN '5 - BLANK' WHEN 6 THEN '6 - Mixed Case' WHEN 7 THEN '7 - Raw/Binary' WHEN 8 THEN '8 - Numbers Only' WHEN 9 THEN '9 - SIN (mandatory length 9 characters)' 14 | WHEN 10 THEN '10 - International Phone Number' WHEN 11 THEN '11 - Zip/Postal Code International' WHEN 12 THEN '12 - Time HH:MM:SS' WHEN 13 THEN '13 - Time HH:MM:SS.999999' 15 | WHEN 14 THEN '14 - Custom' 16 | ELSE 'Unknown' END "DB Field Format", 17 | -- LISTAGG(PNLF.PNLNAME, ', ') WITHIN GROUP (ORDER BY PNLF.PNLNAME) AS PNL_LIST 18 | RTRIM(XMLAGG(XMLELEMENT(E, PNLD.PNLTYPE || '-' || PNLF.PNLNAME || '-' || PNLF.RECNAME || '-' || PNLD.OBJECTOWNERID, ' | ').EXTRACT('//text()') ORDER BY PNLF.PNLNAME).GETCLOBVAL(),',') 19 | AS "Type-Page-Rec-Owner" 20 | FROM (((PSDBFIELD DBF LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'OBJECTOWNERID' AND X1.FIELDVALUE = DBF.OBJECTOWNERID AND X1.EFF_STATUS = 'A') 21 | LEFT OUTER JOIN PSPNLFIELD PNLF ON PNLF.FIELDNAME = DBF.FIELDNAME AND PNLF.RECNAME <> ' ') 22 | LEFT OUTER JOIN PSPNLDEFN PNLD ON PNLD.PNLNAME = PNLF.PNLNAME) 23 | WHERE 1 = 1 24 | AND ((DBF.FIELDNAME LIKE '%EMPL%ID' OR DBF.FIELDNAME LIKE '%EMPL%' OR DBF.FIELDNAME LIKE '%PERSON%' OR DBF.FIELDNAME LIKE '%PERS%' OR DBF.FIELDNAME LIKE '%APPLICANT%' 25 | OR DBF.FIELDNAME LIKE '%TEAM%MEMBER%' OR DBF.FIELDNAME LIKE '%MEMBER%' OR DBF.FIELDNAME LIKE '%MANAGER%' OR DBF.FIELDNAME LIKE '%APPLID%' OR DBF.FIELDNAME LIKE '%EMP%ID%' 26 | OR DBF.FIELDNAME LIKE '%CRDMEM%' OR DBF.FIELDNAME LIKE '%APPROVER%' OR DBF.FIELDNAME LIKE '%CSTDN%' OR DBF.FIELDNAME LIKE '%MGR%' OR DBF.FIELDNAME LIKE '%STDNT%' 27 | OR DBF.FIELDNAME LIKE '%TEAM%MBR%' OR DBF.FIELDNAME LIKE '%TEAM%MBR%' OR DBF.FIELDNAME LIKE '%SUPERVISOR%' OR DBF.FIELDNAME LIKE '%CM_NAME%' OR DBF.FIELDNAME LIKE '%APP_IDNT%' 28 | OR DBF.FIELDNAME LIKE '%BIDDER%' OR DBF.FIELDNAME LIKE '%BIRTHDATE%' OR DBF.FIELDNAME LIKE '%ATTN_TO%' OR DBF.FIELDNAME LIKE '%MNGR%' OR DBF.FIELDNAME LIKE '%EMP%' 29 | OR DBF.FIELDNAME LIKE '%CONTACT%' OR DBF.FIELDNAME LIKE '%CORD_ID%') 30 | AND DBF.FIELDNAME NOT LIKE '%TEMPLATE%' AND DBF.FIELDNAME <> 'AE_APPLID' AND DBF.FIELDNAME <> 'AE_DO_APPLID' AND DBF.FIELDNAME <> 'AE_APPLID2' AND DBF.FIELDNAME <> 'PNLUSETEMP' 31 | AND DBF.FIELDNAME NOT LIKE '%EXEMPTION%' AND DBF.FIELDNAME NOT LIKE '%EXEMPT%' AND DBF.FIELDNAME NOT LIKE 'TEMP_NBR%' AND DBF.FIELDNAME NOT LIKE 'TEMPNUM%' 32 | AND DBF.FIELDNAME NOT LIKE 'TEMP_TBL%' AND DBF.FIELDNAME NOT LIKE '%TEMP_TABLE%' AND DBF.FIELDNAME NOT LIKE '%TEMPTABLE%' AND DBF.FIELDNAME NOT LIKE '%TEMPTBL%' 33 | AND DBF.FIELDNAME NOT LIKE '%TEMP_TBL%' AND DBF.FIELDNAME NOT LIKE '%TEMPDIR%' AND DBF.FIELDNAME NOT LIKE '%EDEMPTI%' AND DBF.FIELDNAME NOT LIKE 'PT%' AND DBF.FIELDNAME NOT LIKE 'PORTAL%' 34 | AND DBF.FIELDNAME NOT LIKE 'EO%' AND DBF.FIELDNAME NOT LIKE '%URL%' AND DBF.FIELDNAME NOT LIKE 'ITEM%' AND DBF.FIELDNAME NOT LIKE 'RTBL%' AND DBF.FIELDNAME NOT LIKE 'SQL%' 35 | AND DBF.FIELDNAME NOT LIKE 'BCITEM%' AND DBF.FIELDNAME NOT LIKE 'TEMP_%' AND DBF.FIELDNAME NOT LIKE '%_SETID' AND DBF.FIELDNAME NOT LIKE '%_COMMENT' AND DBF.FIELDNAME NOT LIKE 'CUB_%' 36 | AND DBF.FIELDNAME NOT LIKE 'FUL_TEMP_LN%' AND DBF.FIELDNAME NOT LIKE 'GVT_TEMP_%' AND DBF.FIELDNAME NOT LIKE 'QS_TEMP%') 37 | AND DBF.LENGTH > 4 38 | GROUP BY DBF.FIELDNAME, DBF.FIELDTYPE, DBF.LENGTH, DBF.OBJECTOWNERID, X1.XLATLONGNAME, DBF.FORMAT 39 | ORDER BY DBF.FIELDNAME; 40 | -------------------------------------------------------------------------------- /SQLs/FindFieldDefinitionReferences.sql: -------------------------------------------------------------------------------- 1 | set pages 50000 lines 32767; 2 | set verify off 3 | set trimspool on; 4 | set trimout on; 5 | set sqlformat csv; 6 | --set sqlformat ansiconsole; 7 | --set termout off; 8 | def FIELDNAME = ('EMPLID') 9 | 10 | SELECT DISTINCT 'Used_in_CUBES', ACEMODELID FROM PSACECUBECOLMAP WHERE FIELDNAME IN &FIELDNAME OR ACEAGGRFIELDNAME IN &FIELDNAME ORDER BY ACEMODELID; 11 | SELECT DISTINCT 'Used_in_Queue', CHNLNAME FROM PSSUBCHNL WHERE FIELDNAME IN &FIELDNAME ORDER BY CHNLNAME; 12 | SELECT DISTINCT 'Used_as_SetCntrlFld_Rec', D.RECNAME FROM PSRECDEFN D WHERE D.SETCNTRLFLD IN &FIELDNAME ORDER BY D.RECNAME; 13 | SELECT DISTINCT 'Uses_in_Analytic_Type', F.PROBTYPE, F.RECNAME FROM PSOPTFIELD F WHERE F.FIELDNAME IN &FIELDNAME ORDER BY F.PROBTYPE; 14 | SELECT DISTINCT 'Used_in_FileLayout', FLDDEFNNAME FROM PSFLDFIELDDEFN WHERE FLDFIELDNAME IN &FIELDNAME ORDER BY FLDDEFNNAME; 15 | SELECT DISTINCT 'Used_in_Projects', I.PROJECTNAME FROM PSPROJECTITEM I WHERE I.OBJECTTYPE = 2 AND I.OBJECTVALUE1 IN &FIELDNAME ORDER BY I.PROJECTNAME; 16 | SELECT DISTINCT 'Used_as_MsgRecFldOverride', MSGNAME FROM PSMSGFLDOVR WHERE FIELDNAME IN &FIELDNAME ORDER BY MSGNAME; 17 | SELECT DISTINCT 'Used_in_PeopleCode_Field_REFNAME_PC', OBJECTID1, OBJECTVALUE1, OBJECTID2, OBJECTVALUE2, OBJECTID3, OBJECTVALUE3, OBJECTID4, OBJECTVALUE4, OBJECTID5, OBJECTVALUE5, OBJECTID6, 18 | OBJECTVALUE6, OBJECTID7, OBJECTVALUE7, RECNAME FROM PSPCMNAME WHERE REFNAME IN &FIELDNAME AND 19 | RECNAME NOT IN ('PANEL','RECORD','MENUNAME','BARNAME','ITEMNAME','PANELGROUP','BUSPROCESS','BUSACTIVITY','BUSEVENT','SCROLL','SQL','MESSAGE','FILELAYOUT','COMPONENT','INTERLINK','IMAGE'); 20 | SELECT DISTINCT 'Used_in_PTF', PTTST_NAME FROM PSPTTSTCOMMAND WHERE FIELDNAME IN &FIELDNAME ORDER BY PTTST_NAME; 21 | SELECT DISTINCT 'Used_as_QryField', Q.QRYNAME FROM PSQRYFIELD Q WHERE Q.FIELDNAME IN &FIELDNAME ORDER BY Q.QRYNAME; 22 | SELECT DISTINCT 'Used_in_Records', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.FIELDNAME IN &FIELDNAME ORDER BY R.RECNAME; 23 | SELECT DISTINCT 'Used_as_SetCntrlFld_Field', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.SETCNTRLFLD IN &FIELDNAME ORDER BY R.RECNAME; 24 | SELECT 'Used_in_CI', I.BCNAME FROM PSBCITEM I WHERE I.FIELDNAME IN &FIELDNAME ORDER BY I.BCNAME; 25 | SELECT 'Used_on_Page', P.PNLNAME, P.FIELDNAME FROM PSPNLFIELD P WHERE P.FIELDNAME IN &FIELDNAME ORDER BY P.PNLNAME; 26 | -------------------------------------------------------------------------------- /SQLs/FindFieldDefnReferences.sql: -------------------------------------------------------------------------------- 1 | set pages 50000 lines 32767; 2 | set verify off 3 | set trimspool on; 4 | set trimout on; 5 | set sqlformat csv; 6 | --set sqlformat ansiconsole; 7 | --set termout off; 8 | def FIELDNAME = ('EMPLID') 9 | 10 | SELECT DISTINCT 'Used_in_CUBES', ACEMODELID FROM PSACECUBECOLMAP WHERE FIELDNAME IN &FIELDNAME OR ACEAGGRFIELDNAME IN &FIELDNAME ORDER BY ACEMODELID; 11 | SELECT DISTINCT 'Used_in_Queue', CHNLNAME FROM PSSUBCHNL WHERE FIELDNAME IN &FIELDNAME ORDER BY CHNLNAME; 12 | SELECT DISTINCT 'Used_as_SetCntrlFld_Rec', D.RECNAME FROM PSRECDEFN D WHERE D.SETCNTRLFLD IN &FIELDNAME ORDER BY D.RECNAME; 13 | SELECT DISTINCT 'Uses_in_Analytic_Type', F.PROBTYPE, F.RECNAME FROM PSOPTFIELD F WHERE F.FIELDNAME IN &FIELDNAME ORDER BY F.PROBTYPE; 14 | SELECT DISTINCT 'Used_in_FileLayout', FLDDEFNNAME FROM PSFLDFIELDDEFN WHERE FLDFIELDNAME IN &FIELDNAME ORDER BY FLDDEFNNAME; 15 | SELECT DISTINCT 'Used_in_Projects', I.PROJECTNAME FROM PSPROJECTITEM I WHERE I.OBJECTTYPE = 2 AND I.OBJECTVALUE1 IN &FIELDNAME ORDER BY I.PROJECTNAME; 16 | SELECT DISTINCT 'Used_as_MsgRecFldOverride', MSGNAME FROM PSMSGFLDOVR WHERE FIELDNAME IN &FIELDNAME ORDER BY MSGNAME; 17 | SELECT DISTINCT 'Used_in_PeopleCode_Field_REFNAME_PC', OBJECTID1, OBJECTVALUE1, OBJECTID2, OBJECTVALUE2, OBJECTID3, OBJECTVALUE3, OBJECTID4, OBJECTVALUE4, OBJECTID5, OBJECTVALUE5, OBJECTID6, 18 | OBJECTVALUE6, OBJECTID7, OBJECTVALUE7, RECNAME FROM PSPCMNAME WHERE REFNAME IN &FIELDNAME AND 19 | RECNAME NOT IN ('PANEL','RECORD','MENUNAME','BARNAME','ITEMNAME','PANELGROUP','BUSPROCESS','BUSACTIVITY','BUSEVENT','SCROLL','SQL','MESSAGE','FILELAYOUT','COMPONENT','INTERLINK','IMAGE'); 20 | SELECT DISTINCT 'Used_in_PTF', PTTST_NAME FROM PSPTTSTCOMMAND WHERE FIELDNAME IN &FIELDNAME ORDER BY PTTST_NAME; 21 | SELECT DISTINCT 'Used_as_QryField', Q.QRYNAME FROM PSQRYFIELD Q WHERE Q.FIELDNAME IN &FIELDNAME ORDER BY Q.QRYNAME; 22 | SELECT DISTINCT 'Used_in_Records', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.FIELDNAME IN &FIELDNAME ORDER BY R.RECNAME; 23 | SELECT DISTINCT 'Used_as_SetCntrlFld_Field', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.SETCNTRLFLD IN &FIELDNAME ORDER BY R.RECNAME; 24 | SELECT 'Used_in_CI', I.BCNAME FROM PSBCITEM I WHERE I.FIELDNAME IN &FIELDNAME ORDER BY I.BCNAME; 25 | SELECT 'Used_on_Page', P.PNLNAME, P.FIELDNAME FROM PSPNLFIELD P WHERE P.FIELDNAME IN &FIELDNAME ORDER BY P.PNLNAME; 26 | -------------------------------------------------------------------------------- /SQLs/FindIn_Records.sql: -------------------------------------------------------------------------------- 1 | --Version 1 2 | --Find In Record 3 | SELECT P.OBJECTID1, P.OBJECTVALUE1, P.OBJECTID2, P.OBJECTVALUE2, P.OBJECTID3, P.OBJECTVALUE3, P.OBJECTID4, P.OBJECTVALUE4, P.OBJECTID5, P.OBJECTVALUE5, P.OBJECTID6, P.OBJECTVALUE6, 4 | P.OBJECTID7, P.OBJECTVALUE7, D.RECNAME, D.FIELDCOUNT, D.INDEXCOUNT, D.RECTYPE, D.RELLANGRECNAME, D.RECDESCR, D.PARENTRECNAME, D.SQLTABLENAME, D.BUILDSEQNO, D.OBJECTOWNERID 5 | FROM PSPCMTXT P, PSRECDEFN D 6 | WHERE P.OBJECTID1 IN (1,3,9,10,60,66,74,104,65) 7 | AND P.OBJECTVALUE1 = D.RECNAME 8 | AND D.RECTYPE IN (0,1,2,3,5,6,7) 9 | AND UPPER(P.PCTEXT) LIKE UPPER('%PERSONAL_DATA%'); 10 | -------------------------------------------------------------------------------- /SQLs/FindIn_SQLs.sql: -------------------------------------------------------------------------------- 1 | --Find In SQL 2 | --Replace PERSONAL_DATA with your record 3 | SELECT SQLTEXT.SQLID, SQLD.OBJECTOWNERID, CASE SQLTEXT.SQLTYPE WHEN '0' THEN '0 - SQL Object' WHEN '2' THEN '2 - SQL View' ELSE 'Unknown' END AS "SQL Type", SQLTEXT.MARKET, 4 | CASE SQLTEXT.DBTYPE WHEN '1' THEN '1 - DB2/MVS' WHEN '2' THEN '2 - Oracle' WHEN '3' THEN '3 - Informix' WHEN '4' THEN '4 - DB2/UNIX' WHEN '6' THEN '6 - Sybase' 5 | WHEN '7' THEN '7 - Microsoft' WHEN ' ' THEN 'default' 6 | ELSE 'Unknown' END "DB Type", SQLTEXT.EFFDT, SQLTEXT.SEQNUM, SQLTEXT.SQLTEXT 7 | FROM (PSSQLTEXTDEFN SQLTEXT LEFT OUTER JOIN PSSQLDEFN SQLD ON SQLD.SQLID = SQLTEXT.SQLID AND SQLD.SQLTYPE = SQLTEXT.SQLTYPE) 8 | WHERE SQLTEXT.SQLTYPE IN('0', '2') AND UPPER(SQLTEXT.SQLTEXT) LIKE UPPER('%PERSONAL_DATA%') ORDER BY SQLTEXT.SQLID, SQLTEXT.SQLTYPE; 9 | -------------------------------------------------------------------------------- /SQLs/FindRecordDefinitionReferences.sql: -------------------------------------------------------------------------------- 1 | --Find Record Definition References 2 | set pages 50000 lines 32767; 3 | set verify off 4 | set trimspool on; 5 | set trimout on; 6 | set sqlformat csv; 7 | --set sqlformat ansiconsole; 8 | --set termout off; 9 | def RECNAME = ('HCR_HANDLE_WK', 'HCR_JOB_WK', 'HCR_ACK_WK', 'HCR_ERROR_WK', 'HCR_CAN_JOB_WK', 'HRS_CAND_UPD_WK', 'SAC_CANDIDATE', 'SP_EXT_TIME_HDR', 'AR_DEDUCTNS_RSP', 10 | 'AR_DISPUTES_RSP', 'PA_SP_MSG', 'EX_AIRLINE_TKT', 'CC_CARD_DATA_EX', 'EX_EMC_CA_APR_H', 'EX_EMC_ER_APR_H', 'EX_EMC_TR_APR_H', 'PAY_ACKNOWLEDGE', 11 | 'PAY_ISSUED', 'PAY_REQUEST', 'WRK_PROJ_TAO', 'PROJ_ACT_TEAM', 'PROJECT_TEAM', 'ACCOMPLISHMENTS', 'PERSONAL_DATA', 'EMAIL_ADDRESSES', 'PERSONAL_PHONE', 'PERS_DATA_EFFDT', 12 | 'PERS_NID', 'RS_EVALUATIONS', 'COMPETENCIES', 'CITIZENSHIP', 'CITIZEN_PSSPRT', 'VISA_PMT_DATA', 'VISA_PMT_SUPPRT', 'RS_SCHED_TASK', 'RS_POOL_MEMBER', 'RS_SO_LINE_REC', 13 | 'EMPL_PHOTO', 'EMPLOYMENT', 'JOB', 'BEN_PROG_PARTIC', 'COMPENSATION', 'JOB_JR', 'DIVERSITY', 'PRIORWORK_EXPER', 'DIRECT_DEPOSIT', 'DIR_DEP_DISTRIB', 'FO_ASGN_XREF', 14 | 'TL_EMPL_DATA', 'FO_MC_ART_SEL', 'FO_RATE_ELEMENT'); 15 | 16 | SELECT DISTINCT 'Used_in_Activity', ACTIVITYNAME FROM PSMSGAGTDEFN WHERE SEARCHRECNAME IN &RECNAME ORDER BY ACTIVITYNAME; 17 | SELECT DISTINCT 'Used_as_AUDIT_Rec', D.RECNAME FROM PSRECDEFN D WHERE D.AUDITRECNAME IN &RECNAME ORDER BY D.RECNAME; 18 | SELECT DISTINCT 'Used_as_PARENT_Rec', D.RECNAME FROM PSRECDEFN D WHERE D.PARENTRECNAME IN &RECNAME ORDER BY D.RECNAME; 19 | SELECT DISTINCT 'Used_as_Qry_Sec_Rec', D.RECNAME FROM PSRECDEFN D WHERE D.QRYSECRECNAME IN &RECNAME ORDER BY D.RECNAME; 20 | SELECT DISTINCT 'Used_as_RLR_Rec', D.RECNAME FROM PSRECDEFN D WHERE D.RELLANGRECNAME IN &RECNAME ORDER BY D.RECNAME; 21 | SELECT DISTINCT 'Used_in_Routing_Event_Workflow', E.RECNAME, E.ACTIVITYNAME, E.EVENTNAME FROM PSEVENTDEFN E WHERE E.RECNAME IN &RECNAME ORDER BY E.ACTIVITYNAME, E.EVENTNAME; 22 | SELECT DISTINCT 'Used_in_FileLayout_Segments', FLDSEGNAME, FLDDEFNNAME FROM PSFLDSEGDEFN WHERE FLDSEGNAME IN &RECNAME ORDER BY FLDDEFNNAME; 23 | SELECT DISTINCT 'Used_as_ADD_SearchRec', G.ADDSRCHRECNAME, G.PNLGRPNAME FROM PSPNLGRPDEFN G WHERE G.ADDSRCHRECNAME IN &RECNAME ORDER BY G.PNLGRPNAME; 24 | SELECT DISTINCT 'Used_as_SearchRec', G.SEARCHRECNAME, G.PNLGRPNAME FROM PSPNLGRPDEFN G WHERE G.SEARCHRECNAME IN &RECNAME ORDER BY G.PNLGRPNAME; 25 | SELECT DISTINCT 'Used_in_CI', I.BCNAME, I.RECNAME, I.FIELDNAME FROM PSBCITEM I WHERE I.RECNAME IN &RECNAME AND I.BCTYPE NOT IN (3, 6, 7) ORDER BY I.BCNAME; 26 | SELECT DISTINCT 'Used_as_SearchRec_MENU', I.SEARCHRECNAME, I.MENUNAME FROM PSMENUITEM I WHERE I.SEARCHRECNAME IN &RECNAME ORDER BY I.MENUNAME; 27 | SELECT DISTINCT 'Used_in_(Records)_in_Projects', I.OBJECTVALUE1, I.PROJECTNAME FROM PSPROJECTITEM I WHERE I.OBJECTTYPE = 0 AND I.OBJECTVALUE1 IN &RECNAME ORDER BY I.PROJECTNAME; 28 | SELECT DISTINCT 'Used_in_BPA_MAP_Level', L.RECNAME, L.ACTIVITYNAME, L.EVENTNAME, L.MAPNAME FROM PSMAPLEVEL L WHERE L.RECNAME IN &RECNAME ORDER BY L.ACTIVITYNAME, L.EVENTNAME, L.MAPNAME; 29 | SELECT DISTINCT 'Used_in_BPA_MAPRec', M.RECNAME, M.ACTIVITYNAME, M.EVENTNAME, M.MAPNAME FROM PSMAPRECFIELD M WHERE M.RECNAME IN &RECNAME ORDER BY M.ACTIVITYNAME, M.EVENTNAME, M.MAPNAME; 30 | SELECT DISTINCT 'Used_in_BPA_MAP_Role', M.RECNAME, M.ACTIVITYNAME, M.EVENTNAME, M.MAPNAME FROM PSMAPROLEBIND M WHERE M.RECNAME IN &RECNAME ORDER BY M.ACTIVITYNAME, M.EVENTNAME, M.MAPNAME; 31 | SELECT DISTINCT 'Used_as_IB_MessageRec', RECNAME, MSGNAME FROM PSMSGREC WHERE RECNAME IN &RECNAME ORDER BY MSGNAME; 32 | SELECT DISTINCT 'Used_in_PeopleCode_Rec_REFNAME_PC', REFNAME, OBJECTID1, OBJECTVALUE1, OBJECTID2, OBJECTVALUE2, OBJECTID3, OBJECTVALUE3, OBJECTID4, OBJECTVALUE4, OBJECTID5, OBJECTVALUE5, 33 | OBJECTID6, OBJECTVALUE6, OBJECTID7, OBJECTVALUE7, RECNAME FROM PSPCMNAME WHERE RECNAME = 'RECORD' AND REFNAME IN &RECNAME; 34 | SELECT DISTINCT 'Used_in_PeopleCode_Rec_PC_References', RECNAME, OBJECTID1, OBJECTVALUE1, OBJECTID2, OBJECTVALUE2, OBJECTID3, OBJECTVALUE3, OBJECTID4, OBJECTVALUE4, OBJECTID5, 35 | OBJECTVALUE5, OBJECTID6, OBJECTVALUE6, OBJECTID7, OBJECTVALUE7, REFNAME FROM PSPCMNAME WHERE RECNAME IN &RECNAME; 36 | SELECT DISTINCT 'Used_as_PNL_Field', P.RECNAME, P.PNLNAME, P.FIELDNAME FROM PSPNLFIELD P WHERE P.RECNAME IN &RECNAME ORDER BY P.PNLNAME; 37 | SELECT DISTINCT 'Used_in_PTF', RECNAME, PTTST_NAME FROM PSPTTSTCOMMAND WHERE RECNAME IN &RECNAME ORDER BY PTTST_NAME; 38 | SELECT DISTINCT 'Used_in_Query_View_QRYRec', Q.RECNAME, Q.QRYNAME FROM PSQRYRECORD Q WHERE Q.RECNAME IN &RECNAME ORDER BY Q.QRYNAME; 39 | SELECT DISTINCT 'Used_in_BPA_MAP_Event_Route', R.WLRECNAME, R.ACTIVITYNAME, R.EVENTNAME, R.ROUTENAME FROM PSEVENTROUTE R WHERE R.WLRECNAME IN &RECNAME 40 | ORDER BY R.ACTIVITYNAME, R.EVENTNAME, R.ROUTENAME; 41 | SELECT DISTINCT 'Used_in_BusPrcs_Name', R.RECNAME_CUR, R.BUSPROCNAME FROM PS_APPR_RULE_HDR R WHERE R.RECNAME_CUR IN &RECNAME ORDER BY R.BUSPROCNAME; 42 | SELECT DISTINCT 'Used_in_OPT_Appl_Rec', R.RECNAME, R.PROBTYPE FROM PSOPTREC R WHERE R.RECNAME IN &RECNAME ORDER BY R.PROBTYPE; 43 | SELECT DISTINCT 'Used_as_RecField_DEFRECNAME', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.DEFRECNAME IN &RECNAME ORDER BY R.RECNAME; 44 | SELECT DISTINCT 'Used_as_RecField_EDITTABLE', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.EDITTABLE IN &RECNAME ORDER BY R.RECNAME; 45 | SELECT DISTINCT 'Used_as_RecField_SUBREC', R.RECNAME, R.FIELDNAME FROM PSRECFIELD R WHERE R.FIELDNAME IN &RECNAME AND R.SUBRECORD = 'Y' ORDER BY R.RECNAME; 46 | SELECT DISTINCT 'Used_in_Rec_Group_REC', RECNAME, REC_GROUP_ID FROM PS_REC_GROUP_REC WHERE RECNAME IN &RECNAME ORDER BY REC_GROUP_ID; 47 | SELECT DISTINCT 'Used_as_AE_State_Rec', S.AE_STATE_RECNAME, S.AE_APPLID FROM PSAEAPPLSTATE S WHERE S.AE_STATE_RECNAME IN &RECNAME ORDER BY S.AE_APPLID; 48 | SELECT DISTINCT 'Used_as_QRY_SecurityRec', S.QRYSECRECNAME, S.RECNAME FROM PSRECQRYSECRECS S WHERE S.QRYSECRECNAME IN &RECNAME ORDER BY S.RECNAME; 49 | SELECT DISTINCT 'Used_as_AE_TempTable', T.RECNAME, T.AE_APPLID FROM PSAEAPPLTEMPTBL T WHERE T.RECNAME IN &RECNAME ORDER BY T.AE_APPLID; 50 | SELECT DISTINCT 'Used_as_Panel_Tree_Cntrl_Rec', T.RECNAME, T.PNLNAME FROM PSPNLTREECTRL T WHERE T.RECNAME IN &RECNAME ORDER BY T.PNLNAME; 51 | SELECT DISTINCT 'Used_as_TREE_DTL_Rec', B.DTL_RECNAME, TREE_NAME FROM PSTREEDEFN A, PSTREESTRCT B WHERE B.DTL_RECNAME IN &RECNAME AND A.TREE_STRCT_ID = B.TREE_STRCT_ID ORDER BY TREE_NAME; 52 | SELECT DISTINCT 'Used_as_TREE_LVL_Rec', B.LEVEL_RECNAME, TREE_NAME FROM PSTREEDEFN A, PSTREESTRCT B WHERE B.LEVEL_RECNAME IN &RECNAME AND A.TREE_STRCT_ID = B.TREE_STRCT_ID ORDER BY TREE_NAME; 53 | SELECT DISTINCT 'Used_as_TREE_NODE_Rec', B.NODE_RECNAME, TREE_NAME FROM PSTREEDEFN A, PSTREESTRCT B WHERE B.NODE_RECNAME IN &RECNAME AND A.TREE_STRCT_ID = B.TREE_STRCT_ID ORDER BY TREE_NAME; 54 | -------------------------------------------------------------------------------- /SQLs/GLS8005.sql: -------------------------------------------------------------------------------- 1 | --Modified Version as per the PDF output 2 | SELECT A.BASE_CURRENCY, A.PROJECT_ID, A.BUDGET_PERIOD, B.KK_TRAN_DT, B.KK_SOURCE_TRAN, B.BUSINESS_UNIT, B.JOURNAL_ID, B.JOURNAL_DATE, 3 | B.UNPOST_SEQ, C.JOURNAL_LINE, A.LEDGER, C.LEDGER, B.CUST_ID, B.ITEM, B.ITEM_LINE, B.DEPOSIT_ID, B.PAYMENT_SEQ_NUM, B.VOUCHER_ID, C.VOUCHER_LINE_NUM, B.PO_ID, B.REQ_ID, 4 | C.LINE_NBR, C.DISTRIB_LINE_NUM, B.ACCOUNTING_DT, C.ACCTG_LINE_NO, B.INVOICE, C.LINE_SEQ_NUM, B.ACTIVITY_ID, B.RESOURCE_ID, B.EMPLID, B.TRANS_NBR, 5 | A.MONETARY_AMOUNT, C.PROJECT_ID, A.KK_TRAN_ID, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, A.CHARTFIELD2, E.LEDGER_TYPE_KK, J.LEDGER_GROUP_TYPE, 6 | CASE WHEN (E.LEDGER_TYPE_KK = 1 AND J.LEDGER_GROUP_TYPE = 'R') THEN (1 * A.MONETARY_AMOUNT) ELSE 0 END AS "Total Recognized Amount", 7 | CASE WHEN E.LEDGER_TYPE_KK = 4 THEN (1 * A.MONETARY_AMOUNT) ELSE 0 END AS "Total Collected Amount", 8 | CASE WHEN E.LEDGER_TYPE_KK = 3 THEN (1 * A.MONETARY_AMOUNT) ELSE 0 END AS "Pre Encumbered Amount", 9 | CASE WHEN E.LEDGER_TYPE_KK = 2 THEN (1 * A.MONETARY_AMOUNT) ELSE 0 END AS "Encumbered Amount", 10 | CASE WHEN (E.LEDGER_TYPE_KK = 1 AND J.LEDGER_GROUP_TYPE = 'E') THEN (1 * A.MONETARY_AMOUNT) ELSE 0 END AS "Expended Amount" 11 | FROM PS_KK_ACTIVITY_LOG A, PS_KK_SOURCE_HDR B, PS_KK_SOURCE_LN C, PS_LED_GRP_LED_TBL E, PS_KK_BUDGET_TYPE H, PS_SET_CNTRL_REC I, PS_LED_GRP_TBL J 12 | WHERE A.KK_TRAN_ID = B.KK_TRAN_ID 13 | AND A.KK_TRAN_DT = B.KK_TRAN_DT 14 | AND B.KK_TRAN_ID = C.KK_TRAN_ID 15 | AND B.KK_TRAN_DT = C.KK_TRAN_DT 16 | AND A.KK_TRAN_LN = C.KK_TRAN_LN 17 | AND A.LEDGER = E.LEDGER 18 | AND E.SETID = I.SETID 19 | AND H.EFFDT = (SELECT MAX(H_ED.EFFDT) FROM PS_KK_BUDGET_TYPE H_ED WHERE H.SETID1 = H_ED.SETID1 AND H.LEDGER_GROUP = H_ED.LEDGER_GROUP AND H_ED.EFFDT <= SYSDATE) 20 | AND H.LEDGER_GROUP = E.LEDGER_GROUP 21 | AND H.SETID1 = E.SETID 22 | AND E.SETID = J.SETID 23 | AND E.LEDGER_GROUP = J.LEDGER_GROUP 24 | AND I.SETCNTRLVALUE = A.BUSINESS_UNIT 25 | AND I.RECNAME = 'LED_GRP_LED_TBL' 26 | AND A.BALANCING_LINE <> 'Y' 27 | AND (A.BUSINESS_UNIT = 'UNUNI' OR A.BUSINESS_UNIT LIKE '6%') 28 | AND A.BUDGET_PERIOD IN ('2012', '2013') 29 | AND A.PROJECT_ID IN ('00064159') 30 | --AND A.ACCOUNT IN ('B7000', 'B7100') 31 | --AND A.DEPTID = 'B0112' 32 | --AND B.KK_SOURCE_TRAN = 'AP_ACCT_LN' 33 | AND A.LEDGER_GROUP = 'DET_UU' 34 | ORDER BY 2,4; 35 | -------------------------------------------------------------------------------- /SQLs/GrantSYSADM_PSVBox.sql: -------------------------------------------------------------------------------- 1 | --CDB Container - CDBFSCM (login into this container as sysdba and then switch to PDB Container) 2 | 3 | --PDB Container - EP92U021 4 | 5 | SET ORACLE_SID=CDBFSCM (Windows) (open cmd from local m/c) 6 | 7 | OR 8 | 9 | export ORACLE_SID=CDBFSCM (Linux) (log into your VM) 10 | 11 | sqlplus "/ as sysdba" 12 | 13 | SHOW CON_NAME; 14 | 15 | SELECT USERNAME FROM DBA_USERS; 16 | 17 | ALTER SESSION SET CONTAINER = EP92U021; 18 | 19 | SELECT USERNAME FROM DBA_USERS; 20 | 21 | GRANT SELECT_CATALOG_ROLE to SYSADM; 22 | 23 | GRANT DBA to SYSADM; 24 | 25 | GRANT ALL PRIVILEGES TO SYSADM; 26 | 27 | GRANT ALL ON v_$session to SYSADM; 28 | 29 | GRANT ALL ON v_$sql to SYSADM; 30 | 31 | GRANT ALL ON v_$session_longops to SYSADM; 32 | 33 | COMMIT; 34 | -------------------------------------------------------------------------------- /SQLs/ListColumnsofaTable.sql: -------------------------------------------------------------------------------- 1 | SELECT :1, RTRIM((XMLAGG(XMLELEMENT(E,UPPER(:2 || '.' || column_name),', ')ORDER BY column_id).EXTRACT('//text()')).getclobval(),',') very_long_text--, 2 | -- LISTAGG(UPPER(:2 || '.' || column_name), ', ') WITHIN GROUP (ORDER BY column_id) column_list 3 | FROM all_tab_columns 4 | WHERE table_name = :1 5 | GROUP BY :1 6 | ORDER BY :1; 7 | 8 | --FIND KEYs in a record 9 | SELECT RECNAME, FIELDNAME, (TRUNC((USEEDIT/1),0) - TRUNC((USEEDIT/2),0) * 2) KEY, (TRUNC((USEEDIT/2),0) - TRUNC((USEEDIT/4),0) * 2) DUPORDERKEY, 10 | (TRUNC((USEEDIT/256),0) - TRUNC((USEEDIT/512),0) * 2) REQUIRED 11 | FROM PSRECFIELD 12 | WHERE RECNAME = 'DISTRIB_LINE' 13 | ORDER BY 3 DESC; 14 | -------------------------------------------------------------------------------- /SQLs/LongRunningQueriesOracleONLY: -------------------------------------------------------------------------------- 1 | -- Find long running queries 2 | -------------------------------------------------------------------------------- /SQLs/PSSearchDefinition_Analysis.sql: -------------------------------------------------------------------------------- 1 | --FSCM Search Definitions 2 | --Version 1 3 | SELECT SFSD.PTSF_SBO_NAME "Search Defn", SFSD.DESCR100 "Search Descr", SFSD.PTSF_SOURCE_TYPE "Source Type", SFSD.PTSF_SOURCE_NAME "Source Name", 4 | SDATR.QRYNAME "Query Name", SDATR.QRYFLDNAME "Source Field", SDATR.SEQNUM, SDATR.PTSF_SRCATTR_NAME "Attribute Name", RECD.RECNAME, RECD.RECTYPE, 5 | SFDC.QRYNAME "Security Query Name", SFDC.QRYFLDNAME "Security Qry Field Name", SFDC.PTSF_DOCACL_PVLG "Doc ACL Privilege", 6 | SDATR.PTSF_ISFIELDTOIDX "Field to Index", SDATR.PTSF_ISFLDTODISPL "Field to Display", SDATR.PTSF_ISATTACHMENT "Attachment Field", SDATR.PTSF_IS_CLUSTERD "Define Hierarchy", 7 | SDATR.PTSF_IS_FACETED "IsFaceted", SFSD.PTSF_ISGBLSRCH "IsGlobalSearch", SFSD.PTSF_ISSRCACL "Source Level", SFSD.PTSF_ISDOCACL "Document Level", 8 | SFSD.OBJECTOWNERID || ' - ' || X1.XLATLONGNAME AS "Search Object Ident", RECD.OBJECTOWNERID || ' - ' || X2.XLATLONGNAME AS "Record Object Ident" 9 | FROM (PSPTSF_SD SFSD LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'OBJECTOWNERID' AND X1.FIELDVALUE = SFSD.OBJECTOWNERID AND X1.EFF_STATUS = 'A'), 10 | (((((PSPTSF_SD_ATTR SDATR LEFT OUTER JOIN PSQRYDEFN QRYD ON QRYD.QRYNAME = SDATR.QRYNAME) 11 | LEFT OUTER JOIN PSPTSF_SD_DCATR SFDC ON SDATR.PTSF_SBO_NAME = SFDC.PTSF_SBO_NAME AND SFDC.PTSF_SRCATTR_NAME = SDATR.PTSF_SRCATTR_NAME) 12 | LEFT OUTER JOIN PSQRYFIELD QRYF ON QRYF.QRYNAME = QRYD.QRYNAME AND QRYF.QRYFLDNAME = SDATR.QRYFLDNAME) 13 | LEFT OUTER JOIN PSRECDEFN RECD ON QRYF.RECNAME = RECD.RECNAME) 14 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'OBJECTOWNERID' AND X2.FIELDVALUE = RECD.OBJECTOWNERID AND X2.EFF_STATUS = 'A') 15 | WHERE 1 = 1 16 | AND SFSD.PTSF_SBO_NAME = SDATR.PTSF_SBO_NAME 17 | -- AND SFSD.PTSF_SBO_NAME = 'AP_SDN_ADDRESS' 18 | ORDER BY SFSD.PTSF_SBO_NAME, SDATR.SEQNUM; 19 | -------------------------------------------------------------------------------- /SQLs/PvG_Analysis.sql: -------------------------------------------------------------------------------- 1 | --FSCM PvG 2 | --Version 1 3 | SELECT PGC.PTPG_PGRIDTITLE "Pivod Grid Title", PGM.PTPG_PGRIDNAME "Pivot Grid Name", PGM.PTPG_DSUNIQUEFLD "Unique Heading", 4 | PGM.PTPG_DSCOLUMN "Data Source Columns", PGM.PTPG_FORMAT "Field Format", 5 | PGQP.PTPG_VIEWNAME "View Name", PGQP.PTPG_QRYPROMPNAME "Query Prompt Name", PGQP.PTPG_QRYPROMPREC "Prompt Record", PGQP.FIELDNAME "Field Name", 6 | PGQP.PTPG_QRYPROMPTVAL "Query Prompt Values", PGQP.PTPG_PRMPTXLATVAL "Translate Value", PGS.PTPG_DSNAME "Data Source Name", PGS.PTPG_DSVALUE "Data Source Value", 7 | PGC.PTPG_DSTYPE, PGC.PTPG_PGRIDTYPE, PGC.OBJECTOWNERID || ' - ' || X1.XLATLONGNAME AS "PvG Object Ident", RECD.OBJECTOWNERID || ' - ' || X2.XLATLONGNAME AS "Record Object Ident", 8 | QRYD.QRYNAME, QRYF.RECNAME, QRYF.FIELDNAME, QRYF.FLDNUM 9 | -- SUBSTR(PGQP.PTPG_VIEWNAME, 1, LENGTH(PGQP.PTPG_VIEWNAME)-5) 10 | FROM ((((((PSPGMODEL PGM LEFT OUTER JOIN PSPGQRYPROMPT PGQP ON PGM.PTPG_PGRIDNAME = PGQP.PTPG_PGRIDNAME 11 | AND PGQP.FIELDNAME = SUBSTR(PGM.PTPG_DSUNIQUEFLD, 3, LENGTH(PGM.PTPG_DSUNIQUEFLD)) 12 | AND SUBSTR(PGQP.PTPG_VIEWNAME, 1, LENGTH(PGQP.PTPG_VIEWNAME)-5) = PGQP.PTPG_PGRIDNAME) 13 | LEFT OUTER JOIN PSPGSETTINGS PGS ON PGS.PTPG_PGRIDNAME = PGM.PTPG_PGRIDNAME) 14 | LEFT OUTER JOIN PSQRYDEFN QRYD ON QRYD.QRYNAME = PGS.PTPG_DSVALUE) 15 | LEFT OUTER JOIN PSQRYFIELD QRYF ON QRYF.QRYNAME = QRYD.QRYNAME AND QRYF.QRYFLDNAME = PGM.PTPG_DSUNIQUEFLD) 16 | LEFT OUTER JOIN PSRECDEFN RECD ON QRYF.RECNAME = RECD.RECNAME) 17 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'OBJECTOWNERID' AND X2.FIELDVALUE = RECD.OBJECTOWNERID AND X2.EFF_STATUS = 'A'), 18 | (PSPGCORE PGC LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'OBJECTOWNERID' AND X1.FIELDVALUE = PGC.OBJECTOWNERID AND X1.EFF_STATUS = 'A') 19 | WHERE 1 = 1 20 | AND PGM.PTPG_PGRIDNAME = PGC.PTPG_PGRIDNAME 21 | -- AND PGM.PTPG_PGRIDNAME = 'AP_S360_DB_AMOUNT_BY_STATUS' 22 | -- AND PGQP.FIELDNAME <> ' ' 23 | ORDER BY PGM.PTPG_PGRIDNAME, QRYF.FLDNUM; 24 | -------------------------------------------------------------------------------- /SQLs/Query_Analysis.sql: -------------------------------------------------------------------------------- 1 | --Query References 2 | --Version 1 3 | SELECT QRYF.OPRID "User ID", QRYF.QRYNAME "Query Name", QRYF.QRYFLDNAME "Source Field", QRYF.SELNUM "Select Num", QRYF.FLDNUM "Field Num", QRYF.RECNAME "Record Name", 4 | QRYF.FIELDNAME "Field Name", QRYF.FLDRCDNUM "Field Rec Num", QRYF.FLDEXPNUM "Field Exp Num", QRYF.HEADING "Field Heading", QRYD.DESCR "Query Descr", 5 | CASE(NVL(QRYD.QRYTYPE, 99)) 6 | WHEN 1 THEN '1 - UserQuery' WHEN 2 THEN '2 - Search' WHEN 3 THEN '3 - View' WHEN 4 THEN '4 - Role' WHEN 5 THEN '5 - DBAgent' WHEN 6 THEN '6 - Active' WHEN 7 THEN '7 - Archive' 7 | ELSE 'Other Query' END AS "Query Type", 8 | CASE(NVL(RECD.RECTYPE, 99)) 9 | WHEN 0 THEN '0 - SQL Table' WHEN 1 THEN '1 - SQL View' WHEN 2 THEN '2 - Work Record' WHEN 3 THEN '3 - Sub Record' WHEN 5 THEN '5 - Dynamic View' WHEN 6 THEN '6 - Query View' 10 | WHEN 7 THEN '7 - Temporary Table' 11 | ELSE 'Other Record or Deleted' END AS "Record Type", 12 | DBF.OBJECTOWNERID || ' - ' || X1.XLATLONGNAME AS "DBField Object Ident", RECD.OBJECTOWNERID || ' - ' || X2.XLATLONGNAME AS "Record Object Ident" 13 | FROM ((((((((PSQRYFIELD QRYF LEFT OUTER JOIN PSDBFIELD DBF ON DBF.FIELDNAME = QRYF.FIELDNAME AND DBF.LENGTH > 4) 14 | LEFT OUTER JOIN PSQRYDEFN QRYD ON QRYD.OPRID = QRYF.OPRID AND QRYD.QRYNAME = QRYF.QRYNAME) 15 | LEFT OUTER JOIN PSQRYCRITERIA QRYCL ON QRYCL.OPRID = QRYF.OPRID AND QRYCL.QRYNAME = QRYF.QRYNAME AND QRYCL.LCRTSELNUM = QRYF.SELNUM AND QRYCL.LCRTFLDNUM = QRYF.FLDNUM) 16 | LEFT OUTER JOIN PSQRYCRITERIA QRYCR ON QRYCR.OPRID = QRYF.OPRID AND QRYCR.QRYNAME = QRYF.QRYNAME AND QRYCR.R1CRTSELNUM = QRYF.SELNUM AND QRYCL.R1CRTFLDNUM = QRYF.FLDNUM 17 | AND QRYCR.SELNUM = QRYCL.SELNUM AND QRYCR.CRTNUM = QRYCL.CRTNUM) 18 | LEFT OUTER JOIN PSRECFIELDDB RECFLD ON RECFLD.RECNAME = QRYF.RECNAME AND RECFLD.FIELDNAME = QRYF.FIELDNAME) 19 | LEFT OUTER JOIN PSRECDEFN RECD ON RECD.RECNAME = QRYF.RECNAME) 20 | LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'OBJECTOWNERID' AND X1.FIELDVALUE = DBF.OBJECTOWNERID AND X1.EFF_STATUS = 'A') 21 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'OBJECTOWNERID' AND X2.FIELDVALUE = RECD.OBJECTOWNERID AND X2.EFF_STATUS = 'A') 22 | WHERE 1 = 1 23 | AND ((QRYF.FIELDNAME LIKE '%EMPL%ID' OR QRYF.FIELDNAME LIKE '%EMPL%' OR QRYF.FIELDNAME LIKE '%PERSON%' OR QRYF.FIELDNAME LIKE '%APPLICANT%' OR QRYF.FIELDNAME = 'TEAM_MEMBER' 24 | OR QRYF.FIELDNAME LIKE '%APPLID%') AND QRYF.FIELDNAME NOT LIKE '%TEMPLATE%' AND QRYF.FIELDNAME <> 'AE_APPLID' AND QRYF.FIELDNAME <> 'AE_DO_APPLID') 25 | -- AND QRYF.QRYNAME = 'AM_IT_ASSET_SW_LICENSE_DEVICES' 26 | ORDER BY QRYF.QRYNAME, QRYF.QRYFLDNAME; 27 | -------------------------------------------------------------------------------- /SQLs/README.md: -------------------------------------------------------------------------------- 1 | ## Handy SQLs for PeopleSoft FSCM 2 | #### SQLs used across PS FSCM in production for your ready reference for reporting on daily/monthly/yearly basis 3 | -------------------------------------------------------------------------------- /SQLs/TB_Base_Tran.sql: -------------------------------------------------------------------------------- 1 | --Trial Balance CSV 2013 2 | SELECT X.FISCAL_YEAR, X.ACCOUNT_TYPE, ACCT.DESCR AS ACCT_TYPE_DESCR, X.ACCOUNT, X.DESCR AS ACCT_DESCR, X.CURRENCY_CD, 3 | SUM(X.PERIOD_0) AS "Bal Fwd-BASE", SUM(X.PERIOD_0_TRAN) AS "Bal Fwd-TRAN", 4 | SUM(X.JAN) AS "JAN-Base Curr", SUM(X.JAN_TRAN) AS "JAN-Trans Curr", 5 | SUM(X.FEB) AS "FEB-Base Curr", SUM(X.FEB_TRAN) AS "FEB-Trans Curr", 6 | SUM(X.MAR) AS "MAR-Base Curr", SUM(X.MAR_TRAN) AS "MAR-Trans Curr", 7 | SUM(X.APR) AS "APR-Base Curr", SUM(X.APR_TRAN) AS "APR-Trans Curr", 8 | SUM(X.MAY) AS "MAY-Base Curr", SUM(X.MAY_TRAN) AS "MAY-Trans Curr", 9 | SUM(X.JUN) AS "JUN-Base Curr", SUM(X.JUN_TRAN) AS "JUN-Trans Curr", 10 | SUM(X.JUL) AS "JUL-Base Curr", SUM(X.JUL_TRAN) AS "JUL-Trans Curr", 11 | SUM(X.AUG) AS "AUG-Base Curr", SUM(X.AUG_TRAN) AS "AUG-Trans Curr", 12 | SUM(X.SEP) AS "SEP-Base Curr", SUM(X.SEP_TRAN) AS "SEP-Trans Curr", 13 | SUM(X.OCT) AS "OCT-Base Curr", SUM(X.OCT_TRAN) AS "OCT-Trans Curr", 14 | SUM(X.NOV) AS "NOV-Base Curr", SUM(X.NOV_TRAN) AS "NOV-Trans Curr", 15 | SUM(X.DEC) AS "DEC-Base Curr", SUM(X.DEC_TRAN) AS "DEC-Trans Curr", 16 | SUM(X.POSTED_BASE_AMT) AS "Period Close-BASE", SUM(X.POSTED_TRAN_AMT) AS "Period Close-TRAN" 17 | FROM (SELECT ST.BUSINESS_UNIT, ST.FISCAL_YEAR, ET.ACCOUNT_TYPE, ST.ACCOUNT, ET.DESCR, ST.CURRENCY_CD, SUM(ST.POSTED_BASE_AMT) AS POSTED_BASE_AMT, SUM(ST.POSTED_TRAN_AMT) AS POSTED_TRAN_AMT 18 | , CASE ST.ACCOUNTING_PERIOD WHEN 0 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS PERIOD_0 19 | , CASE ST.ACCOUNTING_PERIOD WHEN 0 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS PERIOD_0_TRAN 20 | , CASE ST.ACCOUNTING_PERIOD WHEN 1 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS JAN 21 | , CASE ST.ACCOUNTING_PERIOD WHEN 1 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS JAN_TRAN 22 | , CASE ST.ACCOUNTING_PERIOD WHEN 2 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS FEB 23 | , CASE ST.ACCOUNTING_PERIOD WHEN 2 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS FEB_TRAN 24 | , CASE ST.ACCOUNTING_PERIOD WHEN 3 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS MAR 25 | , CASE ST.ACCOUNTING_PERIOD WHEN 3 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS MAR_TRAN 26 | , CASE ST.ACCOUNTING_PERIOD WHEN 4 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS APR 27 | , CASE ST.ACCOUNTING_PERIOD WHEN 4 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS APR_TRAN 28 | , CASE ST.ACCOUNTING_PERIOD WHEN 5 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS MAY 29 | , CASE ST.ACCOUNTING_PERIOD WHEN 5 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS MAY_TRAN 30 | , CASE ST.ACCOUNTING_PERIOD WHEN 6 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS JUN 31 | , CASE ST.ACCOUNTING_PERIOD WHEN 6 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS JUN_TRAN 32 | , CASE ST.ACCOUNTING_PERIOD WHEN 7 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS JUL 33 | , CASE ST.ACCOUNTING_PERIOD WHEN 7 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS JUL_TRAN 34 | , CASE ST.ACCOUNTING_PERIOD WHEN 8 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS AUG 35 | , CASE ST.ACCOUNTING_PERIOD WHEN 8 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS AUG_TRAN 36 | , CASE ST.ACCOUNTING_PERIOD WHEN 9 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS SEP 37 | , CASE ST.ACCOUNTING_PERIOD WHEN 9 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS SEP_TRAN 38 | , CASE ST.ACCOUNTING_PERIOD WHEN 10 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS OCT 39 | , CASE ST.ACCOUNTING_PERIOD WHEN 10 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS OCT_TRAN 40 | , CASE ST.ACCOUNTING_PERIOD WHEN 11 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS NOV 41 | , CASE ST.ACCOUNTING_PERIOD WHEN 11 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS NOV_TRAN 42 | , CASE ST.ACCOUNTING_PERIOD WHEN 12 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS DEC 43 | , CASE ST.ACCOUNTING_PERIOD WHEN 12 THEN SUM(ST.POSTED_TRAN_AMT) ELSE 0 END AS DEC_TRAN 44 | FROM PS_LEDGER ST, PS_GL_ACCOUNT_TBL ET, PS_SET_CNTRL_REC B2 45 | WHERE ET.ACCOUNT = ST.ACCOUNT 46 | AND B2.SETCNTRLVALUE = ST.BUSINESS_UNIT 47 | AND B2.RECNAME = 'GL_ACCOUNT_TBL' 48 | AND B2.SETID = ET.SETID 49 | AND ET.EFFDT = (SELECT MAX(CJ.EFFDT) FROM PS_GL_ACCOUNT_TBL CJ WHERE CJ.SETID = ET.SETID AND CJ.ACCOUNT = ET.ACCOUNT AND CJ.EFFDT <= sysdate) 50 | AND ST.BUSINESS_UNIT = 'UNUNI' 51 | AND ST.LEDGER = 'USD' 52 | AND ST.FISCAL_YEAR = '2013' 53 | AND ((ST.ACCOUNTING_PERIOD BETWEEN 1 and 12 AND ET.ACCOUNT_TYPE IN ('E', 'R')) OR (ST.ACCOUNTING_PERIOD BETWEEN 0 and 12 AND ET.ACCOUNT_TYPE NOT IN ('E', 'R'))) 54 | AND ST.STATISTICS_CODE = ' ' 55 | GROUP BY ST.BUSINESS_UNIT, ST.FISCAL_YEAR, ST.ACCOUNTING_PERIOD, ET.ACCOUNT_TYPE, ST.ACCOUNT, ET.DESCR, ST.CURRENCY_CD) X, PS_ACCT_TYPE_TBL ACCT 56 | WHERE ACCT.SETID = (SELECT SETID FROM PS_SET_CNTRL_REC G WHERE G.SETCNTRLVALUE = X.BUSINESS_UNIT AND G.RECNAME = 'ACCT_TYPE_TBL') 57 | AND ACCT.ACCOUNT_TYPE = X.ACCOUNT_TYPE 58 | --AND X.ACCOUNT = '11004' 59 | GROUP BY X.FISCAL_YEAR, X.ACCOUNT_TYPE, ACCT.DESCR, X.ACCOUNT, X.DESCR, X.CURRENCY_CD 60 | ORDER BY X.ACCOUNT, X.DESCR; 61 | -------------------------------------------------------------------------------- /SQLs/TSE_Voucher_Query.sql: -------------------------------------------------------------------------------- 1 | select vchr_bld_error_flg, vchr_bld_status, A.* 2 | from PS_VCHR_HDR_QV A 3 | where 1 = 1 4 | AND A.VCHR_SRC = 'XML' 5 | and exists (select 'x' from ps_tse_vchr X where X.BUSINESS_UNIT = A.BUSINESS_UNIT and X.VOUCHER_ID = A.VOUCHER_ID) 6 | order by process_instance desc; 7 | 8 | --Payables Voucher Error Logging 9 | --AP TSE Records 10 | SELECT 'TSE_VCHR', A.* FROM PS_TSE_VCHR A WHERE BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 11 | ORDER BY TSE_PROC_INSTANCE DESC, BUSINESS_UNIT, VOUCHER_ID; 12 | SELECT 'TSE_VCHR_FLD', A.*, CAT.MESSAGE_TEXT--, CAT.DESCRLONG 13 | FROM (PS_TSE_VCHR_FLD A LEFT OUTER JOIN PSMSGCATDEFN CAT ON A.MESSAGE_SET_NBR = CAT.MESSAGE_SET_NBR AND A.MESSAGE_NBR = CAT.MESSAGE_NBR) 14 | WHERE BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 15 | ORDER BY TSE_PROC_INSTANCE DESC, BUSINESS_UNIT, VOUCHER_ID; 16 | SELECT 'TSE_VCHRLN_FLD', A.*, CAT.MESSAGE_TEXT--, CAT.DESCRLONG 17 | FROM (PS_TSE_VCHRLN_FLD A LEFT OUTER JOIN PSMSGCATDEFN CAT ON A.MESSAGE_SET_NBR = CAT.MESSAGE_SET_NBR AND A.MESSAGE_NBR = CAT.MESSAGE_NBR) 18 | WHERE BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 19 | ORDER BY TSE_PROC_INSTANCE DESC, BUSINESS_UNIT, VOUCHER_ID, VOUCHER_LINE_NUM; 20 | SELECT 'TSE_ACCTLN_FLD', A.*, CAT.MESSAGE_TEXT--, CAT.DESCRLONG 21 | FROM (PS_TSE_ACCTLN_FLD A LEFT OUTER JOIN PSMSGCATDEFN CAT ON A.MESSAGE_SET_NBR = CAT.MESSAGE_SET_NBR AND A.MESSAGE_NBR = CAT.MESSAGE_NBR) 22 | WHERE BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 23 | ORDER BY TSE_PROC_INSTANCE DESC, BUSINESS_UNIT, VOUCHER_ID, VOUCHER_LINE_NUM; 24 | SELECT 'TSE_PYMNT_FLD', A.*, CAT.MESSAGE_TEXT--, CAT.DESCRLONG 25 | FROM (PS_TSE_PYMNT_FLD A LEFT OUTER JOIN PSMSGCATDEFN CAT ON A.MESSAGE_SET_NBR = CAT.MESSAGE_SET_NBR AND A.MESSAGE_NBR = CAT.MESSAGE_NBR) 26 | WHERE BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 27 | ORDER BY TSE_PROC_INSTANCE DESC, BUSINESS_UNIT, VOUCHER_ID; 28 | SELECT 'TSE_MISC_FLD', A.*, CAT.MESSAGE_TEXT--, CAT.DESCRLONG 29 | FROM (PS_TSE_MISC_FLD A LEFT OUTER JOIN PSMSGCATDEFN CAT ON A.MESSAGE_SET_NBR = CAT.MESSAGE_SET_NBR AND A.MESSAGE_NBR = CAT.MESSAGE_NBR) 30 | WHERE BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 31 | ORDER BY TSE_PROC_INSTANCE DESC, BUSINESS_UNIT, VOUCHER_ID; 32 | 33 | --Version 4 34 | select A.BUSINESS_UNIT, A.VOUCHER_ID, A.TSE_JOBID, A.TSE_PROC_INSTANCE, A.ORIGIN, A.GRP_AP_ID, A.VENDOR_ID, A.CNTRCT_ID, A.INVOICE_ID, A.INVOICE_DT, A.GROSS_AMT, A.TXN_CURRENCY_CD, A.VCHR_SRC, 35 | (SELECT RTRIM(XMLAGG(XMLELEMENT(E, B.TSE_SET_NBR || ' - '|| B.TSE_EDIT_TYPE || ' - '|| X1.XLATLONGNAME || ' - '|| B.TSE_FIELDNAME || ' - '|| B.BUSINESS_UNIT || ' - '|| B.VOUCHER_ID 36 | || ' - '|| B.MESSAGE_SET_NBR || ' - '|| B.MESSAGE_NBR || ' - '|| B.MESSAGE_PARM || ' - '|| B.MESSAGE_PARM2 || ' - '|| B.MESSAGE_PARM3 || ' - '|| 37 | CAT.MESSAGE_TEXT, ' ; ' || chr(13)).EXTRACT('//text()')ORDER BY B.TSE_SET_NBR) 38 | .getclobval(),',') AS "A0" 39 | FROM ((PS_TSE_VCHR_FLD B LEFT OUTER JOIN PSMSGCATDEFN CAT ON B.MESSAGE_SET_NBR = CAT.MESSAGE_SET_NBR AND B.MESSAGE_NBR = CAT.MESSAGE_NBR) 40 | LEFT OUTER JOIN PSXLATITEM X1 ON X1.FIELDNAME = 'TSE_EDIT_TYPE' AND X1.FIELDVALUE = B.TSE_EDIT_TYPE AND X1.EFF_STATUS = 'A') 41 | WHERE A.BUSINESS_UNIT = A.BUSINESS_UNIT AND A.VOUCHER_ID = B.VOUCHER_ID AND A.TSE_JOBID = B.TSE_JOBID AND A.TSE_PROC_INSTANCE = B.TSE_PROC_INSTANCE) AS "Exceptions - VCHR_FLD", 42 | (SELECT RTRIM(XMLAGG(XMLELEMENT(E, C.TSE_SET_NBR || ' - '|| C.TSE_EDIT_TYPE || ' - '|| X2.XLATLONGNAME || ' - '|| C.TSE_FIELDNAME || ' - '|| C.VOUCHER_LINE_NUM || ' - '|| 43 | C.MESSAGE_SET_NBR || ' - '|| C.MESSAGE_NBR || ' - '|| C.MESSAGE_PARM || ' - '|| C.MESSAGE_PARM2 || ' - '|| C.MESSAGE_PARM3 || ' - '|| 44 | CAT1.MESSAGE_TEXT, ' ; ' || chr(13)).EXTRACT('//text()')ORDER BY C.VOUCHER_LINE_NUM) 45 | .getclobval(),',') AS "A1" 46 | FROM ((PS_TSE_VCHRLN_FLD C LEFT OUTER JOIN PSMSGCATDEFN CAT1 ON C.MESSAGE_SET_NBR = CAT1.MESSAGE_SET_NBR AND C.MESSAGE_NBR = CAT1.MESSAGE_NBR) 47 | LEFT OUTER JOIN PSXLATITEM X2 ON X2.FIELDNAME = 'TSE_EDIT_TYPE' AND X2.FIELDVALUE = C.TSE_EDIT_TYPE AND X2.EFF_STATUS = 'A') 48 | WHERE A.BUSINESS_UNIT = C.BUSINESS_UNIT AND A.VOUCHER_ID = C.VOUCHER_ID AND A.TSE_JOBID = C.TSE_JOBID AND A.TSE_PROC_INSTANCE = C.TSE_PROC_INSTANCE) AS "Exceptions - VCHRLN_FLD", 49 | (SELECT RTRIM(XMLAGG(XMLELEMENT(E, D.TSE_SET_NBR || ' - '|| D.TSE_EDIT_TYPE || ' - '|| X3.XLATLONGNAME || ' - '|| D.TSE_FIELDNAME || ' - '|| D.PYMNT_CNT || ' - '|| D.MESSAGE_SET_NBR 50 | || ' - '|| D.MESSAGE_NBR || ' - '|| D.MESSAGE_PARM || ' - '|| D.MESSAGE_PARM2 || ' - '|| D.MESSAGE_PARM3 || ' - '|| CAT2.MESSAGE_TEXT, ' ; ' 51 | || chr(13)).EXTRACT('//text()')ORDER BY D.PYMNT_CNT) 52 | .getclobval(),',') AS "A2" 53 | FROM ((PS_TSE_PYMNT_FLD D LEFT OUTER JOIN PSMSGCATDEFN CAT2 ON D.MESSAGE_SET_NBR = CAT2.MESSAGE_SET_NBR AND D.MESSAGE_NBR = CAT2.MESSAGE_NBR) 54 | LEFT OUTER JOIN PSXLATITEM X3 ON X3.FIELDNAME = 'TSE_EDIT_TYPE' AND X3.FIELDVALUE = D.TSE_EDIT_TYPE AND X3.EFF_STATUS = 'A') 55 | WHERE A.BUSINESS_UNIT = D.BUSINESS_UNIT AND A.VOUCHER_ID = D.VOUCHER_ID AND A.TSE_JOBID = D.TSE_JOBID AND A.TSE_PROC_INSTANCE = D.TSE_PROC_INSTANCE) AS "Exceptions - PYMNT_FLD", 56 | (SELECT RTRIM(XMLAGG(XMLELEMENT(E, E.TSE_SET_NBR || ' - '|| E.TSE_EDIT_TYPE || ' - '|| X4.XLATLONGNAME || ' - '|| E.TSE_FIELDNAME || ' - '|| E.VOUCHER_LINE_NUM || ' - '|| 57 | E.DISTRIB_LINE_NUM || ' - '|| E.MESSAGE_SET_NBR || ' - '|| E.MESSAGE_NBR || ' - '|| E.MESSAGE_PARM || ' - '|| E.MESSAGE_PARM2 || ' - '|| 58 | E.MESSAGE_PARM3 || ' - '|| CAT3.MESSAGE_TEXT, ' ; ' || chr(13)).EXTRACT('//text()')ORDER BY E.VOUCHER_LINE_NUM, E.DISTRIB_LINE_NUM) 59 | .getclobval(),',') AS "A3" 60 | FROM ((PS_TSE_ACCTLN_FLD E LEFT OUTER JOIN PSMSGCATDEFN CAT3 ON E.MESSAGE_SET_NBR = CAT3.MESSAGE_SET_NBR AND E.MESSAGE_NBR = CAT3.MESSAGE_NBR) 61 | LEFT OUTER JOIN PSXLATITEM X4 ON X4.FIELDNAME = 'TSE_EDIT_TYPE' AND X4.FIELDVALUE = E.TSE_EDIT_TYPE AND X4.EFF_STATUS = 'A') 62 | WHERE A.BUSINESS_UNIT = E.BUSINESS_UNIT AND A.VOUCHER_ID = E.VOUCHER_ID AND A.TSE_JOBID = E.TSE_JOBID AND A.TSE_PROC_INSTANCE = E.TSE_PROC_INSTANCE) AS "Exceptions - ACCTLN_FLD" 63 | FROM PS_TSE_VCHR A 64 | WHERE 1 = 1 65 | AND (A.BUSINESS_UNIT IN (select business_unit from ps_bus_unit_tbl_ap where business_unit_gl = 'UNDP1') 66 | AND A.BUSINESS_UNIT IN ('ZMB10', 'ZWE10', 'NGA10', 'TZA10', 'KEN10')) 67 | -- AND A.VOUCHER_ID = '00075110' 68 | ORDER BY A.TSE_PROC_INSTANCE DESC, A.BUSINESS_UNIT, A.VOUCHER_ID DESC; 69 | -------------------------------------------------------------------------------- /SQLs/TrialBalance.sql: -------------------------------------------------------------------------------- 1 | --UNU TB Roll-up 2 | --Experimental Version 1 3 | --2nd Oct 2014 4 | --Trial Balance using UNU IPSAS Account Tree with Tree Node Descriptions from UNU custom view 5 | --DOES NOT include all Adjustment Periods 6 | --21May2015 - Included Adjustment Periods 100 and 998 7 | SELECT X.BUSINESS_UNIT "GL Bus Unit", X.OPERATING_UNIT "Oper Unit", OP.DESCR AS "Oper Unit Description", X.FUND_CODE "Fund", FD.DESCR "Fund Description", X.DEPTID "Detail DeptId", C.DESCR AS "DeptId Description", 8 | X.PROJECT_ID "Project ID", B.DESCR "Project Description", X.CHARTFIELD2 "Donor", CF2.DESCR "Donor Description", 9 | X.Level_0 "Level 0", X.Level_0_Descr "Level 0 Description", X.Level_1 "Level 1", X.Level_1_Descr "Level 1 Description", X.Level_2 "Level 2", X.Level_2_Descr "Level 2 Description", 10 | X.Level_3 "Level 3", X.Level_3_Descr "Level 3 Descrption", X.Level_4 "Level 4", X.Level_4_Descr "Level 4 Description", X.Level_5 "Level 5", X.Level_5_Descr "Level 5 Description", 11 | (SUBSTR(X.ACCOUNT,1,LENGTH(X.ACCOUNT)-2) || '00') "Account Roll-Up", X.ACCOUNT "Account", X.DESCR "Account Description", 12 | SUM(X.POSTED_BASE_AMT) AS "Total GL", SUM(X.PERIOD_0) "Year Opening", 13 | SUM(X.JAN) "January", SUM(X.FEB) "February", SUM(X.MAR) "March", SUM(X.APR) "April", SUM(X.MAY) "May", SUM(X.JUN) "June", 14 | SUM(X.JUL) "July", SUM(X.AUG) "August", SUM(X.SEP) "September", SUM(X.OCT) "October", SUM(X.NOV) "November", SUM(X.DEC) "December", 15 | SUM(X.ADJ_IP0) "IPSAS Opening Balance", SUM(X.ADJ_EOY) "Year End Adjustments" 16 | FROM 17 | (SELECT A.BUSINESS_UNIT, A.OPERATING_UNIT, A.FUND_CODE, A.DEPTID, 18 | DNM.TREE_NODE Level_0, DNM.DESCR Level_0_Descr, DNM.TREE_NODE1 Level_1, DNM.DESCR1 Level_1_Descr, DNM.TREE_NODE2 Level_2, DNM.DESCR2 Level_2_Descr, 19 | DNM.TREE_NODE3 Level_3, DNM.DESCR3 Level_3_Descr, DNM.TREE_NODE4 Level_4, DNM.DESCR30 Level_4_Descr, DNM.TREE_NODE5 Level_5, DNM.DESCR4 Level_5_Descr, 20 | A.ACCOUNT, D.DESCR, A.PROJECT_ID, A.CHARTFIELD2, SUM(A.POSTED_BASE_AMT) AS POSTED_BASE_AMT 21 | , CASE A.ACCOUNTING_PERIOD WHEN 0 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS PERIOD_0 22 | , CASE A.ACCOUNTING_PERIOD WHEN 1 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS JAN 23 | , CASE A.ACCOUNTING_PERIOD WHEN 2 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS FEB 24 | , CASE A.ACCOUNTING_PERIOD WHEN 3 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS MAR 25 | , CASE A.ACCOUNTING_PERIOD WHEN 4 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS APR 26 | , CASE A.ACCOUNTING_PERIOD WHEN 5 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS MAY 27 | , CASE A.ACCOUNTING_PERIOD WHEN 6 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS JUN 28 | , CASE A.ACCOUNTING_PERIOD WHEN 7 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS JUL 29 | , CASE A.ACCOUNTING_PERIOD WHEN 8 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS AUG 30 | , CASE A.ACCOUNTING_PERIOD WHEN 9 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS SEP 31 | , CASE A.ACCOUNTING_PERIOD WHEN 10 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS OCT 32 | , CASE A.ACCOUNTING_PERIOD WHEN 11 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS NOV 33 | , CASE A.ACCOUNTING_PERIOD WHEN 12 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS DEC 34 | , CASE A.ACCOUNTING_PERIOD WHEN 100 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS ADJ_IP0 35 | , CASE A.ACCOUNTING_PERIOD WHEN 998 THEN SUM(A.POSTED_BASE_AMT) ELSE 0 END AS ADJ_EOY 36 | FROM PS_LEDGER A, PS_GL_ACCOUNT_TBL D, PS_SET_CNTRL_REC B4, UNDPFS.PS_UN_DNORM_TRE_VW DNM 37 | WHERE B4.SETCNTRLVALUE = A.BUSINESS_UNIT 38 | AND B4.RECNAME = 'GL_ACCOUNT_TBL' 39 | AND B4.SETID = D.SETID 40 | --AND D.SETID = 'SHARE' 41 | AND A.ACCOUNT = D.ACCOUNT 42 | AND D.EFFDT = (SELECT MAX(CJ.EFFDT) FROM PS_GL_ACCOUNT_TBL CJ WHERE CJ.SETID = D.SETID AND CJ.ACCOUNT = D.ACCOUNT AND CJ.EFFDT <= SYSDATE) 43 | AND DNM.TREE_NAME = 'UNU_IPSAS_ACCOUNT' 44 | AND DNM.SETID = 'SHARE' 45 | AND DNM.EFFDT = TO_DATE('1901-01-01','YYYY-MM-DD') 46 | AND D.ACCOUNT BETWEEN DNM.RANGE_FROM AND DNM.RANGE_TO 47 | AND A.BUSINESS_UNIT = 'UNUNI' 48 | AND A.LEDGER = 'USD' 49 | AND A.FISCAL_YEAR = '2015' 50 | AND ((A.ACCOUNTING_PERIOD BETWEEN 1 and 12 AND D.ACCOUNT_TYPE IN ('E', 'R')) OR (A.ACCOUNTING_PERIOD BETWEEN 0 and 12 AND D.ACCOUNT_TYPE NOT IN ('E', 'R')) 51 | OR A.ACCOUNTING_PERIOD IN ('100', '998')) 52 | AND A.STATISTICS_CODE = ' ' 53 | --AND A.PROJECT_ID = '00064158' 54 | --AND A.ACCOUNT = '29109' 55 | GROUP BY A.BUSINESS_UNIT, A.OPERATING_UNIT, A.FUND_CODE, A.DEPTID, DNM.TREE_NODE, DNM.DESCR, DNM.TREE_NODE1, DNM.DESCR1, DNM.TREE_NODE2, DNM.DESCR2, DNM.TREE_NODE3, DNM.DESCR3, DNM.TREE_NODE4, DNM.DESCR30, DNM.TREE_NODE5, 56 | DNM.DESCR4, A.ACCOUNT, D.DESCR, A.PROJECT_ID, A.CHARTFIELD2, A.ACCOUNTING_PERIOD, LEDGER)X, PS_PROJECT B, PS_DEPTID_BUGL_VW C, PS_CHARTFIELD2_TBL CF2, PS_FUND_TBL FD, PS_OPER_UNIT_TBL OP 57 | WHERE X.BUSINESS_UNIT = B.BUSINESS_UNIT (+) 58 | AND X.PROJECT_ID = B.PROJECT_ID (+) 59 | AND (C.SETID = (SELECT SETID FROM PS_SET_CNTRL_REC G WHERE G.SETCNTRLVALUE = X.BUSINESS_UNIT AND G.RECNAME = 'DEPT_TBL') OR C.SETID IS NULL) 60 | AND X.DEPTID = C.DEPTID (+) 61 | AND (C.EFFDT = (SELECT MAX(C_ED.EFFDT) FROM PS_DEPTID_BUGL_VW C_ED WHERE C.SETID = C_ED.SETID AND C.DEPTID = C_ED.DEPTID AND C_ED.EFFDT <= SYSDATE) OR C.EFFDT IS NULL) 62 | AND (CF2.SETID = (SELECT SETID FROM PS_SET_CNTRL_REC GR WHERE GR.SETCNTRLVALUE = X.BUSINESS_UNIT AND GR.RECNAME = 'CHARTFIELD2_TBL') OR CF2.SETID IS NULL) 63 | AND X.CHARTFIELD2 = CF2.CHARTFIELD2 (+) 64 | AND (CF2.EFFDT IS NULL OR 65 | (CF2.EFFDT = (SELECT MAX(CF2_ED.EFFDT) FROM PS_CHARTFIELD2_TBL CF2_ED WHERE CF2.SETID = CF2_ED.SETID AND CF2.CHARTFIELD2 = CF2_ED.CHARTFIELD2 AND CF2_ED.EFFDT <= SYSDATE))) 66 | AND X.FUND_CODE = FD.FUND_CODE (+) 67 | AND (FD.SETID = (SELECT SETID FROM PS_SET_CNTRL_REC FDS WHERE FDS.SETCNTRLVALUE = X.BUSINESS_UNIT AND FDS.RECNAME = 'FUND_TBL') OR FD.SETID IS NULL) 68 | AND (FD.EFFDT IS NULL OR 69 | (FD.EFFDT = (SELECT MAX(FD_ED.EFFDT) FROM PS_FUND_TBL FD_ED WHERE FD.SETID = FD_ED.SETID AND FD.FUND_CODE = FD_ED.FUND_CODE AND FD_ED.EFFDT <= SYSDATE))) 70 | AND X.OPERATING_UNIT = OP.OPERATING_UNIT (+) 71 | AND (OP.SETID = (SELECT SETID FROM PS_SET_CNTRL_REC OPS WHERE OPS.SETCNTRLVALUE = X.BUSINESS_UNIT AND OPS.RECNAME = 'OPER_UNIT_TBL') OR OP.SETID IS NULL) 72 | AND (OP.EFFDT IS NULL OR 73 | (OP.EFFDT = (SELECT MAX(OP_ED.EFFDT) FROM PS_OPER_UNIT_TBL OP_ED WHERE OP.SETID = OP_ED.SETID AND OP.OPERATING_UNIT = OP_ED.OPERATING_UNIT AND OP_ED.EFFDT <= SYSDATE))) 74 | GROUP BY X.BUSINESS_UNIT, X.OPERATING_UNIT, OP.DESCR, X.FUND_CODE, FD.DESCR, X.DEPTID, C.DESCR, X.PROJECT_ID, B.DESCR, X.CHARTFIELD2, CF2.DESCR, 75 | X.Level_0, X.Level_0_Descr, X.Level_1, X.Level_1_Descr, X.Level_2, X.Level_2_Descr, X.Level_3, X.Level_3_Descr, X.Level_4, X.Level_4_Descr, X.Level_5, X.Level_5_Descr, 76 | X.ACCOUNT, X.DESCR 77 | ORDER BY X.Level_0, X.Level_1, X.Level_2, X.Level_3, X.Level_4, X.Level_5, X.ACCOUNT, X.OPERATING_UNIT, X.FUND_CODE, X.DEPTID, X.PROJECT_ID, X.CHARTFIELD2; 78 | -------------------------------------------------------------------------------- /SQLs/UNU_RA_To_Be_Accrued.sql: -------------------------------------------------------------------------------- 1 | --Actual Receipt Accrual Version 2 2 | --15SEPT2014 3 | SELECT H.BUSINESS_UNIT AS BU_RECV, H.RECEIVER_ID, H.RECEIPT_DT, S.OPRID, H.MATCH_STATUS_RECV, S.RECV_LN_NBR, S.RECV_SHIP_SEQ_NBR, LD.DISTRIB_LINE_NUM, S.CURRENCY_CD, 4 | S.MERCHANDISE_AMT, S.MERCH_AMT_BSE, S.MERCH_AMT_PO_BSE, S.BUSINESS_UNIT_PO AS BU_PO, S.PO_ID, L.LINE_NBR, D.SCHED_NBR, S.DISTRIB_MTHD_FLG, 5 | L.AMT_ONLY_FLG, D.DISTRIB_LINE_NUM AS PO_DISTRIB_LINE_NUM, G.CATEGORY_CD, G.DESCR, G.ACCOUNT AS CAT_ACCOUNT, L.INV_ITEM_ID, ITM.DESCR AS ITM_DESCR, L.DESCR254_MIXED, 6 | D.QTY_PO AS POD_QTY_PO, D.MERCH_AMT_BSE AS PO_USD_AMT, D.MERCHANDISE_AMT AS PO_FOREIGN_AMT, D.CURRENCY_CD AS PO_DIST_CURR_CD, 7 | D.ACCOUNT AS PO_ACCT, D.OPERATING_UNIT AS PO_OP_UNIT, D.FUND_CODE AS PO_FUND, D.DEPTID AS PO_DEPT, D.PROJECT_ID AS PO_PRJ, D.ACTIVITY_ID AS PO_ACT, 8 | D.CHARTFIELD2 AS PO_DONOR, 9 | G.RECV_REQ, P.VENDOR_SETID, P.VENDOR_ID, V.NAME1, S.CONVERSION_RATE, 10 | LD.BUSINESS_UNIT_AM, LD.BUSINESS_UNIT_GL, LD.PROFILE_ID, LD.FINANCIAL_ASSET_SW, LD.RECV_DS_STATUS, LD.MERCHANDISE_AMT_PO, LD.LOCATION, LD.REQ_ID, 11 | D.QTY_PO "PO Quantity", S.QTY_LN_ASSET_SUOM "Quantity to be Asset Tracked", S.QTY_LN_INV_SUOM "Line Inv Qty", S.QTY_SH_ACCPT "Qty Accepted in Receipt UOM", 12 | S.QTY_SH_ACCPT_SUOM "Accepted Quantity", S.QTY_SH_ACCPT_VUOM "Accept Quantity in Vendor UOM", S.QTY_SH_NETRCV_VUOM "Net Receipt Quantity", 13 | S.QTY_SH_RECVD "Qty Received in Receipt UOM", S.QTY_SH_RECVD_SUOM "Receipt Quantity", S.QTY_SH_RECVD_VUOM "Receipt Quantity in Vendor UOM", 14 | S.REJECT_ACTION, S.REJECT_REASON, S.RECEIPT_ALLOC_TYPE, S.RECEIPT_DTTM, S.RECEIPT_UM, S.RECEIVE_UOM, S.RECV_LN_MATCH_OPT, S.RECV_SHIP_STATUS, S.RECV_STOCK_UOM, 15 | S.SERIAL_CONTROL, S.SERIAL_STATUS, S.SHIP_DATE_STATUS, S.SHIP_QTY_STATUS, S.UNIT_MEASURE_STD 16 | FROM PS_RECV_HDR H, PS_PO_HDR P, PS_PO_LINE L, PS_RECV_LN_SHIP S, PS_PO_LINE_DISTRIB D, PS_SET_CNTRL_REC F, PS_ITM_CAT_TBL G, PS_RECV_LN_DISTRIB LD, 17 | PS_MASTER_ITEM_TBL ITM, PS_VENDOR V 18 | WHERE H.BUSINESS_UNIT LIKE '6%' 19 | AND S.BUSINESS_UNIT = H.BUSINESS_UNIT 20 | AND S.RECEIVER_ID = H.RECEIVER_ID 21 | AND S.MATCH_LINE_FLG = 'Y' 22 | AND S.RECV_LN_MATCH_OPT <> 'F' 23 | AND S.PRODUCTION_ID = ' ' 24 | AND S.BUSINESS_UNIT_PO = P.BUSINESS_UNIT 25 | AND S.PO_ID = P.PO_ID 26 | AND S.PO_ID <> ' ' 27 | AND S.BUSINESS_UNIT_PO = L.BUSINESS_UNIT 28 | AND S.PO_ID = L.PO_ID 29 | AND S.LINE_NBR = L.LINE_NBR 30 | AND S.BUSINESS_UNIT_PO = D.BUSINESS_UNIT 31 | AND S.PO_ID = D.PO_ID 32 | AND S.LINE_NBR = D.LINE_NBR 33 | AND S.SCHED_NBR = D.SCHED_NBR 34 | AND S.BUSINESS_UNIT = LD.BUSINESS_UNIT 35 | AND S.RECEIVER_ID = LD.RECEIVER_ID 36 | AND S.RECV_LN_NBR = LD.RECV_LN_NBR 37 | AND S.RECV_SHIP_SEQ_NBR = LD.RECV_SHIP_SEQ_NBR 38 | AND LD.PO_DIST_LINE_NUM = D.DISTRIB_LINE_NUM 39 | AND F.SETCNTRLVALUE = S.BUSINESS_UNIT 40 | AND G.SETID = F.SETID 41 | AND G.CATEGORY_ID = S.CATEGORY_ID 42 | AND F.RECNAME = 'ITM_CAT_TBL' 43 | AND G.EFFDT = (SELECT MAX(G_ED.EFFDT) FROM PS_ITM_CAT_TBL G_ED WHERE G.SETID = G_ED.SETID AND G.CATEGORY_TYPE = G_ED.CATEGORY_TYPE AND G.CATEGORY_CD = G_ED.CATEGORY_CD 44 | AND G.CATEGORY_ID = G_ED.CATEGORY_ID AND G_ED.EFFDT <= SYSDATE) 45 | AND L.ITM_SETID = ITM.SETID (+) 46 | AND L.INV_ITEM_ID = ITM.INV_ITEM_ID (+) 47 | AND P.VENDOR_SETID = V.SETID 48 | AND P.VENDOR_ID = V.VENDOR_ID 49 | AND L.RECV_REQ = 'Y' 50 | AND S.MERCHANDISE_AMT <> 0 51 | AND S.RECV_SHIP_STATUS IN ('O', 'R') 52 | AND H.RECV_STATUS IN ('N', 'O', 'P','R','M') 53 | AND P.MATCH_STATUS_PO NOT IN ('N') 54 | AND H.MATCH_STATUS_RECV <> 'M' 55 | AND D.DST_ACCT_TYPE = 'DST' 56 | AND D.KK_CLOSE_FLAG <> 'Y' 57 | --AND NOT EXISTS (SELECT 'X' FROM PS_RECV_LN_ACCTG LN WHERE LN.BUSINESS_UNIT = LD.BUSINESS_UNIT AND LN.RECEIVER_ID = LD.RECEIVER_ID AND LN.RECV_LN_NBR = LD.RECV_LN_NBR AND LN.RECV_SHIP_SEQ_NBR = LD.RECV_SHIP_SEQ_NBR AND LN.DISTRIB_LINE_NUM = LD.DISTRIB_LINE_NUM) 58 | AND EXISTS (SELECT 'X' FROM PS_RECV_LN_SHP_MTH M WHERE S.BUSINESS_UNIT = M.BUSINESS_UNIT AND S.RECEIVER_ID = M.RECEIVER_ID AND S.RECV_LN_NBR = M.RECV_LN_NBR AND S.RECV_SHIP_SEQ_NBR = M.RECV_SHIP_SEQ_NBR) 59 | AND NOT EXISTS (SELECT 'X' FROM PS_PO_LINE_SHIP LS WHERE LS.BUSINESS_UNIT = S.BUSINESS_UNIT_PO AND LS.PO_ID = S.PO_ID AND LS.LINE_NBR = S.LINE_NBR AND LS.SCHED_NBR = S.SCHED_NBR AND LS.MATCH_LINE_OPT = 'N') 60 | ORDER BY 1,2,3,4,5,D.LINE_NBR, D.SCHED_NBR, D.DISTRIB_LINE_NUM; 61 | -------------------------------------------------------------------------------- /SQLs/UNU_TrialBalance.sql: -------------------------------------------------------------------------------- 1 | SELECT X.ACCOUNT, X.DESCR, SUM(X.PERIOD_0) AS "Opening Balance", SUM(X.DEBIT) AS "Debits", SUM(X.CREDIT) AS "Credits", 2 | SUM(X.PERIOD_YTD) AS "Movement", SUM(X.POSTED_BASE_AMT) AS "Closing Balance" 3 | FROM (SELECT ST.ACCOUNT, ET.DESCR, SUM(ST.POSTED_BASE_AMT) AS POSTED_BASE_AMT, 4 | CASE WHEN ST.ACCOUNTING_PERIOD = 0 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS PERIOD_0 5 | , CASE WHEN ST.ACCOUNTING_PERIOD > 0 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS PERIOD_YTD 6 | , CASE WHEN (SUM(ST.POSTED_BASE_AMT) > 0.00 AND ST.ACCOUNTING_PERIOD > 0) THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS DEBIT 7 | , CASE WHEN (SUM(ST.POSTED_BASE_AMT) < 0.00 AND ST.ACCOUNTING_PERIOD > 0) THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS CREDIT 8 | FROM PS_LEDGER ST, PS_GL_ACCOUNT_TBL ET 9 | WHERE ET.SETID = 'SHARE' 10 | AND ET.ACCOUNT = ST.ACCOUNT 11 | AND ET.EFFDT = (SELECT MAX(CJ.EFFDT) FROM PS_GL_ACCOUNT_TBL CJ WHERE CJ.SETID = ET.SETID AND CJ.ACCOUNT = ET.ACCOUNT AND CJ.EFFDT <= sysdate) 12 | AND ST.BUSINESS_UNIT = 'UNUNI' 13 | AND ST.LEDGER = 'USD' 14 | AND ST.FISCAL_YEAR = 2012 15 | AND ((ST.ACCOUNTING_PERIOD BETWEEN 1 and 12 AND ET.ACCOUNT_TYPE IN ('E', 'R')) OR (ST.ACCOUNTING_PERIOD BETWEEN 0 and 12 AND ET.ACCOUNT_TYPE NOT IN ('E', 'R'))) 16 | AND ST.STATISTICS_CODE = ' ' 17 | --AND (ST.ACCOUNTING_PERIOD BETWEEN 0 AND 12) 18 | --AND ET.ACCOUNT_TYPE NOT IN ('E', 'R') 19 | GROUP BY ST.ACCOUNT, ET.DESCR, ST.ACCOUNTING_PERIOD) X 20 | GROUP BY X.ACCOUNT, X.DESCR 21 | ORDER BY X.ACCOUNT, X.DESCR; 22 | -------------------------------------------------------------------------------- /SQLs/UNU_UserReport.sql: -------------------------------------------------------------------------------- 1 | --UNU User Preferences 2 | SELECT A.OPRID, A.BUSINESS_UNIT, A.LC_CNTRY, A.AS_OF_DATE, A.SETID, A.NAME1, B.ORIGIN, B.DEPTID, B.CHK_INV_AMT_FLG, B.INVOICE_AMT_MAX, B.AUTH_APPROVE_VCHR, 3 | B.VCHR_APPRVL_AMT, B.AUTH_POST_VOUCHER, B.AUTH_VCHR_GRP, B.AUTH_SCHED_PYMNT, B.AUTH_OVRRD_MATCH, B.AUTH_PREPAY_VCHR, B.PREPAY_LIMIT_AMT, 4 | B.AUTH_PAY_UNMTCHED, B.UNMATCH_PAY_AMT, B.AUTH_CPY_MTCH_PO, B.PYMNT_RCRD_FLG, B.AUTH_3RDPARTY_VCHR, B.AUTH_ADJUST_VCHR, B.AUTH_JORUNAL_VCHR, B.AUTH_REGISTER_VCHR, 5 | B.AUTH_REGULAR_VCHR, B.AUTH_TEMPLATE_VCHR, B.AUTH_CORRECT_VCHR, B.AUTH_CLBK_VCHR, B.AUTH_SGL_PYMNT_VCH, 6 | C.AUTH_VNDR_UNCERTFY, C.AUTH_VNDR_CERTFY, C.AUTH_VNDR_INACT_ST, D.ORIGIN, D.DEPTID, D.LOCATION, 7 | D.CNTRCT_ENTRY, D.CNTRCT_APPROVE, D.CNTRCT_HOLD, D.CNTRCT_CLOSE, D.CNTRCT_PO_RLS, D.CNTRCT_AP_RLS, D.SHIPTO_ID, D.LOCATION, D.CNTRCT_STATUS, 8 | D.RFQ_ENTRY, D.RFQ_HOLD, D.RFQ_APPROVE, D.RFQ_CLOSE, D.RFQ_STATUS, D.BUSINESS_UNIT_RECV, D.EDIT_CHARTFIELDS, D.PO_ONLY_RECEIVE, D.ALL_BUYERS_FLG, D.ALL_REQUESTORS_FLG, 9 | D.PO_APPROVAL_AUTH, D.PO_WRK_APPR_AUTH, D.PO_CLOSE_AUTH, D.REQ_APPROVAL_AUTH, D.REQ_WRK_APPR_AUTH, D.REQ_CLOSE_AUTH, D.OVERRIDE_SUGG_VNDR, D.INV_RECEIVER, 10 | D.INTFC_RECEIPT, D.DUE_DT_DAYS, D.PREPAID_AUTH_STAT, D.DELETE_PO_ALLOWED, D.DELETE_REQ_ALLOWED, D.PO_CLOSE_ALL , D.REQ_CLOSE_ALL, D.CNTRCT_CANCEL, D.PO_VRBT_SECURITY, 11 | D.PO_REOPEN_AUTH, D.OVRD_PO_FOR_CLOSE, D.REQ_REOPEN_AUTH, D.OVRD_REQ_FOR_CLOSE 12 | FROM PS_OPR_DEF_TBL_FS A , PS_OPR_DEF_TBL_AP B , PS_OPR_DEF_TBL_VND C , PS_OPR_DEF_TBL_PM D 13 | WHERE A.OPRID = B.OPRID 14 | AND A.OPRID = C.OPRID 15 | AND A.OPRID = D.OPRID 16 | AND (A.BUSINESS_UNIT LIKE '6%' OR A.BUSINESS_UNIT = 'UNUNI'); 17 | --LISTAGG Funtion for security information ONLY ACTIVE USERS 18 | SELECT ROLEUSER, LISTAGG(ROLENAME, '|') WITHIN GROUP (ORDER BY ROLEUSER) ROLENAME 19 | FROM PSROLEUSER 20 | WHERE ROLEUSER IN (SELECT DISTINCT B.OPRID FROM PSUSEREMAIL A, PSOPRDEFN B WHERE A.OPRID = B.OPRID AND A.EMAILID LIKE '%unu.edu' AND B.ACCTLOCK = 0) 21 | GROUP BY ROLEUSER 22 | ORDER BY 1; 23 | --LISTAGG Function for OPRALIASTYPE 24 | --ARGUS has custom OPRALIASTYPE 25 | SELECT A.OPRID, A.OPRDEFNDESC, A.EMAILID, LISTAGG(B.OPRALIASVALUE, '|') WITHIN GROUP (ORDER BY B.OPRALIASTYPE) OPRALIAS 26 | --B.OPRALIASVALUE 27 | FROM PSOPRDEFN A, PSOPRALIAS B 28 | WHERE A.OPRID = B.OPRID 29 | --AND B.OPRALIASTYPE = 'A02' 30 | --AND B.OPRALIASVALUE = 'UNUNI' 31 | --AND A.OPRID = 'prakash.prashant' 32 | AND A.OPRID IN (SELECT DISTINCT B.OPRID FROM PSUSEREMAIL A, PSOPRDEFN B WHERE A.OPRID = B.OPRID AND A.EMAILID LIKE '%unu.edu' AND B.ACCTLOCK = 0) 33 | GROUP BY A.OPRID, A.OPRDEFNDESC, A.EMAILID 34 | ORDER BY 1; 35 | --UNU_USER_APPROVAL 36 | --What can a person approve? 37 | SELECT A.ROLEUSER, A.ROLENAME, B.DESCR, A.RTE_CNTL_PROFILE, H.RTE_CNTL_TYPE, L.RTE_FROM_VALUE, L.RTE_TO_VALUE 38 | FROM PS_RTE_CNTL_RUSER A, PSROLEDEFN B, PS_RTE_CNTL_HDR H, PS_RTE_CNTL_LN L 39 | WHERE A.ROLENAME = B.ROLENAME 40 | AND A.RTE_CNTL_PROFILE = H.RTE_CNTL_PROFILE 41 | AND H.RTE_CNTL_PROFILE = L.RTE_CNTL_PROFILE 42 | AND H.RTE_CNTL_TYPE = L.RTE_CNTL_TYPE 43 | AND A.ROLEUSER IN (SELECT DISTINCT B.OPRID FROM PSUSEREMAIL A, PSOPRDEFN B WHERE A.OPRID = B.OPRID AND A.EMAILID LIKE '%unu.edu' AND B.ACCTLOCK = 0) 44 | --AND A.ROLENAME NOT LIKE '%LEVEL0%' 45 | AND A.RTE_CNTL_PROFILE NOT IN ('ADMIN_PO','ADMIN_AP') 46 | ORDER BY 1, 2, 3; 47 | --UNU Requestors 48 | --Accounts which are unlocked ONLY 49 | SELECT A.REQUESTOR_ID, A.ACTIVE_FLG, A.REQ_STATUS, A.SHIPTO_SETID, A.LOCATION_SETID, A.LOCATION, A.ORIGIN_PO_SETID, A.ORIGIN, A.DEPTID_SETID, A.CATALOG_SETID, 50 | A.CATALOG_ID, A.USE_ASSGN_CAT_ONLY, A.CONSOLIDATE_FLG, A.PRICE_CAN_CHANGE, A.BUSINESS_UNIT_GL, A.ACCOUNT, A.DEPTID, A.OPERATING_UNIT, A.FUND_CODE, 51 | A.CHARTFIELD2, A.PROJECT_ID, A.BUSINESS_UNIT_PC, A.ACTIVITY_ID, B.CATALOG_ID 52 | FROM PS_REQUESTOR_TBL A, PS_REQUESTOR_CAT B 53 | WHERE A.REQUESTOR_ID = B.REQUESTOR_ID (+) 54 | AND B.SETID (+) = 'UNUNI' 55 | AND A.REQUESTOR_ID IN (SELECT DISTINCT B.OPRID FROM PSUSEREMAIL A, PSOPRDEFN B WHERE B.OPRID = A.REQUESTOR_ID AND A.OPRID = B.OPRID AND A.EMAILID LIKE '%unu.edu' AND B.ACCTLOCK = 0) 56 | ORDER BY 1; 57 | --UNU Users Process Group Information 58 | --Version 2 59 | SELECT A.OPRID, A.RTM_PRCS_ALLOW AS "Allow Processing", A.RTM_CONSOLE_FLG "Use Event Notification", 60 | (SELECT LISTAGG(B.RTM_SOURCE_TXN || ' - ' || RTS.DESCR || ' - ' || B.RTM_PROCESS_GROUP || ' - ' || RTG.RTM_SHORT_DESCR, ' > ') WITHIN GROUP (ORDER BY B.RTM_SOURCE_TXN) AS "Process Groups" 61 | FROM PS_RTM_OPR_GROUP B, PS_RTM_PROCESS_GRP RTG, PS_RTM_SOURCE RTS WHERE A.OPRID = B.OPRID AND B.RTM_PROCESS_GROUP = RTG.RTM_PROCESS_GROUP AND B.RTM_SOURCE_TXN = RTS.RTM_SOURCE_TXN) AS "Process Groups" 62 | FROM PS_OPR_DEF_TBL_RTM A 63 | WHERE A.OPRID IN (SELECT DISTINCT B.OPRID FROM PSUSEREMAIL A, PSOPRDEFN B WHERE A.OPRID = B.OPRID AND A.EMAILID LIKE '%unu.edu' AND B.ACCTLOCK = 0) 64 | GROUP BY A.OPRID, A.RTM_PRCS_ALLOW, A.RTM_CONSOLE_FLG 65 | ORDER BY A.OPRID; 66 | --Use DB LINK for bringing in user information from Portal for UNUNI 67 | SELECT A.UN_T_LNAME, A.UN_T_FNAME, A.UN_USER_ID, A.UN_EMAIL_ADDR, A.UN_CONTRACT_TYPE, A.UN_EMP_VND_ID, A.UN_BUS_UNIT, A.UN_LOCATION, A.UN_DEPTID, 68 | SUBSTR(A.UN_EMAIL_ADDR, instr(A.UN_EMAIL_ADDR, '@')+1) AS ORG 69 | FROM PS_UN_ACS_USR_VW1@UNDPPALINK A 70 | WHERE A.UN_AGENCY_NAME = 'UNUNI' 71 | AND A.UN_USER_ID <> 'kenta.fujimara' 72 | ORDER BY UN_LOCATION; 73 | -------------------------------------------------------------------------------- /SQLs/UN_Secretariat_TB.sql: -------------------------------------------------------------------------------- 1 | --UN Secretariat format UNU TB 2013 CSV 2 | SELECT X.FISCAL_YEAR, X.ACCOUNT_TYPE, ACCT.DESCR AS ACCT_TYPE_DESCR, X.ACCOUNT, X.DESCR AS ACCT_DESCR, 3 | SUM(X.PERIOD_0) AS "Opening Balance", SUM(X.DEBIT) AS "Debits", SUM(X.CREDIT) AS "Credits", 4 | SUM(X.PERIOD_YTD) AS "Movement", SUM(X.POSTED_BASE_AMT) AS "Closing Balance" 5 | FROM (SELECT ST.FISCAL_YEAR, ET.ACCOUNT_TYPE, ST.ACCOUNT, ET.DESCR, SUM(ST.POSTED_BASE_AMT) AS POSTED_BASE_AMT, 6 | CASE WHEN ST.ACCOUNTING_PERIOD = 0 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS PERIOD_0 7 | , CASE WHEN ST.ACCOUNTING_PERIOD > 0 THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS PERIOD_YTD 8 | , CASE WHEN (SUM(ST.POSTED_BASE_AMT) > 0.00 AND ST.ACCOUNTING_PERIOD > 0) THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS DEBIT 9 | , CASE WHEN (SUM(ST.POSTED_BASE_AMT) < 0.00 AND ST.ACCOUNTING_PERIOD > 0) THEN SUM(ST.POSTED_BASE_AMT) ELSE 0 END AS CREDIT 10 | FROM PS_LEDGER ST, PS_GL_ACCOUNT_TBL ET, PS_SET_CNTRL_REC B2 11 | WHERE ET.ACCOUNT = ST.ACCOUNT 12 | AND B2.SETCNTRLVALUE = ST.BUSINESS_UNIT 13 | AND B2.RECNAME = 'GL_ACCOUNT_TBL' 14 | AND B2.SETID = ET.SETID 15 | AND ET.EFFDT = (SELECT MAX(CJ.EFFDT) FROM PS_GL_ACCOUNT_TBL CJ WHERE CJ.SETID = ET.SETID AND CJ.ACCOUNT = ET.ACCOUNT AND CJ.EFFDT <= sysdate) 16 | AND ST.BUSINESS_UNIT = 'UNUNI' 17 | AND ST.LEDGER = 'USD' 18 | AND ST.FISCAL_YEAR = '2013' 19 | AND ((ST.ACCOUNTING_PERIOD BETWEEN 1 and 12 AND ET.ACCOUNT_TYPE IN ('E', 'R')) OR (ST.ACCOUNTING_PERIOD BETWEEN 0 and 12 AND ET.ACCOUNT_TYPE NOT IN ('E', 'R'))) 20 | AND ST.STATISTICS_CODE = ' ' 21 | --AND (ST.ACCOUNTING_PERIOD BETWEEN 0 AND 12) 22 | --AND ET.ACCOUNT_TYPE NOT IN ('E', 'R') 23 | GROUP BY ST.FISCAL_YEAR, ET.ACCOUNT_TYPE, ST.ACCOUNT, ET.DESCR, ST.BASE_CURRENCY, ST.ACCOUNTING_PERIOD) X, PS_ACCT_TYPE_TBL ACCT 24 | WHERE ACCT.SETID = 'SHARE' 25 | AND ACCT.ACCOUNT_TYPE = X.ACCOUNT_TYPE 26 | GROUP BY X.FISCAL_YEAR, X.ACCOUNT_TYPE, ACCT.DESCR, X.ACCOUNT, X.DESCR 27 | ORDER BY X.ACCOUNT, X.DESCR; 28 | -------------------------------------------------------------------------------- /SQLs/VendorBankingUpdate.sql: -------------------------------------------------------------------------------- 1 | clear screen 2 | set termout off serveroutput on 3 | 4 | set lines 50 echo off verify off feedback off trimspool on head off autotrace off 5 | --spool _PNGVendor.txt 6 | select 'set termout off echo off verify off feedback off' 7 | from dual 8 | ; 9 | --806 Vendors 10 | SELECT NU.VENDOR_ID, NU.VNDR_LOC, NU.EFFDT, NU.BNK_ID_NBR, NU.BANK_ACCOUNT_NUM, NU.DFI_ID_NUM, NU.BENEF_BRANCH, NU.* 11 | FROM PS_VNDR_BANK_ACCT NU 12 | WHERE 1 = 1 13 | AND NU.EFFDT = (SELECT MAX(NU_ED.EFFDT) FROM PS_VNDR_BANK_ACCT NU_ED WHERE NU.SETID = NU_ED.SETID AND NU.VENDOR_ID = NU_ED.VENDOR_ID 14 | AND NU.VNDR_LOC = NU_ED.VNDR_LOC AND NU_ED.EFFDT <= SYSDATE) 15 | AND NU.SETID = 'PNG10' 16 | --AND NU.VENDOR_ID = '0000000022' 17 | --AND NU.DEFAULT_IND = 'Y' 18 | AND NU.DFI_ID_QUAL = '02' 19 | AND NU.DFI_ID_NUM IN ('WPACPGPM', 'WPACPGPMXXX', 'BPNGPGPM', 'BPNGPGPMXXX', 'BOSPPGPM', 'BOSPPGPMXXX', 'KINIPGPG', 'KINIPGPGXXX', 'ANZBPGPX', 'ANZBPGPXXXX') 20 | AND NU.BENEF_BRANCH <> NU.DFI_ID_NUM 21 | AND EXISTS (SELECT 'X' FROM PS_VENDOR VEN WHERE VEN.SETID = NU.SETID AND VEN.VENDOR_ID = NU.VENDOR_ID AND VEN.VENDOR_STATUS = 'A') 22 | AND EXISTS (SELECT 'X' FROM PS_VENDOR VEN1, PS_VENDOR_LOC VL 23 | WHERE VL.SETID = NU.SETID 24 | AND VL.VENDOR_ID = NU.VENDOR_ID 25 | AND VEN1.SETID = VL.SETID AND VEN1.VENDOR_ID = VL.VENDOR_ID AND VL.VNDR_LOC = VEN1.DEFAULT_LOC 26 | AND VL.VNDR_LOC = NU.VNDR_LOC) 27 | ORDER BY 1,2 28 | / 29 | --Should update 806 vendors 30 | UPDATE PS_VNDR_BANK_ACCT NU 31 | SET NU.BENEF_BRANCH = 32 | ( 33 | SELECT OLD.DFI_ID_NUM FROM PS_VNDR_BANK_ACCT OLD 34 | WHERE OLD.SETID = NU.SETID AND OLD.VENDOR_ID = NU.VENDOR_ID AND OLD.VNDR_LOC = NU.VNDR_LOC AND OLD.EFFDT = NU.EFFDT 35 | AND OLD.BANK_ACCT_SEQ_NBR = NU.BANK_ACCT_SEQ_NBR 36 | ) 37 | WHERE 1 = 1 38 | AND NU.EFFDT = (SELECT MAX(NU_ED.EFFDT) FROM PS_VNDR_BANK_ACCT NU_ED WHERE NU.SETID = NU_ED.SETID AND NU.VENDOR_ID = NU_ED.VENDOR_ID 39 | AND NU.VNDR_LOC = NU_ED.VNDR_LOC AND NU_ED.EFFDT <= SYSDATE) 40 | AND NU.SETID = 'PNG10' 41 | --AND NU.VENDOR_ID = '0000000022' 42 | AND NU.DEFAULT_IND = 'Y' 43 | AND NU.DFI_ID_QUAL = '02' 44 | AND NU.DFI_ID_NUM IN ('WPACPGPM', 'WPACPGPMXXX', 'BPNGPGPM', 'BPNGPGPMXXX', 'BOSPPGPM', 'BOSPPGPMXXX', 'KINIPGPG', 'KINIPGPGXXX', 'ANZBPGPX', 'ANZBPGPXXXX') 45 | AND EXISTS (SELECT 'X' FROM PS_VENDOR VEN WHERE VEN.SETID = NU.SETID AND VEN.VENDOR_ID = NU.VENDOR_ID AND VEN.VENDOR_STATUS = 'A') 46 | AND EXISTS (SELECT 'X' FROM PS_VENDOR VEN1, PS_VENDOR_LOC VL 47 | WHERE VL.SETID = NU.SETID 48 | AND VL.VENDOR_ID = NU.VENDOR_ID 49 | AND VEN1.SETID = VL.SETID AND VEN1.VENDOR_ID = VL.VENDOR_ID AND VL.VNDR_LOC = VEN1.DEFAULT_LOC 50 | AND VL.VNDR_LOC = NU.VNDR_LOC) 51 | / 52 | SELECT NU.VENDOR_ID, NU.VNDR_LOC, NU.EFFDT, NU.BNK_ID_NBR, NU.BANK_ACCOUNT_NUM, NU.DFI_ID_NUM, NU.BENEF_BRANCH, NU.* 53 | FROM PS_VNDR_BANK_ACCT NU 54 | WHERE 1 = 1 55 | AND NU.EFFDT = (SELECT MAX(NU_ED.EFFDT) FROM PS_VNDR_BANK_ACCT NU_ED WHERE NU.SETID = NU_ED.SETID AND NU.VENDOR_ID = NU_ED.VENDOR_ID 56 | AND NU.VNDR_LOC = NU_ED.VNDR_LOC AND NU_ED.EFFDT <= SYSDATE) 57 | AND NU.SETID = 'PNG10' 58 | --AND NU.VENDOR_ID = '0000000022' 59 | --AND NU.DEFAULT_IND = 'Y' 60 | AND NU.DFI_ID_QUAL = '02' 61 | AND NU.DFI_ID_NUM IN ('WPACPGPM', 'WPACPGPMXXX', 'BPNGPGPM', 'BPNGPGPMXXX', 'BOSPPGPM', 'BOSPPGPMXXX', 'KINIPGPG', 'KINIPGPGXXX', 'ANZBPGPX', 'ANZBPGPXXXX') 62 | AND NU.BENEF_BRANCH <> NU.DFI_ID_NUM 63 | AND EXISTS (SELECT 'X' FROM PS_VENDOR VEN WHERE VEN.SETID = NU.SETID AND VEN.VENDOR_ID = NU.VENDOR_ID AND VEN.VENDOR_STATUS = 'A') 64 | AND EXISTS (SELECT 'X' FROM PS_VENDOR VEN1, PS_VENDOR_LOC VL 65 | WHERE VL.SETID = NU.SETID 66 | AND VL.VENDOR_ID = NU.VENDOR_ID 67 | AND VEN1.SETID = VL.SETID AND VEN1.VENDOR_ID = VL.VENDOR_ID AND VL.VNDR_LOC = VEN1.DEFAULT_LOC 68 | AND VL.VNDR_LOC = NU.VNDR_LOC) 69 | ORDER BY 1,2 70 | ; 71 | --Should select 0 Vendors 72 | select 'spool off' 73 | from dual 74 | ; 75 | select 'set termout on' 76 | from dual 77 | ; 78 | --spool off 79 | set lines 200 80 | set termout on serveroutput on echo on verify on feedback on trimspool on head on 81 | -------------------------------------------------------------------------------- /Stub_RS2JSON.peoplecode: -------------------------------------------------------------------------------- 1 | rem Convert Rowset to JSON; 2 | import PP_UTIL_PKG:RowsetJS:*; 3 | import PSXP_ENGINE:*; 4 | import PSXP_RPTDEFNMANAGER:*; 5 | import PSXP_XMLGEN:RowSetDS:*; 6 | 7 | Local XmlDoc &SomeXMLDoc_; 8 | Local Rowset &rsLvl0_; 9 | Local Record &recPPWrk_; 10 | Local string &sJSONReply_; 11 | Local PSXP_XMLGEN:RowSetDS &oRowSetDS; 12 | Local PP_UTIL_PKG:RowsetJS &oRS2JSON_; 13 | 14 | &oRowSetDS = create PSXP_XMLGEN:RowSetDS(); 15 | &oRS2JSON_ = create PP_UTIL_PKG:RowsetJS(); 16 | 17 | &rsLvl0_ = GetLevel0(); 18 | &recPPWrk_ = &rsLvl0_(1).GetRecord(Record.PP_DERIVED_WRK); 19 | &SomeXMLDoc_ = CreateXmlDoc(""); 20 | 21 | Local string &strXML = &oRowSetDS.getXMLData(&rsLvl0_, ""); 22 | Local boolean &boolval_ = &SomeXMLDoc_.ParseXmlString(&strXML); 23 | Local string &newoutStr_ = &SomeXMLDoc_.GenFormattedXmlString(); 24 | &sJSONReply_ = &oRS2JSON_.getJSONData(&rsLvl0_); 25 | rem MessageBox(0, "", 0, 0, "&sJSONReply_ " | &sJSONReply_); 26 | &recPPWrk_.DESCRLONG.Value = ""; 27 | &recPPWrk_.DESCRLONG.Value = &sJSONReply_; 28 | rem &recPPWrk_.DESCRLONG.Value = &newoutStr_; 29 | -------------------------------------------------------------------------------- /VendorMaster.sql: -------------------------------------------------------------------------------- 1 | --Vendor Master 2 | --Version 2 3 | SELECT V.VENDOR_ID, V.NAME1, V.VENDOR_CLASS, X1.XLATLONGNAME AS VNDR_CLASS, V.VENDOR_STATUS, X2.XLATLONGNAME AS VNDR_STS, V.DEFAULT_LOC, 4 | VLC.VNDR_LOC AS VNDR_LOC_LOC, VLC.EFFDT, VLC.EFF_STATUS, VLC.REMIT_LOC, VLC.REMIT_ADDR_SEQ_NUM, VLCC.DESCR AS "Location Scroll Descr", 5 | VAD.NAME1 AS "Payment Alternate Name", VAD.ADDRESS1, VPAY.PYMNT_METHOD, VPAY.EFT_LAYOUT_CD, 6 | VPAY.SEQ_NUM, VPAY.BANK_CD, VPAY.BANK_ACCT_KEY, VPAY.CURRENCY_PYMNT, VPAY.CUR_RT_TYPE_PYMNT, VPAY.EFT_PYMNT_FMT_CD, X5.XLATLONGNAME AS EFT_PYMNT_CODE, VPAY.EFT_TRANS_HANDLING, X6.XLATLONGNAME AS EFT_TRANS_CD, 7 | VPAY.EFT_DOM_COSTS_CD AS "Domestic Costs", X7.XLATLONGNAME AS EFT_DOM_COST_DESCR, 8 | ACCT.DEFAULT_IND "Def Bank Acct", ACCT.DESCR "Vndr Bank Addr Descr", 9 | ACCT.VNDR_LOC AS VNDR_LOC_ACCT, ACCT.BANK_ID_QUAL, ACCT.BNK_ID_NBR, ACCT.BRANCH_ID, ACCT.BANK_ACCT_TYPE, X4.XLATLONGNAME AS BANK_ACCT_TYPE_DESCR, ACCT.BANK_ACCOUNT_NUM, 10 | ACCT.CHECK_DIGIT, ACCT.DFI_ID_QUAL, ACCT.DFI_ID_NUM, ACCT.BENEFICIARY_BANK, ACCT.BENEF_BRANCH, ACCT.BANK_ACCT_SEQ_NBR, ACCT.COUNTRY, ACCT.STATE, 11 | ACCT.POSTAL, ACCT.IBAN_CHECK_DIGIT, ACCT.IBAN_ID, 12 | VBNK.INTRMED_SEQ_NO, VBNK.INTRMED_ACCT_KEY, VBNK.INTRMED_DFI_ID, VBNK.INTRMED_PYMNT_MSG, VBNK.STL_ROUTING_METHOD, X3.XLATLONGNAME AS ROUTING_METHOD, 13 | IBAN.COUNTRY AS IBAN_CNTRY, IBCN.DESCR AS CNTRY_DESCR, IBAN.COUNTRY_2CHAR, IBAN.IBAN_ENTERABLE, IBAN.IBAN_BANKID_POS, IBAN.IBAN_BANKID_LEN, IBAN.IBAN_BANKID_PAD, 14 | IBAN.IBAN_DFI_ID_POS, IBAN.IBAN_DFI_ID_LEN, IBAN.IBAN_DFI_ID_PAD, IBAN.IBAN_BRANCHID_POS, 15 | IBAN.IBAN_BRANCHID_LEN, IBAN.IBAN_BRANCHID_PAD, IBAN.IBAN_ACCOUNT_POS, IBAN.IBAN_ACCOUNT_LEN, IBAN.IBAN_ACCOUNT_PAD, IBAN.IBAN_CHKDIGIT_POS, IBAN.IBAN_CHKDIGIT_LEN, 16 | V.CREATED_DTTM, V.CREATED_BY_USER, V.LAST_MODIFIED_DATE, V.ENTERED_BY 17 | FROM (((((((((((((PS_VENDOR V 18 | LEFT OUTER JOIN PS_VNDR_LOC_SCROL VLCC ON V.SETID = VLCC.SETID AND V.VENDOR_ID = VLCC.VENDOR_ID AND V.DEFAULT_LOC = VLCC.VNDR_LOC) 19 | LEFT OUTER JOIN PS_VENDOR_LOC VLC ON V.SETID = VLC.SETID AND V.VENDOR_ID = VLC.VENDOR_ID AND VLC.VNDR_LOC = VLCC.VNDR_LOC) 20 | -- LEFT OUTER JOIN PS_VENDOR_ADDR VAD ON V.SETID = VAD.SETID AND V.VENDOR_ID = VAD.VENDOR_ID AND VAS.ADDRESS_SEQ_NUM = VAD.ADDRESS_SEQ_NUM) 21 | LEFT OUTER JOIN PS_VENDOR_ADDR VAD ON V.SETID = VAD.SETID AND V.VENDOR_ID = VAD.VENDOR_ID AND VAD.ADDRESS_SEQ_NUM = VLC.REMIT_ADDR_SEQ_NUM) 22 | -- LEFT OUTER JOIN PS_VENDOR_PAY VPAY ON V.SETID = VPAY.SETID AND V.VENDOR_ID = VPAY.VENDOR_ID AND VLCC.VNDR_LOC = VPAY.VNDR_LOC AND VPAY.SEQ_NUM = 1) 23 | LEFT OUTER JOIN PS_VENDOR_PAY VPAY ON V.SETID = VPAY.SETID AND V.VENDOR_ID = VPAY.VENDOR_ID AND VLC.VNDR_LOC = VPAY.VNDR_LOC AND VLC.EFFDT = VPAY.EFFDT) 24 | LEFT OUTER JOIN PSXLATITEM X5 ON X5.FIELDNAME = 'EFT_PYMNT_FMT_CD' AND X5.FIELDVALUE = VPAY.EFT_PYMNT_FMT_CD AND X5.EFF_STATUS = 'A') 25 | LEFT OUTER JOIN PSXLATITEM X6 ON X6.FIELDNAME = 'EFT_TRANS_HANDLING' AND X6.FIELDVALUE = VPAY.EFT_TRANS_HANDLING AND X6.EFF_STATUS = 'A') 26 | LEFT OUTER JOIN PSXLATITEM X7 ON X7.FIELDNAME = 'EFT_DOM_COSTS_CD' AND X7.FIELDVALUE = VPAY.EFT_DOM_COSTS_CD AND X7.EFF_STATUS = 'A') 27 | LEFT OUTER JOIN PS_VNDR_BANK_ACCT ACCT ON V.SETID = ACCT.SETID AND V.VENDOR_ID = ACCT.VENDOR_ID AND VLC.VNDR_LOC = ACCT.VNDR_LOC) 28 | LEFT OUTER JOIN PSXLATITEM X4 ON X4.FIELDNAME = 'BANK_ACCT_TYPE' AND X4.FIELDVALUE = ACCT.BANK_ACCT_TYPE) 29 | LEFT OUTER JOIN PS_IBAN_FORMAT_TBL IBAN ON ACCT.COUNTRY = IBAN.COUNTRY) 30 | LEFT OUTER JOIN PS_IBAN_COUNTRY_VW IBCN ON IBAN.COUNTRY = IBCN.COUNTRY) 31 | LEFT OUTER JOIN PS_VNDR_IBANK_ACCT VBNK ON ACCT.SETID = VBNK.SETID AND ACCT.VENDOR_ID = VBNK.VENDOR_ID AND ACCT.VNDR_LOC = VBNK.VNDR_LOC AND ACCT.EFFDT = VBNK.EFFDT AND ACCT.BANK_ACCT_SEQ_NBR = VBNK.BANK_ACCT_SEQ_NBR) 32 | LEFT OUTER JOIN PSXLATITEM X3 ON X3.FIELDNAME = 'STL_ROUTING_METHOD' AND X3.FIELDVALUE = VBNK.STL_ROUTING_METHOD) 33 | ,PSXLATITEM X1, PSXLATITEM X2 34 | WHERE 1 = 1 35 | AND (VLC.EFFDT = (SELECT MAX(VLC_ED.EFFDT) FROM PS_VENDOR_LOC VLC_ED WHERE VLC.SETID = VLC_ED.SETID AND VLC.VENDOR_ID = VLC_ED.VENDOR_ID AND VLC.VNDR_LOC = VLC_ED.VNDR_LOC AND VLC_ED.EFFDT <= SYSDATE) 36 | OR VLC.EFFDT IS NULL) 37 | AND (ACCT.EFFDT = (SELECT MAX(ACCT_ED.EFFDT) FROM PS_VNDR_BANK_ACCT ACCT_ED WHERE ACCT.SETID = ACCT_ED.SETID AND ACCT.VENDOR_ID = ACCT_ED.VENDOR_ID AND ACCT.VNDR_LOC = ACCT_ED.VNDR_LOC AND ACCT_ED.EFFDT <= SYSDATE) 38 | OR ACCT.EFFDT IS NULL) 39 | AND (VBNK.EFFDT = (SELECT MAX(VBNK_ED.EFFDT) FROM PS_VNDR_IBANK_ACCT VBNK_ED WHERE VBNK.SETID = VBNK_ED.SETID AND VBNK.VENDOR_ID = VBNK_ED.VENDOR_ID AND VBNK.VNDR_LOC = VBNK_ED.VNDR_LOC AND VBNK_ED.EFFDT <= SYSDATE) 40 | OR VBNK.EFFDT IS NULL) 41 | AND (VAD.EFFDT = (SELECT MAX(VAD_ED.EFFDT) FROM PS_VENDOR_ADDR VAD_ED WHERE VAD_ED.SETID = VAD.SETID AND VAD_ED.VENDOR_ID = VAD.VENDOR_ID AND VAD_ED.ADDRESS_SEQ_NUM = VAD.ADDRESS_SEQ_NUM AND VAD_ED.EFFDT <= SYSDATE) 42 | OR VAD.EFFDT IS NULL) 43 | AND (VPAY.EFFDT = (SELECT MAX(VPAY_ED.EFFDT) FROM PS_VENDOR_PAY VPAY_ED WHERE VPAY_ED.SETID = VPAY.SETID AND VPAY_ED.VENDOR_ID = VPAY.VENDOR_ID AND VPAY_ED.VNDR_LOC = VPAY.VNDR_LOC AND VPAY_ED.SEQ_NUM = VPAY.SEQ_NUM 44 | AND VPAY_ED.EFFDT <= SYSDATE) 45 | OR VPAY.EFFDT IS NULL) 46 | AND X1.FIELDNAME = 'VENDOR_CLASS' 47 | AND X1.FIELDVALUE = V.VENDOR_CLASS 48 | AND X1.EFF_STATUS = 'A' 49 | AND X2.FIELDNAME = 'VENDOR_STATUS' 50 | AND X2.FIELDVALUE = V.VENDOR_STATUS 51 | AND X2.EFF_STATUS = 'A' 52 | AND V.SETID = 'US001' 53 | AND VENDOR_STATUS = 'A' 54 | -- AND V.VENDOR_ID = '0000000025' 55 | ORDER BY 1,2; 56 | -------------------------------------------------------------------------------- /XML2JSONConvert.peoplecode: -------------------------------------------------------------------------------- 1 | import X_PP_IB_HNDLR_X:*; 2 | 3 | Local X_PP_IB_HNDLR_X:PPGetCIXMLJSON &PP_IB_OnRequest_; 4 | Local string &strJSONString_; 5 | Local boolean &bool_; 6 | Component XmlDoc &RespXML_; 7 | 8 | If (None(&PP_IB_OnRequest_)) Then 9 | &PP_IB_OnRequest_ = create X_PP_IB_HNDLR_X:PPGetCIXMLJSON(); 10 | End-If; 11 | REM Check for loaded XML and then convert to JSON; 12 | If All(X_PP_DEV_WRK_X.DESCRLONG_NOTES.Value) Then 13 | /* Format XML using an XMLDoc object.*/ 14 | &RespXML_ = CreateXmlDoc(""); 15 | &bool_ = &RespXML_.ParseXmlString(X_PP_DEV_WRK_X.DESCRLONG_NOTES.Value); 16 | rem MessageBox(0, "", 0, 0, "XML: " | &RespXML_.GenFormattedXmlString()); 17 | REM Start the conversion; 18 | &strJSONString_ = &PP_IB_OnRequest_.getJSONFromXMLDoc(&RespXML_, &PP_IB_OnRequest_.emptyspaces_); 19 | X_PP_DEV_WRK_X.DESCRLONG4.Value = &strJSONString_; /* JSON Response */ 20 | Else 21 | MessageBox(0, "", 0, 0, "No file to convert."); 22 | End-If; 23 | -------------------------------------------------------------------------------- /cURLandJQ.sh: -------------------------------------------------------------------------------- 1 | alias jq=./jq-win64.exe 2 | echo '{"foo": 0}' | jq 3 | 4 | curl -XGET http://slc11ohu.us.oracle.com:8000/PSIGW/RESTListeningConnector/E92PP858/CIRT_PP_WEB_PROF_HIST_C_G_GET.V1/slc11ohu/8000/e92pp858x -H "Accept: application/json" -s | jq 5 | 6 | curl -XGET http://slc11ohu.us.oracle.com:8000/PSIGW/RESTListeningConnector/E92PP858/CIRT_PP_WEB_PROF_HIST_C_G_GET.V1/slc11ohu/8000/e92pp858x -H "Accept: application/json" -s | jq '.Get__CompIntfc_PP_WEB_PROF_HIST_CIResponse.WEBPROFILENAME' 7 | 8 | curl -XGET http://slc11ohu.us.oracle.com:8000/PSIGW/RESTListeningConnector/E92PP858/CIRT_PP_WEB_PROF_HIST_C_G_GET.V1/slc11ohu/8000/e92pp858x -H "Accept: application/json" -s | jq '.Get__CompIntfc_PP_WEB_PROF_HIST_CIResponse.WEBPROFILENAME, .Get__CompIntfc_PP_WEB_PROF_HIST_CIResponse.WEBSITENAME' 9 | 10 | curl -XGET http://slc11ohu.us.oracle.com:8000/PSIGW/RESTListeningConnector/E92PP858/CIRT_PP_WEB_PROF_HIST_C_G_GET.V1/slc11ohu/8000/e92pp858x -H "Accept: application/json" -s | jq '{webprofileName: .Get__CompIntfc__PP_WEB_PROF_HIST_CIResponse.WEBPROFILENAME, websiteName: .Get__CompIntfc__PP_WEB_PROF_HIST_CIResponse.WEBSITENAME}' 11 | 12 | curl -XGET http://slc11ohu.us.oracle.com:8000/PSIGW/RESTListeningConnector/E92PP858/CIRT_BASIC_CI_G_GET.V1/US001/000000000199 -H "Accept: application/json" -s | jq '{BUName: .Get__CompIntfc__BASIC_CIResponse.BUSINESS_UNIT, AssetID: .Get__CompIntfc__BASIC_CIResponse.ASSET_ID, ProfileID: .Get__CompIntfc__BASIC_CIResponse.PROFILE_ID, AssetStatus: .Get__CompIntfc__BASIC_CIResponse.ASSET_STATUS, InSvcDT: .Get__CompIntfc__BASIC_CIResponse.IN_SERVICE_DT}' 13 | 14 | curl -XGET http://slc11ohu.us.oracle.com:8000/PSIGW/RESTListeningConnector/E92PP858/CIRT_BASIC_CI_G_GET.V1/US001/000000000199 -H "Accept: application/json" -s | jq '{BUName: .Get__CompIntfc__BASIC_CIResponse.BUSINESS_UNIT, AssetID: .Get__CompIntfc__BASIC_CIResponse.ASSET_ID, ProfileID: .Get__CompIntfc__BASIC_CIResponse.PROFILE_ID, AssetStatus: .Get__CompIntfc__BASIC_CIResponse.ASSET_STATUS, InSvcDT: .Get__CompIntfc__BASIC_CIResponse.IN_SERVICE_DT, ASSET_ACQ_DET: { SYSTEM_SOURCE: .Get__CompIntfc__BASIC_CIResponse.ASSET_ACQ_DET.SYSTEM_SOURCE}}' 15 | -------------------------------------------------------------------------------- /pside_launch.vbs: -------------------------------------------------------------------------------- 1 | '/** 2 | '* This VBScript is used to check if Application Designer is already open. If Application 3 | '* Designer is already open then just Activate that window and then open the respective 4 | '* object. But if Application Designer is not previously open, then it opens that. Once 5 | '* Developer has entered User ID and Password, then the respective object will be open 6 | '* in the Application Designer. 7 | '* 8 | '* @version : 1.0 9 | '* @author : Prashant Prakash 10 | '* @date : 06/14/3013 11 | '* 12 | '* -- ** PLEASE DO NOT EDIT / DELETE THIS VBSCRIPT FILE ** -- * 13 | '*/ 14 | 15 | ' Declaring all the variables 16 | Dim oWScriptShell, oWindowsManagementService, oAllArguments, Process 17 | Dim boolIsApplicationDesignerRunning, nbrLoopCounter, keyTAB, psObjName 18 | 19 | ' Getting the handle for Windows Management functions 20 | Set oWindowsManagementService = GetObject ("winmgmts:") 21 | Set oWScriptShell = CreateObject("WScript.Shell") 22 | 23 | ' Assuming that Application Designer is not running by default 24 | boolIsApplicationDesignerRunning = "False" 25 | 26 | ' If Application Designer process is running then try to select that Application, but if 27 | ' unable to select then raise exception 28 | For Each Process In oWindowsManagementService.InstancesOf ("Win32_Process") 29 | If Process.Name = "pside.exe" then 30 | If Not oWScriptShell.AppActivate("Application Designer") Then 31 | oAppActivateReturnValue = "False" 32 | nbrLoopCounter = 1 33 | keyTAB = "" 34 | 35 | ' Just maximizing all the windows, so that the process can select Application Designer 36 | Do While oAppActivateReturnValue = "False" and nbrLoopCounter <= 20 37 | keyTAB = keyTAB & "{TAB}" 38 | oWScriptShell.SendKeys "%(" & keyTAB & ")" 39 | oWScriptShell.SendKeys "% x" 40 | nbrLoopCounter = nbrLoopCounter + 1 41 | oAppActivateReturnValue = oWScriptShell.AppActivate("Application Designer") 42 | Loop 43 | 44 | ' If unable to select Application Designer, then raise exception 45 | If oAppActivateReturnValue = "False" Then 46 | WScript.Echo "Make sure Application Designer is not Minimized." 47 | WScript.Quit 48 | End If 49 | End If 50 | boolIsApplicationDesignerRunning = "True" 51 | End If 52 | Next 53 | If boolIsApplicationDesignerRunning = "False" Then 54 | 55 | ' Since Application Designer is not running, start it up 56 | oWScriptShell.Run "pside.exe", 3, False 57 | oAppActivateReturnValue = "False" 58 | Do While oAppActivateReturnValue = "False" 59 | oAppActivateReturnValue = oWScriptShell.AppActivate("Application Designer") 60 | Loop 61 | End If 62 | 63 | ' Confirm once again, if Application Designer is running, and if running then you 64 | ' are set to go. But just in case if it is not running then JUST QUIT! 65 | If Not oWScriptShell.AppActivate("Application Designer") Then 66 | WScript.Echo "Unable to find Application Designer, hence Quiting..." 67 | WScript.Quit 68 | End If 69 | 70 | Set oAllArguments = WScript.Arguments 71 | ' Store the arguments in a variable: 72 | Set objArgs = Wscript.Arguments 73 | For I = 0 to objArgs.Count - 1 74 | Wscript.Echo objArgs(I) 75 | Next 76 | 77 | oWScriptShell.AppActivate("Application Designer") 78 | ' Just creating a PeopleSoft Application Designer type of object 79 | Set IDE = CreateObject("PeopleSoft.ApplicationDesigner") 80 | oWScriptShell.AppActivate("Application Designer") 81 | 82 | ' This is required because, in case of Internet Explorer there is a "/" at the end, so 83 | ' using this, I am just removing that last string(if present offcourse) 84 | nbrSlashLocation = Len(oAllArguments(0)) 85 | If InStr(9, oAllArguments(0), "/") > 0 Then 86 | nbrSlashLocation = Len(oAllArguments(0)) - 1 87 | End If 88 | psObjName = Mid(oAllArguments(0), 9, nbrSlashLocation - 8) 89 | 90 | IDE.ViewObject(psObjName) 91 | --------------------------------------------------------------------------------