AP06002 CFS90 DS WellsFargoPositivePayFile 20120523 by y486F4V

VIEWS: 4 PAGES: 56

									                                                      CFS Modification Approval and Design Request
                                                                                     California State University
                                                                                                  CMS Baseline

General Information
 Item                                           Enter Information Requested
 Service Request Number                         INC0026846
 Modification Number                            AP06002
 Modification Name                              Wells Fargo Positive Pay File
 Modification Request Status                    Approved
 Request Initiated By (campus, team, or CMS )   CFS Design Team
 Primary Contact (name)                         Jennyfer Nguyen
 Primary Contact (email)                        jnguyen@calstate.edu
 Filename                                       AP06002_CFS90-DS_WellsFargoPositivePayFile_20120523.docx



Modification Request Applies To: (Check all that apply)

   Finance 9.0                                         Common Financial System 9.0

   Human Resources 8.9                                 Human Resources 9.0

   Student Administration 8.9                          Student Administration 9.0



        Important
Modifications must accommodate multiple campus Business Units, SetIDs and Ledgers. The prompt tables used
in run control pages and setup tables must use the PeopleSoft delivered row-level application security views. The
use of temp tables must support multiple occurrences of the same report/process, so that one campus’ process
will not adversely affect another. Hard coding will be allowed when necessary to help establish common business
practices.

About this Document
The Modification Approval and Design Request document is a point-in-time document that provides the approval
history, business requirements, design solution, and object list for modifications made to the CMS Baseline
product.

Once the modification is released and posted to the CMS website, this document becomes a historical record of
the modification as initially released. Minor updates (i.e. editing errors or minor corrections) are updated and
republished in this document, but all functional or object changes are documented and posted as Modification
Update Requests.

Section One: Revision History provides a table listing all Modification Update Requests associated with this
document (if applicable), as well as a second table listing all minor document edits. Modification Update
Requests will be posted with the original modification on the CMS website. Please refer to the documentation
web page for each application.




Last Revised: 05/23/12                                                                                 Page 1 of 56
Wells Fargo Positive Pay File                                             CFS Modification Approval and Design Request
AP06002-CFS90                                                                                         Accounts Payable



Related Documents
The documents listed below are supporting materials such as test plans, test scripts, business process guides,
etc. associated with this modification. Depending on the complexity of the modification, support materials will
vary. Support materials are also posted on the CMS website, on the documentation web page for each
application.

   CFS90 User Guide AP Positive Payment File




Last Revised: 05/23/12                                                                                    Page 2 of 56
Wells Fargo Positive Pay File                                                                                  CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                                              Accounts Payable




Table of Contents

Section One: Revision History ................................................................................................................................... 4

Section Two: CMS Central Modification Governance Review [CMS Use Only] ..................................................... 5

Section Three: Business Justification for Modification Request ............................................................................... 6

1.0      Overview ........................................................................................................................................................... 6

2.0      Department/Process Impact ............................................................................................................................. 6

3.0      Cross Product Analysis ..................................................................................................................................... 6

4.0      Alternatives and Recommendation ................................................................................................................... 7

Section Four: Design Specification ............................................................................................................................ 8

1.0      Conceptual Model (Process Flow) .................................................................................................................... 8

2.0      Requirements and Design Details .................................................................................................................... 9
         2.1      Regulatory Requirements/Business Rules ........................................................................................... 11
         2.2      Security Requirements .......................................................................................................................... 11
         2.3      Process Frequency ............................................................................................................................... 11
         2.4      Inputs/Outputs ....................................................................................................................................... 11

Section Five: Business Test Conditions .................................................................................................................. 12

Section Six: Object Changes ................................................................................................................................... 14

Appendix A: Wells Fargo File format Specifications ................................................................................................ 19

Appendix B: Title...................................................................................................................................................... 20

Appendix C: SQL ..................................................................................................................................................... 22

Appendix D: PeopleCode ........................................................................................................................................ 30




Last Revised: 05/23/12                                                                                                                                        Page 3 of 56
Wells Fargo Positive Pay File                                                     CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                 Accounts Payable




Section One: Revision History

Modification Update Requests

Please list Service Request Number (SR#), Date, and Filename of any Update Requests associated with this
modification.
 SR#            Date            Filename of Update Request
 Click here     Click here      Click here to enter Filename of Update Request.
 to enter       to enter
 SR#            Date.
 Click here     Click here      Click here to enter Filename of Update Request.
 to enter       to enter
 SR#            Date.



Document Edits

Please provide a high-level description of edits made to this document to alert users to changes made since its
initial release. Please note: Minor updates (i.e., editing errors or minor corrections) are updated and republished
in this document, but all functional or object changes are documented and posted as Modification Update
Requests.
 Date         By                Description of Document Edits                                              Section Edited
 03/15/10     CFS Team          Release of new document                                                    All
 04/07/11     J Nguyen          Update Changes:                                                            Section 3.0 – 1.0
                                - Wells SAFE Transmission new requirements                                 Section 4.0 – 2.0
                                - Name change for the Positive Pay log file                                Section 5.0
 06/30/11     L Reyes           Update Technical Specs                                                     Section 6
 05/23/12     L Reyes           Update Technical Specs                                                     Section 6




Last Revised: 05/23/12                                                                                            Page 4 of 56
Wells Fargo Positive Pay File                                               CFS Modification Approval and Design Request
AP06002-CFS90                                                                                           Accounts Payable




Section Two: CMS Central Modification Governance Review [CMS Use Only]
CMS Analyst / Author:              CFS Design Team and Jennyfer Nguyen
Oracle Analysis:                   N/A - CSU Requirement

 Category of Analysis                                  Estimates/ Impacts
 Preliminary Time Estimate for Original Modification   4 hours
 Final Time for Original Modification                  4 hours
 Estimated Maintenance Over 5 Years                    5 hours
 Impact on Upgrades                                    Minimal
 Impact on Data Warehouse                              Minimal

Review and Approval
 Area / Title             Name              Date       Action          Comments
 User Group               CFS Design Team   08/31/09   Reviewed        Recommended for Application Team review
 CMS Application          E Kist            03/04/10   Reviewed        Recommended for CMS Senior Director
 Team                                                                  review and approval
 Senior Director,         J Lum             03/11/10   Approved        For posting to CMS website
 CMS




Last Revised: 05/23/12                                                                                      Page 5 of 56
Wells Fargo Positive Pay File                                                 CFS Modification Approval and Design Request
AP06002-CFS90                                                                                             Accounts Payable




Section Three: Business Justification for Modification Request

Please select the appropriate categories to indicate the business justification for this modification request.

Modification Governance Category: CSU Business Requirement

Modification Decision Criteria (Select ALL that apply)

   Impacts the ability to go live or is a result of collective bargaining, Trustee requirements, Executive direction, or
   State / Federal regulations

   Modification would result in a significant reduction in manual effort

   Modification would maintain a significant service level or add significant improvement in administrative
   productivity and / or service

   Without the modification, additional staff would be necessary to perform the business process



1.0       Overview
This document is intended to address how the Oracle PeopleSoft Finance Baseline system will handle the
Positive Pay File banking requirements. A file needs to be generated from the Payables application after
Disbursement Check transactions occur, and then transmitted to Wells Fargo bank.

The Revenue Management Program (RMP), implemented in 2007 resulted in allowing the CSU to control more of
their funding. This initiative resulted in the CSU outsourcing to other banking institutions besides the State. One
of these ‘Non State’ banks, Wells Fargo, has been selected as the new disbursement bank. This bank requires
that the CSU Campuses submit a Positive Pay file after every check run done at a campus. The Positive Pay file
will improve the check disbursement methods, save time, and reduce the campus exposure to fraud risk. This
modification spec will retrofit the Finance 9.0 into CFS 9.0.

The Wells Fargo bank is changing the SAFE Transmission platform to secure ‘valuable’ files transfer. As a result,
it has an impact on the Positive Pay files transfer from ‘CFS’ campuses to Wells Fargo. The ‘existing’ digital
certificates assigned by Wells Fargo cannot be used. To access the Wells Fargo SAFE Transmission platform,
each campus will be receiving from Wells Fargo a Remote ID [RID], Batch ID [BID], Automated User ID and the
Bank Inbound File Location. To validate the connectivity with Wells Fargo, additional ‘security keys’ are also
created in the CFS production instances by the CMS DBA team. For more details on the new changes for Wells
SAFE Transmission, see the Requirements and Design Details section.



2.0      Department/Process Impact
The campuses process Accounts Payable checks on a daily basis within the Finance area. This modification
would help campuses improve check disbursement methods, save time and reduce exposure to fraud.



3.0      Cross Product Analysis
No impact on cross products.


Last Revised: 05/23/12                                                                                         Page 6 of 56
Wells Fargo Positive Pay File                                        CFS Modification Approval and Design Request
AP06002-CFS90                                                                                    Accounts Payable



4.0      Alternatives and Recommendation
1. Alternative One: None
2. Recommendation: Develop a process that will create a Positive Pay File after every check run at any
   campus. The process should also include automatic interface to Wells Fargo Bank




Last Revised: 05/23/12                                                                               Page 7 of 56
Wells Fargo Positive Pay File                                                    CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                Accounts Payable




Section Four: Design Specification


1.0      Conceptual Model (Process Flow)

CSU Positive Pay File Process
After the Oracle PeopleSoft Pay Cycle is run to create CSU Custom Checks for Wells Fargo Bank, create the
CSU Positive Pay File and transmit to Wells Fargo. This modification will not affect PS delivered process flow
functionality.

A high level flow chart of the CSU Positive Pay File (AP06002) process is presented below.

Wells Fargo Positive Pay File (AP06002)

Flowchart

                                       11
                                  Process the
                                   Process the
                                   Pay Cycle
                                    Pay Cycle




                                      22
                            Run Disbursement
                             Run Disbursement
                               for all check
                                for all check
                              transactions
                                transactions
                                        ..


                                        33                    44                          55
                                  Create CSU
                                   Create CSU        Verify there are no
                                                      Verify there are no      File is automatically
                                                                                 File is automatically
                                Positive Pay File
                                 Positive Pay File     message or log
                                                        message or log
                                                                          No   transmitted to Wells
                                                                                 transmitted to Wells
                                                        errors in the
                                                          errors in the                 Fargo
                                                                                         Fargo
                                                      Process Monitor
                                                       Process Monitor

                                                            Yes


                                                            66
                                                     Transmit manually
                                                      Transmit manually




Steps
1. In Oracle PeopleSoft Accounts Payable, process the pay cycle.
2. Run PS Disbursement for all check transactions.
3. Create a Positive Pay file.
4. Navigate to: Accounts Payable > Payments > CSU Positive Payment File


Last Revised: 05/23/12                                                                                           Page 8 of 56
Wells Fargo Positive Pay File                                               CFS Modification Approval and Design Request
AP06002-CFS90                                                                                           Accounts Payable



5. Create a new Run Control.
6. Enter the appropriate criteria.
7. Run the process.
8. Verify the Process Monitor ends with status of Success and has no error messages or log errors.
9. The Positive Pay file has been automatically transmitted to Wells Fargo Bank.
10. If any issues arise in the automation of the file transfer, other provisions will need to be made so the file can
    also be transmitted manually.


2.0       Requirements and Design Details
For Wells Fargo SAFE Transmission configuration, create a File Transmission page and allow users the ability to
setup the ‘rmp’ file folder for Positive Pay File and the Wells Fargo’s unique identifications. The information on
this page will be used as the default settings to access the Wells Fargo SAFE Transmission platform – see
CSU_FT_SETUP.

Menu Navigation: Banking > Bank Accounts > External Accounts > File Transmission

On the File Transmission Header page, create the following:
     SetID: Bank SetID [e.g. SMCMP]
     Bank: Bank Code [e.g. WELLS]; displays Bank Description [e.g. Wells Fargo Bank, N.A.]
     External Bank ID: Use Bank ID as entered on the Bank Information page
     Bank Account: Bank Account as entered on the External Accounts page [e.g. CMP]

The File Transmission tab would include the following:
     Payment Type: Provide a dropdown for Positive Payment or ACH Payment. Create +/- sign to add or delete
      a row – see CSU_PYMNT_TYPE.
     Bank ID: Provided by Wells Fargo. It is used in the Positive Pay File in the File Header Record, “Bank ID”
      field – see CSU_BANK_ID_NBR. This field is not used in the ACH Payment File. If the Payment Type is for
      ‘POS’, this field will be used in the program logic. No further program logic will be added when the Payment
      Type is ‘ACH’.
     Remote ID [also called RID]: This is the 8 character value assigned by Wells Fargo Bank. This ID appears
      on the File Header Record, along with the Batch ID and is used internally by the bank – see CSU_RID.
     Batch ID [also called BID]: Enter your BID as assigned by Wells Fargo. This ID appears on the File Header
      Record, along with the Remote ID and is used internally by the bank – see CSU_BID.
     Automated User ID: This is assigned by Wells Fargo Bank. It is required to make a connection to the bank
      – see CSU_AUTO_ID.
     Bank Inbound File Location: This is assigned by Wells Fargo Bank and is used as a location for files
      transmission – see CSU_FILE_INBOUND.
     Campus File Location: After creating and prior to being submitted to Wells Fargo Bank, this is a campus file
      location [CSU_FILE_INBOUND]. This is a required field. Assistance from the DBAs is required to setup the
      proper location prior creating the files.
      -   For CFS, the ‘rmp’ file folder format is: /CSU/<CFS database instance>/rmp/<campus setid>/
             e.g. /CSU/facfstst/rmp/smcmp/
      Note: CSU is uppercase and the rest are all lowercase.



Last Revised: 05/23/12                                                                                      Page 9 of 56
Wells Fargo Positive Pay File                                                  CFS Modification Approval and Design Request
AP06002-CFS90                                                                                              Accounts Payable




        Please Note: For 9.0 ‘rmp’ file folder format setup, refer to prior CFS Modification Approval & Design
Request.

The Date/Time Setup tab would include the following:
   Hours:
    -     In CFS production, system generates ‘blank’ for zero after the page is configured and saved. This setting
          will send the files to Wells Fargo Bank once the Positive Pay is processed.

    -     In CFS non-production, the default setting is ’blank’ for zero – this setting will prevent the files send to
          Wells Fargo if testing is not occurred. Once you entered # of hours, the program uses the current
          date/time plus the number of hours entered and displays the expiration date. If the expiration date is
          expired, the files transmission will not send to the bank.

    -     In a scenario, you need 3 days testing with Wells Fargo, the # of hours setting would be:
          24 hrs. x 3 days = 72 hrs.

   Expiration Date/Time:
    -     In CFS production, the current date/time displays after the page is configured and saved.
    -     In CFS non-production, use the current date/time plus the number of hours entered in the ‘Hours’ fields
          after the page is configured and saved.

   Last Update User ID: User ID displays after the page is configured and saved.
   Last Update Date/Time: Current date/time displays after the page is configured and saved.


Due to a new change to the secure file transfer on the Wells Fargo SAFE Transmission platform for Positive Pay,
campus would need to send a ‘test’ file to Wells Fargo Bank for approval. It is recommended that you speak with
a representative from Wells Fargo prior to sending any test files and ask what the turnaround time is for your
particular request. Prior testing with Wells Fargo Bank in the CFS non-production instance, campus needs to
create a help desk ticket for further assistance on the configuration settings and request to install the ‘security
keys’ by DBA team. This procedure will be outlined in the Positive Payment File User Guide.


Create a CSU Custom Positive Payment process that would be run after every payment generation or payment
cancellation. Also allow a file to be regenerated based on the Payment Date or Check Number. The Positive Pay
File creates after a pay cycle run and will automatically be sent to Wells Fargo Bank to be processed.

Positive Payment File would include the following:

   Selection Criteria:
    -     Bank SetId
    -     Bank Code
    -     Bank Account
    -     Regenerate File
             Payment Date Option– All/Some/Value
             Check Number Option – All/Some/Value




Last Revised: 05/23/12                                                                                        Page 10 of 56
Wells Fargo Positive Pay File                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                            Accounts Payable



     Menu Navigation: Accounts Payable > Payments > CSU Positive Payment File


     The program will first look for the File Transmission page which contains the default settings, expiration date
      and database instance, if the file transmission is failed, an error/warning message will be generated in the .txt
      or .log file. Further review and corrections are required by campus users. Once corrections are done, you
      can run the ‘regeneration’ process to resubmit the file to Wells Fargo Bank.


     After the file creation, a log will be generated. This log will display the creation date and the number of
      records included in the file (even if no data was found). In CFS, the log file name has been changed from
      PosPay.log to LOGXXXXX999999.log. The Positive Pay log file name format is:
      -   LOG – hardcoded in the program
      -   XXXXX – Bank SetID
      -   999999 – Process Instance
      -   .log – extension name

See Appendix A: Wells Fargo File Format Specifications for details of the file format and information required by
Wells Fargo.

See Appendix B: Wells Fargo Transaction Code Table for details on how Oracle PeopleSoft Payment Statuses
will map to Wells Fargo Transaction Codes.


2.1       Regulatory Requirements/Business Rules
Create a Positive Pay file after every Accounts Payable check run or payment cancellation process and transmit
to Wells Fargo.


2.2       Security Requirements
Campus Security Administrator will provide appropriate staff to access the File Transmission page and processing
the Positive Pay.


2.3       Process Frequency
After each Payment generation or payment cancellation.


2.4       Inputs/Outputs
Output: Positive File generated and automatically sent to Wells Fargo Bank.




Last Revised: 05/23/12                                                                                      Page 11 of 56
Wells Fargo Positive Pay File                                                    CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                Accounts Payable




Section Five: Business Test Conditions
 Business Process               Sequence   Scenario Description                        Intent
 Payments                       1          Create several vouchers to be included      Should include the checks in the pay
                                           in a pay cycle. Once pay cycle is           cycle.
                                           complete, run the CSU Positive Payment
                                           Process.
 Payments                       2          Create an express check. Run the CSU        Should only include the express
                                           Positive Payment Process.                   check.
 Payments                       3          Create a manual check. Run the CSU          Should only include the manual
                                           Positive Payment Process.                   check.
 Payment Cancellations          4          Void a check and re issue check. Run        Should include the void and the
                                           the CSU Positive Payment Process.           reissue check.
 Payment Cancellations          5          Void a check and close liability. Run the   Should include the void
                                           CSU Positive Payment Process.
 Payment Cancellations          6          Stop a check and re issue check. Run        Should include the stop and the
                                           the CSU Positive Payment Process            reissue check.
 Payment Cancellations          7          Stop a check and re issue check. Run        Should include the stop
                                           the CSU Positive Payment Process
 Payment Cancellations          8          Create several vouchers to be included      Should include the checks in the pay
                                           in a pay cycle. Run a pay cycle. Void a     cycle and the void will show as 370
                                           check from a previous check run. Run        code on file.
                                           the CSU Positive Payment Process.
 Payment Cancellations          9          Void a check. Undo cancel. Run the          The undo cancel should not be
                                           CSU Positive Payment Process.               included - check will show as 320
                                                                                       code on file.
 Payment Cancellations          10         Stop a check. Undo cancel. Run the          The undo cancel should not be
                                           CSU Positive Payment Process.               included - check will show as 320
                                                                                       code on file.
 Payment Cancellations          11         Escheat a check. Run the CSU Positive       The escheat should be included.
                                           Payment Process.
 Payment Cancellations          12         Escheat a check. Undo the escheat.          The undo escheat should not be
                                           Run the CSU Positive Payment Process.       included - check will show as 320
                                                                                       code on file.
 Regenerate File                13         Select Bank information. Select             Should include all pay cycle, express
                                           Regenerate. Select Payment Date             checks, manual checks, voids,
                                           Range                                       closures, escheats within date range.
                                                                                       If original dates of checks are outside
                                                                                       of selected payment date range, than
                                                                                       voids, closures, escheats will NOT be
                                                                                       included in the regenerate file.
 Regenerate File                14         Select Bank information. Select             Should include all pay cycle, express
                                           Regenerate. Select Check Range.             checks, manual checks, voids,
                                                                                       closures, and escheats within date
                                                                                       range.
                                                                                       If original check numbers are outside
                                                                                       of selected check number range, than
                                                                                       voids, closures, escheats will NOT be
                                                                                       included in the regenerate file.




Last Revised: 05/23/12                                                                                            Page 12 of 56
Wells Fargo Positive Pay File                                                   CFS Modification Approval and Design Request
AP06002-CFS90                                                                                               Accounts Payable



 Business Process               Sequence   Scenario Description                       Intent
 No configuration on the        15         Create vouchers and payment. Once          Validate the run status and file
 File Transmission page                    pay cycle is complete, run the CSU         transmission status on .txt and .log
 and create a Positive                     Positive Payment Process.                  files.
 Pay File. Test                            Select Bank information. Select
 Regenerate File.                          Regenerate. Select Check Range.
 Enter configuration            16         Create vouchers and payment. Once          Validate the run status and file
 settings on the File                      pay cycle is complete, run the CSU         transmission status on .txt and .log
 Transmission page –                       Positive Payment Process.                  files.
 expiration date passed.                   Select Bank information. Select
 Create a Positive Pay                     Regenerate. Select Check Range.
 File. Test Regenerate
 File.
 Enter configuration            17         Create vouchers and payment. Once          Validate the run status and file
 settings on the File                      pay cycle is complete, run the CSU         transmission status on .txt and .log
 Transmission page –                       Positive Payment Process.                  files.
 expiration date failed.                   Select Bank information. Select
 Create a Positive Pay                     Regenerate. Select Check Range.
 File. Test Regenerate
 File.
 Enter incorrect RID, BID       18         Create vouchers and payment. Once          Validate the run status and file
 and Inbound Location.                     pay cycle is complete, run the CSU         transmission status on .txt and .log
 Create a Positive Pay                     Positive Payment Process.                  files.
 File.
 Enter incorrect                19         Create vouchers and payment. Once          Validate the run status and file
 Automated User ID.                        pay cycle is complete, run the CSU         transmission status on .txt and .log
 Create a Positive Pay                     Positive Payment Process.                  files.
 File.
 Enter incorrect RMP            20         Create vouchers and payment. Once          Validate the run status and file
 folder. Create a                          pay cycle is complete, run the CSU         transmission status on .txt and .log
 Positive Pay File.                        Positive Payment Process.                  files.




Last Revised: 05/23/12                                                                                           Page 13 of 56
Wells Fargo Positive Pay File                                                 CFS Modification Approval and Design Request
AP06002-CFS90                                                                                             Accounts Payable




Section Six: Object Changes
Objects listed in this section reflect the point-in-time when the modification is first released. New projects and
objects will be listed on their respective Modification Update Request forms. Please see Section One: Revision
History for a full list of associated update requests.

Important Note:
This section lists objects delivered with a project, but does not provide all details for each object. For complete
specifications on the PeopleSoft objects listed in this section, please use Application Designer to open and view
the project/object details.

Key: When completing the Action column, actions are
          New
          Altered
          Dropped
          N/A


 Project Name                               Description                                                       Action
 BSL_FS_AP_AP06002                          CSU RMP Positive Payment File                                     N
 BSL_FS_AP_AP06002_20080407                 CSU RMP Positive Payment File                                     N
 BSL_FS_AP_AP06002_20080519                 CSU RMP Positive Payment File                                     N
 BSL_FS_AP_AP06002_20100315                 CSU RMP Positive Payment File                                     N
 BSL_CFS_AP_AP06002_20110630                CSU RMP Positive Payment File                                     N
 BSL_CFS_AP_AP06002_20120523                CSU RMP Positive Payment File                                     N

Fields
 #    Field Name                Long Name                 Short Name    Description         Type     Length       Action
 1.

Records and Views
 Record / View Name                                       Type                               Add to Data Warehouse?
 CSU_AP_PAR_AET                                           SQL Table

 Parent Record                      Query Sec Record      Set Control Field              SQL View



 Record / View Name                                       Type                               Add to Data Warehouse?
 CSU_AP06002_AET                                          SQL Table

 Parent Record                      Query Sec Record      Set Control Field              SQL View



 Record / View Name                                       Type                               Add to Data Warehouse?
 CSU_RUN_AP06002                                          SQL Table

 Parent Record                      Query Sec Record      Set Control Field              SQL View




Last Revised: 05/23/12                                                                                        Page 14 of 56
Wells Fargo Positive Pay File                                                            CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                        Accounts Payable



 Record / View Name                                             Type                                     Add to Data Warehouse?
 CSU_CLM_BNK_CTL                                                SQL Table

 Parent Record                      Query Sec Record            Set Control Field                     SQL View


                                                              Use View                                           Edit View
 #    Field                                                            List                                                     Prmpt
                                     Key      Order #     Search                 Audit      Default     Req’d    Tbl Edit
                                                                       Box                                                       Tbl
 1.



Application Engine Programs
 App Engine Program Name                       Description                                                             Action
 CSU_AP_06002                                  RMP Positive Pay File                                                   N
 CSU_AP_06002                                  RMP Positive Pay File – applied the new requirement of Wells            M
                                               Fargo
 CSU_AP_06002                                  RMP Positive Pay File – modified all SQL-Select to pick up only         M
                                               rows where Payment Method is equal to ‘CHK’.

Application Engine Sections
 App Engine Section Name                       Description                                                             Action
 CSU_AP_06002.MAIN                             Added Step11                                                            M
                                               Modified the following steps:
                                                Step01
                                                Step08
                                                Step09
 CSU_AP_06002.NAFT                             Step01                                                                  N
 CSU_AP_06002.CREATEFL                         Step01                                                                  M
 CSU_AP_06002.NOREC                            Step01                                                                  M
 CSU_AP_06002.PRINTHDR                         Step01                                                                  M
 CSU_AP_06002.RECSEL                           Step01                                                                  M
 CSU_AP_06002.PROCREC                          Step01                                                                  M
 CSU_AP_06002.MAIN                             Modified the following steps:                                           M
                                                Step09
                                                Step11

Components
 Component Name                 Description                                                                            Action
 CSU_RUN_CSUAP027               Run Positive Payment Process                                                           N
 BANK_EXTERNAL                  External Bank Accounts – Renamed the label of CSU Bank Claims tab to CSU               M
                                RMP Bank.

Menus
 Menu Name                  Bar Name             Item Name                     Description                                  Action
 CREATE_PAYMENTS            PROCESS              CSU_RUN_CSUAP027              CSU Positive Payment Process                 N




Last Revised: 05/23/12                                                                                                     Page 15 of 56
Wells Fargo Positive Pay File                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                            Accounts Payable



Pages
 Page Name                                 Description                                                    Action
 CSU_RUN_CSUAP027                          Run Positive Payment Process                                   N
 CSU_BNK_PNLCLM                            CSU Bank Claims Panel – Included RMP Folder group box.         M

Process Definitions
 Process Definition Name                   Description                                                    Action
 Application Engine                        CSU_AP_06002                                                   N

SQL
 SQL Name                                             Description                                         Action
 CSU_AP_06002MAIN          Step01 D                   See SQL Appendix C Reference A                      M
 CSU_AP_06002MAIN          Step01 H                   See SQL Appendix C Reference B                      N
 CSU_AP_06002MAIN          Step02 S                   See SQL Appendix C Reference C                      M
 CSU_AP_06002MAIN          Step03 S                   See SQL Appendix C Reference D                      M
 CSU_AP_06002MAIN          Step06 S                   See SQL Appendix C Reference E                      M
 CSU_AP_06002NEWFILE Step01 D                         See SQL Appendix C Reference F                      M
 CSU_AP_06002REFADTA Step01 D                         See SQL Appendix C Reference G                      M
 CSU_AP_06002REFADTA Step02 S                         See SQL Appendix C Reference H                      M
 CSU_AP_06002REFADTS Step01 D                         See SQL Appendix C Reference I                      M
 CSU_AP_06002REFADTS Step02 S                         See SQL Appendix C Reference J                      M
 CSU_AP_06002REFADTV Step01 D                         See SQL Appendix C Reference K                      M
 CSU_AP_06002REFADTV Step02 S                         See SQL Appendix C Reference L                      M
 CSU_AP_06002REFSDTA Step01 D                         See SQL Appendix C Reference M                      M
 CSU_AP_06002REFSDTA Step02 S                         See SQL Appendix C Reference N                      M
 CSU_AP_06002REFSDTS Step01 D                         See SQL Appendix C Reference O                      M
 CSU_AP_06002REFSDTS Step02 S                         See SQL Appendix C Reference P                      M
 CSU_AP_06002REFSDTV Step01 D                         See SQL Appendix C Reference Q                      M
 CSU_AP_06002REFSDTV Step02 S                         See SQL Appendix C Reference R                      M
 CSU_AP_06002REFVDTA Step01 D                         See SQL Appendix C Reference S                      M
 CSU_AP_06002REFVDTA Step02 S                         See SQL Appendix C Reference T                      M
 CSU_AP_06002REFVDTS Step01 D                         See SQL Appendix C Reference U                      M
 CSU_AP_06002REFVDTS Step02 S                         See SQL Appendix C Reference V                      M
 CSU_AP_06002REFVDTV Step01 D                         See SQL Appendix C Reference W                      M
 CSU_AP_06002REFVDTV Step02 S                         See SQL Appendix C Reference X                      M


Translate Values
 Field                          Value   EFFDT         Status A/I    Long Name            Short Name       Action
 CSU_PYMNT_DT_OPT               A       1900-01-01
 CSU_PYMNT_DT_OPT               S       1900-01-01
 CSU_PYMNT_DT_OPT               V       1900-01-01
 CSU_PYMNT_REF_OPT              A       1900-01-01
 CSU_PYMNT_REF_OPT              S       1900-01-01



Last Revised: 05/23/12                                                                                        Page 16 of 56
Wells Fargo Positive Pay File                                               CFS Modification Approval and Design Request
AP06002-CFS90                                                                                           Accounts Payable



 Field                          Value   EFFDT        Status A/I    Long Name            Short Name       Action
 CSU_PYMNT_REF_OPT              V       1900-01-01

PeopleCode Tables
Please note: There are multiple types of PeopleCode. Tables are provided for the most common types - if other
types are delivered, please insert a new table and title it with the type of PeopleCode delivered. Enter N/A if no
PeopleCode is included in the tables listed below.

Record PeopleCode
 Record PeopleCode Name                                       Description                                  Action
 CSU_RUN_AP06002 CSU_PYMNT_DT_OPT FieldChange                 See PeopleCode Appendix D Reference U
 CSU_RUN_AP06002 CSU_PYMNT_DT_OPT RowInit                     See PeopleCode Appendix D Reference V
 CSU_RUN_AP06002 CSU_PYMNT_DT_OPT SaveEdit                    See PeopleCode Appendix D Reference W
 CSU_RUN_AP06002 CSU_PYMNT_REF_OPT FieldChange                See PeopleCode Appendix D Reference X
 CSU_RUN_AP06002 CSU_PYMNT_REF_OPT RowInit                    See PeopleCode Appendix D Reference Y
 CSU_RUN_AP06002 CSU_PYMNT_REF_OPT SaveEdit                   See PeopleCode Appendix D Reference Z
 CSU_RUN_AP06002 CSU_REGENERATE FieldChange                   See PeopleCode Appendix D Reference AA
 CSU_RUN_AP06002 CSU_REGENERATE FieldFormula                  See PeopleCode Appendix D Reference AB
 CSU_RUN_AP06002 CSU_REGENERATE RowInit                       See PeopleCode Appendix D Reference AC

Application Engine PeopleCode
 App Engine PeopleCode Name                                   Description                                  Action
 CSU_AP_06002 CREATEFL Step01 OnExecute                       See PeopleCode Appendix D Reference A        M
 CSU_AP_06002 MAIN Step01 OnExecute                           See PeopleCode Appendix D Reference B        M
 CSU_AP_06002 MAIN Step05 OnExecute                           See PeopleCode Appendix D Reference C
 CSU_AP_06002 MAIN Step08 OnExecute                           See PeopleCode Appendix D Reference D        M
 CSU_AP_06002 MAIN Step09 OnExecute                           See PeopleCode Appendix D Reference E        M
 CSU_AP_06002 NOREC Step01 OnExecute                          See PeopleCode Appendix D Reference F        M
 CSU_AP_06002 PRINTHDR Step01 OnExecute                       See PeopleCode Appendix D Reference G        M
 CSU_AP_06002 PROCREC Step01 OnExecute                        See PeopleCode Appendix D Reference H        M
 CSU_AP_06002 PROCREC Step02 OnExecute                        See PeopleCode Appendix D Reference I
 CSU_AP_06002 RECSEL Step01 OnExecute                         See PeopleCode Appendix D Reference J        M
 CSU_AP_06002 RECSEL Step02 OnExecute                         See PeopleCode Appendix D Reference K
 CSU_AP_06002 REGENFLE Step01 OnExecute                       See PeopleCode Appendix D Reference L
 CSU_AP_06002 REGENFLE Step02 OnExecute                       See PeopleCode Appendix D Reference M
 CSU_AP_06002 REGENFLE Step03 OnExecute                       See PeopleCode Appendix D Reference N
 CSU_AP_06002 REGENFLE Step04 OnExecute                       See PeopleCode Appendix D Reference O
 CSU_AP_06002 REGENFLE Step05 OnExecute                       See PeopleCode Appendix D Reference P
 CSU_AP_06002 REGENFLE Step06 OnExecute                       See PeopleCode Appendix D Reference Q
 CSU_AP_06002 REGENFLE Step07 OnExecute                       See PeopleCode Appendix D Reference R
 CSU_AP_06002 REGENFLE Step08 OnExecute                       See PeopleCode Appendix D Reference S
 CSU_AP_06002 REGENFLE Step09 OnExecute                       See PeopleCode Appendix D Reference T
 CSU_AP_06002 MAIN Step11 OnExecute                           See PeopleCode Appendix D Reference AD       M
 CSU_AP_06002 NAFT Step01 OnExecute                           See PeopleCode Appendix D Reference AE       N



Last Revised: 05/23/12                                                                                     Page 17 of 56
Wells Fargo Positive Pay File                                              CFS Modification Approval and Design Request
AP06002-CFS90                                                                                          Accounts Payable



Component PeopleCode
 Component PeopleCode Name                 Description                                                  Action



Component Record PeopleCode
 Component Record PeopleCode Name          Description                                                  Action



Component Record Field PeopleCode
 Component Record Field PeopleCode         Description                                                  Action



Page PeopleCode
 Name                                      Description                                                  Action



Batch Module
 Object Type      Name                              Description                                         Action



Other
 Object Type                    Name                              Description                           Action
 Portal Registry Structures     EMPLOYEE – Content Reference      CSU_RUN_CSUAP027_GBL                  N
 Portal Registry Structures     EMPLOYEE – Folder                 EPAP_PAYMENTS                         M
 Process Definition             CSU_AP_06002                      Changed the Process Group from        M
                                                                  ALLPAGES to FSALL and APALL.




Last Revised: 05/23/12                                                                                      Page 18 of 56
Wells Fargo Positive Pay File                                                    CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                Accounts Payable




Appendix A: Wells Fargo File format Specifications
The following example illustrates the detail format required by Wells Fargo Bank. Double-click the file icon to
obtain a soft copy of the Wells Fargo Detailed Specs.




  Q:\04_Finance\
Revenue Management Program\Specifications\Banking Secs\ARP_Standard_Inbound_File_Specification_Single.pdf



Wells Fargo File Format Specifications




Last Revised: 05/23/12                                                                                          Page 19 of 56
Wells Fargo Positive Pay File                                                 CFS Modification Approval and Design Request
AP06002-CFS90                                                                                             Accounts Payable




Appendix B: Title
                                          Oracle
                                          PYMNT_STATUS –                      PS Process that
 WF Trans Code           Description      Payment Status   Long Name          Changes the Status        Navigation
 No Record Sent                           A                Alignment          N/A within CSU
                                                                              Business Process
 No Record Sent                           E                EFT Pre-Note       Not Supported in
                                                                              Baseline
 No Record Sent                           L                Stale Dated        Changes from P to L       Accounts Payable >
                                                           Payment            when selecting Stale      Payments > Cancel/Void
                                                                              Dated                     Payment > Escheat
                                                                                                        Payment
 No Record Sent                           N                Reprinted with     No Current Bus
                                                           Same ref Number    Process creates this
 No Record Sent                           O                Overflow           N/A within CSU
                                                                              Business Process
 320                     Check Register   P                Paid               PayCycle, Express         Accounts Payable >
                                                                              Checks and Manual         Payments > Define Pay
                                                                              Checks                    Cycle > Pay Cycle
                                                                                                        Manager
 No Record Sent                           R                Replaced           Run Recreate/Reprint      Accounts Payable >
                                                                              using different Ref #’s   Payments > Define Pay
                                                                              during PayCycle           Cycle > Pay Cycle
                                                                                                        Manager
 620                     Stop Payment     S                Stopped            Changes from P to S       Accounts Payable >
                         Request                                              when selecting Stop       Payments > Cancel/Void
                                                                              Payment                   Payment > Payment
                                                                                                        Cancel
 No Record Sent                           T                Undo Escheatment   N/A within CSU
                                                                              Business Process
 No Record Sent                           U                Undo Cancel        N/A within CSU
                                                                              Business Process
 370                     Void Register    V                Void               Changes from P to V       Accounts Payable >
                         with Zero                                            when selecting Void       Payments > Cancel/Void
                         Amount                                               Payment                   Payment > Payment
                                                                                                        Cancel
 370                     Void Register    W                Escheated Check    Changes from P to W       Accounts Payable >
                         with Zero                                            when selecting            Payments > Cancel/Void
                         Amount                                               Escheated                 Payment > Escheat
                                                                                                        Payment
 No Record Sent                           X                Deleted            N/A within CSU
                                                                              Business Process




WF Transaction Code Table
320 – Check Register
370 – Cancelled Register with Dollar Amount
430 – Void Register with Zero Amount                  Not Applicable
525 – Delete Issue Notices Not received (INNRs)       Not Applicable
(This is used when you need to remove an item that was previously paid but did not have a corresponding issue on file. It
removes the INNR record from the statement. The alternate is to send TC 320 for a new check register. Also, if an INNR is
presented as an IPP exception, there is an option within the IPP CEO service to create a register for the INNR during the
exception review. Many customers use this feature rather than sending a separate 525 or 320 TC on an issue transmission.)
620 – Stop Payment Request


Last Revised: 05/23/12                                                                                               Page 20 of 56
Wells Fargo Positive Pay File                                                     CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                 Accounts Payable



630 – Release Stop Payment (Cancellation)              Not Applicable
(This is used when a stop has been placed, but the item is now okay to pay. Canceling the original stop payment.)
640 – Stop Payment Renewal Cancellation                Not Applicable
(This is used only for accounts with the auto stop renewal feature. It allows customers to cancel a stop renewal that will be
placed automatically due to the auto stop feature. Canceling the renewal of the stop payment).




Last Revised: 05/23/12                                                                                              Page 21 of 56
Wells Fargo Positive Pay File                                          CFS Modification Approval and Design Request
AP06002-CFS90                                                                                      Accounts Payable




Appendix C: SQL
 Reference      Code
 A              %SelectInit(CSU_AP06002_AET.BANK_SETID, CSU_AP06002_AET.BANK_CD,
                CSU_AP06002_AET.BANK_ACCT_KEY,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM,CSU_AP06002_AET.BNK_ID_NBR)
                 SELECT DISTINCT B.BANK_SETID
                 , B.BANK_CD
                 , B.BANK_ACCT_KEY
                 , B.BANK_ACCOUNT_NUM
                 , B.BNK_ID_NBR
                  FROM %Table(PAYMENT_TBL) B
                 WHERE B.BANK_SETID = %Bind(BANK_SETID)
                  AND B.BANK_CD = %Bind(BANK_CD)
                  AND B.BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND B.PYMNT_METHOD = 'CHK'
 B              %SelectInit(BANK_SETID , BANK_CD , BANK_ACCT_KEY , CSU_REGENERATE , CSU_PYMNT_DT_OPT
                , CSU_PYMNT_DT_FR , CSU_PYMNT_DT_TO , CSU_PYMNT_REF_OPT , CSU_PYMNT_REF_FR ,
                CSU_PYMNT_REF_TO)
                 SELECT A.BANK_SETID
                 , A.BANK_CD
                 , A.BANK_ACCT_KEY
                 , A.CSU_REGENERATE
                 , A.CSU_PYMNT_DT_OPT
                 , %DateOut(A.CSU_PYMNT_DT_FR)
                 , %DateOut(A.CSU_PYMNT_DT_TO)
                 , A.CSU_PYMNT_REF_OPT
                 , A.CSU_PYMNT_REF_FR
                 , A.CSU_PYMNT_REF_TO
                  FROM %Table(CSU_RUN_AP06002) A
                 WHERE A.OPRID = %Bind(oprid)
                  AND A.RUN_CNTL_ID = %Bind(run_cntl_id)
 C              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_STAT = 'C' , POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'N'
                  AND PYMNT_AMT > 0
                  AND PYMNT_STATUS IN ('P', 'S', 'W', 'V')
                  AND PYMNT_METHOD = 'CHK'
 D              UPDATE PS_PAYMENT_TBL
                  SET POSITIVE_PAY_STAT = 'Z' , POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'N'
                  AND PYMNT_AMT = 0
                  AND PYMNT_METHOD = 'CHK'


Last Revised: 05/23/12                                                                                Page 22 of 56
Wells Fargo Positive Pay File                                        CFS Modification Approval and Design Request
AP06002-CFS90                                                                                    Accounts Payable



 Reference      Code
 E              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_STAT = 'C' , POSITIVE_PAY_DT = NULL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'N'
                  AND PYMNT_AMT > 0
                  AND PYMNT_STATUS NOT IN ('P', 'S', 'W', 'V')
                  AND PYMNT_METHOD = 'CHK'
 F              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'N'
                  AND PYMNT_AMT > 0
                  AND PYMNT_STATUS IN ('P', 'S', 'W', 'V')
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 G              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS


Last Revised: 05/23/12                                                                              Page 23 of 56
Wells Fargo Positive Pay File                                      CFS Modification Approval and Design Request
AP06002-CFS90                                                                                  Accounts Payable



 Reference      Code
                 FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 H              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_METHOD = 'CHK'
 I              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_DT BETWEEN %Bind(CSU_PYMNT_DT_FR) AND %Bind(CSU_PYMNT_DT_TO)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 J              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_DT BETWEEN %Bind(CSU_PYMNT_DT_FR) AND %Bind(CSU_PYMNT_DT_TO)
                  AND PYMNT_METHOD = 'CHK'
 K              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,


Last Revised: 05/23/12                                                                            Page 24 of 56
Wells Fargo Positive Pay File                                      CFS Modification Approval and Design Request
AP06002-CFS90                                                                                  Accounts Payable



 Reference      Code
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_DT = %Bind(CSU_PYMNT_DT_FR)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 L              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_DT = %Bind(CSU_PYMNT_DT_FR)
                  AND PYMNT_METHOD = 'CHK'
 M              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'


Last Revised: 05/23/12                                                                            Page 25 of 56
Wells Fargo Positive Pay File                                      CFS Modification Approval and Design Request
AP06002-CFS90                                                                                  Accounts Payable



 Reference      Code
                 AND PYMNT_ID_REF BETWEEN %Bind(CSU_PYMNT_REF_FR) AND %Bind(CSU_PYMNT_REF_TO)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 N              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF BETWEEN %Bind(CSU_PYMNT_REF_FR) AND %Bind(CSU_PYMNT_REF_TO)
                  AND PYMNT_METHOD = 'CHK'
 O              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF BETWEEN %Bind(CSU_PYMNT_REF_FR) AND %Bind(CSU_PYMNT_REF_TO)
                  AND PYMNT_DT BETWEEN %Bind(CSU_PYMNT_DT_FR) AND %Bind(CSU_PYMNT_DT_TO)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 P              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF BETWEEN %Bind(CSU_PYMNT_REF_FR) AND %Bind(CSU_PYMNT_REF_TO)
                  AND PYMNT_DT BETWEEN %Bind(CSU_PYMNT_DT_FR) AND %Bind(CSU_PYMNT_DT_TO)
                  AND PYMNT_METHOD = 'CHK'
 Q              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,


Last Revised: 05/23/12                                                                            Page 26 of 56
Wells Fargo Positive Pay File                                      CFS Modification Approval and Design Request
AP06002-CFS90                                                                                  Accounts Payable



 Reference      Code
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF BETWEEN %Bind(CSU_PYMNT_REF_FR) AND %Bind(CSU_PYMNT_REF_TO)
                  AND PYMNT_DT = %Bind(CSU_PYMNT_DT_FR)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 R              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF BETWEEN %Bind(CSU_PYMNT_REF_FR) AND %Bind(CSU_PYMNT_REF_TO)
                  AND PYMNT_DT = %Bind(CSU_PYMNT_DT_FR)
                  AND PYMNT_METHOD = 'CHK'
 S              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)


Last Revised: 05/23/12                                                                            Page 27 of 56
Wells Fargo Positive Pay File                                      CFS Modification Approval and Design Request
AP06002-CFS90                                                                                  Accounts Payable



 Reference      Code
                 AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF = %Bind(CSU_PYMNT_REF_FR)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 T              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF = %Bind(CSU_PYMNT_REF_FR)
                  AND PYMNT_METHOD = 'CHK'
 U              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF = %Bind(CSU_PYMNT_REF_FR)
                  AND PYMNT_DT BETWEEN %Bind(CSU_PYMNT_DT_FR) AND %Bind(CSU_PYMNT_DT_TO)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 V              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF = %Bind(CSU_PYMNT_REF_FR)
                  AND PYMNT_DT BETWEEN %Bind(CSU_PYMNT_DT_FR) AND %Bind(CSU_PYMNT_DT_TO)
                  AND PYMNT_METHOD = 'CHK'
 W              %SelectInit(CSU_AP06002_AET.BANK_SETID , CSU_AP06002_AET.BANK_CD ,
                CSU_AP06002_AET.BANK_ACCT_KEY , CSU_AP06002_AET.PYMNT_DT ,
                CSU_AP06002_AET.PYMNT_ID_REF , CSU_AP06002_AET.PYMNT_AMT ,


Last Revised: 05/23/12                                                                            Page 28 of 56
Wells Fargo Positive Pay File                                  CFS Modification Approval and Design Request
AP06002-CFS90                                                                              Accounts Payable



 Reference      Code
                CSU_AP06002_AET.BANK_ACCOUNT_NUM , CSU_AP06002_AET.NAME1 ,
                CSU_AP06002_AET.BNK_ID_NBR , CSU_AP06002_AET.PYMNT_STATUS)
                 SELECT BANK_SETID
                 , BANK_CD
                 , BANK_ACCT_KEY
                 , %DateOut(PYMNT_DT)
                 , PYMNT_ID_REF
                 , PYMNT_AMT
                 , BANK_ACCOUNT_NUM
                 , NAME1
                 , BNK_ID_NBR
                 , PYMNT_STATUS
                  FROM PS_PAYMENT_TBL
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF = %Bind(CSU_PYMNT_REF_FR)
                  AND PYMNT_DT = %Bind(CSU_PYMNT_DT_FR)
                  AND PYMNT_METHOD = 'CHK'
                  ORDER BY PYMNT_ID_REF
 X              UPDATE %Table(PAYMENT_TBL)
                  SET POSITIVE_PAY_DT = %CurrentDateIn
                 WHERE BANK_SETID = %Bind(BANK_SETID)
                  AND BANK_CD = %Bind(BANK_CD)
                  AND BANK_ACCT_KEY = %Bind(BANK_ACCT_KEY)
                  AND POSITIVE_PAY_STAT = 'C'
                  AND PYMNT_ID_REF = %Bind(CSU_PYMNT_REF_FR)
                  AND PYMNT_DT = %Bind(CSU_PYMNT_DT_FR)
                  AND PYMNT_METHOD = 'CHK'




Last Revised: 05/23/12                                                                        Page 29 of 56
Wells Fargo Positive Pay File                                                                  CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                              Accounts Payable




Appendix D: PeopleCode
 Reference      Code
 A              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                                */
                /* Project ID - BSL_FS_AP_AP06002                                               */
                /* Mod# - AP06002                                                    */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD89006 02/21/2007           Leonard Reyes         CSU Baseline 8.4 Patch 39
                * HD91313 04/04/2007           Leonard Reyes         "No Record Sent" header prints only
                *                                if there is a list of records not
                *                                to be sent to Wells Fargo based on
                *                                invalid transaction code.
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#203303 03/07/2011          Leonard Reyes         Moved closing of MYLOG to other Section/Step
                *********************************************************************************/


                Component File &MYFILE, &MYLOG, &PMFILE;
                /* HD89006 Begins */
                /*Component number &COUNT, &TOTAL_AMT, &TotalPaid, &TotalAmtPaid, &TotalVoid, &TotalAmtVoid,
                &TotalStop, &TotalAmtStop;*/
                /*Component string &TEXT_FILE, &BANK_CD, &BANK_ACCT_KEY, &PROCESS_INSTANCE;*/
                Component number &COUNT, &TOTAL_AMT, &TotalPaid, &TotalAmtPaid, &TotalVoid, &TotalAmtVoid,
                &TotalStop, &TotalAmtStop, &idx;
                Component string &TEXT_FILE, &BANK_CD, &BANK_ACCT_KEY, &PROCESS_INSTANCE,
                &XLatLongName;
                Component array of string &TxtArray;


                /* HD89006 Ends */


                Function format_2char(&INPUT2) Returns string;
                    &OUTPUT2 = &INPUT2;
                    If Len(&INPUT2) = 1 Then
                     &OUTPUT2 = "0" | &INPUT2;
                    End-If;
                    Return &OUTPUT2;
                End-Function;


                /****************************************************************************************************
                *** Main ***
                ****************************************************************************************************/


Last Revised: 05/23/12                                                                                                        Page 30 of 56
Wells Fargo Positive Pay File                                                     CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                 Accounts Payable



 Reference      Code

                &RUNDATETIME = format_2char(Month(%Datetime)) | "/" | format_2char(Day(%Datetime)) | "/" |
                Year(%Datetime) | " " | format_2char(Hour(%Datetime)) | ":" | format_2char(Minute(%Datetime)) | ":" |
                format_2char(Second(%Datetime));
                &COUNT_STR = Substring(String(100000 + Value(&COUNT)), 2, 5);
                /* HD89006 Begins */
                /*&PYMNT_TOTAL_AMT_STR = NumberToString("%011.2Rt", &TotalAmtPaid + &TotalAmtStop);*/
                &PYMNT_TOTAL_AMT_STR = NumberToString("%011.2Rt", &TotalAmtPaid + &TotalAmtStop +
                &TotalAmtVoid);
                /* HD89006 Ends */
                &PYMNT_TOTAL_AMT_STRING = Substring(&PYMNT_TOTAL_AMT_STR, 1, 8) |
                Substring(&PYMNT_TOTAL_AMT_STR, 10, 2);


                If Value(&COUNT) > 0 Then
                  &MYFILE.WriteLine("&           " | &COUNT_STR | " " | &PYMNT_TOTAL_AMT_STRING);
                  &PMFILE.WriteLine("&           " | &COUNT_STR | " " | &PYMNT_TOTAL_AMT_STRING);
                End-If;


                If &MYLOG.IsOpen Then
                  &MYLOG.WriteLine("FileName           : " | &TEXT_FILE);
                  &MYLOG.WriteLine("Run Date and Time : " | &RUNDATETIME);
                  &MYLOG.WriteLine("Process Instance : " | &PROCESS_INSTANCE);
                  &MYLOG.WriteLine(" ");
                  &MYLOG.WriteLine("Bank Code       : " | &BANK_CD);
                  &MYLOG.WriteLine("Bank Account : " | &BANK_ACCT_KEY);
                  &MYLOG.WriteLine(" ");
                  &MYLOG.WriteLine(" ");
                  &TotalLines = &TotalPaid + &TotalVoid + &TotalStop;
                  &TotalAmtLines = &TotalAmtPaid + &TotalAmtVoid + &TotalAmtStop;
                  &TotalDiffAmtLines = &TotalAmtLines - &TotalAmtVoid;
                  /* HD89006 Begins */
                  /* &MYLOG.WriteLine("Total Number of Paid checks          (320) : " | Substring(String(10000 + &TotalPaid),
                2, 4));*/
                 /* &MYLOG.WriteLine("Total Amount of Paid checks              : " | NumberToString("%-$10.2Rt",
                &TotalAmtPaid));*/
                  /* &MYLOG.WriteLine("Total Number of Voided checks         (430) : " | Substring(String(10000 + &TotalVoid),
                2, 4));*/
                 /* &MYLOG.WriteLine("Total Amount of Voided checks             : " | NumberToString("%-$10.2Rt",
                &TotalAmtVoid));*/
                 /* &MYLOG.WriteLine("Total Number of Stopped payment (620) : " | Substring(String(10000 +
                &TotalStop), 2, 4));*/
                 /* &MYLOG.WriteLine("Total Amount of Stopped payment             : " | NumberToString("%-$10.2Rt",
                &TotalAmtStop));*/
                  /* &MYLOG.WriteLine(" ");
                  /* &MYLOG.WriteLine("Total Number of checks                : " | Substring(String(100000 + &TotalLines), 2,
                5));*/
                 /* &MYLOG.WriteLine("Total Amount of checks                 : " | NumberToString("%-$10.2Rt",
                &TotalAmtLines));*/
                  /* &MYLOG.WriteLine("Total Amount of Voided checks            : " | "(" | NumberToString("%-$10.2Rt",


Last Revised: 05/23/12                                                                                            Page 31 of 56
Wells Fargo Positive Pay File                                                                  CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                              Accounts Payable



 Reference      Code
                &TotalAmtVoid) | ")");*/
                    /* &MYLOG.WriteLine("                                  --------------");*/
                 /* &MYLOG.WriteLine("Total Amount of checks submitted                         : " | NumberToString("%-$10.2Rt",
                &TotalDiffAmtLines));*/
                    &MYLOG.WriteLine("Total Number of Paid checks                (320) : " | NumberToString("%14Rv", &TotalPaid));
                 &MYLOG.WriteLine("Total Amount of Paid checks                           : " | NumberToString("%14.2Rv",
                &TotalAmtPaid));
                 &MYLOG.WriteLine("Total Number of Cancelled checks (370) : " | NumberToString("%14Rv",
                &TotalVoid));
                 &MYLOG.WriteLine("Total Amount of Cancelled checks                        : " | NumberToString("%14.2Rv",
                &TotalAmtVoid));
                 &MYLOG.WriteLine("Total Number of Stopped payment (620) : " | NumberToString("%14Rv",
                &TotalStop));
                 &MYLOG.WriteLine("Total Amount of Stopped payment                         : " | NumberToString("%14.2Rv",
                &TotalAmtStop));
                    &MYLOG.WriteLine(" ");
                    &MYLOG.WriteLine("Total Number of checks                       : " | NumberToString("%14Rv", &TotalLines));
                 &MYLOG.WriteLine("Total Amount of checks                          : " | NumberToString("%14.2Rv",
                &TotalAmtLines));
                    If &idx > 0 Then /* HD91313 */
                     &MYLOG.WriteLine(" ");
                     &MYLOG.WriteLine(" ");
                     &MYLOG.WriteLine("No Record Sent");
                     &MYLOG.WriteLine("--------------");
                     For &i = 1 To &idx
                         &MYLOG.WriteLine(&TxtArray [&i]);
                     End-For;
                    End-If; /* HD91313 */
                    /* HD89006 Ends */
                End-If;


                &MYFILE.Close();
                &PMFILE.Close();
                /* HD#203303 &MYLOG.Close();*/
 B              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                                */
                /* Project ID - BSL_FS_AP_AP06002                                                */
                /* Mod# - AP06002                                                   */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date        Developer        Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD89006 02/21/2007           Leonard Reyes         CSU Baseline 8.4 Patch 39
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET



Last Revised: 05/23/12                                                                                                        Page 32 of 56
Wells Fargo Positive Pay File                                                             CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                         Accounts Payable



 Reference      Code
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * CFS       11/30/2009      Leonard Reyes         RMP folder is now setup in Banking menu
                * HD#203303 01/11/2011          Leonard Reyes          Wells Fargo's new requirements for
                *                                 file transmission.
                *********************************************************************************/


                /* HD89006 Begins */
                /*Component number &COUNT, &TOTAL_AMT, &TotalPaid, &TotalAmtPaid, &TotalVoid, &TotalAmtVoid,
                &TotalStop, &TotalAmtStop;*/
                Component number &COUNT, &TOTAL_AMT, &TotalPaid, &TotalAmtPaid, &TotalVoid, &TotalAmtVoid,
                &TotalStop, &TotalAmtStop, &idx;
                Component array of string &TxtArray;
                /* HD89006 Ends */
                Component string &SW1, &BANK_SETID, &BANK_CD, &BANK_ACCT_KEY, &BANK_ACCOUNT_NUM,
                &BNK_ID_NBR, &PROCESS_INSTANCE, &FILE_PATH;
                Component string &CSU_RID, &CSU_BID, &CSU_AUTO_ID, &CSU_FILE_INBOUND, &CSU_DBTYPE,
                &DBNAME; /* HD#203303 */
                Component datetime &EXPIRES; /* HD203303 */


                /*HD#203303 Ends */


                /* HD89006 Begins */
                &TxtArray = CreateArrayRept("", 50);
                &idx = 0;
                /* HD89006 Ends */
                &COUNT = 0;
                &TOTAL_AMT = 0;
                &TotalPaid = 0;
                &TotalAmtPaid = 0;
                &TotalVoid = 0;
                &TotalAmtVoid = 0;
                &TotalStop = 0;
                &TotalAmtStop = 0;
                &SW1 = "N";
                &BANK_SETID = CSU_AP06002_AET.BANK_SETID;
                &BANK_CD = CSU_AP06002_AET.BANK_CD;
                &BANK_ACCT_KEY = CSU_AP06002_AET.BANK_ACCT_KEY;
                &BANK_ACCOUNT_NUM = CSU_AP06002_AET.BANK_ACCOUNT_NUM;
                &BNK_ID_NBR = CSU_AP06002_AET.BNK_ID_NBR;
                &PROCESS_INSTANCE = String(CSU_AP06002_AET.PROCESS_INSTANCE);
                /*CFS Begins*/
                /*&FILE_PATH = "/CSU/" | Lower(%LocalNode) | "/rmp/";*/
                /*HD#203303 Begins */
                &DBNAME = Upper(%DbName);
                /* SQLExec("SELECT FILE_PATH_NAME FROM PS_CSU_CLM_BNK_CTL WHERE SETID = :1 AND
                BANK_CD = :2 AND BANK_ACCT_KEY = :3", &BANK_SETID, &BANK_CD, &BANK_ACCT_KEY,
                &FILE_PATH); */
                &FILE_PATH = " ";


Last Revised: 05/23/12                                                                                                   Page 33 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                SQLExec("SELECT CSU_RID, CSU_BID, CSU_AUTO_ID, FILE_PATH_NAME, CSU_FILE_INBOUND,
                CSU_DBTYPE, %DatetimeOut(EXPIRES) FROM PS_CSU_FT_SETUP WHERE SETID = :1 AND BANK_CD
                = :2 AND BANK_ACCT_KEY = :3 AND CSU_PYMNT_TYPE = :4", &BANK_SETID, &BANK_CD,
                &BANK_ACCT_KEY, "POS", &CSU_RID, &CSU_BID, &CSU_AUTO_ID, &FILE_PATH,
                &CSU_FILE_INBOUND, &CSU_DBTYPE, &EXPIRES);
                /*HD#203303 Ends */
                /*CFS Ends*/


                Exit 0;
 C              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #          Date       Developer        Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                Component number &COUNT;


                If &COUNT > 0 Then
                    Exit 1;
                Else
                    Exit 0;
                End-If;
 D              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #          Date       Developer        Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                *             01/25/2007   Leonard Reyes       CSU Baseline 8.4 Patch 37
                *                                Changed .pem filename into variable
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET



Last Revised: 05/23/12                                                                                                      Page 34 of 56
Wells Fargo Positive Pay File                                                             CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                         Accounts Payable



 Reference      Code
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#203303 01/11/2011          Leonard Reyes          Wells Fargo's new requirements for
                *                                 file transmission.
                *********************************************************************************/


                Component number &COUNT;
                Component string &TEXT_FILE, &FILE_PATH, &SH_NAME, &BANK_SETID, &BANK_CD,
                &BANK_ACCT_KEY;
                Component string &CSU_AUTO_ID, &CSU_FILE_INBOUND; /*HD#203303*/


                /* CSU Baseline 8.4 Patch 37 Begin */
                /* HD#203303    SQLExec("SELECT DISTINCT PAYER_ID_NUM FROM PS_BANK_ACCT_DEFN WHERE
                SETID = :1 AND BANK_CD = :2 AND BANK_ACCT_KEY = :3", &BANK_SETID, &BANK_CD,
                &BANK_ACCT_KEY, &USERID);*/
                /* CSU Baseline 8.4 Patch 37 End */


                &SH_NAME = "autoxfer.sh";
                &LINE00 = "";
                &LINE01 = "#!/bin/ksh";
                &LINE02 = "#Secure File Transport";


                /* HD#203303 Begins */
                /* HD#203303 &LINE03 = "#Digital Certificate Authentication Script"; */
                /* CSU Baseline 8.4 Patch 37 Begin */
                /* &LINE04 = "SSL_PKEY_FILE=""" | &FILE_PATH | "qususrf1.pem"""; */
                /* HD#203303 &LINE04 = "SSL_PKEY_FILE=""" | &FILE_PATH | Lower(&USERID) | ".pem"""; */
                /* CSU Baseline 8.4 Patch 37 End */
                /* HD#203303 &LINE05 = "export SSL_PKEY_FILE"; */
                /* CSU Baseline 8.4 Patch 37 Begin */
                /* &LINE06 = "SSL_X509_FILE=""" | &FILE_PATH | "qususrf1.pem"""; */
                /* HD#203303 &LINE06 = "SSL_X509_FILE=""" | &FILE_PATH | Lower(&USERID) | ".pem"""; */
                /* CSU Baseline 8.4 Patch 37 End */
                /*&LINE07 = "export SSL_X509_FILE";
                &LINE08 = "echo Beginning SSL Digital Cert Auth Login";
                &LINE09 = "/CMS/bin/fdx https://sft.wellsfargo.com <<!EOF";
                &LINE10 = "put " | &FILE_PATH | &TEXT_FILE;
                &LINE11 = "!EOF";
                &LINE12 = "exit 0";*/


                &LINE03 = "#SAFE Transmission";
                &LINE04 = "echo Beginning SAFE Transmission sftp";
                &LINE05 = "sftp -o IdentityFile=~/.ssh/id_rsa-" | &CSU_AUTO_ID | " " | &CSU_AUTO_ID |
                "@safetrans.wellsfargo.com <<EOF";
                &LINE06 = "put " | &FILE_PATH | &TEXT_FILE | " " | &CSU_FILE_INBOUND | &TEXT_FILE;
                &LINE07 = "EOF";
                &LINE08 = "exit 0";


                If &COUNT > 0 Then


Last Revised: 05/23/12                                                                                                   Page 35 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                 &SH_FILE = GetFile(&FILE_PATH | &SH_NAME, "W", %FilePath_Absolute);


                    If &SH_FILE.IsOpen Then
                     &SH_FILE.WriteLine(&LINE01);
                     &SH_FILE.WriteLine(&LINE02);
                     &SH_FILE.WriteLine(&LINE03);
                     &SH_FILE.WriteLine(&LINE00);
                     &SH_FILE.WriteLine(&LINE04);
                     &SH_FILE.WriteLine(&LINE00); /* HD#203303 */
                     &SH_FILE.WriteLine(&LINE05);
                     &SH_FILE.WriteLine(&LINE06);
                     &SH_FILE.WriteLine(&LINE07);
                     &SH_FILE.WriteLine(&LINE00);
                     &SH_FILE.WriteLine(&LINE08);
                     /* HD#203303 Begins */
                     /*       &SH_FILE.WriteLine(&LINE00);
                     &SH_FILE.WriteLine(&LINE09);
                     &SH_FILE.WriteLine(&LINE10);
                     &SH_FILE.WriteLine(&LINE11);
                     &SH_FILE.WriteLine(&LINE00);
                     &SH_FILE.WriteLine(&LINE12); */
                     /* HD#203303 Ends */
                    End-If;
                End-If;


                Exit 0;
 E              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes         Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#203303 03/07/2011          Leonard Reyes         Transmit file only if there is no
                *                                 error occurred
                * HD#215099 04/20/2012          Leonard Reyes         Added error message if text file is
                *                                 empty
                *********************************************************************************/


                Component number &COUNT;


Last Revised: 05/23/12                                                                                                      Page 36 of 56
Wells Fargo Positive Pay File                                                               CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                           Accounts Payable



 Reference      Code
                Local number &ret; /* HD#215099 */
                /* HD#203303 Begins */
                /*Component string &TEXT_FILE, &FILE_PATH, &SH_NAME;*/
                Component string &TEXT_FILE, &FILE_PATH, &SH_NAME, &err_log;
                Component File &MYLOG;


                /* HD#203303 Ends */


                /* HD#203303 Begins */
                /*If &COUNT > 0 Then*/
                &ret = 0; /* HD#215099 */
                If &COUNT > 0 And
                    &err_log = "N" Then
                  /* HD#203303 Ends */
                  &ExitCode = Exec("sh " | &FILE_PATH | &SH_NAME, %Exec_Synchronous + %FilePath_Absolute);
                  If &ExitCode = - 1 Then
                    MessageBox(0, "", 99900, 1, "Automatic File Transfer not Successful");
                    /* HD#203303 Begins */
                    If &MYLOG.IsOpen Then
                         &MYLOG.WriteLine(" ");
                         &MYLOG.WriteLine("Automatic File Transfer not Successful");
                         &MYLOG.WriteLine(" ");
                    End-If;
                    /* HD#203303 Ends */
                    &ret = 1; /* HD#215099 */
                  End-If;


                  &ExitCode = Exec("rm -f " | &FILE_PATH | &TEXT_FILE, %Exec_Synchronous + %FilePath_Absolute);
                  If &ExitCode = - 1 Then
                    MessageBox(0, "", 99900, 1, "Deleting File not Successful");
                    /* HD#203303 Begins */
                    If &MYLOG.IsOpen Then
                         &MYLOG.WriteLine(" ");
                         &MYLOG.WriteLine("Deleting File not Successful");
                         &MYLOG.WriteLine(" ");
                    End-If;
                    /* HD#203303 Ends */
                  End-If;
                Else
                  &ret = 1;
                End-If;


                &MYLOG.Close(); /* HD#203303 */


                Exit &ret;
 F              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                             */


Last Revised: 05/23/12                                                                                                     Page 37 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes         Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#198667 11/18/2010          Leonard Reyes         Renamed the log file.
                * HD#203303 03/04/2011          Leonard Reyes         Changed the log creation into local.
                *********************************************************************************/


                Component File &MYLOG;
                Component string &BANK_SETID, &PROCESS_INSTANCE; /* HD#198667 */


                /* HD#198667 Begins */
                /*&MYLOG = GetFile("PosPay.log", "W");*/
                /* HD#203303 &MYLOG = GetFile("LOG" | &BANK_SETID | &PROCESS_INSTANCE | ".log", "W"); */
                /* HD#198667 Ends */
                If &MYLOG.IsOpen Then
                    &MYLOG.WriteLine(" "); /* HD#203303 */
                    &MYLOG.WriteLine("No Positive Payment File created");
                    &MYLOG.WriteLine(" "); /* HD#203303 */
                End-If;


                /* HD#203303 &MYLOG.Close();*/


                Exit 1;
 G              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#120087 05/19/2008          Leonard Reyes         Changed the field used for Bank Id


Last Revised: 05/23/12                                                                                                      Page 38 of 56
Wells Fargo Positive Pay File                                                             CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                         Accounts Payable



 Reference      Code
                *                                 from IMMEDIATE_ORIGIN to BNK_ID_NBR.
                *                                Retrieve the Bank Account Number from
                *                                 the header.
                * HD#203303 01/11/2011          Leonard Reyes          Wells Fargo's new requirements for
                *                                 file transmission.
                *         04/14/2011     Leonard Reyes         Replaced the PS_BANK_CD_TBL.BNK_ID_NBR
                *                                 into PS_CSU_FT_SETUP.CSU_BANK_ID_NBR
                *********************************************************************************/


                Component File &MYFILE, &PMFILE;
                Component string &CSU_BANK_ID_NBR, &CSU_RID, &CSU_BID; /*HD#203303*/
                Local string &ZERO_FILLER; /*HD#203303*/
                Local number &LEN_BNKACT, &LEN_FILLER, &MAX_LEN; /*HD#203303*/


                If &MYFILE.IsOpen And
                     &PMFILE.IsOpen Then
                    /* HD#120087 05/19/2008 LReyes Begins */
                 /* SQLExec("SELECT DISTINCT PAYER_ID_NUM FROM PS_BANK_ACCT_DEFN WHERE SETID = :1
                AND BANK_CD = :2 AND BANK_ACCT_KEY = :3", CSU_AP06002_AET.BANK_SETID,
                CSU_AP06002_AET.BANK_CD, CSU_AP06002_AET.BANK_ACCT_KEY, &REMOTEID); */
                 /* SQLExec("SELECT DISTINCT IMMEDIATE_ORIGIN FROM PS_BANK_CD_TBL WHERE SETID = :1
                AND BANK_CD = :2", CSU_AP06002_AET.BANK_SETID, CSU_AP06002_AET.BANK_CD, &IM_ORG); */
                    /* HD#203303 Begins */
                 /* SQLExec("SELECT DISTINCT PAYER_ID_NUM, BANK_ACCOUNT_NUM FROM
                PS_BANK_ACCT_DEFN WHERE SETID = :1 AND BANK_CD = :2 AND BANK_ACCT_KEY = :3",
                CSU_AP06002_AET.BANK_SETID, CSU_AP06002_AET.BANK_CD,
                CSU_AP06002_AET.BANK_ACCT_KEY, &REMOTEID, &BANKACCTNUM);*/
                  SQLExec("SELECT DISTINCT BANK_ACCOUNT_NUM FROM PS_BANK_ACCT_DEFN WHERE SETID =
                :1 AND BANK_CD = :2 AND BANK_ACCT_KEY = :3", CSU_AP06002_AET.BANK_SETID,
                CSU_AP06002_AET.BANK_CD, CSU_AP06002_AET.BANK_ACCT_KEY, &BANKACCTNUM);
                 SQLExec("SELECT DISTINCT BNK_ID_NBR FROM PS_BANK_CD_TBL WHERE SETID = :1 AND
                BANK_CD = :2", CSU_AP06002_AET.BANK_SETID, CSU_AP06002_AET.BANK_CD, &IM_ORG);
                    /* HD#120087 05/19/2008 LReyes Ends */
                    /* &BNK_ID_NBR = Substring(CSU_POSPAY_AET.BNK_ID_NBR, 1, 5);*/
                    &BNK_ID_NBR = Substring(LTrim(&IM_ORG, " "), 1, 5);
                    /* HD#120087 05/19/2008 LReyes Begins */
                 /* &BANK_ACCOUNT_NUM = Substring(String(1000000000000000 +
                Value(CSU_AP06002_AET.BANK_ACCOUNT_NUM)), 2, 15); */
                 /* &BANK_ACCT_NUM = Substring(String(10000000000 +
                Value(CSU_AP06002_AET.BANK_ACCOUNT_NUM)), 2, 10); */
                    /* HD#203303 Begins */
                    /* &BANK_ACCOUNT_NUM = Substring(String(1000000000000000 + Value(&BANKACCTNUM)), 2, 15);*/
                    /* &BANK_ACCT_NUM = Substring(String(10000000000 + Value(&BANKACCTNUM)), 2, 10);*/
                    &ZERO_FILLER = "000000000000000";
                    &MAX_LEN = 15;
                    &BANKACCTNUM = LTrim(RTrim(&BANKACCTNUM, " "), " ");
                    &LEN_BNKACT = Len(&BANKACCTNUM);
                    If &LEN_BNKACT > &MAX_LEN Then
                     &BANK_ACCOUNT_NUM = Substring(&BANKACCTNUM, 1, &MAX_LEN);


Last Revised: 05/23/12                                                                                                   Page 39 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                 Else
                     &LEN_FILLER = &MAX_LEN - &LEN_BNKACT;
                     &BANK_ACCOUNT_NUM = Substring(&ZERO_FILLER, 1, &LEN_FILLER) | &BANKACCTNUM;
                    End-If;
                    /* HD#203303 Ends */
                    /* HD#120087 05/19/2008 LReyes Ends */
                   /* HD#203303 &MYFILE.WriteLine("$$ADD ID=" | &REMOTEID | " " | "BID='FKI" | &BANK_ACCT_NUM |
                "'"); */
                    &MYFILE.WriteLine("$$ADD ID=" | &CSU_RID | " " | "BID='" | &CSU_BID | "'"); /* HD#203303 */
                    /* HD#203303 &MYFILE.WriteLine("*03" | &BNK_ID_NBR | &BANK_ACCOUNT_NUM | "0");*/
                    &MYFILE.WriteLine("*03" | &CSU_BANK_ID_NBR | &BANK_ACCOUNT_NUM | "0");
                   /* HD#203303 &PMFILE.WriteLine("$$ADD ID=" | &REMOTEID | " " | "BID='FKI" | &BANK_ACCT_NUM |
                "'"); */
                    &PMFILE.WriteLine("$$ADD ID=" | &CSU_RID | " " | "BID='" | &CSU_BID | "'"); /* HD#203303 */
                    /* HD#203303 &PMFILE.WriteLine("*03" | &BNK_ID_NBR | &BANK_ACCOUNT_NUM | "0");*/
                    &PMFILE.WriteLine("*03" | &CSU_BANK_ID_NBR | &BANK_ACCOUNT_NUM | "0");
                End-If;
 H              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD89006 02/21/2007           Leonard Reyes         CSU Baseline 8.4 Patch 39
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#203303 04/14/2011          Leonard Reyes         Created a function to put zeroes in
                *                                 front of Bank Account Number.
                *********************************************************************************/


                Component File &MYFILE, &PMFILE;
                /* HD89006 Begins */
                /*Component number &COUNT, &TOTAL_AMT, &TotalPaid, &TotalAmtPaid, &TotalVoid, &TotalAmtVoid,
                &TotalStop, &TotalAmtStop;*/
                Component number &COUNT, &TOTAL_AMT, &TotalPaid, &TotalAmtPaid, &TotalVoid, &TotalAmtVoid,
                &TotalStop, &TotalAmtStop, &idx;
                Component array of string &TxtArray;
                /* HD89006 Ends */
                Component string &TxtOtherStat;
                Local string &ZERO_FILLER, &BANKACCTNUM; /*HD#203303*/
                Local number &LEN_BNKACT, &LEN_FILLER, &MAX_LEN; /*HD#203303*/



Last Revised: 05/23/12                                                                                                      Page 40 of 56
Wells Fargo Positive Pay File                                          CFS Modification Approval and Design Request
AP06002-CFS90                                                                                      Accounts Payable



 Reference      Code
                &PYMNT_ID_REF = Substring(String(10000000000 + Value(CSU_AP06002_AET.PYMNT_ID_REF)), 2, 10);
                &PYMNT_DT_STR = Substring(String(100 + Month(CSU_AP06002_AET.PYMNT_DT)), 2, 2) |
                Substring(String(100 + Day(CSU_AP06002_AET.PYMNT_DT)), 2, 2) |
                Substring(String(Year(CSU_AP06002_AET.PYMNT_DT)), 3, 2);
                /* HD#203303 Begins */
                /*&BANK_ACCOUNT_NUM = Substring(String(10000000000 +
                Value(CSU_AP06002_AET.BANK_ACCOUNT_NUM)), 2, 10);*/
                &ZERO_FILLER = "0000000000";
                &MAX_LEN = 10;
                &BANKACCTNUM = LTrim(RTrim(CSU_AP06002_AET.BANK_ACCOUNT_NUM, " "), " ");
                &LEN_BNKACT = Len(&BANKACCTNUM);
                If &LEN_BNKACT > &MAX_LEN Then
                  &BANK_ACCOUNT_NUM = Substring(&BANKACCTNUM, 1, &MAX_LEN);
                Else
                  &LEN_FILLER = &MAX_LEN - &LEN_BNKACT;
                  &BANK_ACCOUNT_NUM = Substring(&ZERO_FILLER, 1, &LEN_FILLER) | &BANKACCTNUM;
                End-If;
                /* HD#203303 Ends */
                &PYMNT_AMT_STR = NumberToString("%011.2Rt", CSU_AP06002_AET.PYMNT_AMT);
                &PYMNT_AMT_STRING = Substring(&PYMNT_AMT_STR, 1, 8) | Substring(&PYMNT_AMT_STR, 10, 2);


                Evaluate CSU_AP06002_AET.PYMNT_STATUS
                When "P"
                  &TRANS_CODE = "320";
                  &TotalPaid = &TotalPaid + 1;
                  &TotalAmtPaid = &TotalAmtPaid + CSU_AP06002_AET.PYMNT_AMT;
                  Break;
                When "S"
                  &TRANS_CODE = "620";
                  &TotalStop = &TotalStop + 1;
                  &TotalAmtStop = &TotalAmtStop + CSU_AP06002_AET.PYMNT_AMT;
                  Break;
                When "V"
                When "W"
                  /* HD89006 Begins */
                  /* &TRANS_CODE = "430";*/
                  &TRANS_CODE = "370";
                  /* HD89006 Ends */
                  &TotalVoid = &TotalVoid + 1;
                  &TotalAmtVoid = &TotalAmtVoid + CSU_AP06002_AET.PYMNT_AMT;
                  /* HD89006 &PYMNT_AMT_STRING = "0000000000";*/
                  Break;
                When-Other
                  /* HD89006 Begins */
                  &idx = &idx + 1;
                  SQLExec("SELECT XLATLONGNAME FROM PSXLATITEM WHERE FIELDNAME = :1 AND FIELDVALUE
                = :2", "PYMNT_STATUS", CSU_AP06002_AET.PYMNT_STATUS, &XLatLongName);
                  &TxtOtherStat = CSU_AP06002_AET.PYMNT_ID_REF | " " | CSU_AP06002_AET.PYMNT_STATUS | " - "


Last Revised: 05/23/12                                                                                Page 41 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                | &XLatLongName;
                    &TxtArray [&idx] = &TxtOtherStat;
                    /* HD89006 Ends */
                End-Evaluate;


                If &TRANS_CODE = "620" Then
                    &PYMNT_DATE = "000000";
                End-If;


                /* HD89006 Begins */
                Evaluate CSU_AP06002_AET.PYMNT_STATUS
                When "P"
                When "S"
                When "V"
                When "W"
                    /* HD89006 Ends */
                  &MYFILE.WriteLine(&PYMNT_ID_REF | &PYMNT_DT_STR | &BANK_ACCOUNT_NUM | &TRANS_CODE
                | &PYMNT_AMT_STRING | CSU_AP06002_AET.NAME1);
                  &PMFILE.WriteLine(&PYMNT_ID_REF | &PYMNT_DT_STR | &BANK_ACCOUNT_NUM | &TRANS_CODE
                | &PYMNT_AMT_STRING | CSU_AP06002_AET.NAME1);
                    &COUNT = &COUNT + 1;
                    &TOTAL_AMT = &TOTAL_AMT + &PYMNT_AMT;
                    /* HD89006 Begins */
                    Break;
                When-Other
                End-Evaluate;
                /* HD89006 Ends */
 I              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date       Developer         Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                Component string &SW1;


                If &SW1 = "N" Then
                    &SW1 = "Y";



Last Revised: 05/23/12                                                                                                      Page 42 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                 Exit 0;
                Else
                    Exit 1;
                End-If;
 J              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes         Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                * HD#198667 11/18/2010          Leonard Reyes         Renamed the log file.
                * HD#203303 03/04/2011          Leonard Reyes         Moved creation of log file to other section.
                *********************************************************************************/


                /* HD#203303 Component File &MYFILE, &MYLOG, &PMFILE;*/
                Component File &MYFILE, &PMFILE; /*HD#203303*/
                Component string &TEXT_FILE, &BANK_SETID, &PROCESS_INSTANCE, &FILE_PATH;


                &TEXT_FILE = "ARP" | &BANK_SETID | &PROCESS_INSTANCE | ".txt";
                &MYFILE = GetFile(&FILE_PATH | &TEXT_FILE, "W", %FilePath_Absolute);
                /* HD#198667 Begins */
                /*&MYLOG = GetFile("PosPay.log", "W");*/
                /* HD#203303 &MYLOG = GetFile("LOG" | &BANK_SETID | &PROCESS_INSTANCE | ".log", "W");
                /* HD#198667 Ends */
                &PMFILE = GetFile(&TEXT_FILE, "W");


                Exit 0;
 K              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes         CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002


Last Revised: 05/23/12                                                                                                      Page 43 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_REGENERATE = "Y" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 L              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes         CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "S" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "S" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 M              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/




Last Revised: 05/23/12                                                                                                      Page 44 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "S" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "V" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 N              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "S" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "A" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 O              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes         CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "V" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "S" Then
                    Exit 0;


Last Revised: 05/23/12                                                                                                      Page 45 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                Else
                    Exit 1;
                End-If;
 P              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "V" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "V" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 Q              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes         Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "V" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "A" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;


Last Revised: 05/23/12                                                                                                      Page 46 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
 R              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes         CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "A" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "S" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 S              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "A" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "V" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;




Last Revised: 05/23/12                                                                                                      Page 47 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
 T              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment AE program */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_AP_PAR_AET.CSU_PYMNT_REF_OPT = "A" And
                      CSU_AP_PAR_AET.CSU_PYMNT_DT_OPT = "A" Then
                    Exit 0;
                Else
                    Exit 1;
                End-If;
 U              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                &field = GetField(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "V" Then
                    &field.Label = &field.getshortlabel("CSU_PYMNT_DT_FR");
                    UnHide(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                    Hide(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
                Else
                    If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "S" Then
                      SetLabel(CSU_RUN_AP06002.CSU_PYMNT_DT_FR, MsgGetText(7110, 2, "From/To"));
                      UnHide(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);


Last Revised: 05/23/12                                                                                                      Page 48 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                   UnHide(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
                    Else
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
                    End-If;
                End-If;
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
 V              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                &field = GetField(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "V" Then
                    &field.Label = &field.getshortlabel("CSU_PYMNT_DT_FR");
                    UnHide(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                    Hide(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
                Else
                    If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "S" Then
                     SetLabel(CSU_RUN_AP06002.CSU_PYMNT_DT_FR, MsgGetText(7110, 2, "From/To"));
                     UnHide(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                     UnHide(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
                    Else
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);
                    End-If;
                End-If;
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_DT_FR);
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_DT_TO);




Last Revised: 05/23/12                                                                                                      Page 49 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
 W              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes         Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_RUN_AP06002.CSU_REGENERATE = "Y" Then
                    If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "V" And
                         None(CSU_RUN_AP06002.CSU_PYMNT_DT_FR) Then
                     Error (MsgGet(25000, 44, "Payment Date Required."));
                    End-If;
                    If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "S" And
                         Not All(CSU_RUN_AP06002.CSU_PYMNT_DT_FR, CSU_RUN_AP06002.CSU_PYMNT_DT_TO) Then
                     Error (MsgGet(25000, 45, "Both From Payment Date and To Payment Date are required."));
                    End-If;
                    If CSU_RUN_AP06002.CSU_PYMNT_DT_OPT = "S" And
                         All(CSU_RUN_AP06002.CSU_PYMNT_DT_FR, CSU_RUN_AP06002.CSU_PYMNT_DT_TO) Then
                     If CSU_RUN_AP06002.CSU_PYMNT_DT_FR > CSU_RUN_AP06002.CSU_PYMNT_DT_TO Then
                         Error (MsgGet(25000, 46, "From Payment Date must be earlier or equal to To Payment Date."));
                     End-If;
                    End-If;
                End-If;
 X              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


Last Revised: 05/23/12                                                                                                      Page 50 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code

                &field = GetField(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "V" Then
                    &field.Label = &field.getshortlabel("CSU_PYMNT_REF_FR");
                    UnHide(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                    Hide(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
                Else
                    If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "S" Then
                     SetLabel(CSU_RUN_AP06002.CSU_PYMNT_REF_FR, MsgGetText(7110, 2, "From/To"));
                     UnHide(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                     UnHide(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
                    Else
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
                    End-If;
                End-If;
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
 Y              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                &field = GetField(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "V" Then
                    &field.Label = &field.getshortlabel("CSU_PYMNT_REF_FR");
                    UnHide(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                    Hide(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
                Else
                    If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "S" Then
                     SetLabel(CSU_RUN_AP06002.CSU_PYMNT_REF_FR, MsgGetText(7110, 2, "From/To"));
                     UnHide(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                     UnHide(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
                    Else
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                     Hide(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);


Last Revised: 05/23/12                                                                                                      Page 51 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                 End-If;
                End-If;
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_REF_FR);
                SetDefault(CSU_RUN_AP06002.CSU_PYMNT_REF_TO);
 Z              /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes         Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                If CSU_RUN_AP06002.CSU_REGENERATE = "Y" Then
                    If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "V" And
                         None(CSU_RUN_AP06002.CSU_PYMNT_REF_FR) Then
                     Error (MsgGet(25000, 41, "Check Number Required."));
                    End-If;
                    If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "S" And
                         Not All(CSU_RUN_AP06002.CSU_PYMNT_REF_FR, CSU_RUN_AP06002.CSU_PYMNT_REF_TO)
                Then
                     Error (MsgGet(25000, 42, "Both From Check Number and To Check Number are required."));
                    End-If;
                    If CSU_RUN_AP06002.CSU_PYMNT_REF_OPT = "S" And
                         All(CSU_RUN_AP06002.CSU_PYMNT_REF_FR, CSU_RUN_AP06002.CSU_PYMNT_REF_TO) Then
                     If CSU_RUN_AP06002.CSU_PYMNT_REF_FR > CSU_RUN_AP06002.CSU_PYMNT_REF_TO Then
                         Error (MsgGet(25000, 43, "From Check Number must be less than or equal to To Check Number."));
                     End-If;
                    End-If;
                End-If;
 AA             /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0



Last Revised: 05/23/12                                                                                                      Page 52 of 56
Wells Fargo Positive Pay File                                                                CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                            Accounts Payable



 Reference      Code
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                Declare Function dsply_optns_reproduce PeopleCode CSU_RUN_AP06002.CSU_REGENERATE
                FieldFormula;


                dsply_optns_reproduce();
 AB             /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                Function dsply_optns_reproduce;


                    If CSU_RUN_AP06002.CSU_REGENERATE = "Y" Then
                     CSU_RUN_AP06002.CSU_PYMNT_REF_OPT.Visible = True
                    Else
                     CSU_RUN_AP06002.CSU_PYMNT_REF_OPT.Visible = False
                    End-If;


                End-Function;


 AC             /********************************************************************************/
                /* CSU Baseline 12/18/2006                                              */
                /* Project ID - BSL_FS_AP_AP06002                                             */
                /* Mod# - AP06002                                                  */
                /* 12/18/2006 - Leonard Reyes - PeopleCode for CSU Positive Payment page                      */
                /********************************************************************************/
                /*********************************************************************************
                * MOD #         Date      Developer          Reason/Description
                * AP06002 12/18/2006           Leonard Reyes        CSU Baseline 8.4 Patch 35
                * HD#91392 06/06/2007           Leonard Reyes        Upgrade from 8.4 to 9.0
                *                                Renamed the following tables:



Last Revised: 05/23/12                                                                                                      Page 53 of 56
Wells Fargo Positive Pay File                                                             CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                         Accounts Payable



 Reference      Code
                *                                 CSU_RUN_POSPAY --> CSU_RUN_AP06002
                *                                 CSU_POSPAY_AET --> CSU_AP06002_AET
                *                                 CSU_POSPRAM_AET --> CSU_AP_PAR_AET
                *********************************************************************************/


                Declare Function dsply_optns_reproduce PeopleCode CSU_RUN_AP06002.CSU_REGENERATE
                FieldFormula;


                dsply_optns_reproduce();
 AD             /*********************************************************************************
                * MOD #            Date     Developer        Reason/Description
                * HD#203303 02/22/2011          Leonard Reyes         Wells Fargo's new requirements for
                *                                 file transmission. Test if file
                *                                 transmission is authorized to do
                *                                 in test environment.
                ! HD#215099 04/20/2012          Leonard Reyes         Added SQLExec COMMIT.
                *********************************************************************************/


                Component string &BANK_SETID, &BANK_CD, &BANK_ACCT_KEY, &PROCESS_INSTANCE,
                &CSU_DBTYPE, &DBNAME, &FILE_PATH, &err_msg, &err_log;
                Component datetime &EXPIRES;
                Component File &MYLOG;
                Local string &ldbname, &old_dbname, &new_file_path;
                Local integer &first_char, &fnd_str1, &fnd_str2, &total_char;


                &MYLOG = GetFile("LOG" | &BANK_SETID | &PROCESS_INSTANCE | ".log", "W");


                If None(&FILE_PATH) Then
                    &err_msg = "X";
                    &err_log = "Y";
                Else
                    &fnd = Find("PRD", &DBNAME);
                    If &fnd <> 0 Then /* Production */
                     &err_log = "N";
                    Else /* Non-production */
                     If &CSU_DBTYPE = "T" Then
                         If &EXPIRES < %Datetime Then
                          &err_msg = "D";
                          &err_log = "Y";
                         Else
                          &err_log = "N";
                         End-If;
                     Else /* Configuration still the Production. Need to replace with test database */
                         &ldname = Lower(&DBNAME);
                         &fnd_str1 = Find("/f", &FILE_PATH);
                         &first_char = &fnd_str1 + 1;
                         &fnd_str2 = Find("/", &FILE_PATH, &first_char);



Last Revised: 05/23/12                                                                                                   Page 54 of 56
Wells Fargo Positive Pay File                                                             CFS Modification Approval and Design Request
AP06002-CFS90                                                                                                         Accounts Payable



 Reference      Code
                         &total_char = &fnd_str2 - &first_char;
                         &old_dbname = Substring(&FILE_PATH, &first_char, &total_char);
                         &new_file_path = Substitute(&FILE_PATH, &old_dbname, &ldname);
                    SQLExec("UPDATE PS_CSU_FT_SETUP SET FILE_PATH_NAME = :1, CSU_DBTYPE = :2,
                NBR_OF_HOURS = :3, EXPIRES = LASTUPDDTTM WHERE SETID = :4 AND BANK_CD = :5 AND
                BANK_ACCT_KEY = :6 AND CSU_PYMNT_TYPE = :7", &new_file_path, "T", 0, &BANK_SETID,
                &BANK_CD, &BANK_ACCT_KEY, "POS");
                         SQLExec("COMMIT"); /* HD#215099 */
                         &FILE_PATH = &new_file_path;
                         &err_msg = "F";
                         &err_log = "Y";
                    End-If;
                  End-If;
                End-If;


                If &err_log = "Y" Then
                  Exit 0;
                Else
                  Exit 1;
                End-If;
 AE             /*********************************************************************************
                * MOD #         Date       Developer         Reason/Description
                * HD#203303 02/22/2011          Leonard Reyes         Message Log for File Transmission not allowed.
                *********************************************************************************/


                Component File &MYLOG;
                Component string &err_msg;
                Local string &abort;


                &abort = "N";


                If &MYLOG.IsOpen Then
                  Evaluate &err_msg
                  When = "X"
                    &MYLOG.WriteLine(" ");
                   &MYLOG.WriteLine("WARNING: FILE CREATION HAS FAILED. File Transmission Setup for Positive
                Payment has not been configured.");
                    &MYLOG.WriteLine(" ");
                    &abort = "Y";
                    Break;
                  When = "F"
                    &MYLOG.WriteLine(" ");
                   &MYLOG.WriteLine("WARNING: FILE TRANSMISSION HAS FAILED. File Transmission Setup has not
                been configured for testing.");
                    &MYLOG.WriteLine(" ");
                    Break;
                  When = "D"
                    &MYLOG.WriteLine(" ");


Last Revised: 05/23/12                                                                                                   Page 55 of 56
Wells Fargo Positive Pay File                                          CFS Modification Approval and Design Request
AP06002-CFS90                                                                                      Accounts Payable



 Reference      Code
                   &MYLOG.WriteLine("WARNING: FILE TRANSMISSION HAS FAILED. Expiration date for testing has
                passed.");
                    &MYLOG.WriteLine(" ");
                    Break;
                  When-Other
                    &MYLOG.WriteLine(" ");
                   &MYLOG.WriteLine("WARNING: FILE TRANSMISSION HAS FAILED. Please check File Transmission
                Setup.");
                    &MYLOG.WriteLine(" ");
                    &abort = "Y";
                  End-Evaluate;
                End-If;


                If &abort = "Y" Then
                  &MYLOG.Close();
                  Exit 1;
                Else
                  Exit 0;
                End-If;




Last Revised: 05/23/12                                                                                Page 56 of 56

								
To top