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

Package: Third Party Billing

Routine: ABMDFAWP


Information

ABMDFAWP ; IHS/ASDST/DMJ - IMPORT AWP FROM DRUG FILE ;

Source Information

Source file <ABMDFAWP.m>

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
EFFDT ;
START ;START
LOOP ;LOOP THROUGH DRUG FILE

External References

Name Field # of Occurrence
NOW^%DTC LOOP+29
$$SDT^ABMDUTL START+50
$$EN^ABMVDF START+6
^DIC START+16, LOOP+33, EFFDT+8
^DIE LOOP+20, EFFDT+17
^DIR START+10, START+22, START+30, START+38, START+40, START+45, START+55, LOOP+37
^XBFMK START+26, LOOP+15, LOOP+24, EFFDT+1, EFFDT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will transfer the AWP price per dispense unit"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"or the cost per dispense unit from the drug file to the Third"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"Party Billing Fee Table, and will apply an optional user specified"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"percentage increase or decrease.",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF")," We advise saving global ABMDFEE before continuing.",!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !
  • Line Location: START+34
Function Call: WRITE
  • Prompt: !!,"I will move the ",$P("Average Wholesale Price per Dispense Unit^Price (cost) per Dispense Unit","^",ABMFIELD)," field from the "
  • Line Location: START+48
Function Call: WRITE
  • Prompt: !,"Drug File to the 3P Fee Table with an effective date of "_$$SDT^ABMDUTL(ABMEDT)_".",!
  • Line Location: START+50
Function Call: WRITE
  • Prompt: !!,"Finished.",!
  • Line Location: LOOP+36
Routine Call
  • DIE
  • Line Location:
    • LOOP+20
    • EFFDT+17
Routine Call
  • DIC
  • Line Location:
    • START+16
    • LOOP+33
    • EFFDT+8
Routine Call
  • DIR
  • Line Location:
    • START+10
    • START+22
    • START+30
    • START+38
    • START+40
    • START+45
    • START+55
    • LOOP+37

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] LOOP+3*, LOOP+12, LOOP+13*, LOOP+14*
^DD(9002274.01 LOOP+28
^DD(9002274.0125 EFFDT+6
^PSDRUG - [#50] LOOP+5, LOOP+6

Label References

Name Line Occurrences
EFFDT LOOP+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOOP+30
>> ABMEDT START+32*, START+50, EFFDT+7
>> ABMENTRY EFFDT+9*, EFFDT+14
>> ABMFIELD START+24*, START+48, START+57, START+58
ABMI LOOP+4*, LOOP+5*, LOOP+6, LOOP+12, LOOP+13, LOOP+14, LOOP+19, LOOP+35!, EFFDT+3, EFFDT+12
ABMID START+1!, START+41*, START+42, START+51, START+52, START+59, START+62, LOOP+7, LOOP+32, LOOP+35!
>> ABMOPCT START+47*, LOOP+32
ABMPCE START+58*, LOOP+6, LOOP+35!
ABMPCT START+46*, START+47, START+52, START+60*, START+61*, START+63*, START+64*, LOOP+8, LOOP+32, LOOP+35!
ABMPRICE LOOP+6*, LOOP+8*, LOOP+9*, LOOP+10*, LOOP+11, LOOP+18, LOOP+35!, EFFDT+15
ABMSUB START+57*, LOOP+6, LOOP+35!
>> ABMTABLE START+18*, LOOP+3, LOOP+12, LOOP+13, LOOP+14, LOOP+16, LOOP+25, EFFDT+2, EFFDT+11
>> DA LOOP+19*, EFFDT+14*
>> DA(1 LOOP+16*, LOOP+17, LOOP+25*, LOOP+26, EFFDT+3*, EFFDT+4, EFFDT+12*, EFFDT+13
>> DA(2 EFFDT+2*, EFFDT+4, EFFDT+11*, EFFDT+13
DIC START+12*, LOOP+26*, LOOP+35!, EFFDT+4*
DIC("A" START+14*
DIC("B" START+15*
DIC("DR" LOOP+31*, LOOP+32*
DIC("P" LOOP+28*, EFFDT+6*
DIC(0 START+13*, LOOP+27*, EFFDT+5*
>> DIE LOOP+17*, EFFDT+13*
DIR START+10!, START+22!, START+30!, START+38!, START+40!, START+45!, START+55!, LOOP+37!
DIR("A" START+8*, START+20*, START+28*, START+36*, START+43*, START+54*
DIR("B" START+9*, START+21*, START+29*, START+37*, START+44*, START+54*
DIR(0 START+7*, START+19*, START+27*, START+35*, START+40*, START+42*, START+53*, LOOP+37*
>> DIRUT START+31
>> DR LOOP+18*, EFFDT+15*, EFFDT+16*
DT EFFDT+16
DUZ LOOP+31, EFFDT+16
U LOOP+6, LOOP+28, EFFDT+6
>> X LOOP+30*, EFFDT+7*
>> Y START+10, START+17, START+18, START+23, START+24, START+32, START+39, START+40, START+41, START+46
, START+56, 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