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

Package: Fee Basis

Routine: FBAAMP


Information

FBAAMP ;AISC/CMR - MULTIPLE PAYMENT ENTRY ;10/23/14 12:47

Source Information

Source file <FBAAMP.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;return from FBAACO
AMTCL
RDAP
MULT
FILE
Q1
Q ;kill variables and exit
MPDT ;
FEE
AMTPD
CHKCPT() ; check if CPT/Modifier active on date of service
CHKFS() ; check if fee schedule amount is different on date of service
IPACID(FBVEN,FBIPIEN) ; function to return IPAC agreement ID# if exactly 1 active IPAC on file for vendor (FB*3.5*123)
; No user interface allowed with this function. Called by background, Austin transmission process.
IPACIDX ;
IPAC(FBVEN) ; Determine if active IPAC agreement data exists for vendor (FB*3.5*123)
; Input:
; FBVEN - Vendor ien (ptr to file 161.2)
IPACX ;
MULTIPAC(FBVEN) ; multiple IPAC agreement display, lister, selection
; same input and output parameters as IPAC above
MULIPACX ;
IPACINV(FBDODINV,FBDEF) ; function to get the DoD invoice number for IPAC (FB*3.5*123)
; Function value is 1 if the DoD invoice number was obtained.
; Function value is 0 if not.
; FBDODINV - pass by reference. This is set to the DoD invoice number.
; FBDEF is an optional default value
IPINVX ;
IPACREQD(FBVEN) ; Is IPAC data required for vendor? (FB*3.5*123)
IPACDISP(FBIA,FBDODINV) ; Quick display of IPAC data currently on file for this invoice (FB*3.5*123)
IDISPX ;
ANCIL ;ENTRY POINT FOR multiple ancillary payment option

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: MULT+1
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date of Service."
  • Line Location: MULT+4
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date of Service."
  • Line Location: MULT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: MULT+12
Function Call: WRITE
  • Prompt: " ....OK, DONE...."
  • Line Location: FILE+16
Function Call: WRITE
  • Prompt: !
  • Line Location: MPDT+9
Function Call: WRITE
  • Prompt: !,?2,"Payment is for a contracted service so fee schedule does not apply."
  • Line Location: FEE+12
Function Call: WRITE
  • Prompt: !?2,$S($G(FBAAMM1):"However, f",1:"F")
  • Line Location: FEE+15
Function Call: WRITE
  • Prompt: "ee schedule amount is $",$P(FBX,U)," from the "
  • Line Location: FEE+16
Function Call: WRITE
  • Prompt: !?2,"Unable to determine a FEE schedule amount."
  • Line Location: FEE+19
Function Call: WRITE
  • Prompt: !!?2,"**Payment is for emergency treatment under 38 U.S.C. 1725."
  • Line Location: FEE+23
Function Call: WRITE
  • Prompt: !?2," Therefore, fee schedule amount reduced to $",FBFSAMT," (70%)."
  • Line Location: FEE+26
Function Call: WRITE
  • Prompt: !!?2,"Units Paid = ",FBUNITS
  • Line Location: FEE+29
Function Call: WRITE
  • Prompt: !?2," Therefore, fee schedule amount increased to $",FBFSAMT
  • Line Location: FEE+36
Function Call: WRITE
  • Prompt: !?2," Fee schedule not complied on per unit basis so amount not adjusted by units."
  • Line Location: FEE+38
Function Call: WRITE
  • Prompt: !
  • Line Location: FEE+44
Function Call: WRITE
  • Prompt: !," CPT Code ",$P(FBCPTX,U,2)," inactive on date of service."
  • Line Location: CHKCPT+4
Function Call: WRITE
  • Prompt: !," CPT Modifier ",$P(FBMODX,U,2)," inactive on date of service."
  • Line Location: CHKCPT+8
Function Call: WRITE
  • Prompt: !," Warning: The fee schedule amount (",$P(FBX,U),") for this date of service "
  • Line Location: CHKFS+18
Function Call: WRITE
  • Prompt: !," differs from the initial fee schedule amount (",FBFSAMT,")."
  • Line Location: CHKFS+19
Function Call: WRITE
  • Prompt: !," Amount paid (",FBK,") exceeds the fee schedule amount."
  • Line Location: CHKFS+21
Function Call: WRITE
  • Prompt: !!,"This is a Federal Vendor. IPAC payment information is required."
  • Line Location: IPAC+15
Function Call: WRITE
  • Prompt: !," - Required IPAC agreement information has been found."
  • Line Location: IPAC+20
Function Call: WRITE
  • Prompt: !
  • Line Location: IPAC+28
Function Call: WRITE
  • Prompt: " Not displaying detail ... "
  • Line Location: IPAC+29
Function Call: WRITE
  • Prompt: !
  • Line Location: IPAC+33
Function Call: WRITE
  • Prompt: !
  • Line Location: MULTIPAC+32
Function Call: WRITE
  • Prompt: !!,$C(7),"IPAC Agreement Selection is required for this vendor."
  • Line Location: MULTIPAC+37
Function Call: WRITE
  • Prompt: !
  • Line Location: IPACINV+13
Function Call: WRITE
  • Prompt: !!,$C(7),"The DoD Invoice Number is required for IPAC processing."
  • Line Location: IPACINV+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IPINVX+1
Function Call: WRITE
  • Prompt: !!,"IPAC Agreement Information on file for this Invoice/Payment"
  • Line Location: IPACDISP+5
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------"
  • Line Location: IPACDISP+6
Function Call: WRITE
  • Prompt: !,"IPAC Agreement ID: ",$P(G,U,1)," (",$$GET1^DIQ(161.95,FBIA,3),")"
  • Line Location: IPACDISP+7
Function Call: WRITE
  • Prompt: !?11,"Vendor: ",$$GET1^DIQ(161.95,FBIA,1)
  • Line Location: IPACDISP+8
Function Call: WRITE
  • Prompt: !?6,"Fiscal Year: ",$P(G,U,3)
  • Line Location: IPACDISP+9
Function Call: WRITE
  • Prompt: !,"Short Description: ",$P(G,U,5)
  • Line Location: IPACDISP+10
Function Call: WRITE
  • Prompt: !?5,"DoD Invoice#: ",$G(FBDODINV)
  • Line Location: IPACDISP+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] GET1^DIQ
^FBAA(161.95 - [#161.95] GET1^DIQ
162.03 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call