Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FBAAEPI

Package: Fee Basis

Routine: FBAAEPI


Information

FBAAEPI ;AISC/GRR - EDIT PREVIOUSLY ENTERED PHARMACY INVOICE ;11/20/2014

Source Information

Source file <FBAAEPI.m>

Entry Points

Name Comments DBIA/ICR reference
RD
LASTRXDT ;Look up last RX FILL DATE in selected invoice, for use in validating Invoice Received Date if it is edited.
BADDATE(LASTRXDT,INVRCVDT) ;Reject entry if InvRcvDt is Prior to the last Rx Fill Date on the Invoice
END
GETIPAC(FBDA,FBVEN,FBIA,FBDODINV) ; Get vendor/IPAC data for Pharmacy (FB*3.5*123)
; All parameters required and assumed to exist
; Called by $$IPACEDIT^FBAAPET1
DELIPAC(FBDA) ; Delete all IPAC data on file for Pharmacy (FB*3.5*123)
; Called by $$IPACEDIT^FBAAPET1
SAVEIPAC(FBDA,FBIA,FBDODINV,WHICH) ; Store IPAC data into the database for Pharmacy (FB*3.5*123)
; Called by $$IPACEDIT^FBAAPET1
SODPINV(FBDA) ; check separation of duty for pharmacy invoice
; checks all prescriptions on invoice for separation of duty issue
; input
; FBDA (required) IEN of pharmacy invoice in file 162.1
; DUZ (current user)
; result
; = 0 if user did not enter or edit any associated authorization
; = 1 if user did enter or edit at least one associated authorization
; and thus should be prevented from processing the payment

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"You cannot process this payment due to separation of duties."
  • Line Location: RD+5
Function Call: WRITE
  • Prompt: !,"You previously entered/edited an associated authorization."
  • Line Location: RD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+17
Function Call: WRITE
  • Prompt: !,*7,"You cannot edit a payment once released by a supervisor.",!
  • Line Location: RD+23
Function Call: WRITE
  • Prompt: !,*7,"You cannot edit an invoice when the batch has been sent to Austin",!
  • Line Location: RD+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(162.1 - [#162.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call