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

Package: Third Party Billing

Routine: ABMDE6


Information

ABMDE6 ; IHS/ASDST/DMJ - Page 6 - DENTAL ;

Source Information

Source file <ABMDE6.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Third Party Billing 6 (PAUSE,SUM)^ABMDE1  ^ABMDE6X  DX^ABMDEMLC  SEL^ABMDEOPT  ^ABMDERR  $$ONE^ABMFEAPI  
VA Fileman 5 ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DISP ;PAGE DISPLAY
A ;ADD LINE ITEM
E ;EDIT LINE ITEM
PROV ;EP
PC1
V1
EOP
OPT9
HD ;
XIT
LOOP ;LOOP THROUGH LINE ITEMS
E2 ;

External References

Name Field # of Occurrence
PAUSE^ABMDE1 DISP+4, EOP
SUM^ABMDE1 DISP+5, V1
^ABMDE6X DISP+7
DX^ABMDEMLC E2+16
SEL^ABMDEOPT OPT9+3
^ABMDERR LOOP+9, V1+1
$$ONE^ABMFEAPI E2+5
^DIC A+4, PROV+18
FILE^DICN A+9
^DIE E2+9, E2+10, E2+14, E2+16, E2+17, E2+18, E2+19, PROV+27
^DIK E+21
^DIR E+5, E+14, E+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT9+3
Function Call: WRITE
  • Prompt: !?4,"VISIT",?56,"ORAL",?61,"OPER"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?4,"DATE",?11," DENTAL SERVICE",?56,"CAV",?61,"SITE",?66,"SURF",?73,"CHARGE"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?4,"=====",?11,"============================================",?56,"====",?61,"====",?66,"=====",?73,"======"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?72,"=======",!?70,$J(("$"_$FN(ABM("TOTL"),",",2)),9)
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !,"[",ABMZ("NUM"),"]"
  • Line Location: EOP+1
Function Call: WRITE
  • Prompt: ?4,$E($P(ABM("X0"),U,7),4,5)_"/"_$E($P(ABM("X0"),U,7),6,7)
  • Line Location: EOP+2
Function Call: WRITE
  • Prompt: ?11,$P(^AUTTADA(+ABM("X0"),0),U)," ",$E($P(^(0),U,2),1,39)
  • Line Location: EOP+3
Function Call: WRITE
  • Prompt: ?57,$P($G(ABM("X0")),U,11)
  • Line Location: EOP+4
Function Call: WRITE
  • Prompt: ?62
  • Line Location: EOP+5
Function Call: WRITE
  • Prompt: $S($P(ABM("X0"),U,5)="":"",$D(^ADEOPS($P(ABM("X0"),U,5),88)):$P(^(88),U),1:"")
  • Line Location: EOP+5
Function Call: WRITE
  • Prompt: ?66,$J($P(ABM("X0"),U,6),4)
  • Line Location: EOP+6
Function Call: WRITE
  • Prompt: ?73,$J($FN(ABM("ITMTOTL"),",",2),6)
  • Line Location: EOP+9
Routine Call
  • DIE
  • Line Location:
    • E2+9
    • E2+10
    • E2+14
    • E2+16
    • E2+17
    • E2+18
    • E2+19
    • PROV+27
Routine Call
  • DIC
  • Line Location:
    • A+4
    • PROV+18
Routine Call
  • DIR
  • Line Location:
    • E+5
    • E+14
    • E+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABMDCLM - [#9002274.3] Classic Fileman Calls
^AUTTADA - [#9999999.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] LOOP+3, LOOP+5, LOOP+6!, PC1, E2+2, PROV+1, PROV+4, PROV+5, PROV+6, PROV+17
^ABMDEXP - [#9002274.08] E2+7
^ADEOPS - [#9002010.03] EOP+5
^AUTTADA - [#9999999.31] PC1+2, EOP+3, E2+3, E2+11
^DD( PROV+14
^DD(9002274.3 A+6
^VA(200 - [#200] PROV+5

Label References

Name Line Occurrences
@( OPT9+7
DISP OPT9+2
HD DISP+9, EOP
LOOP DISP+9
OPT9 OPT9+8
PC1 LOOP+7
PROV E2+20
XIT OPT9+4, OPT9+5, DISP+4, LOOP+10, E+29, E2+1

Naked Globals

Name Field # of Occurrence
^(0 EOP+3
^(88 EOP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM OPT9!, LOOP+1*, LOOP+3*, LOOP+5, LOOP+6, XIT!, E+10*, E+11, E+12, E+17*
, E+19
ABM("ACTION" OPT9+3*, A+2, E+1, E+23
ABM("DO" OPT9+6*, OPT9+7
ABM("I" E+10*, E+17*
ABM("ITMTOTL" EOP+7*, EOP+8*, EOP+9, EOP+10
ABM("TOTL" OPT9+1*, LOOP+8, EOP+10*
ABM("X" LOOP+4*, LOOP+5*, LOOP+6, PC1, PC1+2
ABM("X0" PC1*, PC1+2, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8
ABME OPT9!
ABME("CONT" LOOP+9*!
ABME(0 LOOP+9
>> ABMFLNM PROV+13*, PROV+14
>> ABMIEN PROV+3*, PROV+4*, PROV+5, PROV+6
>> ABMP("CDFN" LOOP+3, LOOP+5, LOOP+6, PC1, A+1, E+18, PROV+1, PROV+4, PROV+5, PROV+6
, PROV+9, PROV+17, PROV+22
>> ABMP("DDL" OPT9+4, DISP+4
>> ABMP("EXP" E2+7
>> ABMP("FEE" E2+5
>> ABMP("OPT" OPT9+3*
>> ABMP("PAGE" OPT9+4
>> ABMP("QUIT" OPT9+4*
>> ABMP("VDT" E2+5
>> ABMP("VISTDT" E2+10
>> ABMX("ANS" E+11*, E+12*, E+13
>> ABMXANS A+9*, E+7*, E+9, E+10, E+17, E+25*, E+31*, PROV+10, PROV+23
ABMZ DISP+1!
ABMZ( PC1+2*, E+11, E+12, E+19, E+31
ABMZ("ADACODE" E2+2*, E2+3, E2+11
ABMZ("CHRG" E2+5*, E2+18
ABMZ("DCD" E2+3*, E2+5
ABMZ("ITEM" DISP+3*, E+3, E+27
ABMZ("LNUM" LOOP+1*
ABMZ("NUM" LOOP+2*, PC1+1*, PC1+2, EOP+1, E+2, E+25, E+26
ABMZ("OPSITE" E2+11*, E2+12
ABMZ("PG" DISP+2*
ABMZ("SUB" DISP+8*, PROV+1, PROV+4, PROV+5, PROV+6, PROV+11, PROV+13, PROV+17, PROV+24
ABMZ("TITL" DISP+2*, V1*
ABMZ(1 LOOP+1*, E+25
DA OPT9+7!, A+1!, A+9*, E+19*, E+25*, E+31*, E2+2, PROV+1, PROV+4, PROV+5
, PROV+6, PROV+8!, PROV+19!, PROV+21!, PROV+25*
DA(1 A+1*, E+18*, E+20, E2+2, E2+6, PROV+10*, PROV+11, PROV+17, PROV+23*, PROV+24
DA(2 PROV+9*, PROV+11, PROV+22*, PROV+24
DD A+9!
DIC A+3*, A+7*, PROV+8!, PROV+11*, PROV+19!
DIC("DR" PROV+16*, PROV+17*
DIC("P" A+6*, PROV+14*, PROV+15
DIC(0 A+3*, PROV+12*
DIE E2+6*, PROV+8!, PROV+19!, PROV+21!, PROV+24*
>> DIK E+20*
DIR E+2!, E+5!, E+13!, E+14!, E+26!, E+28!
DIR("?" E+3*, E+27*
DIR("A" E+4*, E+13*, E+27*
DIR(0 E+2*, E+13*, E+26*
>> DIROUT OPT9+5, DISP+4, E+9, E+15, E+29, E2+1
>> DIRUT E+9
DO A+9!
DR E2+9*, E2+10*, E2+13*, E2+16*, E2+17*, E2+18*, E2+19*, PROV+8!, PROV+19!, PROV+21!
, PROV+26*
>> DTOUT OPT9+5, DISP+4, E+9, E+15, E+29, E2+1
>> DUOUT OPT9+5, DISP+4, E+9, E+15, E+29, E2+1
DUZ(2 LOOP+3, LOOP+5, LOOP+6, PC1, E2+2, PROV+1, PROV+4, PROV+5, PROV+6, PROV+17
IOSL DISP+4, EOP
U PC1+2, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8, A+5, A+6
, E+11, E+12, E+19, E+25, E+31, E2+2, E2+3, E2+5, PROV+5, PROV+6
, PROV+14, PROV+20
>> X A+5*
>> Y OPT9+3, OPT9+4, OPT9+6, A+4, A+5, A+9, E+7, E+16, E+25*, E+29
, E+31, E2+1, E2+7, E2+10, E2+12, E2+16, E2+17, E2+18, PROV+20, PROV+25
>> Y(0 E2+16
Info |  Source |  Call 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