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

Package: Integrated Billing

Routine: IBCNBCD1


Information

IBCNBCD1 ;ALB/AWC - MCCF FY14 Display Annual Benefits from Insurance Buffer entry ;25 Feb 2015

Source Information

Source file <IBCNBCD1.m>

Entry Points

Name Comments DBIA/ICR reference
ANNBEN(IBBUFDA,IBGRPDA,IBASAV,IBQ,IBERR) ; Annual Benefits Entry point. - Called from routine ACANB^IBCNBAA
ABDTS(IBGRPDA,IBDTL) ; Display a list of Annual Benefits Years to select
ABDATA(IBDATE,IBIEN,IBDTL,IBDATA,IBERR) ; get the annual benefits data for the user selected date
ABDCRE(IBGRPDA,IBIEN,IBDATE,IBASAV,IBHOLD,IBDATA,IBERR) ; Display/Edit Annual Benefits for newly created date
ABEDIT(IBIEN,IBASAV,IBDATA,IBDATE,IBPOL,IBERR) ; -- Edit Patient Annual Benefits
ABEDT(IBIEN,IBGRPDA,IBDATE,IBPOL,IBERR) ; Main call to edit data in Annual Benefits via Input Template
ABUNDO(IBIEN,IBDATA,IBERR) ; - undo any annual benefits edits
ABGFLD(IBFLDS) ; Put fields into one string
ABSAVE(IBSYS,IBGSAV) ; -- save the global before editing
ABDIF(IBSYS,IBGSAV) ; -- check for any edits made to annual benefits
ABOUT(IBIEN) ; -- Set return variable and unlock global
ABCLN ; Clean up ^TMP globals
ABLKD ; -- write locked message
ABASK() ; Prompt to ask user to Save Changes
ASKREV() ; Prompt to ask user to Review the Annual Benefits
ABDEDT() ; ask user if they want to Edit the Annual Benefits
ASKYR() ; Prompt to Enter a New or Existing AB year
EDTYR(IBDATE) ; Prompt to Edit an Existing AB year
CREYR(IBDATE) ; Prompt to Create a new AB year

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Error... ANNBEN-IBCNBCD1 Cannot get Policy field: "_2.01
  • Line Location: ANNBEN+2
Function Call: WRITE
  • Prompt: !!,"Benefit year:",!
  • Line Location: ABDTS+29
Function Call: WRITE
  • Prompt: ?2,@IBDTL@(IBDT,IBIEN),!
  • Line Location: ABDTS+30
Function Call: WRITE
  • Prompt: !,"***Error...ABDATTA^IBCNBCD1 Cannot retrieve Annual Benefits data fields."
  • Line Location: ABDATA+14
Function Call: WRITE
  • Prompt: !,!,"***Error... ABDCRE^IBCNBCD1 - Cannot Create New Annual Benefit Record"
  • Line Location: ABDCRE+7
Function Call: WRITE
  • Prompt: !!,"---------------------- EDIT ANNUAL BENEFITS INFORMATION ----------------------",!
  • Line Location: ABEDT+3
Function Call: WRITE
  • Prompt: !,!,"***Error...ABUNDO^IBCNBCD1 - Cannot undo changes to the Annual Benefits file! ",!
  • Line Location: ABUNDO+8
Function Call: WRITE
  • Prompt: !!,"Sorry, another user currently editing this entry."
  • Line Location: ABLKD+1
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: ABLKD+2

FileMan Files Accessed Via FileMan Db Call

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