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

Package: Integrated Billing

Routine: IBCNSJ51


Information

IBCNSJ51 ;ALB/TMP - INSURANCE PLAN MAINTENANCE ACTION PROCESSING (continued); 15-AUG-95

Source Information

Source file <IBCNSJ51.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 7 (,HELP)^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Integrated Billing 3 ($$DIFFLIM,SAVE)^IBCNSJ52  $$DAT1^IBOUTL  LOCKED^IBTRCD1  
List Manager 1 FULL^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: 1

Package Total Caller Graph
Integrated Billing 1 IBCNSUR2  

Entry Points

Name Comments DBIA/ICR reference
EDCOV ; Add/edit limitations of coverage for a plan in IBCPOL
EDCOVEX
QUIT() ; Quit coverage limitation loop
COVDTH ; Help text for selecting effective date on coverage add/edit
COVTYPH ; Help text for selecting coverage category on coverage add/edit
WARN1(IBTYP) ; Warning if adding/editing an earlier effective date than latest one on file
ASK(ALLENT) ; Does the user want to Edit or Delete the selected category(ies)?
; ALLENT - if set to 1, the user has selected a single entry
; - if set to anything other than 1, the user has selected 'all' entries.
DELETE(OPTALL,DDATE,IBREC) ; Delete specified Categories
; INPUT: OPTALL - This can be either a specified coverage category or 'ALL'
; DDATE - This is the selected effective date
; IBREC - This is the record to be deleted for the selected coverage category, or it is NULL for 'ALL'
DELASK(DDATE) ; Prompt the user for DELETE question.
DELMSG(DDATE,CAT) ; Display message that a Coverage Category has been deleted.
DELETIT(DA) ; Delete a coverage category for a selected date.
; DA - passed in IEN (was variable IBREC)
PRECISE(X1,X2) ;Check to make sure the date entered is a precise date.
EXISTS(IBCPOL,IBEDT) ; Check to see if there are any categories for the selected policy and date.

External References

Name Field # of Occurrence
^%DTC PRECISE+2
HELP^%DTC COVDTH+2
^DIC EDCOV+60, COVTYPH+3
FILE^DICN EDCOV+86
^DIE EDCOV+94, EDCOV+96
^DIK EDCOV+95, DELETIT+3
$$GET1^DIQ DELETE+10, DELMSG+2
^DIR EDCOV+14, EDCOV+35, EDCOV+44, EDCOV+82, QUIT+2, WARN1+7, ASK+8, DELETE+16, DELASK+3
$$DIFFLIM^IBCNSJ52 EDCOV+96
SAVE^IBCNSJ52 EDCOV+79
$$DAT1^IBOUTL EDCOV+13, EDCOV+73, COVDTH+6, DELETE+7, DELASK+2, DELMSG+3
LOCKED^IBTRCD1 EDCOV+92
FULL^VALM1 EDCOV+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This category already selected."
  • Line Location: EDCOV+62
Function Call: WRITE
  • Prompt: !,"Editing existing record.",!
  • Line Location: EDCOV+79
Function Call: WRITE
  • Prompt: !!,"No current dates on file for this plan."
  • Line Location: COVDTH+3
Function Call: WRITE
  • Prompt: !!,"Current dates on file for this plan:"
  • Line Location: COVDTH+4
Function Call: WRITE
  • Prompt: !,?3,$$DAT1^IBOUTL(-Z)," -"
  • Line Location: COVDTH+6
Function Call: WRITE
  • Prompt: !!,"Enter a coverage category to add/edit coverage limitations for.",!
  • Line Location: COVTYPH+2
Function Call: WRITE
  • Prompt: !,"Enter ALL to select all coverage categories."
  • Line Location: COVTYPH+4
Function Call: WRITE
  • Prompt: !,"You may enter multiple coverage categories by entering them one at a time.",!,"After you have selected all needed categories, press ENTER at this prompt to",!,"continue."
  • Line Location: COVTYPH+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !!,"The effective date of ",$$DAT1^IBOUTL(IBEDT)," will be deleted for the following coverage"
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !,"categories:"
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !?5,$$GET1^DIQ(355.31,IBTY_",",.01)
  • Line Location: DELETE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DELETE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DELASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DELASK+3
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(IBEDT)," for ",CATNAM," has been deleted."
  • Line Location: DELMSG+3
Routine Call
  • DIC
  • Line Location:
    • EDCOV+60
    • COVTYPH+3
Routine Call
  • DIE
  • Line Location:
    • EDCOV+94
    • EDCOV+96
Routine Call
  • DIR
  • Line Location:
    • EDCOV+14
    • EDCOV+35
    • EDCOV+44
    • EDCOV+82
    • QUIT+2
    • WARN1+7
    • ASK+8
    • DELETE+16
    • DELASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(355.31 - [#355.31] Classic Fileman Calls,  GET1^DIQ
^IBA(355.32 - [#355.32] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(355.32 - [#355.32] EDCOV+25, EDCOV+58, EDCOV+74, EDCOV+92, EDCOV+95, EDCOV+97, COVDTH+3, COVDTH+5, WARN1+2, WARN1+6
, DELETE+11, EXISTS+4
^IBE(355.31 - [#355.31] EDCOV+24, EDCOV+56, EDCOV+73, COVDTH+6, WARN1+5, EXISTS+3
^TMP($J EDCOV+71!, EDCOVEX+1!

Label References

Name Line Occurrences
$$ASK EDCOV+52, EDCOV+77
$$DELASK DELETE+18, DELETE+26
$$EXISTS EDCOV+21, EDCOV+51
$$PRECISE EDCOV+20
$$QUIT EDCOV+61, EDCOV+83, EDCOV+99
$$WARN1 EDCOV+59, EDCOV+63
DELETE EDCOV+26, EDCOV+67, EDCOV+78
DELETIT DELETE+22, DELETE+27
DELMSG DELETE+23, DELETE+28
EDCOVEX EDCOV+5

Naked Globals

Name Field # of Occurrence
^(2 EDCOV+95

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%Y PRECISE+1~, PRECISE+3
ALLENT ASK~, ASK+6, ASK+7
CAT DELMSG~, DELMSG+2
CATNAM DELMSG+1~, DELMSG+2*, DELMSG+3
CT COVDTH+1~, COVDTH+6*
DA EDCOV+22*, EDCOV+26, EDCOV+74*, EDCOV+76, EDCOV+78, EDCOV+79, EDCOV+80, EDCOV+87*, EDCOV+88, EDCOV+90
, EDCOV+95*, EDCOV+96*, DELETIT~
DA(1 EDCOV+95*
DD EDCOV+84!
DDATE DELETE~, DELETE+11, DELETE+18, DELETE+23, DELETE+26, DELETE+28, DELASK~, DELASK+2, DELMSG~
DELOP DELETE+4~, DELETE+18*, DELETE+26*
DIC EDCOV+4~, EDCOV+60*, EDCOV+86*, COVTYPH+1~, COVTYPH+3*
DIC("DR" EDCOV+86*
DIC(0 EDCOV+60*, EDCOV+86*, COVTYPH+3*
DIDEL DELETIT+2~, DELETIT+3*
DIE EDCOV+4~, EDCOV+93*, EDCOV+96*
DIK EDCOV+95*, DELETIT+2~, DELETIT+3*, DELETIT+4!
DIR EDCOV+11!, EDCOV+14!, EDCOV+35!, EDCOV+40!, EDCOV+44!, EDCOV+82!, QUIT+1~, WARN1+7!, ASK+4~, DELETE+16!
, DELASK+1~, DELASK+3!
DIR("?" EDCOV+13*, EDCOV+43*, ASK+7*
DIR("A" EDCOV+13*, EDCOV+30*, EDCOV+31*, EDCOV+32*, EDCOV+33*, EDCOV+42*, EDCOV+81*, EDCOV+82*, QUIT+2*, WARN1+5*
, WARN1+6*, ASK+6*, DELETE+15*, DELETE+16*, DELASK+2*
DIR("B" EDCOV+13*, EDCOV+82*, QUIT+2*, WARN1+6*, ASK+5*, DELASK+3*
DIR(0 EDCOV+13*, EDCOV+34*, EDCOV+42*, EDCOV+81*, QUIT+2*, WARN1+5*, ASK+5*, DELETE+16*, DELASK+2*
DIROUT EDCOV+35, ASK+4~, DELASK+1~
DIRUT EDCOV+15, EDCOV+35, ASK+4~, DELASK+1~
DO EDCOV+84!
DONE EDCOV+4~, EDCOV+8*, EDCOV+9*, EDCOV+10, EDCOV+15*, EDCOV+20*, EDCOV+27*, EDCOV+35*, EDCOV+61*, EDCOV+65*
, EDCOV+83*, EDCOV+99*
DONE1 EDCOV+4~, EDCOV+38*, EDCOV+39, EDCOV+45*, EDCOV+61*, EDCOV+65*, EDCOV+70, EDCOV+83*, EDCOV+99*
DR EDCOV+4~, EDCOV+93*, EDCOV+96*
DT EDCOV+20
DTOUT EDCOV+35, EDCOV+45, ASK+4~, DELASK+1~
DUOUT EDCOV+35, EDCOV+45, ASK+4~, DELASK+1~
EXISTS EXISTS+1~, EXISTS+2*, EXISTS+3, EXISTS+4*, EXISTS+5
IB1 EDCOV+4~, WARN1+1~, WARN1+2*, WARN1+3
IBALL EDCOV+4~, EDCOV+22*, EDCOV+26, EDCOV+47*, EDCOV+49, EDCOV+53, EDCOV+54, EDCOV+60, EDCOV+67, EDCOV+77
, EDCOV+78
IBCNT EDCOV+4~, EDCOV+17*, EDCOV+42, EDCOV+53, EDCOV+54, EDCOV+55*, EDCOV+61*, EDCOV+63*, EDCOV+100*, COVTYPH+4
IBCOV EDCOV+4~, EDCOV+90*, EDCOV+92, EDCOV+95, EDCOV+96, EDCOV+97
IBCPOL EDCOV+5, EDCOV+21, EDCOV+25, EDCOV+51, EDCOV+58, EDCOV+74, EDCOV+86, COVDTH+3, COVDTH+5, WARN1+2
, WARN1+6, DELETE+11, DELETE+12, DELETE+20, DELETE+21, EXISTS~, EXISTS+4
IBEDT EDCOV+4~, EDCOV+13, EDCOV+17*, EDCOV+20, EDCOV+21, EDCOV+25, EDCOV+26, EDCOV+36*, EDCOV+51, EDCOV+58
, EDCOV+67, EDCOV+74, EDCOV+78, WARN1+3, WARN1+6, DELETE+7, DELMSG+3, EXISTS~, EXISTS+4
IBEDT1 EDCOV+4~, EDCOV+17*, EDCOV+36*, EDCOV+73, EDCOV+86
IBOK EDCOV+4~
IBOUT EDCOV+4~, EDCOV+94*, EDCOV+99
IBQUIT EDCOV+4~
IBREC DELETE~, DELETE+27
IBREF DELETE+4~, DELETE+11*, DELETE+12, DELETE+21*, DELETE+22
IBTY DELETE+4~, DELETE+9*, DELETE+10, DELETE+11, DELETE+12, DELETE+20*, DELETE+21, DELETE+23
IBTYP EDCOV+4~, EDCOV+18!, EDCOV+23!*, EDCOV+24*, EDCOV+25, EDCOV+50*, EDCOV+55*, EDCOV+56*, EDCOV+58, EDCOV+59
, EDCOV+61!, EDCOV+63*, EDCOV+69*, EDCOV+70*, EDCOV+73, EDCOV+74, EDCOV+86, EDCOV+100!, WARN1~, WARN1+2
, WARN1+5, WARN1+6, DELETE+28, EXISTS+1~, EXISTS+2*, EXISTS+3*, EXISTS+4
IBTYP( EDCOV+25*, EDCOV+58*, EDCOV+59*, EDCOV+62, EDCOV+63*, EDCOV+70, DELETE+9
IBTYP("" EDCOV+65
OPTALL DELETE~, DELETE+5
OPTN EDCOV+4~, EDCOV+8*, EDCOV+10, EDCOV+39, EDCOV+50*, EDCOV+51*, EDCOV+52*, EDCOV+57, EDCOV+67, EDCOV+70
, EDCOV+74*, EDCOV+76*, EDCOV+77*
TMP DELETE+4~, DELETE+14, DELETE+24!
TMP( DELETE+12*, DELETE+20, DELETE+21
U EDCOV+73, EDCOV+95, COVDTH+6, WARN1+5, ASK+9
>> VALMBCK EDCOVEX*
X EDCOV+60*, EDCOV+86*, COVTYPH+3*, ASK+4~, DELASK+1~
X1 PRECISE~
X2 PRECISE~
Y EDCOV+17, EDCOV+36, EDCOV+47, EDCOV+61, EDCOV+62, EDCOV+63, EDCOV+83, EDCOV+87, EDCOV+94, QUIT+1~
, QUIT+3, WARN1+1~, WARN1+2*, WARN1+9, ASK+4~, ASK+9, DELASK+1~, DELASK+4
Y(0 EDCOV+14
Z EDCOV+4~, EDCOV+95*, COVDTH+1~, COVDTH+5*, COVDTH+6*
Z0 COVDTH+1~, COVDTH+5*, COVDTH+6*
ZX COVDTH+1~
ZX( COVDTH+5*, COVDTH+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 |  Naked Globals |  Local Variables  | All