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

Package: Third Party Billing

Routine: ABMDTINS


Information

ABMDTINS ; IHS/ASDST/DMJ - Table Maintenance of INSURER FILE ;

Source Information

Source file <ABMDTINS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 6 ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Third Party Billing 1 ^ABMDTIN1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMDBETA  

Entry Points

Name Comments DBIA/ICR reference
SKEY
ADDR
EDIT
PAZ
CLINIC ;
ADD
XIT
KEYWD ; EP for building Keyword Long Name Field
KILL
SEL

External References

Name Field # of Occurrence
^ABMDTIN1 CLINIC+15
^DIC SEL, CLINIC+8
FILE^DICN ADD+5
^DIE EDIT+3, EDIT+5, ADDR+1, ADDR+3, ADDR+4, ADDR+6, ADDR+9, ADDR+13, ADDR+16, ADDR+18
, ADDR+23, ADDR+24, CLINIC+14, KEYWD+11
^DIK KILL
$$GET1^DIQ ADDR+9
^DIR ABMDTINS+10, ABMDTINS+14, ADD+1, ADD+3, PAZ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WARNING: Before ADDING a new INSURER you should ensure that it"
  • Line Location: ABMDTINS+8
Function Call: WRITE
  • Prompt: !?9,"does not already exist!"
  • Line Location: ABMDTINS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ABMDTINS+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: *7,!!,"The Insurer '",X,"' already exists!"
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !,"OK, adding..."
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: *7,!!,"ERROR: INSURER NOT CREATED",!!
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: *7,!!,"Record in USE by another USER, try Later!"
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!,"<--------------- MAILING ADDRESS --------------->"
  • Line Location: ADDR+0
Function Call: WRITE
  • Prompt: !!,"<--------------- BILLING ADDRESS --------------->",!?6,"(if Different than Mailing Address)"
  • Line Location: ADDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+16
Function Call: WRITE
  • Prompt: !!,*7,"<Data Incomplete: Entry Deleted>"
  • Line Location: KILL+0
Routine Call
  • DIE
  • Line Location:
    • EDIT+3
    • EDIT+5
    • ADDR+1
    • ADDR+3
    • ADDR+4
    • ADDR+6
    • ADDR+9
    • ADDR+13
    • ADDR+16
    • ADDR+18
    • ADDR+23
    • ADDR+24
    • CLINIC+14
    • KEYWD+11
Routine Call
  • DIC
  • Line Location:
    • SEL
    • CLINIC+8
Routine Call
  • DIR
  • Line Location:
    • ABMDTINS+10
    • ABMDTINS+14
    • ADD+1
    • ADD+3
    • PAZ

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTNINS - [#9999999.18] Classic Fileman Calls,  GET1^DIQ
^AUTTINTY - [#9999999.181] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMNINS( ADDR+10, ADDR+20, ADDR+21!
^AICDKWLC - [#9001010] SKEY
^AICDKWLC("B" KEYWD+1
^AUTNINS - [#9999999.18] EDIT, ADDR+5, ADDR+15, ADDR+20, CLINIC+7, XIT, KEYWD+1, KEYWD+2, KEYWD+10
^AUTNINS("B" ADD+2

Label References

Name Line Occurrences
ADD ABMDTINS+11
ADDR EDIT+2
EDIT SEL+1
KEYWD EDIT+4
KILL EDIT+3, EDIT+5, ADDR+1, ADDR+3
PAZ ADD+2, ADD+6, EDIT, KILL
SEL SEL, ADD+3
SKEY KEYWD+4, KEYWD+7, KEYWD+8, KEYWD+9
XIT ABMDTINS+10, ABMDTINS+14, SEL, ADD+1, ADDR+4, ADDR+5, ADDR+13, ADDR+16, ADDR+18, ADDR+24
, CLINIC+2, CLINIC+15, CLINIC+17, KILL+1

Naked Globals

Name Field # of Occurrence
^( ADDR+10, SKEY
^(0 CLINIC+7*, KEYWD+2, SKEY
^(4 KEYWD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM ABMDTINS+7!, ADD*, ADDR+20*, ADDR+21, ADDR+22, XIT+1!, KEYWD+3*, KEYWD+4*, KEYWD+5, KEYWD+6
, KEYWD+7*, KEYWD+8*, SKEY*, SKEY+1
ABM("CH" KEYWD+6*, KEYWD+7, KEYWD+8
ABM("DFLT" ADDR+10*, ADDR+13, ADDR+20
ABM("DFN" SEL+1*, ADD*, ADD+7*, EDIT, EDIT+1, CLINIC+3, XIT
ABM("I" KEYWD+1*, KEYWD+3
ABM("L" KEYWD+1*, SKEY
ABM("LOCK" ADD*
ABM("MODE" SEL+1*, ADD*, ADDR+2*, KILL
ABM("O" KEYWD+1*, KEYWD+2*, KEYWD+3*
ABM("OL" KEYWD+5*, KEYWD+6, KEYWD+8*, KEYWD+9
ABM("R" KEYWD+1*, KEYWD+10, KEYWD+11, SKEY+1*
ABM("X" ADD+1*, ADD+3, ADD+5, KEYWD+1*, KEYWD+3, KEYWD+10*, KEYWD+11
DA EDIT+1*, ADDR+5, ADDR+9, ADDR+10, ADDR+15, ADDR+20, ADDR+21, ADDR+22*, ADDR+23*, CLINIC+11*
, XIT+2!, KEYWD+1, KEYWD+2, KEYWD+10
DA(1 ADDR+22*, ADDR+23, CLINIC+3*, CLINIC+7
DD ADD+5!
DIC ABMDTINS+15!, SEL*!, ADD+5*, CLINIC+4*, CLINIC+9!, XIT+1!
DIC("A" SEL*, CLINIC+6*
DIC("S" ABMDTINS+15*
DIC(0 SEL*, ADD+5*, CLINIC+5*
DIE EDIT+1*, ADDR+14*, ADDR+17*, ADDR+22*, ADDR+23*, CLINIC+12*, XIT+1!, KILL
>> DIK KILL*
DIR ABMDTINS+10!, ABMDTINS+12!, ABMDTINS+14!, ADD+1!, ADD+3!, PAZ!
DIR("?" ABMDTINS+13*
DIR("A" ABMDTINS+10*, ABMDTINS+12*, ADD+1*, ADD+3*
DIR("B" ABMDTINS+10*, ABMDTINS+12*
DIR(0 ABMDTINS+10*, ABMDTINS+12*, ADD+1*, ADD+3*, PAZ*
>> DIROUT ABMDTINS+14, CLINIC+15
>> DIRUT ABMDTINS+10, ABMDTINS+14, ADD+1
DO ADD+5!
DR EDIT+3*, EDIT+5*, ADDR+1*, ADDR+3*, ADDR+4*, ADDR+6*, ADDR+9*, ADDR+13*, ADDR+15*, ADDR+17!
, ADDR+18*, ADDR+22*, ADDR+23!, ADDR+24*, CLINIC+13*, XIT+2!, KEYWD+11*
>> DTOUT SEL, ADD+3, CLINIC+2, CLINIC+10, CLINIC+15
>> DUOUT SEL, ADD+3, CLINIC+2, CLINIC+10, CLINIC+15
DUZ(2 ADDR+10, ADDR+20, ADDR+21
U ADDR+5, ADDR+15, ADDR+20, KEYWD+1, KEYWD+2, KEYWD+10, SKEY
X SEL, ADD+1, ADD+2, ADD+5*, XIT+2!
Y ABMDTINS+10, ABMDTINS+11, ABMDTINS+15, SEL, SEL+1, ADD+3, ADD+6, ADD+7, EDIT+3, EDIT+5
, ADDR+1, ADDR+3, ADDR+4, ADDR+5, ADDR+6, ADDR+13, ADDR+16, ADDR+18, ADDR+24, CLINIC+2
, CLINIC+10, CLINIC+11, XIT+2!
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