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

Package: Fee Basis

Routine: FBAACO


Information

FBAACO ;AISC/GRR - ENTER MEDICAL PAYMENT ;9/25/2014

Source Information

Source file <FBAACO.m>

Entry Points

Name Comments DBIA/ICR reference
EN583 ;driver for opt payments (entry point for uc)
1
SVDT
CPT
CHKE ;determines what action to take on duplicate services entered
SVPR
Q ;exit point for outpatient payment routines
  • ICR #5082
    • Status: Active
    • Usage: Controlled Subscription
    AUTHQ
    SITE ;set up site variables
  • ICR #5082
    • Status: Active
    • Usage: Controlled Subscription
    BT ;select batch
    PAT ;set up patient in patient file
    MM ;check for money management of entire invoice
    ; fb*3.5*116
    OUT
    MMPPT ;money management/prompt pay type for multiple payment entry
    ; input
    ; FBAAPTC = payment type code, "R" when patient reimbursement
    ; FBV = vendor being paid (ien)
    ; when called from FBAAMP additional variables will be available
    ; FBCNTRA = contract ien from authorization
    ; FBVEN = vendor from authorization
    ; FB583 = defined when unauthorized claim
    ; output
    ; FBAAMM = prompt payment, =1 to ask
    ; FBAAMM1 = prompt payment type for line
    ; FBAAOUT = (optional), = 1 to quit
    ; FBCNTRP = contract for line item (ien)

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: 1+0
    Function Call: WRITE
    • Prompt: !!,"You cannot process a payment associated with authorization ",DFN,"-",FTP
    • Line Location: 1+3
    Function Call: WRITE
    • Prompt: !,"due to separation of duties."
    • Line Location: 1+4
    Function Call: WRITE
    • Prompt: !!
    • Line Location: 1+9
    Function Call: WRITE
    • Prompt: !,"FPPS CLAIM ID: ",$S(FBFPPSC="":"N/A",1:FBFPPSC)
    • Line Location: 1+23
    Function Call: WRITE
    • Prompt: !!
    • Line Location: SVDT+0
    Function Call: WRITE
    • Prompt: !!,"Invoice: "_FBAAIN_" Totals $ "_$J(FBINTOT,1,2)
    • Condition for execution: FBINTOT>0
    • Line Location: SVDT+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SVDT+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: CPT+0
    Function Call: WRITE
    • Prompt: !!,*7,"Service selected for that date already in system."
    • Line Location: CHKE+1
    Function Call: WRITE
    • Prompt: !!,*7,"You must use the 'EDIT PAYMENT' option to edit the service previously",!,"entered for that date."
    • Line Location: CHKE+3
    Function Call: WRITE
    • Prompt: !!
    • Line Location: BT+1
    Function Call: WRITE
    • Prompt: !!,"This Batch already has the maximum number of Payments!"
    • Line Location: BT+3
    Function Call: WRITE
    • Prompt: !,"All lines items on this invoice will be considered as contracted services"
    • Line Location: MMPPT+19
    Function Call: WRITE
    • Prompt: !,"under Contract ",$P($G(^FBAA(161.43,FBCNTRA,0)),U)," from the authorization."
    • Line Location: MMPPT+20
    Function Call: WRITE
    • Prompt: !,"The answer to the following will apply to all payments entered via this option."
    • Line Location: MMPPT+25

    FileMan Files Accessed Via FileMan Db Call

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