Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call