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

Package: Integrated Billing

Routine: IBCNSCD


Information

IBCNSCD ;ALB/CPM - DELETE INSURANCE COMPANY ;01-FEB-95

Source Information

Source file <IBCNSCD.m>

Entry Points

Name Comments DBIA/ICR reference
DEL ; 'Delete Insurance Company' Action
; Required variable input:
; IBCNS -- Pointer to the company in file #36
DELC
DELQ
DELQ1
ALR() ; Has the background clean-up job already been queued?
; Input: None
; Output: 0 -- Job hasn't been queued
; >0 -- Task # of queued job
ALRQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This Insurance Company does not exist!",!
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+33
Function Call: WRITE
  • Prompt: !!,"The company was not deleted."
  • Line Location: DEL+43
Function Call: WRITE
  • Prompt: !!," >> Merging known bills and receivables into ",IBREPN,"... ",!
  • Line Location: DEL+53
Function Call: WRITE
  • Prompt: !?5,$S(IBERR<0:"AR Error: "_$P(IBERR,"^",2),1:"All done.")
  • Line Location: DEL+55
Function Call: WRITE
  • Prompt: !!," >> Flagging ",$P(IBCNSD,"^")," for deletion... "
  • Line Location: DEL+58
Function Call: WRITE
  • Prompt: "done."
  • Line Location: DEL+60
Function Call: WRITE
  • Prompt: !!," >> Queuing the final clean-up job... "
  • Line Location: DEL+63
Function Call: WRITE
  • Prompt: !?5,"This job is already queued as task number ",IBTASK,"."
  • Line Location: DEL+64
Function Call: WRITE
  • Prompt: !?5,$S($D(ZTSK):"The job has been queued to run "_$S($P($H,",",2)<$P(IBDAT,",",2):"at 11:00pm",1:"now")_". The task number is "_ZTSK_".",1:"Unable to queue this job. Please contact your IRM Service.")
  • Line Location: DEL+69

FileMan Files Accessed Via FileMan Db Call

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