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

Package: Fee Basis

Routine: FBAACO3


Information

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

Source Information

Source file <FBAACO3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Fee Basis 9 (FILEADJ,LOADADJ)^FBAAFA  (FILERR,LOADRR)^FBAAFR  ($$FAC,$$GET)^FBAAFS  CPTM^FBAALU  $$IDCHK^FBAAUTL3  ($$CPT,$$MODL,REPMOD)^FBAAUTL4  LOCK^FBUCUTL  $$ADJL^FBUTL2  
$$RRL^FBUTL4  
VA FileMan 5 MSG^DIALOG  ^DIC  (,FILE)^DIE  ^DIK  $$EXTERNAL^DILFD  

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 FBAACO  FBAACO1  FBAAMP  

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: Pending
    • Usage: Controlled Subscription
    OUT ;
    ; FB*3.5*116 count line items that have 0.00 amount paid
  • ICR #5443
    • Status: Pending
    • Usage: Controlled Subscription
    CKMAX
    SMORE
    NO
    WARN
    CALC ;Calculate Current Invoice Total
  • ICR #5443
    • Status: Pending
    • Usage: Controlled Subscription
    CALC1
    FEEDT ;
    NOGO
    SC
    DEL ;delete date of service if no service provided entered

    External References

    Name Field # of Occurrence
    MSG^DIALOG DOEDIT+35
    ^DIC DOEDIT+6
    ^DIE DOEDIT+56
    FILE^DIE DOEDIT+35
    ^DIK DEL+2
    $$EXTERNAL^DILFD FEEDT+16
    FILEADJ^FBAAFA DOEDIT+58
    LOADADJ^FBAAFA DOEDIT+17
    FILERR^FBAAFR DOEDIT+60
    LOADRR^FBAAFR DOEDIT+21
    $$FAC^FBAAFS FEEDT+7
    $$GET^FBAAFS FEEDT+7
    CPTM^FBAALU DOEDIT+29
    $$IDCHK^FBAAUTL3 SMORE+2
    $$CPT^FBAAUTL4 DOEDIT+5, FEEDT+7
    $$MODL^FBAAUTL4 DOEDIT+15, DOEDIT+37, FEEDT+7
    REPMOD^FBAAUTL4 DOEDIT+37
    LOCK^FBUCUTL DOEDIT+55
    $$ADJL^FBUTL2 DOEDIT+19, DOEDIT+58
    $$RRL^FBUTL4 DOEDIT+23, DOEDIT+60

    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
    Routine Call
    • DIALOG
    • Line Location:
      • DOEDIT+35
    Routine Call
    • DIC
    • Line Location:
      • DOEDIT+6
    Routine Call
    • DIE
    • Line Location:
      • DOEDIT+56
    Routine Call
    • DIE
    • Line Location:
      • DOEDIT+35

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAC - [#162] Classic Fileman Calls
    162.03 EXTERNAL^DILFD

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FB583 - [#162.7] DOEDIT+9
    ^FBAA(161.7 - [#161.7] DOEDIT+7, OUT+3
    ^FBAAC - [#162] DOEDIT+10, DOEDIT+11, DOEDIT+12, DOEDIT+25, DOEDIT+26, DOEDIT+61, CKMAXSMORESMORE+1, CALC1
    DEL+1
    ^FBAAC("C" CALC+1

    Label References

    Name Line Occurrences
    CALC DOEDIT+63
    CALC1 CALC+1
    NO CKMAX+1
    NOGO DOEDIT+27
    SETO DOEDIT+39, FEEDT+5
    SMORE CKMAX

    Naked Globals

    Name Field # of Occurrence
    ^( SMORE+1
    ^(0 OUT+3*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> A CKMAX*, CKMAX+1, SMORE+2*
    >> A2 CALC1*
    DA DOEDIT+7*, DOEDIT+61!, DEL+2*, DEL+3!
    DA(1 DOEDIT+4*, DEL+2*
    DA(2 DOEDIT+4*, DEL+2*
    DA(3 DOEDIT+4*
    >> DFN DOEDIT+3, DOEDIT+4, DOEDIT+10, DOEDIT+11, DOEDIT+12, DOEDIT+15, DOEDIT+17, DOEDIT+21, DOEDIT+25, DOEDIT+26
    DOEDIT+29, DOEDIT+33, DOEDIT+37, DOEDIT+54, DOEDIT+55, DOEDIT+58, DOEDIT+60, DOEDIT+61, CKMAXSMORE
    SMORE+1, SMORE+2, DEL+1, DEL+2
    >> DIC DOEDIT+3*
    >> DIC(0 DOEDIT+4*
    DIE DOEDIT+54*, DOEDIT+61!
    DIE("NO^" DOEDIT+54*
    DIK DEL+2*, DEL+3!
    DR DOEDIT+39!, DOEDIT+44*, DOEDIT+61!
    DR(1 DOEDIT+46*, DOEDIT+47*, DOEDIT+48*, DOEDIT+49*, DOEDIT+51*, DOEDIT+52*, DOEDIT+53*
    >> E SMORE*, SMORE+1*
    FB1725 DOEDIT+1~, DOEDIT+9*, FEEDT+7, FEEDT+19
    FBA SMORE~, SMORE+1*, SMORE+2, SMORE+3
    >> FBAABE OUT+3
    >> FBAACP DOEDIT+2, DOEDIT+5, DOEDIT+31, DOEDIT+34, FEEDT+7
    >> FBAACP(0 DOEDIT+2*, DOEDIT+29, DOEDIT+31
    >> FBAACPI DOEDIT+7*, DOEDIT+10, DOEDIT+11, DOEDIT+12, DOEDIT+15, DOEDIT+17, DOEDIT+21, DOEDIT+25, DOEDIT+26, DOEDIT+33
    DOEDIT+37, DOEDIT+55, DOEDIT+58, DOEDIT+60, DOEDIT+61
    >> FBAADT DOEDIT+29, SETOFEEDT+7, FEEDT+30
    >> FBAAID CALC1*
    >> FBAAIN DOEDIT+63, CALC+1
    >> FBAAMM1 DOEDIT+10*, FEEDT+8, FEEDT+13, FEEDT+37
    >> FBAAOUT DOEDIT+6*, DOEDIT+27*, DOEDIT+29*, DOEDIT+31*, DOEDIT+55*
    >> FBAAPTC DOEDIT+7*
    >> FBAAVID CALC1*
    >> FBADJ DOEDIT+17, DOEDIT+19, DOEDIT+58
    >> FBADJL(0 DOEDIT+19*, DOEDIT+58
    >> FBAMTPD FEEDT+6*, FEEDT+39*
    >> FBAMTPD(0 DOEDIT+14*
    >> FBAOT CKMAX*, SMORE+3*
    FBB SMORE~*, SMORE+2
    >> FBCNTRP DOEDIT+11*
    >> FBDL DOEDIT+62
    FBDOS BADDATE~, BADDATE+1, BADDATE+2
    FBDXCHK1 DOEDIT+41~*, DOEDIT+42*, DOEDIT+51
    FBDXCHK2 DOEDIT+43~*, DOEDIT+51
    FBFDA DOEDIT+32~
    FBFDA( DOEDIT+34*
    FBFPPSC DOEDIT+1~, DOEDIT+25*
    >> FBFPPSL DOEDIT+26*
    >> FBFSAMT FEEDT+6*, FEEDT+9*, FEEDT+21, FEEDT+22*, FEEDT+23, FEEDT+27, FEEDT+32*, FEEDT+33, FEEDT+39
    >> FBFSAMT(0 DOEDIT+12*, DOEDIT+14
    FBFSUNIT FEEDT+28~, FEEDT+30*, FEEDT+31
    >> FBFSUSD FEEDT+6*, FEEDT+9*, FEEDT+30
    >> FBFY FEEDT+5*
    >> FBGOT DOEDIT+29
    >> FBHCFA(30 FEEDT+7
    FBIENS DOEDIT+32~, DOEDIT+33*, DOEDIT+34
    >> FBINTOT DOEDIT+63*, OUT+3*, CALC1*
    >> FBLOCK DOEDIT+55
    >> FBMODL DOEDIT+15*, DOEDIT+29, DOEDIT+37
    FBOT DOEDIT+54*, DOEDIT+61!
    >> FBRRMK DOEDIT+21, DOEDIT+23, DOEDIT+60
    >> FBRRMKL(0 DOEDIT+23*, DOEDIT+60
    >> FBSDI DOEDIT+3, DOEDIT+4, DOEDIT+10, DOEDIT+11, DOEDIT+12, DOEDIT+15, DOEDIT+17, DOEDIT+21, DOEDIT+25, DOEDIT+26
    DOEDIT+33, DOEDIT+37, DOEDIT+54, DOEDIT+55, DOEDIT+58, DOEDIT+60, DOEDIT+61, DEL+1, DEL+2
    >> FBSITE(1 CKMAX+1
    >> FBTIME FEEDT+7
    >> FBUNITS FEEDT+25, FEEDT+26, FEEDT+32
    >> FBV DOEDIT+3, DOEDIT+4, DOEDIT+10, DOEDIT+11, DOEDIT+12, DOEDIT+15, DOEDIT+17, DOEDIT+21, DOEDIT+25, DOEDIT+26
    DOEDIT+33, DOEDIT+37, DOEDIT+54, DOEDIT+55, DOEDIT+58, DOEDIT+60, DOEDIT+61, DEL+1, DEL+2
    FBX FEEDT+4~, FEEDT+7*, FEEDT+9, FEEDT+12, FEEDT+14, FEEDT+15, FEEDT+16
    >> FBZBN DOEDIT+7*
    >> FBZBS DOEDIT+7*, DOEDIT+27
    >> FBZIP FEEDT+7
    >> FY SETO*, FEEDT+5
    FZNODE CALC+2!, CALC1*
    INVRCVDT BADDATE~, BADDATE+1
    J CALC+1*, CALC+2!, CALC1FEEDT+39
    J(0 DOEDIT+7*, DOEDIT+14
    K DOEDIT+7*, OUT+3, CALC+1*, CALC+2!, CALC1
    L CALC+1*, CALC+2!, CALC1
    M CALC+1*, CALC+2!, CALC1
    >> O CKMAX*
    >> Q CKMAX*, SMORESMORE+1
    >> R CKMAX
    >> S CKMAX
    SHOWDOS BADDATE+2~*, BADDATE+3
    U DOEDIT+7, DOEDIT+9, DOEDIT+10, DOEDIT+11, DOEDIT+12, DOEDIT+25, DOEDIT+26, SMORESMORE+3, FEEDT+9
    FEEDT+12, FEEDT+14, FEEDT+15, FEEDT+16
    >> W CKMAX*, SMORESMORE+1
    >> X DOEDIT+5*
    >> Y DOEDIT+6, DOEDIT+7, SC*
    >> Y(0 DOEDIT+7, DOEDIT+9
    >> Z CKMAX*
    >> Z1 OUT+3*
    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