Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Fee Basis 7 CKINVEDI^FBAAEPI1  $$IPACEDIT^FBAAPET1  (FILEADJ,LOADADJ)^FBRXFA  (FILERR,LOADRR)^FBRXFR  $$ADJL^FBUTL2  $$RRL^FBUTL4  $$UOKPAY^FBUTL9  
VA FileMan 2 ^DIC  (,FILE)^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Fee Basis 3 FBAA EDIT PHARMACY INVOICE  FBAAPET1  FBAAPIP  

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

External References

Name Field # of Occurrence
^DIC RD, RD+15
^DIE RD+12, RD+47, DELIPAC+6, SAVEIPAC+9
FILE^DIE DELIPAC+5, SAVEIPAC+7
CKINVEDI^FBAAEPI1 RD+14
$$IPACEDIT^FBAAPET1 RD+29
FILEADJ^FBRXFA RD+50
LOADADJ^FBRXFA RD+35
FILERR^FBRXFR RD+52
LOADRR^FBRXFR RD+39
$$ADJL^FBUTL2 RD+37, RD+50
$$RRL^FBUTL4 RD+41, RD+52
$$UOKPAY^FBUTL9 SODPINV+17

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
Routine Call
  • DIC
  • Line Location:
    • RD
    • RD+15
Routine Call
  • DIE
  • Line Location:
    • RD+12
    • RD+47
    • DELIPAC+6
    • SAVEIPAC+9
Routine Call
  • DIE
  • Line Location:
    • DELIPAC+5
    • SAVEIPAC+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(162.1 - [#162.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.7 - [#161.7] RD+20
^FBAA(162.1 - [#162.1] RD+9, RD+20, RD+33, LASTRXDT+4, LASTRXDT+5, LASTRXDT+6, GETIPAC+3, GETIPAC+4, GETIPAC+5, SODPINV+12
, SODPINV+13, SODPINV+15
^XUSEC("FBAA LEVEL 2" RD+21

Label References

Name Line Occurrences
$$SODPINV RD+4
END RD, RD+16, RD+26, RD+29, RD+48, RD+54
FBAAEPI RD+26, RD+29
LASTRXDT RD+10
RD RD, RD+4, RD+16, RD+48, RD+54

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D END!
DA RD+1*, RD+20*, RD+29, RD+33, RD+35, RD+39, RD+48, RD+50, RD+52, LASTRXDT+4
, LASTRXDT+5, LASTRXDT+6, END!, DELIPAC+2~, DELIPAC+6*, SAVEIPAC+2~, SAVEIPAC+9*
DA(1 RD+20*
DIC RD*, RD+1, RD+12!, RD+15*, END!, DELIPAC+2~, SAVEIPAC+2~
DIC("A" RD*
DIC("S" RD*!
DIC("W" RD+15*!
DIC(0 RD*, RD+15*
DIE RD+1*, RD+31*, END!, DELIPAC+2~, DELIPAC+6*, SAVEIPAC+2~, SAVEIPAC+9*
DR RD+11*, RD+42*, END!, DELIPAC+2~, DELIPAC+6*, SAVEIPAC+2~, SAVEIPAC+9*
DR(1 RD+43*, RD+44*, RD+45*, RD+46*
DUZ RD+21
FB1725 END!
FBA END!
FBADJ RD+35, RD+37, RD+50, END+1!
FBADJD END+1!
FBADJL END+1!
FBADJL(0 RD+37*, RD+50
FBDA RD+1*, RD+4, RD+9, RD+14, RD+20, RD+33, RD+35, RD+39, RD+50, RD+52
, END!, GETIPAC~, GETIPAC+5, DELIPAC~, DELIPAC+3, SAVEIPAC~, SAVEIPAC+4, SODPINV~, SODPINV+12, SODPINV+13
, SODPINV+15
FBDA(1 GETIPAC+3, GETIPAC+4, GETIPAC+5, DELIPAC+3, DELIPAC+6, SAVEIPAC+4, SAVEIPAC+9
FBDFN SODPINV+9~, SODPINV+13*, SODPINV+14, SODPINV+17
FBDODINV GETIPAC~, GETIPAC+5*, SAVEIPAC~, SAVEIPAC+6
FBFPPSC RD+9*, RD+14, END+1!
FBFPPSC(0 RD+9*, RD+14
FBFPPSL RD+33*, END+1!
FBFTP SODPINV+9~, SODPINV+15*, SODPINV+16, SODPINV+17
FBHAP END!
FBI SODPINV+9~, SODPINV+12*, SODPINV+13, SODPINV+15
FBIA GETIPAC~, GETIPAC+4*, SAVEIPAC~
FBIAFDA DELIPAC+2~, SAVEIPAC+2~
FBIAFDA( DELIPAC+4*, SAVEIPAC+6*
FBIENS DELIPAC+2~, DELIPAC+3*, DELIPAC+4, SAVEIPAC+2~, SAVEIPAC+4*, SAVEIPAC+6
FBJ RD+18*, END!
FBK RD+18*, END!
FBOUT RD+23*, RD+25*, RD+26, END!
FBRET SODPINV+9~, SODPINV+10*, SODPINV+12, SODPINV+17*, SODPINV+18
FBRRMK RD+39, RD+41, RD+52, END+1!
FBRRMKD END+1!
FBRRMKL END+1!
FBRRMKL(0 RD+41*, RD+52
FBSTAT RD+20*, RD+22, RD+24, END!
FBVEN GETIPAC~, GETIPAC+3*
I LASTRXDT+2~, LASTRXDT+4*, LASTRXDT+5, LASTRXDT+6
INVRCVDT BADDATE~, BADDATE+1
LASTRXDT LASTRXDT+3*, LASTRXDT+6*, BADDATE~, BADDATE+1, BADDATE+2, END+1!
RXDT LASTRXDT+5~*, LASTRXDT+6
RXNUM LASTRXDT+6*, BADDATE+3, END+1!
SHOWRXDT BADDATE+2~*, BADDATE+3
U RD+9, RD+20, RD+33, GETIPAC+3, GETIPAC+4, GETIPAC+5, SODPINV+13, SODPINV+15
WHICH SAVEIPAC~, SAVEIPAC+3*, SAVEIPAC+5, SAVEIPAC+8
X RD, END!
Y RD, RD+1, RD+16, RD+20, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All