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

Package: Fee Basis

Routine: FBAACO3


Information

FBAACO3 ;AISC/GRR - ENTER PAYMENT CONTINUED ;12/4/14 14:11

Source Information

Source file <FBAACO3.m>

Entry Points

Name Comments DBIA/ICR reference
DOEDIT ;
BADDATE(FBDOS,INVRCVDT) ;Reject entry if InvRcvDt is Prior to the Date of Service on the Invoice
SETO
  • ICR #5443
    • Status: Retired
    • Usage: Controlled Subscription
    OUT ;
    ; FB*3.5*116 count line items that have 0.00 amount paid
  • ICR #5443
    • Status: Retired
    • Usage: Controlled Subscription
    CKMAX
    SMORE
    NO
    WARN
    CALC ;Calculate Current Invoice Total
  • ICR #5443
    • Status: Retired
    • Usage: Controlled Subscription
    CALC1
    FEEDT ;
    NOGO
    SC
    DEL ;delete date of service if no service provided entered

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: DOEDIT+2
    Function Call: WRITE
    • Prompt: !!,*7,"Warning Patient already at maximum allowed for month of service",!
    • Line Location: NO+0
    Function Call: WRITE
    • Prompt: !!,*7,"You have reached the maximum number of payments for a Batch!",!,"You must select another Batch for entering Payments!"
    • Line Location: WARN+0
    Function Call: WRITE
    • Prompt: !,?2,"Payment is for a contracted service so fee schedule does not apply."
    • Line Location: FEEDT+11
    Function Call: WRITE
    • Prompt: !?2,$S($G(FBAAMM1):"However, f",1:"F")
    • Line Location: FEEDT+13
    Function Call: WRITE
    • Prompt: "ee schedule amount is $",$P(FBX,U)," from the "
    • Line Location: FEEDT+14
    Function Call: WRITE
    • Prompt: !?2,"Unable to determine a FEE schedule amount."
    • Line Location: FEEDT+17
    Function Call: WRITE
    • Prompt: !!?2,"**Payment is for emergency treatment under 38 U.S.C. 1725."
    • Line Location: FEEDT+20
    Function Call: WRITE
    • Prompt: !?2," Therefore, fee schedule amount reduced to $",FBFSAMT," (70%)."
    • Line Location: FEEDT+23
    Function Call: WRITE
    • Prompt: !!?2,"Units Paid = ",FBUNITS
    • Line Location: FEEDT+26
    Function Call: WRITE
    • Prompt: !?2," Therefore, fee schedule amount increased to $",FBFSAMT
    • Line Location: FEEDT+33
    Function Call: WRITE
    • Prompt: !?2," Fee schedule not complied on per unit basis so amount not adjusted by units."
    • Line Location: FEEDT+35
    Function Call: WRITE
    • Prompt: !
    • Line Location: FEEDT+40
    Function Call: WRITE
    • Prompt: !!,*7,"This payment CANNOT be edited. The batch the payment is in",!,"has been Vouchered. You may void the payment with the Void Payment option.",!
    • Line Location: NOGO+0
    Function Call: WRITE
    • Prompt: *7,!?4,"Suspense code is required!",!
    • Line Location: SC+0
    Function Call: WRITE
    • Prompt: !!?5,*7,"Incomplete payment entry deleted.",!
    • Line Location: DEL+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAC - [#162] Classic Fileman Calls
    162.03 EXTERNAL^DILFD
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call