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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNSJ3

Package: Integrated Billing

Routine: IBCNSJ3


Information

IBCNSJ3 ;ALB/CPM - ADD NEW INSURANCE PLAN ; 11-JAN-95

Source Information

Source file <IBCNSJ3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 6 WAIT^IBCNBAA  SEND^IBCNHHLO  $$NIF^IBCNHUT1  $$COMP^IBCNSJ  $$ADDH^IBCNSU  $$EXPAND^IBTRE  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 6 IBCNSJ12  IBCNSJ5  IBCNSM3  IBCNSM32  IBCNSP2  IBCNSUR  

Entry Points

Name Comments DBIA/ICR reference
NEW(IBCNS,IBCPOL,IBFG,IBKEY,BYPASS) ; Add a new insurance plan
; Input: IBCNS -- Pointer to an insurance company in file #36
; IBFG -- [Optional] -> Set to 1 to force creation
; of a group plan
; IBKEY -- [Optional] -> Set to 1 to check for security key
; BYPASS -- Bypass new insurance plan
; Output: IBCPOL -- 0, if a new plan was not added, or
; >0 => pointer to the new plan in file #355.3
NEW1 ;
; - collect plan characteristics
MORE
NEWQ
CHECK(IBCNS,IBGNA,IBGNU) ; Check for potential duplicate plans
; Input: IBCNS -- Pointer to an insurance company in file #36
; IBGNA -- Plan Name for potential new plan
; IBGNU -- Plan Number for potential new plan
; Output: IBANS -- 1 -> Okay to add the new plan
; 0 -> Don't add the new plan.
CHECKQ
FIND(IBCNS,IBGN) ; Check cross-references for duplicate plans
; Input: IBCNS -- Pointer to the insurance company in file #36
; IBGN -- value to use to find duplicates
GDATA ; Place potential duplicate plan into an array.
LIST ; List potential duplicates to screen and prompt to add plan.

External References

Name Field # of Occurrence
^DIR NEW+21, NEW1+4, MORE+1, MORE+2, LIST+12
WAIT^IBCNBAA NEW+15
SEND^IBCNHHLO MORE+10
$$NIF^IBCNHUT1 MORE+8
$$COMP^IBCNSJ FIND+6
$$ADDH^IBCNSU MORE+5
$$EXPAND^IBTRE LIST+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, you are not authorized to create a new Insurance Plan"
  • Line Location: NEW+15
Function Call: WRITE
  • Prompt: !!,"You are about to add a new Insurance Plan."
  • Line Location: NEW+23
Function Call: WRITE
  • Prompt: !!," Searching for potential duplicate plans offered by ",$E($P(IBCNSD,"^"),1,20),"..."
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !!," No potential duplicate plans have been identified."
  • Line Location: CHECKQ+0
Function Call: WRITE
  • Prompt: !!," The following plans have been identified as potential duplicates:"
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,?3,"PLAN",?22,"PLAN",?45,"GROUP",?55,"ACTIVE",!,?2,"NUMBER",?22,"NAME",?45,"PLAN?",?55,"PLAN?",!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+12
Routine Call
  • DIR
  • Line Location:
    • NEW+21
    • NEW1+4
    • MORE+1
    • MORE+2
    • LIST+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] CHECK+9
^IBA(355.3 - [#355.3] CHECK+12, FIND+9, FIND+10, FIND+11, GDATA+2, GDATA+3
^IBCNH(367.1 - [#367.1] MORE+10
^TMP($J CHECK+10!, CHECK+19, CHECKQ, CHECKQ+1!, GDATA+2, GDATA+4*, LIST+3, LIST+4
^XUSEC("IB GROUP PLAN EDIT" NEW+15

Label References

Name Line Occurrences
$$CHECK MORE+5
CHECKQ CHECK+9, CHECK+12
FIND CHECK+15, CHECK+16
GDATA FIND+9, FIND+10, FIND+11
LIST CHECK+19
MORE NEW1+2
NEW1 NEW+18
NEWQ NEW+11, NEW+15, NEW+18, NEW1+5, MORE+1, MORE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BYPASS NEW~, NEW+18
DA NEW+9~
DIR NEW+9~, NEW+21!, NEW1+4!, MORE+1!, MORE+2!, LIST+12!
DIR("?" NEW+20*
DIR("A" NEW+19*, NEW1+4*, MORE+1*, MORE+2*, LIST+9*, LIST+10*
DIR("B" NEW+19*, NEW1+4*, LIST+11*
DIR(0 NEW+19*, NEW1+4*, MORE+1*, MORE+2*, LIST+9*
DIROUT NEW+9~
DIRUT NEW+9~, NEW+18, NEW1+5
DTOUT NEW+9~, MORE+1, MORE+2
DUOUT NEW+9~, MORE+1, MORE+2
DUZ NEW+15
IBANS CHECK+7~, CHECK+8*, CHECKQ+2, LIST+12*
IBCNS NEW~, NEW+11, MORE+5, MORE+8, MORE+10, CHECK~, CHECK+9, CHECK+12, CHECK+15, CHECK+16
, FIND~, FIND+9, FIND+10, FIND+11, GDATA+2
IBCNSD CHECK+7~, CHECK+9*, CHECK+11
IBCPOL NEW~, NEW+10*, MORE+5*, MORE+7
IBCT CHECK+7~, CHECK+8*, GDATA+3*, GDATA+4, LIST+3*, LIST+4
IBFG NEW~, NEW1+2
IBGN FIND~, FIND+6*, FIND+7, FIND+8, FIND+10, FIND+11
IBGNA NEW+9~, MORE+1*, MORE+5, CHECK~, CHECK+15, LIST+9
IBGNU NEW+9~, MORE+2*, MORE+5, CHECK~, CHECK+16, LIST+10
IBGRP NEW+9~, NEW1+2*, NEW1+4*, MORE, MORE+5
IBKEY NEW~, NEW+15
>> IBST LIST+4*, LIST+5, LIST+6
IBTL NEW+9~, MORE*, MORE+1, MORE+2
INP FIND+4~, FIND+7*, FIND+9, FIND+10*, FIND+11*, GDATA+2
LEN FIND+4~, FIND+7*, FIND+10, FIND+11
SUB FIND+4~, FIND+5*, FIND+6, FIND+9, FIND+10, FIND+11, GDATA+2
TYPE FIND+4~, FIND+8*, FIND+10, FIND+11
U GDATA+4
X NEW+9~, GDATA+1~*, GDATA+2*, GDATA+3, GDATA+4
Y NEW+9~, NEW+18, NEW1+4, MORE+1, MORE+2, GDATA+1~, GDATA+3*, GDATA+4, LIST+12
Y2 GDATA+1~, GDATA+3*, GDATA+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All