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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABMDTASC

Package: Third Party Billing

Routine: ABMDTASC


Information

ABMDTASC ; IHS/ASDST/DMJ - UPDATE ASC FEE TABLE ;

Source Information

Source file <ABMDTASC.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
Third Party Billing 2 $$IHSCPT^ABMCVAPI  $$EN^ABMVDF  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
CURRATE ;
EFFDT ;
START ;START
RATE ;ENTER RATES FOR THE ASC PAYMENT GROUPS
NEW ;NEW ENTRY IN FEE TABLE
LOOP ;LOOP THROUGH CPT SURGERY

External References

Name Field # of Occurrence
NOW^%DTC START+36
$$IHSCPT^ABMCVAPI CURRATE+3, LOOP+3
$$EN^ABMVDF START+1
^DIC START+6, START+39, EFFDT+8
^DIE EFFDT+17
^DIR START+17, START+24, START+42, RATE+6
^XBFMK START+20, START+31, EFFDT+1, EFFDT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF")
  • Line Location: START+1
Function Call: WRITE
  • Prompt: " We recommend doing a global save of global ^ABMDFEE before proceeding.",!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,ABMEQ,!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"Rate for ASC Payment Group ",ABMI,": $",ABM(ABMI)
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!,"Finished.",!!
  • Line Location: START+41
Function Call: WRITE
  • Prompt: !!,"CURRENT RATES"
  • Line Location: CURRATE+8
Function Call: WRITE
  • Prompt: !,?3,"Rate for ASC Payment Group ",ABMI,":$",+$G(ABMRATE(ABMI))
  • Line Location: CURRATE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CURRATE+10
Function Call: WRITE
  • Prompt: !,"NEW RATES"
  • Line Location: RATE+3
Routine Call
  • DIE
  • Line Location:
    • EFFDT+17
Routine Call
  • DIC
  • Line Location:
    • START+6
    • START+39
    • EFFDT+8
Routine Call
  • DIR
  • Line Location:
    • START+17
    • START+24
    • START+42
    • RATE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABMDFEE - [#9002274.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDFEE - [#9002274.01] CURRATE+6, CURRATE+7, LOOP+7, LOOP+8*, NEW+1*, NEW+2*
^DD(9002274.01 START+35
^DD(9002274.0111 EFFDT+6
^ICPT - [#81] CURRATE+2, LOOP+2

Label References

Name Line Occurrences
CURRATE START+8
EFFDT LOOP+9
LOOP START+28
NEW LOOP+7
RATE START+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+37
>> ABM( START+13, RATE+8*, LOOP+8, EFFDT+15
>> ABMEDT START+26*, EFFDT+7
>> ABMENTRY EFFDT+9*, EFFDT+14
ABMEQ START+11*, START+12, START+29!
>> ABMI START+13*, CURRATE+1*, CURRATE+2*, CURRATE+3, CURRATE+6, CURRATE+7, CURRATE+9*, RATE+4*, RATE+5, RATE+8
, LOOP+1*, LOOP+2*, LOOP+3, LOOP+7, LOOP+8, NEW+1, NEW+2, EFFDT+3, EFFDT+12
>> ABMJ START+7*, START+32, CURRATE+6, CURRATE+7, LOOP+7, LOOP+8, NEW+1, NEW+2, EFFDT+2, EFFDT+11
ABMPG START+29!, CURRATE+3*, CURRATE+4, CURRATE+5, CURRATE+7, LOOP+3*, LOOP+4, LOOP+5, LOOP+8, EFFDT+15
ABMRATE CURRATE+11!
ABMRATE( CURRATE+7*, CURRATE+9
>> DA EFFDT+14*
>> DA(1 START+32*, START+33, EFFDT+3*, EFFDT+4, EFFDT+12*, EFFDT+13
>> DA(2 EFFDT+2*, EFFDT+4, EFFDT+11*, EFFDT+13
DIC START+3*, START+6!, START+33*, EFFDT+4*
DIC("A" START+4*
DIC("B" START+5*
DIC("DR" START+38*
DIC("P" START+35*, EFFDT+6*
DIC(0 START+3*, START+34*, EFFDT+5*
>> DIE EFFDT+13*
DIR START+17!, START+24!, START+42!, RATE+9!
DIR("A" START+15*, START+22*, RATE+5*
DIR("B" START+16*, START+23*
DIR(0 START+14*, START+21*, START+42*, RATE+2*
>> DIRUT START+25
>> DR EFFDT+15*, EFFDT+16*
DT EFFDT+16
DTOUT START+10, RATE+1!, RATE+4, RATE+7
DUOUT START+10, RATE+1!, RATE+4, RATE+7
DUZ START+38, EFFDT+16
U START+35, CURRATE+3, CURRATE+7, LOOP+3, LOOP+8, EFFDT+6
>> X START+37*, EFFDT+7*
>> Y START+7, START+18, START+26, RATE+8, EFFDT+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All