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 |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 2 (INTRO,MERGE,WARN)^IBCNSCD3  SORRY^IBTRE1  
VA FileMan 2 ^DIE  ^DIR  
Accounts Receivable 1 EN^RCAMINS  
Kernel 1 (,ISQED)^%ZTLOAD  
List Manager 1 (FULL,PAUSE)^VALM1  

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

Package Total Caller Graph
Integrated Billing 1 IBCNSC INS CO DELETE COMPANY  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^%ZTLOAD DEL+68
ISQED^%ZTLOAD ALR+6
^DIE DEL+49, DEL+60
^DIR DEL+33, DEL+43
INTRO^IBCNSCD3 DEL+33
MERGE^IBCNSCD3 DEL+36
WARN^IBCNSCD3 DEL+39
SORRY^IBTRE1 DEL+9
EN^RCAMINS DEL+54
FULL^VALM1 DEL+5
PAUSE^VALM1 DELQ

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
Routine Call
  • DIE
  • Line Location:
    • DEL+49
    • DEL+60
Routine Call
  • DIR
  • Line Location:
    • DEL+33
    • DEL+43

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] DEL+7
^DPT("AB" DEL+14
^IBA(355.3 - [#355.3] DEL+18
^IBA(355.9 - [#355.9] DEL+22
^IBA(355.91 - [#355.91] DEL+22
^IBA(355.92 - [#355.92] DEL+28
^IBA(355.95 - [#355.95] DEL+25
^IBA(355.96 - [#355.96] DEL+25
^IBE(350.9 - [#350.9] DEL+70*, ALR+5
^IBT(356.2 - [#356.2] DEL+46, DEL+48, DEL+49
^XUSEC("IB INSURANCE SUPERVISOR" DEL+9

Label References

Name Line Occurrences
$$ALR DEL+64
ALRQ ALR+5
DELC DEL+64
DELQ DEL+6, DEL+8, DEL+9, DEL+10, DEL+14, DEL+18, DEL+22, DEL+25, DEL+28, DEL+36
, DEL+43
DELQ1 DEL+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DEL+49*!, DEL+59*, DEL+60!
DIE DEL+49*!, DEL+59*, DEL+60!
DIR DEL+33!, DEL+43!
DIR("?" DEL+42*
DIR("A" DEL+42*
DIR(0 DEL+33*, DEL+42*
DIROUT DELQ1+1!
DIRUT DEL+33, DELQ1+1!
DR DEL+49*!, DEL+59*, DEL+60!
DTOUT DELQ1+1!
DUOUT DEL+33, DELQ1+1!
DUZ DEL+9
I DEL+4~, DEL+67*
IBAB DELQ1!
IBBU DELQ1!
IBC DEL+4~, DEL+48*, DEL+49
IBCALLAR DEL+53, DEL+54, DEL+55, DELQ1+1!
IBCALLIR DEL+46, DELQ1+1!
>> IBCNS DEL+6, DEL+7, DEL+14, DEL+18, DEL+22, DEL+25, DEL+28, DEL+46, DEL+48, DEL+49
, DEL+54, DEL+59
IBCNSD DEL+7*, DEL+8, DEL+10, DEL+58, DEL+67, DELQ1!
IBCNSN DEL+67*, DELQ1!
IBDAT DEL+4~, DEL+65*, DEL+66, DEL+69
IBERR DEL+54*, DEL+55, DELQ1+1!
IBIP DELQ1!
IBMRGF DELQ1!
IBMRGN DELQ1!
IBQUIT DEL+36, DELQ1+1!
IBREP DEL+42, DEL+49, DEL+54, DEL+59, DELQ1!
IBREPN DEL+47, DEL+53, DELQ1!
IBTASK DEL+64*, DELQ1!
IBX DEL+49*, DELQ1!
>> VALMBCK DEL+5*, DELC*
Y DEL+4~, DEL+43
ZTDESC DEL+4~, DEL+66*
ZTDTH DEL+4~, DEL+66*
ZTIO DEL+4~, DEL+66*
ZTRTN DEL+4~, DEL+66*
ZTSAVE DEL+4~
ZTSAVE( DEL+67*
ZTSK DEL+69, DEL+70, DELQ1+1!, ALR+4~, ALR+5*, ALR+6*, ALRQ
ZTSK(0 ALR+6
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 |  Local Variables |  All