Install: FB*3.5*154

Patch Subject: FEE SEPARATION OF DUTIES ENHANCEMENT Description: ============ ************************************************************************ * If your site is using the Fee Basis Claims System (FBCS), you must * * install DSIF*3.2*38 immediately after installing FB*3.5*154 to * * avoid application/processing errors. If your site is not using * * FBCS, there is no need to install the FBCS patch. * ************************************************************************ ************************************************************************ * Before installing patch FB*3.5*154 identify user accounts that must * * be allocated new security keys per the post install step to * * minimize disruption of business processes. * ************************************************************************ This patch is dedicated to the memory of Mr. Les Niemiec, VHA National Fee Program Manager from 2005-2009. He always went the extra mile for Veterans, and was a major force in developing and managing the Fee programs that serve our Veterans and their families. Patch FB*3.5*154 is one of the Fee Basis patches for the VistA Fee Separation of Duties project. Patches FB*3.5*151, FB*3.5*165, and FB*3.5*172 are other Fee Basis patches generated by the project. Patch FB*3.5*154 revises the locks on existing functionality and menu options to enhance the separation of duty controls. This patch also modifies the software to enforce separation of duty business rules. This patch resolves an existing problem with the identification of the associated authorization for outpatient payments and inpatient ancillary payments. This patch modifies the software to prevent an undefined error when a prescription is deleted. This patch modifies the software to prevent an undefined error when rejected payments are re-initiated. Detailed descriptions of the enhancements follow: 01. SECURITY KEYS This patch adds three new security keys, if they don't already exist, and modifies the description of the existing FBAASUPERVISOR security key. The new keys give sites more control of user's access to the package functions. Additionally, this patch modifies the software to lock many functions with the FBAA LEVEL 2 key instead of the FBAASUPERVISOR key. This is expected to reduce the number of individuals who need to hold the FBAASUPERVISOR key. Lead clerks and supervisors may be assigned more than one of these keys. The four keys exported by the patch are listed below: Key: FBAA LEVEL 1 AUTH Permits the holder to enter and edit 7079 authorizations, 7078 authorizations, civil hospital notifications, nursing home movements, and unauthorized claims. Key: FBAA LEVEL 1 PMT Permits the holder to enter and edit invoices and payments. Key: FBAA LEVEL 2 Permits the holder to certify a batch for payment, queue data for transmission to Central FEE, void payments, and update contract and rate data for nursing home vendors. The holder of this key can also bypass some user and status restrictions during selection of a payment or batch. This key is normally assigned to a lead clerk or supervisor. Key: FBAASUPERVISOR Permits the holder to edit site parameters, maintain the VA fee schedule, edit the contract file, reprocess an overdue batch, resend a completed batch, re-transmit MRAs, and purge MRAs. This key is normally assigned to a supervisor. 02. REVISE LOCKS ON MENU OPTIONS Menu options can be locked by a security key. A locked option can only be accessed by users who hold the applicable security key. This patch modifies locks on the menu options. Menu options used to modify authorizations are generally locked by the new FBAA LEVEL 1 AUTH security key. Menu options used to process payments are generally locked by the new FBAA LEVEL 1 PMT security key. Menu options normally restricted to a lead clerk or supervisor are locked by the new FBAA LEVEL 2 security key. Menu options normally restricted to a supervisor are locked by the FBAASUPERVISOR security key. A list of menu options (sorted by menu) whose lock is modified by the patch follows: The old lock column shows the lock in place (if any) prior to installation of the patch. Menu Option Lock Old Lock --------------------------------- ----------------- -------------- Civil Hospital Main Menu Queue Data for Transmission FBAA LEVEL 2 FBAASUPERVISOR Notification/Request Menu Legal Entitlement FBAA LEVEL 1 AUTH Medical Entitlement FBAA LEVEL 1 AUTH Delete Notification/Request FBAA LEVEL 1 AUTH Reconsider a Denied Request FBAA LEVEL 2 FBAASUPERVISOR Disposition Menu Complete 7078/Authorization FBAA LEVEL 1 AUTH Edit Completed 7078 FBAA LEVEL 1 AUTH Cancel 7078 Entered in Error FBAA LEVEL 2 FBAASUPERVISOR Print List of Cancelled 7078 FBAA LEVEL 2 FBAASUPERVISOR Set-up a 7078 FBAA LEVEL 1 AUTH Payment Process Menu Ancillary Contract Hosp/CNH Payment FBAA LEVEL 1 PMT Complete a Payment FBAA LEVEL 1 PMT Delete Inpatient Invoice FBAA LEVEL 1 PMT Edit Ancillary Payment FBAA LEVEL 1 PMT Enter Invoice/Payment FBAA LEVEL 1 PMT Invoice Edit FBAA LEVEL 1 PMT Multiple Ancillary Payments FBAA LEVEL 1 PMT Patient Reimbursement for Ancillary Services FBAA LEVEL 1 PMT Reimbursement for Inpatient Hospital Invoice FBAA LEVEL 1 PMT Batch Main Menu - CH Open a Batch FBAA LEVEL 1 PMT Edit Batch data FBAA LEVEL 1 PMT Close-out Batch FBAA LEVEL 1 PMT Re-open Batch FBAA LEVEL 1 PMT Pricer Batch Release FBAA LEVEL 1 PMT Re-initiate Pricer Rejected Items FBAA LEVEL 1 PMT Release a Batch FBAA LEVEL 2 FBAASUPERVISOR Re-initiate Rejected Payment Items FBAA LEVEL 1 PMT Batch Delete FBAA LEVEL 1 PMT Open Ancillary Payment Batch FBAA LEVEL 1 PMT Community Nursing Home Main Menu Queue Data for Transmission FBAA LEVEL 2 FBAASUPERVISOR Update Vendor Contract/Rates - CNH FBAA LEVEL 2 Authorization Main Menu - CNH Enter CNH Authorization FBAA LEVEL 1 AUTH Edit CNH Authorization FBAA LEVEL 1 AUTH Cancel Authorization Entered in Error FBAA LEVEL 2 FBAASUPERVISOR Change Existing Contract Rate for a Patient FBAA LEVEL 1 AUTH Delete CNH Rate FBAA LEVEL 2 Enter Veteran Rates under new Vendor Contract FBAA LEVEL 1 AUTH Print List of Cancelled 7078 FBAA LEVEL 2 FBAASUPERVISOR Batch Main Menu - CNH Batch Delete FBAA LEVEL 1 PMT Close-out Batch FBAA LEVEL 1 PMT Edit Batch data FBAA LEVEL 1 PMT Open CNH Batch FBAA LEVEL 1 PMT Re-initiate Rejected Payment Items FBAA LEVEL 1 PMT Re-open Batch FBAA LEVEL 1 PMT Release a Batch FBAA LEVEL 2 FBAASUPERVISOR Fee Fund Control Main Menu - CNH Estimate Funds for Obligation FBAA LEVEL 1 AUTH Post Commitments for Obligation FBAA LEVEL 1 AUTH Movement Main Menu - CNH Admit To CNH FBAA LEVEL 1 AUTH Delete Movement Menu FBAA LEVEL 1 AUTH Discharge From CNH FBAA LEVEL 1 AUTH Edit Movement Menu FBAA LEVEL 1 AUTH Transfer Movement FBAA LEVEL 1 AUTH Delete Movement Menu Admission Delete FBAA LEVEL 1 AUTH Discharge Delete FBAA LEVEL 1 AUTH Transfer Delete FBAA LEVEL 1 AUTH Edit Movement Menu Admission Edit FBAA LEVEL 1 AUTH Discharge Edit FBAA LEVEL 1 AUTH Transfer Edit FBAA LEVEL 1 AUTH Payment Main Menu - CNH Delete Inpatient Invoice FBAA LEVEL 1 PMT Edit CNH Payment FBAA LEVEL 1 PMT Enter CNH Payment FBAA LEVEL 1 PMT Medical Fee Main Menu Enter Authorization FBAA LEVEL 1 AUTH Supervisor Main Menu FBAA LEVEL 2 FBAASUPERVISOR Terminate ID Card FBAA LEVEL 1 AUTH Batch Main Menu Batch Delete FBAA LEVEL 1 PMT Close-out Batch FBAA LEVEL 1 PMT Edit Batch data FBAA LEVEL 1 PMT Open a Batch FBAA LEVEL 1 PMT Re-open Batch FBAA LEVEL 1 PMT Release a Batch FBAA LEVEL 2 FBAASUPERVISOR Outputs Main Menu Group 7079 Print FBAA LEVEL 2 FBAASUPERVISOR Payment menu Delete Payment Entry FBAA LEVEL 1 PMT Edit Payment FBAA LEVEL 1 PMT Enter Payment FBAA LEVEL 1 PMT Multiple Payment Entry FBAA LEVEL 1 PMT Re-initiate Rejected Payment Items FBAA LEVEL 1 PMT Reimbursement Payment Entry FBAA LEVEL 1 PMT Travel Payment Only FBAA LEVEL 1 PMT Supervisor Main Menu Clerk Look-Up For An Authorization FBAASUPERVISOR FBAASUPERVISOR by FBAACLU Enter/Edit Suspension Letters FBAASUPERVISOR Edit Pharmacy Invoice Status FBAA LEVEL 2 Fee Basis 1358 Segregation of Duty Report FBAASUPERVSIOR Pricer Batch Release FBAA LEVEL 1 PMT Queue Data for Transmission FBAA LEVEL 2 FBAASUPERVISOR Re-initiate Rejected Payment Items FBAA LEVEL 1 PMT Release a Batch FBAA LEVEL 2 FBAASUPERVISOR Void Payment Main Menu FBAA LEVEL 2 Fee Schedule Main Menu (under Supervisor Main Menu) Add/Edit Fee Schedule FBAASUPERVISOR Compile Fee Schedule FBAASUPERVISOR FPPS Update & Transmit Menu (under Supervisor Main Menu) Outpatient/Ancillary Invoice Edit FBAA LEVEL 2 FBAASUPERVISOR Pharmacy Invoice Edit FBAA LEVEL 2 FBAASUPERVISOR Inpatient Invoice Edit FBAA LEVEL 2 FBAASUPERVISOR Purge Message Text FBAA LEVEL 2 FBAASUPERVISOR MRA Main Menu (under Supervisor Main Menu) Vendor MRA Main Menu FBAA LEVEL 2 FBAASUPERVISOR Veteran MRA Main Menu FBAA LEVEL 2 Vendor MRA Main Menu (under MRA Main Menu) Update FMS Vendor File in Austin FBAA LEVEL 2 FBAASUPERVISOR Delete Vendor MRA FBAA LEVEL 2 FBAASUPERVISOR Reinstate Vendor MRA FBAA LEVEL 2 MRA'S Awaiting Austin Approval FBAA LEVEL 2 Veteran MRA Main Menu (under MRA Main Menu) Add type Veteran MRA FBAA LEVEL 2 Change type Veteran MRA FBAA LEVEL 2 Delete type Veteran MRA FBAA LEVEL 2 Reinstate type Veteran MRA FBAA LEVEL 2 Unauthorized Claims File Menu (under Supervisor Main Menu) Add New Person for Unauthorized Claim FBAA LEVEL 1 AUTH Disapproval Reasons File Enter/Edit FBAASUPERVISOR Dispositions File Edit FBAASUPERVISOR Request Info File Enter/Edit FBAASUPERVISOR Void Payment Main Menu (under Supervisor Main Menu) CH Delete Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBCHVP CH Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBCHVP CNH Delete Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBCHVP CNH Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBCHVP Medical Delete Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBAAVP Medical Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBAAVP Pharmacy Delete Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBAAPHV Pharmacy Void Payment FBAA LEVEL 2 FBAASUPERVISOR by FBAAPHV Pharmacy Fee Main Menu Closeout Pharmacy Invoice FBAA LEVEL 1 PMT Complete Pharmacy Invoice FBAA LEVEL 1 PMT Edit Pharmacy Invoice FBAA LEVEL 1 PMT Enter Pharmacy Invoice FBAA LEVEL 1 PMT Patient Re-imbursement FBAA LEVEL 1 PMT Batch Menu - Pharmacy Batch Delete FBAA LEVEL 1 PMT Close-out Batch FBAA LEVEL 1 PMT Edit Batch data FBAA LEVEL 1 PMT Open a Pharmacy Batch FBAA LEVEL 1 PMT Re-open Batch FBAA LEVEL 1 PMT Release a Batch FBAA LEVEL 2 FBAASUPERVISOR State Home Main Menu Enter New State Home Authorization FBAA LEVEL 1 AUTH Change a State Home Authorization FBAA LEVEL 1 AUTH Delete a State Home Authorization FBAA LEVEL 1 AUTH Reinstate State Home Authorization FBAA LEVEL 1 AUTH Unauthorized Claim Main Menu Request Information on Unauthorized Claim FBAA LEVEL 1 AUTH Receive Requested Information FBAA LEVEL 1 AUTH Letters for Unauthorized Claim FBAA LEVEL 1 AUTH Payments for Unauthorized Claims FBAA LEVEL 1 PMT Enter/Edit Unauthorized Claim Menu Enter Unauthorized Claim FBAA LEVEL 1 AUTH Modify Unauthorized Claim FBAA LEVEL 1 AUTH Disposition Unauthorized Claim FBAA LEVEL 1 AUTH Re-open Unauthorized Claim FBAA LEVEL 1 AUTH Initiate Appeal for Unauthorized Claim FBAA LEVEL 1 AUTH Appeal Edit for Unauthorized Claim FBAA LEVEL 2 COVA Appeal Enter/Edit FBAA LEVEL 2 Letters for Unauthorized Claim Update Date Letter Sent FBAA LEVEL 1 AUTH Batch Print Letters FBAA LEVEL 1 AUTH Reprint Letter(s) FBAA LEVEL 1 AUTH Utilities for Unauthorized Claims Add New Person for Unauthorized Claim FBAA LEVEL 1 AUTH Associate an Unauthorized Claim to a Primary FBAA LEVEL 1 AUTH Disassociate an Unauthorized Claim FBAA LEVEL 1 AUTH Return Address Display/Edit FBAA LEVEL 2 03. ATTACH MENU OPTIONS TO ADDITIONAL MENUS Several menu options that are attached to the Supervisor Main Menu are now also attached to additional menus so they can be utilized by users who should not have access to the supervisor menu. Delete reject flag Added to Batch Main Menu (under Medical Fee Main Menu) Added to Batch Menu - Pharmacy (under Pharmacy Fee Main Menu) Finalize a Batch Added to Batch Main Menu (under Medical Fee Main Menu) Added to Batch Menu - Pharmacy (under Pharmacy Fee Main Menu) List Batches Pending Release Added to Batch Main Menu (under Medical Fee Main Menu) Added to Batch Menu - Pharmacy (under Pharmacy Fee Main Menu) Added to Batch Main Menu - CH (under Civil Hospital Main Menu) 04. REVISE LOCKS DURING SELECTION OF PAYMENTS Many options used to enter or edit payments and payment batches prevent selection of a payment or batch that was entered by another user. This restriction is not imposed on a user who holds the FBAASUPERVISOR security key. Many options used to enter or edit payments and payment batches prevent selection of a payment or batch when the batch has certain status values such as supervisor closed. Fewer batch status values are restricted for a user who holds the FBAASUPERVISOR security key. The following menu options are modified by this patch to check for the new FBAA LEVEL 2 security key INSTEAD OF the existing FBAASUPERVISOR security key when imposing restrictions on the selection of a payment or payment batch. Edit Batch data [FBAA BATCH EDIT] Close-out Batch [FBAA CLOSE BATCH] Re-open Batch [FBAA REOPEN BATCH] Batch Delete [FBAA BATCH DELETE] Enter Payment [FBAA ENTER PAYMENT] Multiple Payment Entry [FBAA MULTIPLE PAYMENT ENTRY] Reimbursement Payment Entry [FBAA MEDICAL REIMBURSEMENT] Ancillary Contract Hosp/CNH Payment [FBCH ANCILLARY PAYMENT] Multiple Ancillary Payments [FBCH MULTIPLE PAYMENTS] Patient Reimbursement for Ancillary Services [FBCH ANCILLARY REIMBURSEMENT] Payments for Unauthorized Claims [FBUC PAYMENTS] Delete Payment Entry [FBAA DELETE PAYMENT] Complete a Payment [FBCH COMPLETE PAYMENT] Re-initiate Pricer Rejected Items [FBCH REINITIATE PRICER REJECTS] Delete Inpatient Invoice [FBCH DELETE INVOICE] Invoice Edit [FBCH EDIT PAYMENT] Edit CNH Payment [FBCNH EDIT PAYMENT] Delete Inpatient Invoice [FBCH DELETE INVOICE] Edit Payment [FBAA EDIT PAYMENT] Edit Ancillary Payment [FBCH EDIT ANCILLARY PAYMENT] Edit Pharmacy Invoice [FBAA EDIT PHARMACY INVOICE] 05. REVISE LOCKS DURING SELECTION OF CIVIL HOSPITAL NOTIFICATIONS The option Delete Notification/Request [FBCH DELETE REQUEST] currently restricts the selection of a notification/request to the USER ENTERING NOTIFICATION unless the FBAASUPERVISOR key is held. This option is modified by this patch to instead check if the user holds the FBAA LEVEL 2 security key. 06. REMOVE LOCK ON ENTRY OF AN AMOUNT PAID THAT EXCEEDS THE AMOUNT CLAIMED Menu options used to enter or edit outpatient and ancillary inpatient payments do not allow the user to enter an amount paid that exceeds the amount claimed or exceeds the calculated fee schedule amount unless the user holds the FBAASUPERVISOR key. This patch modifies the software by removing the requirement that a user hold the FBAASUPERVISOR security key to enter an amount paid that exceeds the amount claimed or fee schedule amount. The following options are modified: Enter Payment [FBAA ENTER PAYMENT] Multiple Payment Entry [FBAA MULTIPLE PAYMENT ENTRY] Reimbursement Payment Entry [FBAA MEDICAL REIMBURSEMENT] Ancillary Contract Hosp/CNH Payment [FBCH ANCILLARY PAYMENT] Multiple Ancillary Payments [FBCH MULTIPLE PAYMENTS] Patient Reimbursement for Ancillary Services [FBCH ANCILLARY REIMBURSEMENT] Payments for Unauthorized Claims [FBUC PAYMENTS] Edit Payment [FBAA EDIT PAYMENT] Edit Ancillary Payment [FBCH EDIT ANCILLARY PAYMENT] 07. ADD LOCK TO THE UPDATE OF CNH CONTRACT OR RATE DATA This patch locks with the FBAA LEVEL 2 security key the ability to update contract and rate data for a community nursing home vendor. The following options are modified to check if user holds the security key before allowing the contract and rate data to be updated: Vendor Enter/Edit [FBCNH VENDOR ENTER/EDIT] Display,Enter,Edit Demographics [FBAA VENDOR DEMOGRAPHICS] 08. ADD LOCK TO AN INTERACTIVE FPPS TRANSMIT DATA The Transmit Invoices to FPPS [FB FPPS TRANSMIT] option is modified by this patch to require the user to hold the FBAA LEVEL 2 security key when the option is run interactively from the menu. The patch does not make any changes to the option when it is run as a scheduled task (non-interactively). 09. LIST OF PENDING 7078S MODIFIED TO CONSIDER DIFFERENT SECURITY KEY The following menu option only shows pending 7078s entered by the user unless the FBAASUPERVISOR key is held: This option is changed to check if the user holds the FBAA LEVEL 2 security key rather than the FBAASUPERVISOR security key. Civil Hospital Main Menu [FBCH MAIN MENU] 10. CREATE USER ACCESS REPORT This patch creates a new option called Security Key Report for Fee Basis [FB SEC KEY RPT]. This option is attached to the Supervisor Main Menu [FBAA SUPERVISOR OPTIONS] and it is locked by the FBAASUPERVISOR security key. The new option generates a report of users that hold Fee Basis security keys. An example is shown below: Select Supervisor Main Menu <TEST ACCOUNT> Option: SECurity Key Report for Fee Basis Should report include terminated users with keys? NO// Sort by Security Key or User: (S/U): SECURITY KEY Select Fee Basis Security Key: ALL// DEVICE: HOME// Security Key Report for Fee Basis OCT 17, 2014@11:01:28 page 1 by Security Key for all FB keys Name SSN Title ----------------------------------- ---- ----------------------------- Key: FB ARCH FEEUSER,FIRST 2709 COMPUTER SYSTEMS ANALYST Division(s): 500, 688 FEEUSER,SECOND 8420 Division(s): 500 Key: FBAA LEVEL 1 AUTH FEEUSER,FIRST 2709 COMPUTER SYSTEMS ANALYST Division(s): 500, 688 FEEUSER,THIRD 1234 COMPUTER SYSTEMS ANALYST Division(s): 500, 688 11. DISABLE SITE PARAMETER EDIT AUTH. DURING PAYMENT The site parameter EDIT AUTH. DURING PAYMENT allows selected authorization fields to be edited when some types of payments are entered. This site parameter is disabled by this patch and will no longer be asked when the site parameters are edited or have any effect on the software behavior. 12. PREVENT ENTRY OF PAYMENT OR PRICING IF USER ENTERED AUTHORIZATION This patch modifies the software to prevent a user from entering payment or pricing for a service if that user previously entered or edited the associated authorization for the service. Entry or edit of a civil hospital notification, community nursing home contract rate for a patient, community nursing home movement, or unauthorized claim is considered as a change to the associated authorization. The options used to enter or edit 'authorizations' are modified to keep track of users. The options used to process payments are modified to prevent the user who entered or edited the 'authorization' associated with the payment from proceeding. 13. NURSING HOME DAILY RATE CANNOT BE ENTERED DURING PAYMENT This patch modifies the Enter CNH Payment [FBCNH ENTER PAYMENT] option to no longer allow entry of missing daily rates. An update to the daily rate is considered an edit of the authorization and the person who processes the payment cannot edit the authorization per separation of duties. 14. DISPLAY USERS THAT ENTERED OR EDITED RECORDS This patch modifies the Clerk Look-Up For An Authorization report and adds three new reports to display the list of users who entered or edited an authorization or associated records. These options are locked by the FBAASUPERVISOR security key. Clerk Look-Up For An Authorization [FBAA CLERK LOOK-UP] This option will list users that entered or edited a specified authorization in the FEE BASIS PATIENT file. When applicable the output will also show users that entered or edited the civil hospital notification or unauthorized claims associated with the authorization. Clerk Lookup for 7078 Authorization [FBCH CLERK LOOKUP] This option will list users that entered or edited a specified 7078 authorization. Entry or edit of nursing home rate and movements are included in this output. When applicable the output will also show users that entered or edited the civil hospital notification associated with the authorization. Clerk Lookup for Notification/Request [FBCH REQUEST CLERK LOOKUP] This option will list users that entered or edited a specified notification/request. Clerk Lookup for Unauthorized Claim [FBUC CLERK LOOKUP] This option will list users that entered or edited a specified unauthorized claim. 15. PAYMENT REFERENCE TO AUTHORIZATION ISSUE There can be a problem with the association of an outpatient or inpatient ancillary payment to the appropriate authorization. The problem occurs when there are payments that should be associated with different authorizations, but those payments have the exact same patient, vendor, and date of service. This situation is common with home health services where there are separate authorizations for nursing and non-nursing services for a single patient and those services are provided to the patient by the same vendor on the same date. This problem can result in various errors including sending the wrong purpose of visit code when a payment batch is sent to Central FEE. The problem was originally reported on Remedy Ticket 726099. A fix for this issue was requested by new service request 20120609. This patch modifies the software to prevent the problem from occurring for new payments. Additionally, when the patch is installed a one-time job will examine existing payments and correct many or all of the existing inappropriate associations. Patch Components: ----------------- Files & Fields Associated: File Name (Number) Field Name (Number) New/Modified/Deleted ------------------ ------------------- -------------------- FEE BASIS PATIENT (#161) AUTHORIZATION (#161.01) USER AUDIT (#292) New FEE BASIS SITE *EDIT AUTH. DURING Modified PARAMETERS (#161.4) PAYMENT (#19) FEE BASIS PAYMENT (#162) INITIAL TREATMENT DATE *AUTHORIZATION Modified (#162.02) POINTER (#3) SERVICE PROVIDED AUTHORIZATION New (#162.03) POINTER (#15.5) AMOUNT PAID (#2) Modified TRAVEL PAYMENT DATE AUTHORIZATION New (#162.04) POINTER (#15) FEE NOTIFICATION/REQUEST USER AUDIT (#292) New (#162.2) VA FORM 10-7078 (#162.4) USER AUDIT (#292) New FEE BASIS UNAUTHORIZED USER AUDIT (#292) New CLAIMS (#162.7) Forms Associated: N/A Mail Groups Associated: N/A Options Associated: Option Name Type New/Modified/Deleted ----------- ---- -------------------- FB FPPS PURGE run routine Modified FB SEC KEY RPT run routine New FB SEG DUTY RPT run routine Modified FBAA BATCH DELETE run routine Modified FBAA BATCH EDIT run routine Modified FBAA BATCH MENU menu USE AS LINK FBAA CALCULATE SCHEDULE run routine Modified FBAA CANCEL MEDICAL VOID run routine Modified FBAA CANCEL PHARMACY VOID run routine Modified FBAA CLERK LOOK-UP run routine Modified FBAA CLOSE BATCH run routine Modified FBAA CLOSE OUT INVOICE run routine Modified FBAA COMPLETE PHARMACY INVOICE run routine Modified FBAA DELETE PAYMENT run routine Modified FBAA EDIT INVOICE STATUS edit Modified FBAA EDIT PAYMENT run routine Modified FBAA EDIT PHARMACY INVOICE run routine Modified FBAA EDIT SCHEDULE run routine Modified FBAA ENTER AUTHORIZATION run routine Modified FBAA ENTER PAYMENT run routine Modified FBAA ENTER PHARMACY INVOICE run routine Modified FBAA ENTER/EDIT LETTERS run routine Modified FBAA FINALIZE BATCH run routine ATTACH TO MENU FBAA FMS UPDATE run routine Modified FBAA FPPS EDIT INVOICE run routine Modified FBAA LIST CLOSED BATCHES run routine ATTACH TO MENU FBAA MEDICAL REIMBURSEMENT run routine Modified FBAA MEDICAL VOID PAYMENT run routine Modified FBAA MRA DELETE VENDOR run routine Modified FBAA MRA VENDOR REINSTATE run routine Modified FBAA MRA VETERAN ADD TYPE action Modified FBAA MRA VETERAN CHANGE TYPE action Modified FBAA MRA VETERAN DELETE TYPE action Modified FBAA MRA VETERAN REINSTATE action Modified FBAA MRA'S AWAITING APPROVAL run routine Modified FBAA MULTIPLE PAYMENT ENTRY run routine Modified FBAA OPEN BATCH run routine Modified FBAA OPEN PHARMACY BATCH action Modified FBAA PHARMACY BATCH OPTIONS menu USE AS LINK FBAA PHARMACY VOID PAYMENT run routine Modified FBAA PRINT 7079 GROUP run routine Modified FBAA QUEUE DATA FOR TRANS. run routine Modified FBAA REIMBURSEMENT PHARMACY action Modified FBAA REINITIATE REJECTS run routine Modified FBAA REOPEN BATCH run routine Modified FBAA SUPERVISOR OPTIONS menu MERGE MENU ITEMS FBAA SUPERVISOR RELEASE run routine Modified FBAA TERMINATE ID CARD run routine Modified FBAA TRAVEL ENTRY run routine Modified FBAA VENDOR MRA MAIN MENU menu Modified FBAA VETERAN MRA MAIN MENU menu Modified FBAA VOID PAYMENT MENU menu Modified FBAA VOUCHER DELETE REJECT run routine ATTACH TO MENU FBCH 7078 SETUP run routine Modified FBCH ANCILLARY PAYMENT run routine Modified FBCH ANCILLARY REIMBURSEMENT run routine Modified FBCH BATCH OPTIONS menu USE AS LINK FBCH CANCEL 7078 run routine Modified FBCH CLERK LOOKUP run routine New FBCH COMPLETE 7078 run routine Modified FBCH COMPLETE PAYMENT run routine Modified FBCH DELETE INVOICE run routine Modified FBCH DELETE REQUEST run routine Modified FBCH DELETE VOID run routine Modified FBCH EDIT 7078 run routine Modified FBCH EDIT ANCILLARY PAYMENT run routine Modified FBCH EDIT PAYMENT run routine Modified FBCH ENTER PAYMENT run routine Modified FBCH FPPS EDIT INVOICE run routine Modified FBCH LEGAL ENTITLEMENT run routine Modified FBCH MEDICAL ENTITLEMENT run routine Modified FBCH MULTIPLE PAYMENTS run routine Modified FBCH NOTIFICATION MENU menu USE AS LINK FBCH OPEN ANCILLARY BATCH run routine Modified FBCH OPEN BATCH run routine Modified FBCH OUTPUT MENU menu USE AS LINK FBCH PRICER RELEASE run routine Modified FBCH PRINT CANCELLED 7078 print Modified FBCH REIMBURSEMENT INVOICE run routine Modified FBCH REINITIATE PRICER REJECTS run routine Modified FBCH REOPEN REQUEST run routine Modified FBCH REQUEST CLERK LOOKUP run routine New FBCH VOID PAYMENT run routine Modified FBCNH ADMIT run routine Modified FBCNH CANCEL 7078 run routine Modified FBCNH DELETE ADMISSION run routine Modified FBCNH DELETE DISCHARGE run routine Modified FBCNH DELETE MOVEMENT MENU menu Modified FBCNH DELETE RATE run routine Modified FBCNH DELETE TRANSFER run routine Modified FBCNH DELETE VOID run routine Modified FBCNH DISCHARGE run routine Modified FBCNH EDIT ADMISSION run routine Modified FBCNH EDIT AUTHORIZATION run routine Modified FBCNH EDIT DISCHARGE run routine Modified FBCNH EDIT MOVEMENT menu Modified FBCNH EDIT PAYMENT action Modified FBCNH EDIT TRANSFER run routine Modified FBCNH ENTER AUTHORIZATION run routine Modified FBCNH ENTER PAYMENT run routine Modified FBCNH ENTER VETERAN RATES run routine Modified FBCNH ESTIMATE FUNDS action Modified FBCNH OPEN BATCH action Modified FBCNH OUTPUTS MAIN MENU menu USE AS LINK FBCNH POST COMMITMENTS run routine Modified FBCNH RATE CHANGE run routine Modified FBCNH TRANSFER run routine Modified FBCNH UPDATE VENDOR CONTRACT run routine Modified FBCNH VOID PAYMENT run routine Modified FBRX FPPS EDIT INVOICE run routine Modified FBSH CHANGE AUTH run routine Modified FBSH DELETE AUTH run routine Modified FBSH ENTER AUTH run routine Modified FBSH REINSTATE AUTH run routine Modified FBUC ADD NEW PERSON run routine Modified FBUC APPEAL EDIT run routine Modified FBUC ASSOCIATE run routine Modified FBUC BATCH PRINT LETTERS run routine Modified FBUC CLERK LOOKUP run routine New FBUC COVA APPEAL run routine Modified FBUC DISAPPROVAL REASONS FILE run routine Modified FBUC DISASSOCIATE run routine Modified FBUC DISPOSITION UNAUTH CLAIM run routine Modified FBUC DISPOSITIONS FILE run routine Modified FBUC ENTER run routine Modified FBUC INITIATE APPEAL run routine Modified FBUC LETTERS menu Modified FBUC MODIFY UNAUTHORIZED CLAIM run routine Modified FBUC OUTPUTS menu USE AS LINK FBUC PAYMENTS run routine Modified FBUC RECEIVE INFORMATION run routine Modified FBUC REOPEN run routine Modified FBUC REPRINT LETTER(S) run routine Modified FBUC REQUEST INFO FILE run routine Modified FBUC REQUEST INFORMATION run routine Modified FBUC RETURN ADDRESS DIS/ED run routine Modified FBUC UPDATE DATE LETTER SENT run routine Modified Protocols Associated: N/A Security Keys Associated: Security Key Name New/Modified/Deleted ----------------- -------------------- FBAA LEVEL 1 AUTH New FBAA LEVEL 1 PMT New FBAA LEVEL 2 New FBAASUPERVISOR Modified Templates Associated: Template Name Type File Name (Number) New/Modified/Deleted ------------- ---- ------------------ -------------------- FBAA SITE PARAMETERS Input FEE BASIS SITE Modified PARAMETERS (#161.4) Additional Information: N/A New Service Requests (NSRs): ---------------------------- 20090309 Emergency Patch VistA Fee - Separation of Duties - Assignment of Keys 20120609 PROBLEM WITH FEE BASIS PAYMENT FILE/POV ISSUE Patient Safety Issues (PSIs): ----------------------------- N/A Remedy Ticket(s) & Overview: ---------------------------- 1. REMEDY Ticket 833468 Problem: An undefined error occurs when a prescription is deleted from an existing pharmacy invoice using the Edit Pharmacy Invoice [Edit Pharmacy Invoice] option. Resolution: This patch modifies routine FBAAEPI to prevent the undefined error from occurring. 2. REMEDY Ticket 985307 Problem: The Re-initiate Rejected Payment Items [FBAA REINITIATE REJECTS] option contains a fault when it is used to re-initiate all items in an outpatient or ancillary inpatient (type B3) payment batch. The problem does not occur when the line items are individually re-initiated. The software attempts to track all payment lines (sorted by invoice) that are re-initiated into the new batch. If all the lines on an invoice are not moved into the new batch the re-initiated lines are assigned a different invoice number so an invoice is not spilt between two different payment batches. The problem is that the software does not determine the invoice number when a line is re-initiated. If the batch was previously displayed the invoice of the last displayed line item is inappropriately treated as the invoice of all the re-initiated line items. If the batch was not displayed the option abends with an undefined error for variable FBIN. Resolution: The problem is corrected by modifying routine FBAARR1 within line tag REJM so the invoice number of a line item is appropriately determined before it is referenced later in that section of code. Test Sites: ----------- CENTRAL PLAINS HCS TUCSON, AZ Documentation Retrieval Instructions: ------------------------------------- Updated documentation describing the new functionality introduced by this patch is available. The preferred method is to retrieve files from download.vista.domain.ext. This transmits the files from the first available server. Sites may also elect to retrieve files directly from a specific server. Sites may retrieve the documentation directly using Secure File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE directory at the following OI Field Offices: Albany: domain.ext Hines: domain.ext Salt Lake City: domain.ext Documentation can also be found on the VA Software Documentation Library at: http://www4.domain.ext/vdl/ Title File Name SFTP Mode ----------------------------------------------------------------------- Fee Basis User Manual FEE3_5_UM_R1016.PDF (binary) Fee Basis Technical Manual FEE3_5_TM_R1016.PDF (binary) Release Notes FB*3.5*154 FEE3_5_P154_RN.PDF (binary) Patch Installation: Pre/Post Installation Overview: ------------------------------- Before installing the patch, the FBAA LEVEL 1 AUTH, FBAA LEVEL 1 PMT, and FBAA LEVEL 2 security keys must be allocated to appropriate users. The patch contains a post install routine that automatically populates new fields for existing records. The post install routine creates entries in the new USER AUDIT multiple of the following files based on existing data: FEE BASIS PATIENT (#161) FEE NOTIFICATION/REQUEST (#162.2) VA FORM 10-7078 (#162.4) FEE BASIS UNAUTHORIZED CLAIM (#162.7) The post install populates the new AUTHORIZATION POINTER field in the SERVICE PROVIDED multiple of the FEE BASIS PAYMENT (#162) file based on existing data. After the patch is installed the FBAASUPERVISOR security key must be de-allocated from user accounts that no longer require that key. Use default answers for KIDS load/install questions. Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Fee+Basis/Patches/FB_3.5_154
shabiel · May 13, 2017 · 28b9e64 · 28b9e64
1 parent e81799c
commit 28b9e64
Show file tree

Hide file tree

Showing 91 changed files with 3,497 additions and 816 deletions.
diff --git a/Packages/Fee Basis/Routines/FBAAAUT.m b/Packages/Fee Basis/Routines/FBAAAUT.m
@@ -1,6 +1,6 @@
-FBAAAUT ;AISC/DMK - ENTER/EDIT AUTHORIZATION ; 8/28/09 12:35pm
- ;;3.5;FEE BASIS;**13,95,103,111**;JAN 30, 1995;Build 17
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+FBAAAUT ;AISC/DMK - ENTER/EDIT AUTHORIZATION ;2/5/2015
+ ;;3.5;FEE BASIS;**13,95,103,111,154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
  D SITEP^FBAAUTL G Q:FBPOP S FBAADDYS=+$P(FBSITE(0),"^",13),FBAAASKV=$P(FBSITE(1),"^",1),FBPROG=$S($P(FBSITE(1),"^",6)="":"I 1",1:"I $P(^(0),U,3)=2")
  W ! S DIC="^DPT(",DIC(0)="QEAZM" D ^DIC G Q:Y<0 S DFN=+Y
  I $P($G(^DPT(DFN,.361)),"^")="" W !!,"ELIGIBILITY HAS NOT BEEN DETERMINED NOR PENDING, CANNOT ENTER AN AUTHORIZATION." G FBAAAUT
@@ -13,7 +13,14 @@
  S:'$D(^FBAAA(DFN,1,0)) ^(0)="^161.01D^^"
  D ^FBAADEM K DIRUT,DIROUT,DTOUT,DUOUT
 2 W ! S (HID,NID,FBAAP79,FBANEW)="",DA=DFN,DIE="^FBAAA(",DIE("NO^")="",DR="[FBAA AUTHORIZATION]" D ^DIE I $D(FBD1) S FBANEW=$G(^FBAAA(DFN,1,FBD1,0))
- D:'$D(Y)&(HID'="")&(HID'=NID) TRIG K HID,NID,NIDR,TIME G FBAAAUT:FBANEW']"" S X=FBANEW,K=FBD1,J=DT
+ D:'$D(Y)&(HID'="")&(HID'=NID) TRIG K HID,NID,NIDR,TIME
+ G FBAAAUT:FBANEW']""
+ D
+ . N FBX,FBTXT
+ . S FBTXT=$S($P($G(FBAOLD),"^",2)="":"Entered",1:"Edited")_" authorization."
+ . S FBX=$$ADDUA^FBUTL9(161.01,FBD1_","_DFN_",",FBTXT)
+ . I 'FBX W !,"Error adding record in User Audit. Please contact IRM."
+ S X=FBANEW,K=FBD1,J=DT
  I FBAAP79="Y" S $P(^FBAAA(DFN,1,FBD1,1),"^",2)="",FBDFN=DFN D CHEKP79 S DFN=FBDFN
  I $D(FBAOLD),FBAOLD'=FBANEW,$D(FBAALT),FBAALT="Y" S FBTTYPE="A",FBMST=$S($P(FBANEW,"^",13)=1:"Y",1:""),FBFDC=$S($P(FBAOLD,"^")'=$P(FBANEW,"^"):1,1:"") D MORE
  I '$D(^FBAAC(DFN,0)) K DD,DO S (X,DINUM)=DFN,DIC(0)="L",DLAYGO=162,DIC="^FBAAC(" D FILE^DICN K DIC,DLAYGO

diff --git a/Packages/Fee Basis/Routines/FBAABDL.m b/Packages/Fee Basis/Routines/FBAABDL.m
@@ -1,13 +1,13 @@
-FBAABDL ;AISC/DMK - DELETE A BATCH ;4/4/2012
- ;;3.5;FEE BASIS;**132**;JAN 30, 1995;Build 17
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+FBAABDL ;AISC/DMK - DELETE A BATCH ;7/14/14  12:07
+ ;;3.5;FEE BASIS;**132,154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
  ;This routine allows the deletion of a batch that has no line
  ;items associated with it.  Access is restricted to the user
- ;who opened the batch or the holder of the 'FBAASUPERVISOR'
+ ;who opened the batch or the holder of the 'FBAA LEVEL 2'
  ;security key.
 BT ;select batch
  S FBNO=1
- W ! S DIC="^FBAA(161.7,",DIC(0)="AEQZ",DIC("S")=$S($D(^XUSEC("FBAASUPERVISOR",DUZ)):"",1:"I $P(^(0),U,5)=DUZ")
+ W ! S DIC="^FBAA(161.7,",DIC(0)="AEQZ",DIC("S")=$S($D(^XUSEC("FBAA LEVEL 2",DUZ)):"",1:"I $P(^(0),U,5)=DUZ")
  D ^DIC K DIC G END:X=""!(X="^") G BT:Y<0 S FBBAT=+Y,FBBAT(0)=Y(0)
  ;
  I $$GET1^DIQ(161.7,FBBAT_",",25,"I")=1 W !!,"Batch cannot be deleted because:",!?5,$P($T(NOGO+6),";;",2) S FBNO=0 D END G BT

diff --git a/Packages/Fee Basis/Routines/FBAABET.m b/Packages/Fee Basis/Routines/FBAABET.m
@@ -1,7 +1,7 @@
-FBAABET ;AISC/ EDIT BATCH ;09AUG85
- ;;3.5;FEE BASIS;;JAN 30, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
-RD W !! S DIC="^FBAA(161.7,",DIC(0)="AEQZ",DIC("S")=$S($D(^XUSEC("FBAASUPERVISOR",DUZ)):"I $G(^(""ST""))=""O""",1:"I $P(^(0),U,5)=DUZ&($G(^(""ST""))=""O"")") D ^DIC K DIC G END:X="^"!(X=""),RD:Y<0 S FBDA=+Y,FBDA(0)=Y(0)
+FBAABET ;AISC/UNK - EDIT BATCH ;7/9/14  15:48
+ ;;3.5;FEE BASIS;**154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
+RD W !! S DIC="^FBAA(161.7,",DIC(0)="AEQZ",DIC("S")=$S($D(^XUSEC("FBAA LEVEL 2",DUZ)):"I $G(^(""ST""))=""O""",1:"I $P(^(0),U,5)=DUZ&($G(^(""ST""))=""O"")") D ^DIC K DIC G END:X="^"!(X=""),RD:Y<0 S FBDA=+Y,FBDA(0)=Y(0)
  S FBON=$P(FBDA(0),U,2),PRC("SITE")=$P(FBDA(0),U,8),FBTYPE=$P(FBDA(0),U,3)
  ;
 OB W !,"Obligation Number:  ",FBON,"//"

diff --git a/Packages/Fee Basis/Routines/FBAACCB.m b/Packages/Fee Basis/Routines/FBAACCB.m
@@ -1,8 +1,8 @@
-FBAACCB ;AISC/GRR-CLERK CLOSE BATCH ; 11/24/10 1:32pm
- ;;3.5;FEE BASIS;**4,61,77,116**;JAN 30, 1995;Build 30
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
+FBAACCB ;AISC/GRR - CLERK CLOSE BATCH ;7/9/14  16:16
+ ;;3.5;FEE BASIS;**4,61,77,116,154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
  K QQ D DT^DICRW
-BT W !! S DIC="^FBAA(161.7,",DIC(0)="AEQ",DIC("S")=$S($D(^XUSEC("FBAASUPERVISOR",DUZ)):"I $G(^(""ST""))=""O""",1:"I $P(^(0),U,5)=DUZ&($G(^(""ST""))=""O"")") D ^DIC K DIC("S")
+BT W !! S DIC="^FBAA(161.7,",DIC(0)="AEQ",DIC("S")=$S($D(^XUSEC("FBAA LEVEL 2",DUZ)):"I $G(^(""ST""))=""O""",1:"I $P(^(0),U,5)=DUZ&($G(^(""ST""))=""O"")") D ^DIC K DIC("S")
  G Q^FBAACCB0:X="^"!(X=""),BT:Y<0 S B=+Y,FZ=^FBAA(161.7,B,0),FBTYPE=$P(FZ,"^",3)
  I FBTYPE="B3",'$D(^FBAAC("AC",B)) W !!,*7,"No payments in Batch yet!",! G BT
  I FBTYPE="B2",'$D(^FBAAC("AD",B)) W !!,*7,"No Payments in Batch yet!",! G BT

diff --git a/Packages/Fee Basis/Routines/FBAACIE.m b/Packages/Fee Basis/Routines/FBAACIE.m
@@ -1,6 +1,6 @@
-FBAACIE ;AISC/GRR-COMPLETE PHARMACY INVOICE ;4/21/2004
- ;;3.5;FEE BASIS;**38,61,91**;JAN 30, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
+FBAACIE ;AISC/GRR - COMPLETE PHARMACY INVOICE ;1/22/2015
+ ;;3.5;FEE BASIS;**38,61,91,154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
  D DT^DICRW,HOME^%ZIS I '$D(^FBAA(162.1,"AC",2)) W !!,*7,"There are no Invoices Pending completion!",!! Q
  D SITEP^FBAAUTL I FBPOP W !,*7,"Fee Site Parameters must be Initialized!" K FBPOP Q
  S FBAAOUT=1,FBMDF=$P(FBSITE(0),"^",10),UL="",$P(UL,"=",79)="="
@@ -11,7 +11,7 @@
  I $D(^FBAA(162.1,"AC",3,FBIN)) W !!,"Invoice is Complete",?30,"Totals: $ "_$J(FBINTOT,1,2)
  G RINV
 END K FBAAOUT,FBIN,FBRX,FBSITE,FBDATEF,FBDRUG,FBPATN,FBPID,FBVNAME,FBVID,FBAC,FBAAPR,DA,X,Y,D0,D1,DI,DIC,DIE,DIRUT,DIV,DQ,DR,FBAP,FBGEN,FBGENSUB,FBINTOT,FBMDF,FBQTY,FBRBC,FBSTR,FBVEN,S,UL,ULL,POP,J,DFN,Z,ZZ,FBSW,FBPOP,FB1725
- K FBADJ,FBFPPSC,FBFPPSL,FBRRMK,DTOUT
+ K FBADJ,FBFPPSC,FBFPPSL,FBRRMK,DTOUT,FBX,FTP
  Q
 GOT S FBDRUG=$P(Y(0),"^",2)
  S FBGENSUB=$$GET1^DIQ(162.11,J_","_FBIN_",",8.5)
@@ -25,6 +25,7 @@
  ; set FB1725 flag = true if payment for a 38 U.S.C. 1725 claim
  S Y(2)=$G(^FBAA(162.1,FBIN,"RX",J,2))
  S FB1725=$S($P(Y(2),U,6)["FB583":+$P($G(^FB583(+$P(Y(2),U,6),0)),U,28),1:0)
+ S FTP=$P(Y(2),U,7)
  W @IOF,"Vendor: ",FBVNAME,"   Vendor ID: ",FBVID
  W !!,"Patient: ",FBPATN,"   Patient ID: ",FBPID
  W !,"FPPS Claim ID: ",$S(FBFPPSC="":"N/A",1:FBFPPSC)
@@ -33,18 +34,20 @@ S Y(2)=$G(^FBAA(162.1,FBIN,"RX",J,2))
  W !,FBDRUG,?34,FBRX,?43,FBSTR,?54,FBQTY,?63,FBAC
  I FBGENSUB]"" W !!,?4,"Generic Drug Issued: ",FBGENSUB,?30,"Generic Drug Name: ",$E(FBGEN,1,30)
  W:FBAAPR]"" !!,?5,"Pharmacy Remarks: ",FBAAPR
+ I '$$UOKPAY^FBUTL9(DFN,FTP) D  Q
+ . W !!,"You cannot process a payment associated with authorization ",DFN,"-",FTP
+ . W !,"due to separation of duties."
+ . S DIR(0)="E",DIR("A")="Press RETURN to continue" D ^DIR K DIR
 FEE S DIR(0)="161.4,9",DIR("B")=FBMDF,DIR("?")="Hit Return to accept default dispensing fee or enter a dollar amount between .01 and 20" D ^DIR K DIR Q:$D(DIRUT)
  W:FB1725 !?2,"**Payment is for emergency treatment under 38 U.S.C. 1725."
  W !! S FBMDF=+Y K FBAP
  S DA(1)=FBIN,DIE="^FBAA(162.1,"_FBIN_",""RX"",",DA=J,DIC=DIE,DR="5;S FBRBC=X;6.5//^S X=$S(FBRBC+FBMDF>FBAC:FBAC,1:FBRBC+FBMDF);S FBAP=X"
  S DR(1,162.11,1)="I FBAP>FBAC S $P(^FBAA(162.1,DA(1),""RX"",DA,0),U,16)="""" W !,*7,""Amount Paid cannot be greater than the Amount Claimed"" S Y=6.5"
- ;S DR(1,162.11,2)="S:(FBAC-FBAP)'>0 Y=8;6///^S X=FBAC-FBAP;Q;6R;7R;S:X'=4 Y=8;20;8////^S X=3"
  S DR(1,162.11,2)="S FBX=$$ADJ^FBUTL2(FBAC-FBAP,.FBADJ,2,,,1)"
  S DR(1,162.11,3)="S FBX=$$RR^FBUTL4(.FBRRMK,2);8////^S X=3"
- D ^DIE K DIE Q:$D(Y)'=0
+ D ^DIE K DIE Q:($D(Y)'=0)!$D(DTOUT)
  S:$D(FBAP) FBINTOT=FBINTOT+FBAP
  S $P(^FBAA(162.1,FBIN,0),"^",7)=FBINTOT
- G:$D(DTOUT) H^XUS
  ; file adjustments
  D FILEADJ^FBRXFA(DA_","_FBIN_",",.FBADJ)
  ; file remittance remarks

diff --git a/Packages/Fee Basis/Routines/FBAACLU.m b/Packages/Fee Basis/Routines/FBAACLU.m
@@ -1,10 +1,180 @@
-FBAACLU ;AISC/DMK-CLERK WHO ENTERED AUTHORIZATION ;01JAN89
- ;;3.5;FEE BASIS;;JAN 30, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- I '$D(^XUSEC("FBAASUPERVISOR",DUZ)) W !!,*7,"This option is restricted to holders of the 'FBAASUPERVISOR' security key.",! G END
-ASKVET S DIC="^FBAAA(",DIC(0)="AEQM" D ^DIC G END:X="^"!(X=""),ASKVET:Y<0 S DA=+Y
- S:'$D(^FBAAA(DA,1,0)) ^(0)="^161.01D^^"
- W ! S DIC="^FBAAA("_DA_",1,",DIC(0)="AEQM" D ^DIC G ASKVET:X="^"!(X="")!(Y<0) S FBAUTH=+Y
- S FBDUZ=$S('$D(^FBAAA(DA,1,FBAUTH,0)):"UNKNOWN",'$D(^FBAAA(DA,1,FBAUTH,100)):"UNKNOWN",1:$P(^FBAAA(DA,1,FBAUTH,100),"^")),FBUSER=$S($D(^VA(200,FBDUZ,0)):$P(^(0),"^",1),1:"UNKNOWN")
- W !!,"The last user to enter/edit this Authorization was "_FBUSER_".",! G ASKVET
-END K DA,DIC,FBAUTH,FBDUZ,FBUSER,X,Y Q
+FBAACLU ;AISC/DMK,WOIFO/SAB - CLERK WHO ENTERED AUTHORIZATION ;12/8/2014
+ ;;3.5;FEE BASIS;**154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
+ ;
+ ; inputs
+ ;   FBFILE - (required) file/sub-file # from menu option entry action
+ ;
+ ; check for required input
+ Q:"^161.01^162.2^162.4^162.7^"'[("^"_$G(FBFILE)_"^")
+ ;
+ N D,FBDA,POP,%ZIS
+ ;
+ ; ask record in file
+ I FBFILE=161.01 D
+ . S DIC="^FBAAA(",DIC(0)="AEQM"
+ . D ^DIC K DIC Q:Y<0  S FBDA(1)=+Y
+ . S DIC="^FBAAA("_FBDA(1)_",1,",DIC(0)="AEQM"
+ . D ^DIC K DIC Q:Y<0  S FBDA=+Y
+ I FBFILE=162.2 D
+ . S DIC="^FBAA(162.2,",DIC(0)="AQEM"
+ . D ^DIC K DIC Q:Y<0  S FBDA=+Y
+ I FBFILE=162.4 D
+ . S DIC="^FB7078(",DIC(0)="AQEM",DIC("A")="Select Patient: ",D="D"
+ . D IX^DIC K DIC Q:Y<0  S FBDA=+Y
+ I FBFILE=162.7 D
+ . N FBARY,FBI,FBOUT
+ . D LOOKUP^FBUCUTL3(0)
+ . I 'FBOUT D
+ . . S FBI=$O(^TMP("FBARY",$J,0))
+ . . S:FBI FBDA=$P($G(^TMP("FBARY",$J,FBI)),";",1)
+ . K ^TMP("FBARY",$J)
+ I '$G(FBDA) G EXIT
+ ;
+ ; ask device
+ S %ZIS="Q" D ^%ZIS G:POP EXIT
+ I $D(IO("Q")) D  G EXIT
+ . N FBX
+ . N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC,ZTSK
+ . S ZTRTN="QEN^FBAACLU",ZTDESC="Fee Clerk Lookup"
+ . F FBX="FBFILE","FBDA*" S ZTSAVE(FBX)=""
+ . D ^%ZTLOAD,HOME^%ZIS
+ ;
+QEN ; queued entry point
+ ; inputs from Taskman
+ ;   ZTQUEUED - (optional) set by TaskMan to indicate report is tasked
+ ; outputs to Taskman
+ ;   ZTREQ - set when report is tasked
+ ;   ZTSTOP - set when report is tasked and job was stopped per request
+ ;
+ N %
+ ;
+ U IO
+ ;
+ S (FBQUIT,FBPG)=0 D NOW^%DTC S Y=% D DD^%DT S FBDTR=Y
+ K FBDL
+ S FBDL="",$P(FBDL,"-",80)=""
+ S FBDL("ED")="    "_$E(FBDL,1,21)_"  "_$E(FBDL,1,35)
+ ;
+ ; build page header text
+ I FBFILE=161.01 S FBHD="Clerk Lookup for an authorization"
+ I FBFILE=162.2 S FBHD="Clerk Lookup for a CH notification"
+ I FBFILE=162.4 S FBHD="Clerk Lookup for a 7078 authorization"
+ I FBFILE=162.7 S FBHD="Clerk Lookup for an unauthorized claim"
+ ;
+ ; determine which files to display
+ F FBX=161.01,162.2,162.4,162.7 S FBSHOW(FBX)=0 ; init FBSHOW(
+ S FBSHOW(FBFILE)=FBDA ; always show input file
+ I FBFILE=161.01 D
+ . S FBX=$P($G(^FBAAA(FBDA(1),1,FBDA,0)),U,9) ; ASSOC 7078/583
+ . I FBX["FB7078" S FBSHOW(162.4)=+FBX
+ . I FBX["FB583" S FBSHOW(162.7)=+FBX
+ I FBSHOW(162.4) D
+ . S FBX=$O(^FBAA(162.2,"AM",FBSHOW(162.4),0))
+ . I FBX S FBSHOW(162.2)=FBX
+ ;
+ ; display output
+ D HD
+ ;
+ ; show information for authorization
+ I 'FBQUIT,FBSHOW(161.01) D
+ . N FBDATA
+ . ; skip if no user audit data and either 7078 or unauthorized claim
+ . ;   (very similar information) will be shown later
+ . S FBDATA=$O(^FBAAA(FBDA(1),1,FBDA,"LOG1",0))
+ . I 'FBDATA,FBSHOW(162.4)!FBSHOW(162.7) Q
+ . ;
+ . S FBIENS=FBDA_","_FBDA(1)_","
+ . I $Y+6>IOSL D HD Q:FBQUIT
+ . W !!,"Authorization"
+ . W !,"Veteran: ",$$GET1^DIQ(161,FBDA(1)_",",.01)
+ . W ?40,"Vendor: ",$$GET1^DIQ(161.01,FBIENS,.04)
+ . W !,"Authorization Number: ",FBDA(1),"-",FBDA
+ . W !,"Authorized From Date: ",$$GET1^DIQ(161.01,FBIENS,.01)
+ . W ?40,"Authorized To Date: ",$$GET1^DIQ(161.01,FBIENS,.02)
+ . D DUA("^FBAAA("_FBDA(1)_",1,"_FBDA_",""LOG1"",")
+ ;
+ ; show information for 10-7078 authorization
+ I 'FBQUIT,FBSHOW(162.4) D
+ . N FBVEN
+ . S FBIENS=FBSHOW(162.4)_","
+ . I $Y+6>IOSL D HD Q:FBQUIT
+ . W !!,"10-7078 Authorization"
+ . W !,"Veteran: ",$$GET1^DIQ(162.4,FBIENS,2)
+ . S FBVEN=+$P($G(^FB7078(FBSHOW(162.4),0)),"^",2)
+ . W ?40,"Vendor: ",$$GET1^DIQ(161.2,FBVEN_",",.01)
+ . W !,"Reference Number: ",$$GET1^DIQ(162.4,FBIENS,.01)
+ . W ?40,"Fee Program: ",$$GET1^DIQ(162.4,FBIENS,.5)
+ . W !,"Authorized From Date: ",$$GET1^DIQ(162.4,FBIENS,3)
+ . W ?40,"Authorized To Date: ",$$GET1^DIQ(162.4,FBIENS,4)
+ . D DUA("^FB7078("_FBSHOW(162.4)_",""LOG1"",")
+ ;
+ ; show information for civil hospital notification
+ I 'FBQUIT,FBSHOW(162.2) D
+ . S FBIENS=FBSHOW(162.2)_","
+ . I $Y+6>IOSL D HD Q:FBQUIT
+ . W !!,"CH Notification"
+ . W !,"Date/Time: ",$$GET1^DIQ(162.2,FBIENS,.01)
+ . W !,"Veteran: ",$$GET1^DIQ(162.2,FBIENS,3)
+ . W ?40,"Vendor: ",$$GET1^DIQ(162.2,FBIENS,1)
+ . D DUA("^FBAA(162.2,"_FBSHOW(162.2)_",""LOG1"",")
+ ;
+ ; show information for unauthorized claim
+ I 'FBQUIT,FBSHOW(162.7) D
+ . S FBIENS=FBSHOW(162.7)_","
+ . I $Y+6>IOSL D HD Q:FBQUIT
+ . W !!,"Unauthorized Claim"
+ . W !,"Veteran: ",$$GET1^DIQ(162.7,FBIENS,2)
+ . W ?40,"Vendor: ",$$GET1^DIQ(162.7,FBIENS,1)
+ . W !,"Date Claim Received: ",$$GET1^DIQ(162.7,FBIENS,.01)
+ . W ?40,"Fee Program: ",$$GET1^DIQ(162.7,FBIENS,.5)
+ . W !,"Treatment From Date: ",$$GET1^DIQ(162.7,FBIENS,3)
+ . W ?40,"Treatment To Date: ",$$GET1^DIQ(162.7,FBIENS,4)
+ . D DUA("^FB583("_FBSHOW(162.7)_",""LOG1"",")
+ ;
+ I 'FBQUIT,$E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
+ D ^%ZISC
+ ;
+EXIT ;
+ I $D(ZTQUEUED) S ZTREQ="@"
+ K FBDA,FBDL,FBDT,FBDTR,FBHD,FBIENS,FBPG,FBSHOW,FBQUIT,FBX
+ K DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
+ Q
+ ;
+HD ; page header
+ N FBI
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1,FBQUIT=1 Q
+ I $E(IOST,1,2)="C-",FBPG S DIR(0)="E" D ^DIR K DIR I 'Y S FBQUIT=1 Q
+ I $E(IOST,1,2)="C-"!FBPG W @IOF
+ S FBPG=FBPG+1
+ W FBHD,?49,FBDTR,?72,"page ",FBPG
+ W !,FBDL
+ Q
+ ;
+HDEDT(FBCONT) ; header for edited table
+ ; input
+ ;   FBCONT (optional) =1 when table continued after page break
+ W !!,?4,"Date/Time Edited",?27,"Edited By"
+ W:$G(FBCONT) " (continued)"
+ W !,FBDL("ED")
+ Q
+ ;
+DUA(FBROOT) ; display the user audit for a record in one of the supported files
+ N FBC,FBDT,FBI,FBTXT,FBUSR,FBY0
+ I $Y+6>IOSL D HD Q:FBQUIT
+ D HDEDT(0)
+ S (FBC,FBI)=0 F  S FBI=$O(@(FBROOT_FBI_")")) Q:'FBI  D  Q:FBQUIT
+ . S FBC=FBC+1
+ . S FBY0=$G(@(FBROOT_FBI_",0)"))
+ . S FBDT=$P(FBY0,"^")
+ . S FBUSR=$P(FBY0,"^",2)
+ . S FBTXT=$P(FBY0,"^",3)
+ . I $Y+4>IOSL D HD Q:FBQUIT  D HDEDT(1)
+ . W !
+ . W ?4,$S(FBDT:$$FMTE^XLFDT(FBDT),1:"")
+ . W ?27,$S(FBUSR:$$GET1^DIQ(200,FBUSR,.01),1:"")
+ . I FBTXT]"" W !,?6,"Comments: ",FBTXT
+ I FBC=0 W !,?4,"No information found in user audit"
+ Q
+ ;
+ ;FBAACLU
diff --git a/Packages/Fee Basis/Routines/FBAACO.m b/Packages/Fee Basis/Routines/FBAACO.m
@@ -1,15 +1,17 @@
-FBAACO ;AISC/GRR - ENTER MEDICAL PAYMENT ;7/13/2003
- ;;3.5;FEE BASIS;**4,61,79,116,122,133,108,135,123**;JAN 30, 1995;Build 51
+FBAACO ;AISC/GRR - ENTER MEDICAL PAYMENT ;9/25/2014
+ ;;3.5;FEE BASIS;**4,61,79,116,122,133,108,135,123,154**;JAN 30, 1995;Build 12
  ;;Per VA Directive 6402, this routine should not be modified.
 EN583 ;driver for opt payments (entry point for uc)
  K FBAAOUT,FBPOP
  D SITE G Q:$G(FBPOP) D BT G Q:$G(FBAAOUT)
 1 K FBAAID,FBAAVID,FBAAOUT,FBDL,FBAAMM D SITE G Q:$G(FBPOP) S FBINTOT=0 W !!
  I '$D(FB583) K FBDL,FBAR D GETVET^FBAAUTL1 G EN583:'DFN K FBAAOUT,FBDMRA D GETAUTH^FBAAUTL1 G 1:FTP']""
+ I '$$UOKPAY^FBUTL9(DFN,FTP) D  G 1
+ . W !!,"You cannot process a payment associated with authorization ",DFN,"-",FTP
+ . W !,"due to separation of duties."
  K FBAAOUT
  I $G(FBCHCO) S FB7078=$S($G(FB7078):FB7078_";FB7078(",$D(FB583):FB583_";FB583(",1:"")
  D:FBAAPTC="R" ^FBAACO0
- D ^FBAAEAR:$P(FBSITE(1),"^",4)="Y"
  D PAT,GETVEN1^FBAACO1:$D(FB583),GETVEN^FBAACO1:'$D(FB583) I $G(FBAAOUT) G Q:$D(FB583),1
  W !! D FILEV^FBAACO5(DFN,FBV) I $G(FBAAOUT) G Q:$D(FB583),1
  ;check for payments against all linked vendors
@@ -71,7 +73,7 @@ S DIR(0)="Y",DIR("A")="Want to edit it",DIR("B")="No" D ^DIR K DIR G Q:$D(DIRUT)
  Q
  ;
 BT ;select batch
- S DIC="^FBAA(161.7,",DIC(0)="AEQM",DIC("S")="I $P(^(0),U,3)=""B3""&($G(^(""ST""))=""O"")&(($P(^(0),U,5)=DUZ)!($D(^XUSEC(""FBAASUPERVISOR"",DUZ))))",DIC("W")="W !,""  Obligation #: "",$P(^(0),U,2)" W !! D ^DIC K DIC I X["^"!(X="") S FBAAOUT=1 Q
+ S DIC="^FBAA(161.7,",DIC(0)="AEQM",DIC("S")="I $P(^(0),U,3)=""B3""&($G(^(""ST""))=""O"")&(($P(^(0),U,5)=DUZ)!($D(^XUSEC(""FBAA LEVEL 2"",DUZ))))",DIC("W")="W !,""  Obligation #: "",$P(^(0),U,2)" W !! D ^DIC K DIC I X["^"!(X="") S FBAAOUT=1 Q
  G BT:Y<0 S (DA,FBAABE)=+Y,Y(0)=^FBAA(161.7,DA,0)
  I $P(Y(0),"^",11)>(FBAAMPI-1) W !!,"This Batch already has the maximum number of Payments!" G BT
  S Z1=$P(Y(0),"^",11),FB7078="",BO=$P(^FBAA(161.7,DA,0),"^",2)

diff --git a/Packages/Fee Basis/Routines/FBAACO0.m b/Packages/Fee Basis/Routines/FBAACO0.m
@@ -1,5 +1,5 @@
-FBAACO0 ;AISC/GRR-DISPLAY PATIENT ADDRESS DATA AND EDIT ; 10/31/12 2:58pm
- ;;3.5;FEE BASIS;**4,38,52,57,61,75,70,143**;JAN 30, 1995;Build 20
+FBAACO0 ;AISC/GRR - DISPLAY PATIENT ADDRESS DATA AND EDIT ;10/16/14  15:39
+ ;;3.5;FEE BASIS;**4,38,52,57,61,75,70,143,154**;JAN 30, 1995;Build 12
  ;;Per VA Directive 6402, this routine should not be modified.
  S FBMST=$S(FBTT=1:"Y",1:""),FBTTYPE="A",FBFDC=""
  N FBEDPTAD S (FBEDPTAD(1),FBEDPTAD(2))=0
@@ -68,16 +68,13 @@ S FBEDPTAD(2)="N"
  . ;
  . W !
  ;
-AMTPD W !,"AMOUNT PAID: "_$S(FBAMTPD]"":FBAMTPD_"//",1:"") R X:DTIME S:X="" X=FBAMTPD G KILL:$E(X)="^",HELP1:$E(X)="?" S:X["$" X=$P(X,"$",2) I +X'=X&(X'?.N.1".".2N)!(+X<0) G HELPPD
- I FBAMTPD]"",X>FBAMTPD&('$D(^XUSEC("FBAASUPERVISOR",DUZ))) D  G AMTPD
- .W !!,*7,"You must be a holder of the 'FBAASUPERVISOR' key to",!,"exceed the Fee Schedule. Entering an up-arrow ('^') will",!,"delete the payment or you can accept the default.",!
+AMTPD W !,"AMOUNT PAID: "_$S(FBAMTPD]"":FBAMTPD_"//",1:"") R X:DTIME S:X="" X=FBAMTPD G KILL:$E(X)="^",HELPPD:$E(X,1,2)="??",HELP1:$E(X)="?" S X=$TR(X,"$") I +X'=X&(X'?.N.1".".2N)!(X>999999)!(X<0) G HELP1
  S FBAMTPD=X Q
 KILL W !!,*7,"Entering an '^' will delete this payment!" R !,?5,"Do you want to delete? No//",X:DTIME S:X="" X="N" D VALCK^FBAAUTL1 G KILL:'VAL,AMTPD:"Nn"[$E(X)
  S DIK="^FBAAC("_DA(3)_",1,"_DA(2)_",1,"_DA(1)_",1," D WAIT^DICD,^DIK W !,?3,"<DELETED>" K DA,J,K,DIC,DIK,FBAACP,FBAADT,FBX S Y=0,FBDL=1 Q
-HELP1 W !!,"Enter a dollar amount that does not exceed the amount claimed.",!,"Entering an '^' will delete the payment.",!
- I FBAMTPD>0 W !,"Only the holder of the 'FBAASUPERVISOR' key may exceed the",!,"Fee Schedule.",!
+HELP1 W !!,"Enter the amount to pay in dollars and cents between 0 and 999999.",!,"Entering an '^' will delete the payment.",!
  G AMTPD
-HELPPD W !!,*7,"Enter a dollar amount that does not exceed the amount claimed.",! G AMTPD
+HELPPD W !!,"The amount that the VA is going to pay for this service provided.",! G AMTPD
  Q
  ;print Confidential Communication address
  ;ADD^VADPT must be invoked before this call

diff --git a/Packages/Fee Basis/Routines/FBAACO1.m b/Packages/Fee Basis/Routines/FBAACO1.m
@@ -1,18 +1,20 @@
-FBAACO1 ;AISC/GRR - ENTER PAYMENT CONTINUED ;6/25/2009
- ;;3.5;FEE BASIS;**4,61,77,108,124**;JAN 30, 1995;Build 20
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+FBAACO1 ;AISC/GRR - ENTER PAYMENT CONTINUED ;5/12/2014
+ ;;3.5;FEE BASIS;**4,61,77,108,124,154**;JAN 30, 1995;Build 12
+ ;;Per VA Directive 6402, this routine should not be modified.
 SVCPR ;set up service provided multiple
+ ; input FBASSOC (auth ptr,0 if not known)
  I '$D(^FBAAC(DFN,1,FBV,1,FBSDI,1,0)) S ^FBAAC(DFN,1,FBV,1,FBSDI,1,0)="^162.03A^0^0"
  W ! S DLAYGO=162,DIC="^FBAAC("_DFN_",1,"_FBV_",1,"_FBSDI_",1,",DIC(0)=$S($G(FBCNP):"QL",1:"EQL"),X=""""_FBX_"""",DA(3)=DFN,DA(2)=FBV,DA(1)=FBSDI
  D
  . N ICPTVDT S ICPTVDT=$G(FBAADT) D ^DIC
  K DIC,DLAYGO,DA I Y<0 S FBAAOUT=1 Q
  S (FBAACPI,DA)=+Y
  ;
- ; update zip code and anesthesia time
+ ; update zip code, anesthesia time, and authorization pointer
  S DIE="^FBAAC("_DFN_",1,"_FBV_",1,"_FBSDI_",1,"
  K DA S DA(3)=DFN,DA(2)=FBV,DA(1)=FBSDI,DA=FBAACPI
  S DR="42////^S X=$G(FBZIP);43////^S X=$G(FBTIME)"
+ S:$G(FBASSOC)>0 DR=DR_";15.5////^S X=FBASSOC"
  D ^DIE K DIE,DA,DR
  ;
  ; create CPT MODIFIER entries from data in array FBMODA