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

Package Total Caller Graph
Integrated Billing 2 IBCNSJ5  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+58, COVTYPH+3
FILE^DICN EDCOV+84
^DIE EDCOV+92, EDCOV+94
^DIK EDCOV+93, DELETIT+3
$$GET1^DIQ DELETE+10, DELMSG+2
^DIR EDCOV+12, EDCOV+33, EDCOV+42, EDCOV+80, QUIT+2, WARN1+7, ASK+8, DELETE+16, DELASK+3
$$DIFFLIM^IBCNSJ52 EDCOV+94
SAVE^IBCNSJ52 EDCOV+77
$$DAT1^IBOUTL EDCOV+11, EDCOV+71, COVDTH+6, DELETE+7, DELASK+2, DELMSG+3
LOCKED^IBTRCD1 EDCOV+90
FULL^VALM1 EDCOV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This category already selected."
  • Line Location: EDCOV+60
Function Call: WRITE
  • Prompt: !,"Editing existing record.",!
  • Line Location: EDCOV+77
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+58
    • COVTYPH+3
Routine Call
  • DIE
  • Line Location:
    • EDCOV+92
    • EDCOV+94
Routine Call
  • DIR
  • Line Location:
    • EDCOV+12
    • EDCOV+33
    • EDCOV+42
    • EDCOV+80
    • 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+23, EDCOV+56, EDCOV+72, EDCOV+90, EDCOV+93, EDCOV+95, COVDTH+3, COVDTH+5, WARN1+2, WARN1+6
, DELETE+11, EXISTS+4
^IBE(355.31 - [#355.31] EDCOV+22, EDCOV+54, EDCOV+71, COVDTH+6, WARN1+5, EXISTS+3
^TMP($J EDCOV+69!, EDCOVEX+1!

Label References

Name Line Occurrences
$$ASK EDCOV+50, EDCOV+75
$$DELASK DELETE+18, DELETE+26
$$EXISTS EDCOV+19, EDCOV+49
$$PRECISE EDCOV+18
$$QUIT EDCOV+59, EDCOV+81, EDCOV+97
$$WARN1 EDCOV+57, EDCOV+61
DELETE EDCOV+24, EDCOV+65, EDCOV+76
DELETIT DELETE+22, DELETE+27
DELMSG DELETE+23, DELETE+28
EDCOVEX EDCOV+3

Naked Globals

Name Field # of Occurrence
^(2 EDCOV+93

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+20*, EDCOV+24, EDCOV+72*, EDCOV+74, EDCOV+76, EDCOV+77, EDCOV+78, EDCOV+85*, EDCOV+86, EDCOV+88
, EDCOV+93*, EDCOV+94*, DELETIT~
DA(1 EDCOV+93*
DD EDCOV+82!
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+2~, EDCOV+58*, EDCOV+84*, COVTYPH+1~, COVTYPH+3*
DIC("DR" EDCOV+84*
DIC(0 EDCOV+58*, EDCOV+84*, COVTYPH+3*
DIDEL DELETIT+2~, DELETIT+3*
DIE EDCOV+2~, EDCOV+91*, EDCOV+94*
DIK EDCOV+93*, DELETIT+2~, DELETIT+3*, DELETIT+4!
DIR EDCOV+9!, EDCOV+12!, EDCOV+33!, EDCOV+38!, EDCOV+42!, EDCOV+80!, QUIT+1~, WARN1+7!, ASK+4~, DELETE+16!
, DELASK+1~, DELASK+3!
DIR("?" EDCOV+11*, EDCOV+41*, ASK+7*
DIR("A" EDCOV+11*, EDCOV+28*, EDCOV+29*, EDCOV+30*, EDCOV+31*, EDCOV+40*, EDCOV+79*, EDCOV+80*, QUIT+2*, WARN1+5*
, WARN1+6*, ASK+6*, DELETE+15*, DELETE+16*, DELASK+2*
DIR("B" EDCOV+11*, EDCOV+80*, QUIT+2*, WARN1+6*, ASK+5*, DELASK+3*
DIR(0 EDCOV+11*, EDCOV+32*, EDCOV+40*, EDCOV+79*, QUIT+2*, WARN1+5*, ASK+5*, DELETE+16*, DELASK+2*
DIROUT EDCOV+33, ASK+4~, DELASK+1~
DIRUT EDCOV+13, EDCOV+33, ASK+4~, DELASK+1~
DO EDCOV+82!
DONE EDCOV+2~, EDCOV+6*, EDCOV+7*, EDCOV+8, EDCOV+13*, EDCOV+18*, EDCOV+25*, EDCOV+33*, EDCOV+59*, EDCOV+63*
, EDCOV+81*, EDCOV+97*
DONE1 EDCOV+2~, EDCOV+36*, EDCOV+37, EDCOV+43*, EDCOV+59*, EDCOV+63*, EDCOV+68, EDCOV+81*, EDCOV+97*
DR EDCOV+2~, EDCOV+91*, EDCOV+94*
DT EDCOV+18
DTOUT EDCOV+33, EDCOV+43, ASK+4~, DELASK+1~
DUOUT EDCOV+33, EDCOV+43, ASK+4~, DELASK+1~
EXISTS EXISTS+1~, EXISTS+2*, EXISTS+3, EXISTS+4*, EXISTS+5
IB1 EDCOV+2~, WARN1+1~, WARN1+2*, WARN1+3
IBALL EDCOV+2~, EDCOV+20*, EDCOV+24, EDCOV+45*, EDCOV+47, EDCOV+51, EDCOV+52, EDCOV+58, EDCOV+65, EDCOV+75
, EDCOV+76
IBCNT EDCOV+2~, EDCOV+15*, EDCOV+40, EDCOV+51, EDCOV+52, EDCOV+53*, EDCOV+59*, EDCOV+61*, EDCOV+98*, COVTYPH+4
IBCOV EDCOV+2~, EDCOV+88*, EDCOV+90, EDCOV+93, EDCOV+94, EDCOV+95
IBCPOL EDCOV+3, EDCOV+19, EDCOV+23, EDCOV+49, EDCOV+56, EDCOV+72, EDCOV+84, COVDTH+3, COVDTH+5, WARN1+2
, WARN1+6, DELETE+11, DELETE+12, DELETE+20, DELETE+21, EXISTS~, EXISTS+4
IBEDT EDCOV+2~, EDCOV+11, EDCOV+15*, EDCOV+18, EDCOV+19, EDCOV+23, EDCOV+24, EDCOV+34*, EDCOV+49, EDCOV+56
, EDCOV+65, EDCOV+72, EDCOV+76, WARN1+3, WARN1+6, DELETE+7, DELMSG+3, EXISTS~, EXISTS+4
IBEDT1 EDCOV+2~, EDCOV+15*, EDCOV+34*, EDCOV+71, EDCOV+84
IBOK EDCOV+2~
IBOUT EDCOV+2~, EDCOV+92*, EDCOV+97
IBQUIT EDCOV+2~
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+2~, EDCOV+16!, EDCOV+21!*, EDCOV+22*, EDCOV+23, EDCOV+48*, EDCOV+53*, EDCOV+54*, EDCOV+56, EDCOV+57
, EDCOV+59!, EDCOV+61*, EDCOV+67*, EDCOV+68*, EDCOV+71, EDCOV+72, EDCOV+84, EDCOV+98!, WARN1~, WARN1+2
, WARN1+5, WARN1+6, DELETE+28, EXISTS+1~, EXISTS+2*, EXISTS+3*, EXISTS+4
IBTYP( EDCOV+23*, EDCOV+56*, EDCOV+57*, EDCOV+60, EDCOV+61*, EDCOV+68, DELETE+9
IBTYP("" EDCOV+63
OPTALL DELETE~, DELETE+5
OPTN EDCOV+2~, EDCOV+6*, EDCOV+8, EDCOV+37, EDCOV+48*, EDCOV+49*, EDCOV+50*, EDCOV+55, EDCOV+65, EDCOV+68
, EDCOV+72*, EDCOV+74*, EDCOV+75*
TMP DELETE+4~, DELETE+14, DELETE+24!
TMP( DELETE+12*, DELETE+20, DELETE+21
U EDCOV+71, EDCOV+93, COVDTH+6, WARN1+5, ASK+9
>> VALMBCK EDCOVEX*
X EDCOV+58*, EDCOV+84*, COVTYPH+3*, ASK+4~, DELASK+1~
X1 PRECISE~
X2 PRECISE~
Y EDCOV+15, EDCOV+34, EDCOV+45, EDCOV+59, EDCOV+60, EDCOV+61, EDCOV+81, EDCOV+85, EDCOV+92, QUIT+1~
, QUIT+3, WARN1+1~, WARN1+2*, WARN1+9, ASK+4~, ASK+9, DELASK+1~, DELASK+4
Y(0 EDCOV+12
Z EDCOV+2~, EDCOV+93*, 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