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

Package: Third Party Billing

Routine: ABMDE8D


Information

ABMDE8D ; IHS/SD/SDR - Page 8 - MEDICATIONS ; APR 05, 2002

Source Information

Source file <ABMDE8D.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Third Party Billing 8 $$CPT^ABMCVAPI  (PAUSE,SUM)^ABMDE1  (D,MODE)^ABMDE8X  (DX,MOD3)^ABMDEMLC  ^ABMDERR  ($$CDT,$$GETREV,$$SDT)^ABMDUTL  ^ABMDWRAP  $$ONE^ABMFEAPI  
VA Fileman 6 ^DIC  FILE^DICN  ^DIE  ^DIK  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMDEML  

Entry Points

Name Comments DBIA/ICR reference
DISP
A ;EP ADD ENTRY
E ;EDIT EXISTING ENTRY
PROV ;
PC1
NARR ;
DFEE ;GET DISPENSE FEE
EOP
XIT
HD
PPDU ;PRICE PER DISPENSE UNIT
LOOP

External References

Name Field # of Occurrence
$$CPT^ABMCVAPI EOP+9
PAUSE^ABMDE1 DISP+2, EOP
SUM^ABMDE1 DISP+3
D^ABMDE8X DISP+5
MODE^ABMDE8X E+8
DX^ABMDEMLC E+63
MOD3^ABMDEMLC E+13
^ABMDERR LOOP+2
$$CDT^ABMDUTL EOP+4, EOP+5
$$GETREV^ABMDUTL EOP+3
$$SDT^ABMDUTL E+45, E+46
^ABMDWRAP EOP+29
$$ONE^ABMFEAPI PPDU+4
^DIC A+5, PROV+9
FILE^DICN A+11
^DIE E+18, E+29, E+31, E+32, E+38, E+48, E+49, E+52, E+53, E+58
, E+63, NARR+5, PROV+18
^DIK E+23
EN^DIQ1 EOP+35
^DIR E+1, E+5, E+64, PPDU+8, PPDU+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"REVN",?11,"CHARGE",?60,"DAYS",?74,"TOTAL"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?5,"CODE",?11,"DATE",?30,"MEDICATION",?60,"SUPPLY",?68,"QTY",?74,"CHARGE"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,ABMZ("=")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,?72,"========",!?5,"TOTAL",?71,$J("$"_($FN(ABMZ("TOTL"),",",2)),9)
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"[",ABM("I"),"]"
  • Line Location: EOP+1
Function Call: WRITE
  • Prompt: "-",$$CDT^ABMDUTL($P(ABM("X0"),U,28))
  • Line Location: EOP+5
Function Call: WRITE
  • Prompt: " (+)"
  • Line Location: EOP+6
Function Call: WRITE
  • Prompt: " (*)"
  • Line Location: EOP+7
Function Call: WRITE
  • Prompt: ?40,"CPT: ",$P($$CPT^ABMCVAPI(+$P(ABM("X0"),U,29),ABMP("VDT")),U,2)
  • Line Location: EOP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+19
Function Call: WRITE
  • Prompt: ?4,$S($P($G(ABM("X0")),U,24)]"":$P(ABM("X0"),U,24)_" ",1:"<NO NDC> ")
  • Line Location: EOP+20
Function Call: WRITE
  • Prompt: ?60,$J($P(ABM("X0"),U,20),3)
  • Line Location: EOP+30
Function Call: WRITE
  • Prompt: ?68,$J(ABMZ("UNIT"),3)
  • Line Location: EOP+31
Function Call: WRITE
  • Prompt: ?72,$J($FN(($P(ABM("X0"),U,4)*ABMZ("UNIT"))+$P(ABM("X0"),U,5),",",2),8)
  • Line Location: EOP+32
Function Call: WRITE
  • Prompt: *7,!!,"There are no entries to edit, you must first ADD an entry.",!
  • Line Location: E+1
Routine Call
  • DIE
  • Line Location:
    • E+18
    • E+29
    • E+31
    • E+32
    • E+38
    • E+48
    • E+49
    • E+52
    • E+53
    • E+58
    • E+63
    • NARR+5
    • PROV+18
Routine Call
  • DIC
  • Line Location:
    • A+5
    • PROV+9
Routine Call
  • DIR
  • Line Location:
    • E+1
    • E+5
    • E+64
    • PPDU+8
    • PPDU+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls
^ABMDCLM - [#9002274.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] LOOP, PC1, PC1+1, EOP+13, EOP+14, EOP+18, E+7, E+17, E+19, E+25
, E+26, E+44, E+45, E+46, E+50, NARR+1, NARR+2, NARR+4, PPDU+7, PPDU+10
^ABMDEXP - [#9002274.08] E+62, NARR+3, PPDU+2
^ABMDPARM( DFEE+2, DFEE+3, DFEE+4
^ABMNINS( NARR+2, NARR+4, NARR+5
^DD( PROV+7
^DD(9002274.3 A+4
^PS(52.6 - [#52.6] EOP+26
^PS(52.7 - [#52.7] EOP+26
^PSDRUG - [#50] PC1+4, E+55, PPDU+5
^PSRX - [#52] EOP+8, E+29, E+33, E+34, E+36
^PSRX("B" EOP+34
^VA(200 - [#200] EOP+18

Label References

Name Line Occurrences
DFEE E+30, E+51
HD DISP+10, EOP
LOOP DISP+10
NARR E+39, E+59
PC1 LOOP
PPDU E+15
PROV E+40, E+60
XIT DISP+2, LOOP+3

Naked Globals

Name Field # of Occurrence
^(0 PC1+4, EOP+26, E+45, PPDU+10
^(2 E+55
^(7 E+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM LOOP*, XIT!
ABM("FEE" DISP+9*, EOP+38*
ABM("I" LOOP*, PC1+4, EOP+1, EOP+21
ABM("M" EOP+11*
ABM("X" LOOP*, PC1, PC1+1, PC1+4, EOP+13, EOP+14, EOP+18
ABM("X0" PC1*, PC1+2, PC1+4, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8
, EOP+9, EOP+20, EOP+23, EOP+24, EOP+25, EOP+30, EOP+32, EOP+33, EOP+34, EOP+38
, EOP+39, EOP+41, E+50*, E+55, DFEE+3, DFEE+4
ABM("X2" PC1+1*, EOP+11
ABM(52 EOP+36, EOP+37
>> ABMCNCK NARR+4*, NARR+5
>> ABME("CONT" LOOP+2*!
>> ABME(0 LOOP+2
>> ABMFLNM PROV+6*, PROV+7
>> ABMIEN E+26*, E+29, E+33, E+34, E+36
ABMMODE XIT!
ABMMODE(4 E+62, PPDU+2
>> ABMP("CDFN" LOOP, PC1, PC1+1, EOP+13, EOP+14, EOP+18, A+7, E+3, E+17, E+19
, E+21, E+25, E+26, E+44, E+45, E+46, NARR+1, NARR+2, NARR+4, PROV+2
, PROV+13, PROV+20
>> ABMP("DDL" DISP+2
>> ABMP("EXP" NARR+3
>> ABMP("FEE" PPDU+4
>> ABMP("INS" NARR+2, NARR+4, NARR+5
>> ABMP("LDFN" NARR+2, NARR+4, NARR+5
>> ABMP("VDT" EOP+9, PPDU+4
>> ABMP("VTYP" DFEE+2
>> ABMRPRV EOP+13*, EOP+14*, EOP+15, EOP+18
>> ABMSCRIP E+17*, E+19
>> ABMSIEN PROV+3*, PROV+14
>> ABMU("LM" EOP+28*
>> ABMU("RM" EOP+27*
>> ABMU("TXT" EOP+21*, EOP+26*, EOP+37*
>> ABMX("Y" A+9*, E+11*
ABMZ DISP!
ABMZ( PC1+4*, EOP+21, A+9*, E+6, E+11*
ABMZ("=" DISP+6*, HD+2
ABMZ("CHARGE" EOP+39*, EOP+41
ABMZ("DIAG" DISP+7*
ABMZ("DIC" DISP+8*
ABMZ("DISPFEE" E+30, E+32, E+51, E+53, DFEE+1*, DFEE+2*, DFEE+3*, DFEE+4*
ABMZ("DRUG" A+6*, E+2, E+7*, PPDU+4, PPDU+5
ABMZ("ITEM" DISP+8*
ABMZ("IV" PPDU+8*
ABMZ("LNUM" LOOP*
ABMZ("MOD" EOP+10*, EOP+11*, EOP+12, E+12*
ABMZ("NUM" LOOP*, LOOP+1, A+13*, E+1, E+4, E+5
ABMZ("PG" DISP+1*
ABMZ("PPDU" E+29, E+47, PPDU+4*, PPDU+5*, PPDU+9, PPDU+11*
ABMZ("SUB" DISP+7*, PROV+4, PROV+6, PROV+15
ABMZ("TITL" DISP+1*
ABMZ("TOTL" DISP+9*, LOOP+1, EOP+41*
ABMZ("UNIT" PC1+2*, PC1+3*, EOP+31, EOP+32, EOP+41
ABMZ("X" DISP+9*
ABMZ(1 LOOP*
DA EOP+34~*, EOP+36, EOP+37, A+12*, E+6*, E+7, E+11, E+17, E+19, E+25
, E+26, E+44, E+45, E+46, E+50, NARR+1, NARR+2, NARR+4, PPDU+7, PPDU+10
, PROV+3, PROV+12!, PROV+16*, PROV+19*
DA(1 A+7*, E+3*, E+7, E+21*, E+22, E+50, PPDU+7, PPDU+10, PROV+3*, PROV+4
, PROV+14*, PROV+15, PROV+19, PROV+20*
DA(2 PROV+2*, PROV+4, PROV+13*, PROV+15
DD A+10!
DIC DISP!, EOP+35*, A+1!, A+2*, A+8*, E+20!, PROV+1~, PROV+4*, PROV+10!
DIC("DR" PROV+8*
DIC("P" A+4*, PROV+7*
DIC(0 A+3*, PROV+5*
DIE E+9*, E+20!, PROV+1~, PROV+10!, PROV+12!, PROV+15*
>> DIK E+22*
DIQ EOP+35*!
DIQ(0 EOP+35*
DIR E+1!, E+5!, E+20!, E+64!, PPDU+8!, PPDU+11!
DIR("A" E+64*, PPDU+6*, PPDU+9*
DIR("B" PPDU+7*, PPDU+9*, PPDU+10*
DIR(0 E+1*, E+5*, E+64*, PPDU+6*, PPDU+9*
>> DIROUT DISP+2
>> DIRUT E+15
DO A+10!
DR EOP+35*, E+16*, E+27!, E+28*, E+29*, E+30*, E+32*, E+33*, E+34*, E+36*
, E+37*, E+45*, E+46*, E+47*, E+49*, E+51*, E+53*, E+54*, E+55*, E+56*
, E+57*, E+63*, NARR+5*, PPDU+1*, PPDU+2*, PPDU+12*, PROV+1~, PROV+10!, PROV+12!, PROV+17*
>> DTOUT DISP+2
>> DUOUT DISP+2
DUZ(2 LOOP, PC1, PC1+1, EOP+13, EOP+14, EOP+18, E+7, E+17, E+19, E+25
, E+26, E+44, E+45, E+46, E+50, NARR+1, NARR+2, NARR+4, PPDU+7, PPDU+10
, DFEE+2, DFEE+3, DFEE+4
IOSL DISP+2, EOP
M7 EOP+22~, EOP+23*, EOP+26
M8 EOP+22~, EOP+24*, EOP+26
M9 EOP+22~, EOP+25*, EOP+26
U PC1+2, PC1+4, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8, EOP+9
, EOP+11, EOP+18, EOP+20, EOP+21, EOP+23, EOP+24, EOP+25, EOP+26, EOP+30, EOP+32
, EOP+33, EOP+38, EOP+39, EOP+41, A+4, A+9, E+6, E+7, E+11, E+12
, E+17, E+19, E+25, E+26, E+29, E+33, E+34, E+36, E+44, E+45
, E+46, E+55, NARR+1, NARR+2, NARR+3, NARR+4, NARR+5, PPDU+4, PPDU+5, PPDU+10
, DFEE+2, DFEE+3, DFEE+4, PROV+7, PROV+11
>> X A+8*, A+9, E+32, E+53
>> Y A+6, A+8, A+12, E+2, E+4*, E+5, E+6, E+31, E+48, E+52
, PPDU+8, PPDU+11, PROV+11, PROV+16
>> Y(0 E+63
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 |  Naked Globals |  Local Variables |  All