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

Package: Third Party Billing

Routine: ABMDE8C


Information

ABMDE8C ; IHS/ASDST/DMJ - Page 8 - ROOM AND BOARD ;

Source Information

Source file <ABMDE8C.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Third Party Billing 7 (PAUSE,SUM)^ABMDE1  C^ABMDE8X  ^ABMDERR  ($$CDT,$$GETREV)^ABMDUTL  ^ABMDWRAP  $$ONE^ABMFEAPI  $$EN^ABMVDF  
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP
A ;ADD ENTRY
FEE
E ;EDIT EXISTING ENTRY
PC1
DEL100 ;if 100 ask to delete
EOP
XIT
HD
LOOP ;LOOP

External References

Name Field # of Occurrence
PAUSE^ABMDE1 DISP+2, EOP
SUM^ABMDE1 DISP+3
C^ABMDE8X FEE+3
^ABMDERR LOOP+3
$$CDT^ABMDUTL EOP+5
$$GETREV^ABMDUTL PC1+3
^ABMDWRAP EOP+15
$$ONE^ABMFEAPI E+11
$$EN^ABMVDF DEL100+3
^DIC A+4
FILE^DICN A+8
^DIE EOP+1, E+15, E+24, E+27
^DIR E+6, DEL100+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?71,"TOTAL"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?5,"REVENUE CODE",?37,"CPT",?44,"CHARGE",?54,"DAYS",?61,"UNITS",?71,"CHARGE"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?5,"=============================",?37,"===",?44,"======",?54,"====",?61,"=====",?70,"========="
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?54,"====",?70,"=========",!?53,$J(ABMZ("DAYS"),4),?69,$J("$"_($FN(ABMZ("TOTL"),",",2)),10)
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,"[",ABM("I"),"]"
  • Line Location: EOP+2
Function Call: WRITE
  • Prompt: ?5,$P(ABMZ(ABM("I")),U)
  • Line Location: EOP+6
Function Call: WRITE
  • Prompt: !!,"You have entered an all inclusive revenue code. Do you want to"
  • Line Location: DEL100+2
Function Call: WRITE
  • Prompt: !,$$EN^ABMVDF("RVN"),"DELETE ALL",$$EN^ABMVDF("RVF")," line items from the other pages?",!
  • Line Location: DEL100+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL100+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL100+11
Routine Call
  • DIE
  • Line Location:
    • EOP+1
    • E+15
    • E+24
    • E+27
Routine Call
  • DIC
  • Line Location:
    • A+4
Routine Call
  • DIR
  • Line Location:
    • E+6
    • DEL100+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABMDCLM - [#9002274.3] Classic Fileman Calls
^AUTTREVN - [#9999999.72] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] LOOP+1, PC1, EOP+1, E+8, E+17, E+19, E+26, E+27, DEL100+8, DEL100+10!
^ABMDEXP - [#9002274.08] E+18
^ABMNINS( E+17, E+19, E+20
^AUTTREVN - [#9999999.72] EOP+14
^DD(9002274.3 A+1, DEL100+9
^DIC(81.1 - [#81.1] E+27
^ICPT - [#81] PC1+3, E+27

Label References

Name Line Occurrences
A E+1
DEL100 A+11
HD FEE+4, EOP
LOOP FEE+4
PC1 LOOP+1
XIT DISP+2, LOOP+4

Naked Globals

Name Field # of Occurrence
^(0 PC1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM LOOP+1*, PC1+3, XIT!
ABM("I" LOOP+1*, PC1+3, EOP+2, EOP+6, EOP+7
ABM("X" LOOP+1*, PC1*, PC1+3, EOP+1, EOP+9, EOP+14
ABM("X0" PC1*, PC1+1, PC1+3, EOP+3, EOP+5, EOP+8, EOP+12, EOP+13
>> ABMCNCK E+19*, E+20
>> ABME("CONT" LOOP+3*!
>> ABME(0 LOOP+3
>> ABMP("CDFN" LOOP+1, PC1, EOP+1, A+6, E+4, E+17, E+19, E+26, E+27, DEL100+8
, DEL100+10
>> ABMP("DDL" DISP+2
>> ABMP("EXP" E+18
>> ABMP("FEE" E+11
>> ABMP("INS" E+17, E+19, E+20
>> ABMP("LDFN" E+17, E+19, E+20
>> ABMP("VDT" E+11
>> ABMTCPT E+26*, E+27
>> ABMU("LM" EOP+15*
>> ABMU("RM" EOP+15*
>> ABMU("TXT" EOP+14*
>> ABMU(1 EOP+7*
>> ABMU(2 EOP+8*
>> ABMU(3 EOP+9*, EOP+10*
>> ABMU(4 EOP+11*
>> ABMU(5 EOP+12*
ABMZ DISP+1!
ABMZ( PC1+3*, EOP+6, EOP+7, E+7
ABMZ("CAT" FEE*
ABMZ("CHRG" FEE+1*
ABMZ("DAYS" FEE*, FEE+2*, LOOP+2, EOP+9*
ABMZ("DIC" FEE+1*
ABMZ("DR" FEE+1*
ABMZ("ITEM" FEE+1*
ABMZ("LNUM" LOOP+1*
ABMZ("NUM" LOOP+1*, LOOP+2, A+10*, E+1, E+5, E+6
ABMZ("PG" DISP+1*
ABMZ("RVCODE" A+5*, A+7, E+2, E+8*, E+11, DEL100+1
ABMZ("SUB" FEE*
ABMZ("TITL" DISP+1*
ABMZ("TOTL" FEE+2*, LOOP+2, EOP+13*
ABMZ("UC" E+11*, E+13
ABMZ("UNIT" PC1+1*, PC1+2*, EOP+9, EOP+11, EOP+12, EOP+13
ABMZ("X" FEE+2*
ABMZ(1 LOOP+1*
DA EOP+1*, A+9*, E+3!, E+7*, E+8, E+9, E+17, E+19, E+26, E+27
DA(1 A+6*, E+4*, E+8
DD A+8!
DIC DISP+1!, A+2*, A+7*
DIC("A" A+3!
DIC("P" A+1*
DIC(0 A+2*
>> DIE EOP+1*, E+12*
DIR E+6!, DEL100+4!
DIR("B" DEL100+4*
DIR(0 E+6*, DEL100+4*
>> DIROUT DISP+2
DO A+8!
>> DR EOP+1*, E+13*, E+16*, E+20*, E+23*, E+27*
>> DTOUT DISP+2
>> DUOUT DISP+2
DUZ(2 LOOP+1, PC1, EOP+1, E+8, E+17, E+19, E+26, E+27, DEL100+8, DEL100+10
I DEL100+7~*, DEL100+8, DEL100+9, DEL100+10
IOSL DISP+2, EOP
U PC1, PC1+1, PC1+3, EOP+1, EOP+6, EOP+7, EOP+8, EOP+9, EOP+10, EOP+11
, EOP+12, EOP+13, EOP+14, A+1, E+8, E+11, E+17, E+18, E+19, E+20
, E+26, E+27, DEL100+9
>> X A+7*
>> Y A+5, A+9, E+5*, E+6, E+7, DEL100+5
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