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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDFRA

Package: Third Party Billing

Routine: ABMDFRA


Information

ABMDFRA ; IHS/ASDST/DMJ - FLAT RATE ADJUSTMENT ;

Source Information

Source file <ABMDFRA.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Third Party Billing 2 ($$FLAT,$$MDT)^ABMDUTL  $$FINDOPEN^ABMUCUTL  
IHS Accounts Receivable 1 $$EN^BARFRAPI  

Entry Points

Name Comments DBIA/ICR reference
START ;START
PRO ;PROCEED
FIND(DA) ;find bill in A/R
ONE ;EP - one bill

External References

Name Field # of Occurrence
$$FLAT^ABMDUTL START+22
$$MDT^ABMDUTL START+19
$$FINDOPEN^ABMUCUTL START+7
$$EN^BARFRAPI ONE+26
^DIC START+15, START+16
^DIE ONE+24
^DIR START+4, START+10, START+17, START+18, START+30, PRO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will adjust the amount billed field for all claims"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,"for the insurer and visit type you select beginning with the date"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"you select to reflect a new flat rate.",!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !,"An adjustment will then be passed to the A/R system.",!
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !!,"I am going to adjust the amount billed field for all bills with visit date ",!,$$MDT^ABMDUTL(ABMDATE)
  • Line Location: START+19
Function Call: WRITE
  • Prompt: "or later for insurer ",$P(^AUTNINS(ABMINS,0),U),", visit type ",ABMVTYP,", billed at"
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !,"the old rate of ",ABMORAT,"."
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !!,"NOTE: The flat rate for this insurer, visit type, and date is $",ABMFLAT,".",!
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !!,"Finished - ",ABMCOUNT," bills changed.",!!
  • Line Location: START+29
Function Call: WRITE
  • Prompt: "."
  • Line Location: ONE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO+1
Routine Call
  • DIE
  • Line Location:
    • ONE+24
Routine Call
  • DIC
  • Line Location:
    • START+15
    • START+16
Routine Call
  • DIR
  • Line Location:
    • START+4
    • START+10
    • START+17
    • START+18
    • START+30
    • PRO+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( START+26, START+27, ONE+2, ONE+5, ONE+7, ONE+12*, ONE+13, ONE+14*, ONE+19, FIND+2
^ABMDPARM( START+2, START+6
^AUTNINS - [#9999999.18] START+20
^BARBL( FIND+5, FIND+7, FIND+9, FIND+10

Label References

Name Line Occurrences
$$FIND ONE+21
ONE START+28
PRO START+24

Naked Globals

Name Field # of Occurrence
^(0 FIND+2
^(2 ONE+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABMAO START+31!
>> ABMARLOC FIND+1*, FIND+6, FIND+10*, FIND+11
ABMCOUNT START+25*, START+29, START+31!, ONE+16*
ABMDATE START+17*, START+19, START+22, START+26, START+31!
>> ABMDAYS ONE+5*, ONE+6*, ONE+8, ONE+10
ABMFLAT START+22*, START+23, START+31!, ONE+10
>> ABMFR ONE+26
>> ABMFR("ADJ AM T" , ONE+17*
>> ABMFR("ARLOC" ONE+19*, ONE+20, ONE+21*, ONE+22, ONE+23
>> ABMFR("TRAN T YPE" , ONE+25*
>> ABMFR("USER" ONE+18*
ABMI START+26*, START+27, START+31!
>> ABMIEN FIND+9*, FIND+10
ABMINS START+15*, START+20, START+22, START+31!, ONE+4
ABMJ START+27*, START+31!, ONE+1
>> ABMLOC FIND+2*
>> ABMNAME FIND+2*, FIND+7, FIND+8
>> ABMNEW ONE+10*, ONE+11, ONE+12, ONE+13, ONE+17
>> ABMNXT FIND+7*, FIND+8, FIND+9
ABMOLD START+31!, ONE+7*, ONE+9, ONE+11, ONE+13, ONE+14, ONE+17
>> ABMORAT START+18*, START+21, ONE+8
>> ABMOTOT ONE+8*, ONE+9
>> ABMTEST ONE+26*
>> ABMUOPNS START+6, START+7*, START+8
ABMVTYP START+16*, START+20, START+22, START+31!, ONE+3
ABMZERO START+31!, ONE+2*, ONE+3, ONE+4
DA ONE+1*, ONE+2, ONE+5, ONE+7, ONE+12, ONE+13, ONE+14, ONE+19, ONE+21, FIND~
, FIND+2, FIND+10
>> DIC START+15*, START+16*
>> DIC(0 START+15*, START+16*
>> DIE ONE+23*
DIR START+4!, START+10!, START+17!, START+18!, START+30!, PRO+2!
DIR("A" START+4*, START+10*, START+18*, PRO+2*
DIR("B" PRO+2*
DIR(0 START+4*, START+10*, START+17*, START+18*, START+30*, PRO+2*
>> DR ONE+23*
DUZ START+7, ONE+14, ONE+18
DUZ(2 START+2, START+6, START+26, START+27, ONE+2, ONE+5, ONE+7, ONE+12, ONE+13, ONE+14
, ONE+19, FIND+2
I FIND+3~, FIND+4*, FIND+5*, FIND+7, FIND+9, FIND+10
U START+2, START+6, START+20, ONE+7, ONE+12, FIND+2
>> Y START+15, START+16, START+17, START+18, START+24
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All