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

Package: Integrated Billing

Routine: IBCNSCD3


Information

IBCNSCD3 ;ALB/CPM - DELETE INSURANCE COMPANY (CON'T) ; 11-MAY-95

Source Information

Source file <IBCNSCD3.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIC  Y^DIQ  
Accounts Receivable 1 $$DEL^RCAMINS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCNSCD  

Entry Points

Name Comments DBIA/ICR reference
MERGE ; Determine whether company information must be merged to another.
; Required variable input:
; IBCNS -- Pointer to the company in file #36
MERGEQ
INTRO ; Introductory text.
WARN ; Describe how the delete/merge will work.
HLP ; Reader help for deleting companies
ID ; Display the company identifer.

External References

Name Field # of Occurrence
^DIC MERGE+38
Y^DIQ ID+3
$$DEL^RCAMINS MERGE+16, MERGE+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$TR($J("",80)," ","="),!
  • Line Location: MERGE+12
Function Call: WRITE
  • Prompt: !?3,">> This company is not established as a debtor in Accounts Receivable.",!
  • Line Location: MERGE+17
Function Call: WRITE
  • Prompt: !?3,">> There is a debtor, but no bills, for this company in Accounts Receivable.",!
  • Line Location: MERGE+18
Function Call: WRITE
  • Prompt: !?3,">> There is billing activity associated with this company!",!
  • Line Location: MERGE+19
Function Call: WRITE
  • Prompt: !?3,">> There are known Insurance Reviews associated with this company.",!
  • Line Location: MERGE+22
Function Call: WRITE
  • Prompt: !,"** This company may be deleted from your system without merging. **"
  • Line Location: MERGE+24
Function Call: WRITE
  • Prompt: !!,"You must merge the information from this company into another company!",!
  • Line Location: MERGE+27
Function Call: WRITE
  • Prompt: !?6,$P(IBCNSRD1,"^")
  • Line Location: MERGE+32
Function Call: WRITE
  • Prompt: !?6,$P(IBCNSRD1,"^",2)
  • Line Location: MERGE+33
Function Call: WRITE
  • Prompt: !?6,$P(IBCNSRD1,"^",3)
  • Line Location: MERGE+34
Function Call: WRITE
  • Prompt: !?6,$P(IBCNSRD1,"^",4)," ",$P($G(^DIC(5,+$P(IBCNSRD1,"^",5),0)),"^",2)," ",$E($P(IBCNSRD1,"^",6),1,5),$S($E($P(IBCNSRD1,"^",6),6,9)]"":"-"_$E($P(IBCNSRD1,"^",6),6,9),1:"")
  • Line Location: MERGE+35
Function Call: WRITE
  • Prompt: !
  • Line Location: MERGE+38
Function Call: WRITE
  • Prompt: !!,"No 'merge' company selected!"
  • Line Location: MERGE+38
Function Call: WRITE
  • Prompt: !!,"This company is not established as a debtor in Accounts Receivable!",!,"It will be established as a debtor prior to merging the billing activity."
  • Line Location: MERGE+39
Function Call: WRITE
  • Prompt: !!,"This action is designed to allow the deletion of Insurance companies"
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !,"which meet one of the following criteria:"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !!," o The company was entered by error, and there is little or no insurance"
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !," or billing activity associated with the company."
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !!," o The company is really the same company as another entry in your file"
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !," and you wish to merge all activity for the company to the other entry."
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !!,"It is not necessary, nor desirable, to delete every company which is inactive."
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !!,$TR($J("",70)," ","*")
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !,"There may be entries in various files which point to ",$P(IBCNSD,"^")
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !,"which are not immediately obvious. ",$S(IBREP:"Merg",1:"Delet"),"ing this company"
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !,"will cause a background job to be queued later in the day which will"
  • Line Location: WARN+4
Function Call: WRITE
  • Prompt: !,"find all such entries and delete or merge these pointers as necessary."
  • Line Location: WARN+5
Function Call: WRITE
  • Prompt: !!,"You will receive a mail message from the system when this job is complete."
  • Line Location: WARN+6
Function Call: WRITE
  • Prompt: !,"Please note that there is a potential problem where pointers will be"
  • Line Location: WARN+7
Function Call: WRITE
  • Prompt: !,"deleted when there is no company into which the pointed fields may be"
  • Line Location: WARN+8
Function Call: WRITE
  • Prompt: !,"merged. The mail message will indicate which records those are so they"
  • Line Location: WARN+9
Function Call: WRITE
  • Prompt: !,"may be reviewed.",!,$TR($J("",70)," ","*")
  • Line Location: WARN+10
Function Call: WRITE
  • Prompt: !!,"If you wish to delete this company, enter 'YES.' Otherwise, enter 'NO.'"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !!,"If you enter 'YES,' all information pertaining to ",$P(IBCNSD,"^")
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !,"will be repointed to ",IBREPN,". ",$P(IBCNSD,"^")
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !,"will then be flagged for deletion from your system."
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: !!,"If you do not want this action to occur, enter 'NO.'"
  • Line Location: HLP+5
Function Call: WRITE
  • Prompt: " ",Y,@("$E("_DIC_"IB,0),0)")
  • Line Location: ID+3
Function Call: WRITE
  • Prompt: " (ien: ",+Y,")"
  • Line Location: ID+5
Routine Call
  • DIC
  • Line Location:
    • MERGE+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(5 ID+3
^DIC(36 - [#36] MERGE+28, MERGE+29
^DIC(5 - [#5] MERGE+35, ID+3
^IBT(356.2 - [#356.2] MERGE+22

Label References

Name Line Occurrences
MERGEQ MERGE+24, MERGE+38

Naked Globals

Name Field # of Occurrence
^( MERGE+29, ID+2, ID+3
^(0 MERGE+29, ID+3, ID+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C ID+3*
DIC MERGE+37*, MERGE+38!, ID+3
DIC("A" MERGE+37*
DIC("S" MERGE+37*
DIC("W" MERGE+37*
DIC(0 MERGE+37*
IB ID+1~, ID+3*
IBAR MERGE+11~, MERGE+16*, MERGE+17, MERGE+18, MERGE+19
>> IBCALLAR MERGE+13*, MERGE+19*, MERGE+39
>> IBCALLIR MERGE+13*, MERGE+22*
>> IBCNS MERGE+16, MERGE+22, MERGE+28
>> IBCNSD WARN+2, HLP+2, HLP+3
IBCNSRD MERGE+11~, MERGE+28*, MERGE+29*, MERGE+31
IBCNSRD1 MERGE+11~, MERGE+29*, MERGE+32, MERGE+33, MERGE+34, MERGE+35
IBMERGE MERGE+11~, MERGE+13*, MERGE+19*, MERGE+22*, MERGE+24
>> IBQUIT MERGE+13*, MERGE+38*
>> IBREP MERGE+13*, MERGE+38*, MERGE+39, WARN+3, HLP+1
>> IBREPN MERGE+40*, HLP+3
U ID+2, ID+3, ID+4
>> Y MERGE+38, ID+3*, ID+5
>> Y(0 MERGE+40
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