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

Package: Fee Basis

Routine: FBAAMP


Information

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

Source Information

Source file <FBAAMP.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Fee Basis 16 (,1,MMPPT,Q)^FBAACO  SVCPR^FBAACO1  SETO^FBAACO3  GETSVDT^FBAACO5  FILEADJ^FBAAFA  FILERR^FBAAFR  ($$ANES,$$FAC,$$GET,ASKTIME,ASKZIP)^FBAAFS  VADISP^FBAAIAU  
CPTM^FBAALU  ^FBAAMP  (HCFA,SUSP)^FBAAMP1  ($$DATX,DATCK)^FBAAUTL  ($$CPT,$$MODL)^FBAAUTL4  $$CHKICD9^FBCSV1  LOCK^FBUCUTL  ($$ASKREVC,$$ASKUNITS,$$FPPSL)^FBUTL5  
VA FileMan 5 ^%DT  ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Kernel 1 $$LJ^XLFSTR  

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

Package Total Caller Graph
Fee Basis 11 FBAA MULTIPLE PAYMENT ENTRY  FBAACO  FBAAMP  FBAAPET1  FBAAPIE  FBAAPP  FBAAV01  FBAAV5  
FBCH EDIT PAYMENT  FBCH MULTIPLE PAYMENTS  FBCHEP  

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

External References

Name Field # of Occurrence
^%DT MULT+1
^DIE FILE+11
$$EXTERNAL^DILFD FEE+18
$$GET1^DIQ MULTIPAC+20, IPACDISP+7, IPACDISP+8
^DIR AMTCL, AMTCL+1, RDAP, MULT+7, MULT+10, MPDT+10, AMTPD, IPAC+28, IPAC+35, MULTIPAC+32
, IPACINV+13
^FBAACO FBAAMP+4, Q1
1^FBAACO Q1
MMPPT^FBAACO 1+1
Q^FBAACO Q+1
SVCPR^FBAACO1 MULT+13
SETO^FBAACO3 MULT+13
GETSVDT^FBAACO5 MULT+12
FILEADJ^FBAAFA FILE+12
FILERR^FBAAFR FILE+13
$$ANES^FBAAFS 1+10
$$FAC^FBAAFS FEE+7, CHKFS+5
$$GET^FBAAFS FEE+7, CHKFS+5
ASKTIME^FBAAFS 1+10
ASKZIP^FBAAFS 1+9
VADISP^FBAAIAU IPAC+34
CPTM^FBAALU 1+3
^FBAAMP ANCIL+1
HCFA^FBAAMP1 1+11
SUSP^FBAAMP1 RDAP+1
$$DATX^FBAAUTL MULT+7
DATCK^FBAAUTL MULT+2
$$CPT^FBAAUTL4 1+10, FEE+7, CHKFS+5
$$MODL^FBAAUTL4 MULT+9, FEE+7, CHKFS+5
$$CHKICD9^FBCSV1 MULT+5
LOCK^FBUCUTL FILE+10
$$ASKREVC^FBUTL5 1+5
$$ASKUNITS^FBUTL5 1+7
$$FPPSL^FBUTL5 MULT+11
$$CPT^ICPTCOD CHKCPT+3
$$MOD^ICPTMOD CHKCPT+7
$$LJ^XLFSTR MULTIPAC+26

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
Routine Call
  • DIE
  • Line Location:
    • FILE+11
Routine Call
  • DIR
  • Line Location:
    • AMTCL
    • AMTCL+1
    • RDAP
    • MULT+7
    • MULT+10
    • MPDT+10
    • AMTPD
    • IPAC+28
    • IPAC+35
    • MULTIPAC+32
    • IPACINV+13

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB583 - [#162.7] FEE+2, CHKFS+4, CHKFS+7
^FBAA(161.7 - [#161.7] FILE+18
^FBAA(161.95 - [#161.95] IPACID+16, IPACID+18, IPACID+21, IPAC+13, IPAC+16, MULTIPAC+7, MULTIPAC+8, IPACREQD+2, IPACDISP+3
^FBAAC - [#162] FILE+14
^FBAAC("AE" MULT+10

Label References

Name Line Occurrences
$$CHKCPT MULT+4
$$CHKFS MULT+6
$$IPACREQD IPACID+15, IPAC+12
$$MULTIPAC IPAC+23
AMTCL AMTCL+1
FEE RDAP
IDISPX IPACDISP+4
IPACIDX IPACID+15, IPACID+17
IPACX IPAC+12, IPAC+14, IPAC+24, IPAC+30
IPINVX IPACINV+15
MPDT 1+2
MULIPACX MULTIPAC+15, MULTIPAC+16, MULTIPAC+33
MULT MULT+2, MULT+4, MULT+5, MULT+6, MULT+7, MULT+10, FILE+21
Q AMTCL, AMTCL+1, RDAP, RDAP+1, MULT+12, MULT+13
Q1 1+1, 1+2, 1+3, 1+5, 1+7, 1+9, 1+10, 1+11, RDAP+1, MULT+1
, MULT+11, FILE+19
RDAP RDAP

Naked Globals

Name Field # of Occurrence
^(0 FILE+18*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT MULT+1*
>> %DT("A" MULT+1*
CNT MULTIPAC+3~, MULTIPAC+6*, MULTIPAC+12*, MULTIPAC+15, MULTIPAC+16, MULTIPAC+19, MULTIPAC+21
>> DA FILE+9*
>> DA(1 FILE+9*
>> DA(2 FILE+9*
>> DA(3 FILE+9*
DESC MULTIPAC+3~, MULTIPAC+11*, MULTIPAC+12
>> DFN 1+3, MULT+10, MULT+12, FILE+8, FILE+9, FILE+12, FILE+13, FILE+14
DIC Q1!
DIE FILE+8*, FILE+10, Q1!
DIR AMTCL!, AMTCL+1!, RDAP!, MULT+7!, MULT+10!, MPDT+10!, AMTPD!, IPAC+9~, IPAC+28!, IPAC+35!
, MULTIPAC+3~, MULTIPAC+32!, IPACINV+6~, IPACINV+13!
DIR("?" AMTCL*, MPDT+5*, MPDT+6*, MPDT+7*, MPDT+8*, IPACINV+10*, IPACINV+11*, IPACINV+12*
DIR("A" AMTCL*, AMTCL+1*, RDAP*, MULT+7*, MULT+10*, MPDT+3*, AMTPD*, IPAC+26*, MULTIPAC+20*, MULTIPAC+21*
, MULTIPAC+22*, MULTIPAC+23*, MULTIPAC+24*, MULTIPAC+26*, MULTIPAC+28*, MULTIPAC+29*, MULTIPAC+30*, MULTIPAC+31*, IPACINV+8*
DIR("B" AMTCL+1*, RDAP*, MULT+7*, MULT+10*, MPDT+4*, AMTPD*, IPAC+27*, IPACINV+9*
DIR(0 AMTCL*, AMTCL+1*, RDAP*, MULT+7*, MULT+10*, MPDT+2*, AMTPD*, IPAC+26*, IPAC+35*, MULTIPAC+19*
, IPACINV+8*
DIROUT IPAC+9~, MULTIPAC+3~, IPACINV+6~
DIRUT AMTCL, AMTCL+1, RDAP, MULT+7, MULT+10, Q1!, MPDT+10, AMTPD, IPAC+9~, IPAC+29
, MULTIPAC+3~, IPACINV+6~, IPACINV+14!, IPACINV+15
>> DR FILE*, FILE+1*, FILE+2*, FILE+3*
>> DR(1 FILE+4*, FILE+5*, FILE+6*, FILE+7*
DT 1+8
DTOUT Q1!, IPAC+9~, MULTIPAC+3~, IPACINV+6~
DUOUT RDAP+1, Q1!, IPAC+9~, MULTIPAC+3~, IPACINV+6~
FB1725 FEE~, FEE+2*, FEE+7, FEE+22, CHKFS+1~, CHKFS+4*, CHKFS+5, CHKFS+7*, CHKFS+9
>> FB583 FEE+2, CHKFS+4, CHKFS+7
>> FBAAAS RDAP+1*, RDAP+2*
>> FBAABE FILE+18
FBAACP 1+10, MULT+10, Q1!, FEE+7, CHKCPT+3, CHKFS+5
>> FBAACPI FILE+9, FILE+10, FILE+12, FILE+13, FILE+14
FBAADT MULT+8*, MULT+10, MULT+12, Q1!
>> FBAAIN MULT
>> FBAAMM1 MULT+6, FEE+9, FEE+15, FEE+40
>> FBAAMPI FILE+19
FBAAOUT 1+1, 1+3!, 1+5*, 1+7*, 1+9, 1+10, 1+11, RDAP, RDAP+1, MULT+12
, MULT+13, AMTPD*
>> FBAAPTC IPACREQD+1
>> FBAARC 1+5*, FILE+3
FBADJ RDAP+1!, FILE+12, Q1!
FBAMFS FEE+4*, FEE+42*, AMTPD, AMTPD+1!
>> FBAMTPD RDAP, AMTPD+1*
>> FBASSOC MULT+12
FBCHCO ANCIL+1*, ANCIL+2!
FBCPTX CHKCPT+1~, CHKCPT+3*, CHKCPT+4
>> FBCSID FILE+1
FBDEF IPACINV~, IPACINV+9, IPACINV+14
FBDODINV Q1!, IPACINV~, IPACINV+7*, IPACINV+15*, IPACDISP~, IPACDISP+4, IPACDISP+11
>> FBDT MULT+3*, MULT+5, MULT+7, MULT+8, CHKCPT+3, CHKCPT+7, CHKFS+5, CHKFS+14
>> FBFPPSC MULT+11, FILE+2
>> FBFPPSL MULT+11*
>> FBFSAMT FEE+4*, FEE+10*, FEE+24, FEE+25*, FEE+26, FEE+30, FEE+35*, FEE+36, FEE+42, CHKFS+17
, CHKFS+19
FBFSUNIT FEE+31~, FEE+33*, FEE+34, CHKFS+12~, CHKFS+14*, CHKFS+15
>> FBFSUSD FEE+4*, FEE+10*, FEE+22, FEE+33
>> FBFY FEE+3*
FBG MULTIPAC+3~, MULTIPAC+8*, MULTIPAC+9, MULTIPAC+10, MULTIPAC+11
>> FBGOT 1+3
>> FBHCFA(28 MULT+5
>> FBHCFA(30 FEE+7, CHKFS+5
FBI CHKCPT+1~, CHKCPT+6*, CHKCPT+7
FBIA Q1!, IPAC+9~, IPAC+10*, IPAC+19*, IPAC+23*, IPAC+24, IPAC+34, IPACX+1, MULTIPAC+3~, MULTIPAC+5*
, MULTIPAC+16*, MULTIPAC+33*, MULTIPAC+36*, MULIPACX+1, IPACDISP~, IPACDISP+2*, IPACDISP+3, IPACDISP+7, IPACDISP+8
>> FBINTOT MULT, FILE+15*
FBIPIEN IPACID~, IPACID+13*, IPACID+21*
>> FBJ AMTCL*, AMTCL+1, RDAP+1, RDAP+2*, FEE+42, CHKFS+17
>> FBK RDAP*, RDAP+1, RDAP+2*, FILE+15, CHKFS+20, CHKFS+21
FBLN MULTIPAC+3~, MULTIPAC+6!
FBLN( MULTIPAC+12*, MULTIPAC+25, MULTIPAC+33
FBLN(1 MULTIPAC+16
>> FBMAX FILE+19*, Q1
FBMOD CHKCPT+1~
>> FBMODA( CHKCPT+6, CHKCPT+7
>> FBMODA(0 CHKCPT+5
>> FBMODL MULT+9*, MULT+10
FBMODX CHKCPT+1~, CHKCPT+7*, CHKCPT+8
>> FBMP FBAAMP+3*
FBMPDT 1+2, 1+3, Q1!, MPDT+1*, MPDT+10*, FEE+7, FEE+33
FBOUT Q1!
FBRET CHKCPT+1~, CHKCPT+2*, CHKCPT+4*, CHKCPT+8*, CHKCPT+9, CHKFS+1~, CHKFS+2*, CHKFS+22, CHKFS+23
>> FBRRMK FILE+13
>> FBSDI FILE+8, FILE+9, FILE+12, FILE+13, FILE+14
FBSI Q1!
>> FBTIME 1+10, FEE+7, CHKFS+5
>> FBUNITS 1+7*, FEE+28, FEE+29, FEE+35, CHKFS+11, CHKFS+15
>> FBV 1+9, MULT+10, MULT+12, FILE+8, FILE+9, FILE+12, FILE+13, FILE+14
FBVEN IPACID~, IPACID+14*, IPACID+15, IPACID+16, IPACID+18, IPAC~, IPAC+11*, IPAC+12, IPAC+13, IPAC+16
, IPAC+23, MULTIPAC~, MULTIPAC+4*, MULTIPAC+7, MULTIPAC+20, IPACREQD~, IPACREQD+2
FBX Q1!, FEE~, FEE+7*, FEE+10, FEE+14, FEE+16, FEE+17, FEE+18, CHKFS+1~, CHKFS+5*
, CHKFS+9*, CHKFS+14, CHKFS+15*, CHKFS+17, CHKFS+18, CHKFS+20
>> FBZIP 1+9, FEE+7, CHKFS+5
FY 1+8*, FEE+3, MULTIPAC+3~, MULTIPAC+10*, MULTIPAC+12
G IPACDISP+1~, IPACDISP+3*, IPACDISP+4, IPACDISP+7, IPACDISP+9, IPACDISP+10
ID MULTIPAC+3~, MULTIPAC+9*, MULTIPAC+12
LN MULTIPAC+3~, MULTIPAC+19*, MULTIPAC+20*, MULTIPAC+21*, MULTIPAC+22*, MULTIPAC+23*, MULTIPAC+24*, MULTIPAC+26*, MULTIPAC+28*, MULTIPAC+29*
, MULTIPAC+30*
RET IPACID+11~, IPACID+12*, IPACID+21*, IPACIDX+1, IPACINV+6~, IPACINV+7*, IPACINV+15*, IPINVX+2
T MULTIPAC+3~, MULTIPAC+25*, MULTIPAC+26
>> TP FILE*
U FEE+2, FEE+10, FEE+14, FEE+16, FEE+17, FEE+18, CHKCPT+4, CHKCPT+8, CHKFS+4, CHKFS+7
, CHKFS+9, CHKFS+14, CHKFS+15, CHKFS+17, CHKFS+18, CHKFS+20, IPACID+21, MULTIPAC+9, MULTIPAC+10, MULTIPAC+11
, MULTIPAC+12, MULTIPAC+16, MULTIPAC+19, MULTIPAC+26, MULTIPAC+33, IPACDISP+7, IPACDISP+9, IPACDISP+10
W MULTIPAC+3~, MULTIPAC+25*, MULTIPAC+26
X MULT+1, MULT+2, Q1!, IPAC+9~, MULTIPAC+3~, IPACINV+6~
X1 IPACID+11~, IPACID+16*, IPACID+17, IPACID+21, IPAC+9~, IPAC+13*, IPAC+14, IPAC+19, IPAC+23
X2 IPACID+11~, IPACID+18*, IPACID+21, IPAC+9~, IPAC+16*, IPAC+19, IPAC+23
Y AMTCL, AMTCL+1, RDAP, MULT+2, MULT+3, MULT+7, MULT+10, Q1!, MPDT+10, AMTPD+1
, IPAC+9~, IPAC+30, MULTIPAC+3~, MULTIPAC+33, IPACINV+6~, IPACINV+14*, IPACINV+15
Z MULTIPAC+3~, MULTIPAC+6*, MULTIPAC+7*, MULTIPAC+8, MULTIPAC+12
>> Z1 FILE+18*, FILE+19
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