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 |  Local Variables  | All
Print Page as PDF
Routine: FBAACO0

Package: Fee Basis

Routine: FBAACO0


Information

FBAACO0 ;AISC/GRR - DISPLAY PATIENT ADDRESS DATA AND EDIT ;10/16/14 15:39

Source Information

Source file <FBAACO0.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Fee Basis 4 ENT^FBAAAUT  ($$FAC,$$GET)^FBAAFS  VALCK^FBAAUTL1  ($$CPT,$$MODL)^FBAAUTL4  
VA FileMan 4 WAIT^DICD  ^DIK  $$EXTERNAL^DILFD  ^DIR  
Registration 3 EN^DGREGAED  QUES^DGRPU1  ADD^VADPT  

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

Package Total Caller Graph
Fee Basis 8 FBAACO  FBAADEM  FBAAETA  FBAASAP  FBAAV4  FBCHEP  FBCHP78  FBUCUTL2  

Entry Points

Name Comments DBIA/ICR reference
RD
EDIT
MRA
FEE ;calculates amount paid based on fee schedule
AMTPD
KILL
HELP1
HELPPD
CCADR(FBSTPOS) ;
ACTIVECC() ;
EDTCCADR() ;
ISCCADR() ;

External References

Name Field # of Occurrence
EN^DGREGAED EDIT
QUES^DGRPU1 EDTCCADR+12
WAIT^DICD KILL+1
^DIK KILL+1
$$EXTERNAL^DILFD FEE+21
^DIR RD, EDTCCADR+9
ENT^FBAAAUT MRA
$$FAC^FBAAFS FEE+11
$$GET^FBAAFS FEE+11
VALCK^FBAAUTL1 KILL
$$CPT^FBAAUTL4 FEE+11
$$MODL^FBAAUTL4 FEE+11
ADD^VADPT FBAACO0+6, EDTCCADR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Patient: ",$P(^DPT(DFN,0),"^")
  • Line Location: FBAACO0+5
Function Call: WRITE
  • Prompt: !,*7,"No Address information for this patient!"
  • Line Location: FBAACO0+5
Function Call: WRITE
  • Prompt: !!,"Patient's Permanent address:"
  • Line Location: FBAACO0+10
Function Call: WRITE
  • Prompt: !?2,"Address Line ",Z,":",?18,VAPA(Z)
  • Line Location: FBAACO0+11
Function Call: WRITE
  • Prompt: !?2,"City:",?18,VAPA(4),!?2,"State:",?18,$P(VAPA(5),U,2)
  • Line Location: FBAACO0+12
Function Call: WRITE
  • Prompt: !?2,"Zip:",?18,$S(+$G(VAPA(11)):$P(VAPA(11),U,2),1:VAPA(6)),!?2,"County",?18,$P(VAPA(7),U,2)
  • Line Location: FBAACO0+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !?2,"Payment is for a contracted service so fee schedule does not apply."
  • Line Location: FEE+15
Function Call: WRITE
  • Prompt: !?2,$S($G(FBAAMM1):"However, f",1:"F")
  • Line Location: FEE+18
Function Call: WRITE
  • Prompt: "ee schedule amount is $",$P(FBX,U)," from the "
  • Line Location: FEE+19
Function Call: WRITE
  • Prompt: !?2,"Unable to determine a FEE schedule amount."
  • Line Location: FEE+22
Function Call: WRITE
  • Prompt: !!?2,"**Payment is for emergency treatment under 38 U.S.C. 1725."
  • Line Location: FEE+26
Function Call: WRITE
  • Prompt: !?2," Therefore, fee schedule amount reduced to $",FBFSAMT," (70%)."
  • Line Location: FEE+29
Function Call: WRITE
  • Prompt: !!?2,"Units Paid = ",FBUNITS
  • Line Location: FEE+32
Function Call: WRITE
  • Prompt: !?2," Therefore, fee schedule amount increased to $",FBFSAMT
  • Line Location: FEE+39
Function Call: WRITE
  • Prompt: !?2," Fee schedule not complied on per unit basis so amount not adjusted for units."
  • Line Location: FEE+41
Function Call: WRITE
  • Prompt: !
  • Line Location: FEE+47
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: AMTPD+0
Function Call: WRITE
  • Prompt: !,"AMOUNT PAID: "_$S(FBAMTPD]"":FBAMTPD_"//",1:"")
  • Line Location: AMTPD+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: !,?3,"<DELETED>"
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: !!,"Enter the amount to pay in dollars and cents between 0 and 999999.",!,"Entering an '^' will delete the payment.",!
  • Line Location: HELP1+0
Function Call: WRITE
  • Prompt: !!,"The amount that the VA is going to pay for this service provided.",!
  • Line Location: HELPPD+0
Function Call: WRITE
  • Prompt: !!,"Confidential Communication address until: "_$P($G(VAPA(21)),U,2)
  • Line Location: CCADR+7
Function Call: WRITE
  • Prompt: !?FBSTPOS,"Line 1: ",$G(VAPA(13))
  • Line Location: CCADR+8
Function Call: WRITE
  • Prompt: " Line 2: ",$G(VAPA(14))
  • Line Location: CCADR+9
Function Call: WRITE
  • Prompt: !?FBSTPOS,"Line 3: ",$G(VAPA(15))
  • Line Location: CCADR+10
Function Call: WRITE
  • Prompt: !?FBSTPOS,"City:",?9,$S($G(VAPA(16))]"":$G(VAPA(16)),1:" ")
  • Line Location: CCADR+11
Function Call: WRITE
  • Prompt: ?40,"State:",?47,$S($P($G(VAPA(17)),U,2)]"":$P($G(VAPA(17)),U,2),1:" ")
  • Line Location: CCADR+12
Function Call: WRITE
  • Prompt: !?FBSTPOS,"Zip:",?9,$P($G(VAPA(18)),U,2)
  • Line Location: CCADR+13
Function Call: WRITE
  • Prompt: ?20,"County:",?28,$P($G(VAPA(19)),U,2)
  • Line Location: CCADR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: EDTCCADR+8
Routine Call
  • DIR
  • Line Location:
    • RD
    • EDTCCADR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
162.03 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] FBAACO0+5, EDITMRA
^FB583 - [#162.7] FEE+3

Label References

Name Line Occurrences
$$ACTIVECC CCADR+5
$$CCADR FBAACO0+9
$$EDTCCADR EDIT+1
$$ISCCADR FBAACO0+7, EDTCCADR+3
AMTPD KILLHELP1+1, HELPPD
EDIT FBAACO0+5, RD
HELP1 AMTPD
HELPPD AMTPD
KILL AMTPDKILL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA KILL+1!
DA(1 KILL+1
DA(2 KILL+1
DA(3 KILL+1
>> DFN FBAACO0+5, EDITMRA, EDTCCADR+1, EDTCCADR+12
DIC KILL+1!
DIK KILL+1*!
DIR RD!, EDTCCADR+9!
DIR("A" RD*, EDTCCADR+6*, EDTCCADR+7*
DIR("B" RD*, EDTCCADR+8*
DIR(0 RD*, EDTCCADR+8*
>> DIRUT RD, EDTCCADR+10
DTIME AMTPDKILL
FB1725 FEE+1~, FEE+3*, FEE+11, FEE+25
>> FB583 FEE+3
FBAACP FEE+11, KILL+1!
FBAADT FEE+11, FEE+36, KILL+1!
>> FBAAMM1 FEE+13, FEE+18, FEE+43
FBACT CCADR+1~, CCADR+2*, CCADR+5*, CCADR+6, CCADR+15
>> FBAMTPD FEE+5*, FEE+7, FEE+45*, AMTPDAMTPD+1*
FBD1 MRA*!
>> FBDL KILL+1*
FBEDPTAD FBAACO0+4~
FBEDPTAD(1 FBAACO0+4*, FBAACO0+7*, EDTCCADR+2, EDTCCADR+3*, EDTCCADR+4, EDTCCADR+5
FBEDPTAD(2 FBAACO0+4*, FBAACO0+8*, RD*, EDITEDIT+1
>> FBFDC FBAACO0+3*
>> FBFSAMT FEE+5*, FEE+14*, FEE+27, FEE+28*, FEE+29, FEE+33, FEE+38*, FEE+39, FEE+45
FBFSUNIT FEE+34~, FEE+36*, FEE+37
>> FBFSUSD FEE+5*, FEE+14*, FEE+25, FEE+36
>> FBFY FEE+4*
>> FBHCFA(30 FEE+11
>> FBMST FBAACO0+3*
FBSTPOS CCADR~, CCADR+8, CCADR+10, CCADR+11, CCADR+13
>> FBTIME FEE+11
>> FBTT FBAACO0+3, EDIT+1, MRA
>> FBTTYPE FBAACO0+3*
>> FBUNITS FEE+31, FEE+32, FEE+38
FBX FEE+8~, FEE+11*, FEE+14, FEE+17, FEE+19, FEE+20, FEE+21, KILL+1!
>> FBZIP FEE+11
>> FTP MRA
>> FY FEE+4
>> HY(0 FBAACO0+5*, EDIT*, MRA
IOF FBAACO0+5
J FEE+45, KILL+1!
K KILL+1!
U FBAACO0+12, FBAACO0+13, FEE+3, FEE+14, FEE+17, FEE+19, FEE+20, FEE+21, CCADR+7, CCADR+12
, CCADR+13, CCADR+14
VAERR FBAACO0+14!, CCADR+4
>> VAL KILL
VAPA FBAACO0+14!, EDTCCADR+3~
VAPA( FBAACO0+11
VAPA("P" FBAACO0+6*, EDTCCADR+3*
VAPA(11 FBAACO0+13
VAPA(12 CCADR+3, ACTIVECC+1
VAPA(13 CCADR+8
VAPA(14 CCADR+9
VAPA(15 CCADR+10
VAPA(16 CCADR+11
VAPA(17 CCADR+12
VAPA(18 CCADR+13
VAPA(19 CCADR+14
VAPA(21 CCADR+7
VAPA(22 ACTIVECC+1, ISCCADR+1, ISCCADR+2
VAPA(4 FBAACO0+12
VAPA(5 FBAACO0+12
VAPA(6 FBAACO0+13
VAPA(7 FBAACO0+13
>> X AMTPD*, AMTPD+1, KILL*
>> Y RDKILL+1*, EDTCCADR+12
>> Y(0 FBAACO0+5*
>> Z FBAACO0+11*
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 |  Local Variables  | All