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

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() ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
162.03 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call