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

Package: Integrated Billing

Routine: IBCNSJ54


Information

IBCNSJ54 ;AITC/CKB - INSURANCE PLAN MAINTENANCE ACTION COVERAGE LIMITS ; 02-OCT-2024

Source Information

Source file <IBCNSJ54.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for ADD/EDIT COVERAGE
HDR ; -- header code
INIT ; -- init variables and list array
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNSJ54",$J) - Body lines to display
GRPHDR ; Get GROUP PLAN HEADER info
BLD ; Build listman display
; IBCPOL - IEN in the GROUP INSURANCE PLAN file #355.3
; IBSORT - order of the Coverages dislayed on the screen
; VALMCNT - Total number of lines displayed in the body
LIMCOM ;Limitation Comments from the multiple - include ALL comments
HELP ; -- help code
EXIT ; -- exit code
BLDLN(ICTR,IREC) ; Builds a line to display one insurance company
; Input: ICTR - Selection Number
; IREC - the Coverage data to be displayed
; Output: LINE - formatted for setting into the list display
ADD ; AD Add Coverage
ADDX ;
EDIT ; ED Edit Coverage
EDITX ;
DELETE ; DE Delete Coverage
DELETEX ;
SORT ; ST Sort Coverage
SORTX ;
; Rebuild the display based on the Sort selected
SELED ; Prompt the user to enter a Effective Date
SELEDX ;
SELEDP ; Enter a precise Effective Date
SELCC ; Prompt to allow users to include one or more Coverage Category(s)
SELCCX ; SELCC exit pt
EXISTS(IBCPOL,IBEDT) ; Check to see if there is an entry category and date.
PRECISE(X1,X2) ;Check to make sure the date entered is a precise date
CHKEDT(IBTYP) ; Check for effective date later than the one entered

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!," Enter AD to Add New Coverage."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !," Enter ED to Edit Coverage."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," Enter DE to Delete Coverage."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," Enter ST to Sort List.",!
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !!,$P(COVCAT,U)
  • Line Location: ADD+14
Function Call: WRITE
  • Prompt: !,"** "_$P(COVCAT,U)_" - data already exist for this Effective Date, nothing added **",!
  • Line Location: ADD+17
Function Call: WRITE
  • Prompt: !!,"Sorry, another user currently editing this entry."
  • Line Location: ADD+28
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: ADD+29
Function Call: WRITE
  • Prompt: !!,"** #"_IBXX_" "_$P(IBREC,U)_" - no data exist, use 'Add New Coverage' **",!
  • Line Location: EDIT+14
Function Call: WRITE
  • Prompt: !!,"COVERAGE: "_$P(IBREC,U),?35,"for EFFECTIVE DATE: ",$P(IBREC,U,2)
  • Line Location: EDIT+15
Function Call: WRITE
  • Prompt: !!,"** #"_IBXX_" "_$P(IBREC,U)_" - no data exists, unable to delete **"
  • Line Location: DELETE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DELETE+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DELETE+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+2
Function Call: WRITE
  • Prompt: !,"Select the item to sort the coverages on the screen."
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEDP+2
Function Call: WRITE
  • Prompt: !,"Select COVERAGE CATEGORIES:"
  • Line Location: SELCC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKEDT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKEDT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GETS^DIQ
^IBE(355.31 - [#355.31] GET1^DIQ
^IBA(355.32 - [#355.32] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call