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

Package: Third Party Billing

Routine: ABMDE8I


Information

ABMDE8I ; IHS/ASDST/DMJ - Page 8 - DENTAL ;

Source Information

Source file <ABMDE8I.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Third Party Billing 4 (PAUSE,SUM)^ABMDE1  ^ABMDE6X  MODE^ABMDE8X  ^ABMDERR  

Entry Points

Name Comments DBIA/ICR reference
DISP
FEE
PC1
V1
EOP
XIT
HD
LOOP

External References

Name Field # of Occurrence
PAUSE^ABMDE1 DISP+1, EOP
SUM^ABMDE1 DISP+2, V1
^ABMDE6X DISP+4
MODE^ABMDE8X FEE+2
^ABMDERR LOOP+5, V1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,"VISIT",?61,"OPER"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?4,"DATE",?11," INPATIENT DENTAL SERVICE",?61,"SITE",?66,"SURF",?73,"CHARGE"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?4,"=====",?11,"================================================",?61,"====",?66,"=====",?73,"======"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?72,"=======",!?70,$J(("$"_$FN(ABM("TOTL"),",",2)),9)
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,"[",ABM("I"),"]"
  • 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,43)
  • Line Location: EOP+3
Function Call: WRITE
  • Prompt: ?62
  • Line Location: EOP+4
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+4
Function Call: WRITE
  • Prompt: ?66,$J($P(ABM("X0"),U,6),4)
  • Line Location: EOP+5
Function Call: WRITE
  • Prompt: ?73,$J($FN($P(ABM("X0"),U,8),",",2),6)
  • Line Location: EOP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] LOOP+1, LOOP+2, PC1
^ABMDEXP - [#9002274.08] FEE+3, FEE+5
^ADEOPS - [#9002010.03] EOP+4
^AUTTADA - [#9999999.31] PC1+1, EOP+3

Label References

Name Line Occurrences
HD FEE+6, EOP
LOOP FEE+6
PC1 LOOP
XIT DISP+1, LOOP+6

Naked Globals

Name Field # of Occurrence
^( LOOP+2
^(0 EOP+3
^(88 EOP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM DISP!, LOOP*, LOOP+1, LOOP+2*, XIT!
ABM("I" LOOP*, LOOP+1, LOOP+2, PC1+1, EOP+1
ABM("TOTL" FEE+4*, LOOP+4, EOP+7*
ABM("X" LOOP+1*, LOOP+2*, PC1, PC1+1
ABM("X0" PC1*, PC1+1, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7
ABME DISP!
ABME("CONT" LOOP+5*!
ABME(0 LOOP+5
ABME(137 DISP+4!
ABMMODE XIT!
ABMMODE(9 FEE+3, FEE+5
>> ABMP("CDFN" LOOP+1, LOOP+2, PC1
>> ABMP("DDL" DISP+1
>> ABMP("VISTDT" FEE+4
ABMZ DISP!
ABMZ( PC1+1*
ABMZ("CAT" FEE*
ABMZ("CHRG" FEE+4*
ABMZ("DIAG" FEE+3*
ABMZ("DIC" FEE+4*
ABMZ("DR" FEE+4*, FEE+5*
ABMZ("ITEM" FEE+4*
ABMZ("LNUM" LOOP*
ABMZ("NUM" LOOP*, LOOP+1*, LOOP+2*
ABMZ("PG" DISP*
ABMZ("SUB" FEE+1*
ABMZ("TITL" DISP*, V1*
ABMZ("X" FEE+4*
ABMZ(1 LOOP*
>> DIROUT DISP+1, LOOP
>> DTOUT DISP+1, LOOP
>> DUOUT DISP+1, LOOP
DUZ(2 LOOP+1, LOOP+2, PC1
IOSL DISP+1, EOP
U PC1+1, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All