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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBAAPIP

Package: Fee Basis

Routine: FBAAPIP


Information

FBAAPIP ;AISC/GRR - ESTABLISH BATCH FOR INVOICE AND CLOSE-OUT ;11/24/2014

Source Information

Source file <FBAAPIP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^DIC  WAIT^DICD  FILE^DICN  DT^DICRW  ^DIE  
Fee Basis 3 $$SODPINV^FBAAEPI  CALC^FBAAPIE1  GETNXB^FBAAUTL  

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: 1

Package Total Caller Graph
Fee Basis 1 FBAA CLOSE OUT INVOICE  

Entry Points

Name Comments DBIA/ICR reference
RD1
EN1 ;ENTRY FROM THE MAS CLOSE-OUT OPTION (FBAACIE)
BT
GO ; HIPAA 5010 - count line items that have 0.00 amount paid
Q
GOT
RSET
RSET2
NOTYOU
NOTPH
NOTOP
FULL
WARN
OUT
WRT
NEWBT ;OPEN NEW BATCH IF NEEDED TO CLOSEOUT INVOICE

External References

Name Field # of Occurrence
^DIC RD1, BT+1
WAIT^DICD EN1+6
FILE^DICN NEWBT+3
DT^DICRW FBAAPIP+3
^DIE GOT+2, RSET
$$SODPINV^FBAAEPI RD1+3
CALC^FBAAPIE1 RD1
GETNXB^FBAAUTL NEWBT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: RD1+0
Function Call: WRITE
  • Prompt: !!,"You cannot process this payment due to separation of duties."
  • Line Location: RD1+4
Function Call: WRITE
  • Prompt: !,"You previously entered/edited an associated authorization."
  • Line Location: RD1+5
Function Call: WRITE
  • Prompt: !!,*7,"Invoice must be greater than 0.00. Invoice cannot be closed out."
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: BT+0
Function Call: WRITE
  • Prompt: !!,"Invoice Closed out!!"
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !!,*7,"Batch selected established by another user, choose another."
  • Line Location: NOTYOU+0
Function Call: WRITE
  • Prompt: !!,*7,"Batch selected is NOT a Pharmacy type batch, choose another."
  • Line Location: NOTPH+0
Function Call: WRITE
  • Prompt: !!,*7,"Batch selected not in Open status, choose another."
  • Line Location: NOTOP+0
Function Call: WRITE
  • Prompt: !!,*7,"Batch has reached maximum allowable payment entries!",!,"Now openning another batch for you.",!
  • Line Location: FULL+0
Function Call: WRITE
  • Prompt: !!,*7,"That Batch already has maximum allowable payment items!"
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: !,?20,"Invoice Totals: $ "_$J(FBINTOT,1,2)
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWBT+1
Function Call: WRITE
  • Prompt: !!,*7,"New Batch to closeout invoice is: ",FBBN
  • Line Location: NEWBT+1
Routine Call
  • DIC
  • Line Location:
    • RD1
    • BT+1
Routine Call
  • DIE
  • Line Location:
    • GOT+2
    • RSET

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.4 - [#161.4] EN1+5
^FBAA(161.7 - [#161.7] BT+2, BT+3, RSET2*, NEWBT+3
^FBAA(162.1 - [#162.1] GO+2

Label References

Name Line Occurrences
BT EN1+6, BT+1, NOTYOU, NOTPH, NOTOP, FULL+1, WARN
EN1 RD1+7
FULL GOT+3
GO EN1+6
GOT GO+2
NEWBT FULL+1
NOTOP BT+2
NOTPH BT+2
NOTYOU BT+2
Q RD1, BT+1
RD1 RD1, RD1+3, RD1+8
RSET GO+3
RSET2 FULL
WARN BT+4
WRT RD1

Naked Globals

Name Field # of Occurrence
^("FBNUM" EN1+5
^("ST" BT+2
^(0 BT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 Q!
DA RD1*, BT+1*, BT+2, BT+3, Q!, GOT+1*, RSET*
DA(1 GOT+1*
DD NEWBT+3!
DI Q!
DIC RD1*!, BT*, BT+1!, Q!, GOT+1*, RSET*, NEWBT+2*
DIC("A" BT*
DIC("DR" NEWBT+2*
DIC("S" RD1*, BT*
DIC("W" BT+1*
DIC(0 RD1*, BT*, NEWBT+2*
DIE Q!, GOT+1*, RSET*
DLAYGO NEWBT+2*, NEWBT+3!
DO NEWBT+3!
DQ Q!
DR Q!, GOT+1*, RSET*
DT EN1+4
DUZ BT+2
FBAABO BT+3*, Q!
FBAAMPI EN1+5*, BT+4, Q!, GOT+3
>> FBAAOB NEWBT+1*, NEWBT+4*
FBAATPV EN1+6*, Q!, GOT*
FBAAVIN GO+2*, Q!
FBBIC BT+3*, Q!, RSET2, NEWBT+4*
FBBLC BT+3*, BT+4, Q!, GOT*, GOT+3, RSET2, NEWBT+4*
FBBN EN1+6, BT+1*, Q!, RSET2, FULL!, FULL+1, WARN!, NEWBT+1, NEWBT+2, NEWBT+3*
FBBTA BT+3*, Q!, RSET2*, NEWBT+4*
FBIN RD1*, RD1+3, GO+2, Q!, GOT+1, RSET
FBINTOT RD1*, EN1+2, Q!, WRT
FBJ GO+2*, Q!, GOT+1
FBSTN Q!, NEWBT+1*
>> FBSW FBAAPIP+3*, EN1+5*, EN1+6*, GO+3*, Q, GOT*
FBZZ Q!
FY EN1+4*, Q!
IN RD1*, Q!
J Q!
TAC EN1+6*, Q!, GOT*
TAP EN1+6*, Q!, GOT*, RSET2
TIC EN1+6*, Q!, GOT*
X RD1, BT+1, Q!, NEWBT+2*
Y RD1, BT+1, BT+2, Q!, NEWBT+3
Y(0 GO+2*, GOT
Z Q!
Z(0 BT+3*, RSET2*, NEWBT+1, NEWBT+3*, NEWBT+4
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 |  Naked Globals |  Local Variables  | All