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

Package: Integrated Billing

Routine: IBAECC


Information

IBAECC ;LL/ELZ - LONG TERM CARE CLOCK MAINTANCE ; 05-FEB-02

Source Information

Source file <IBAECC.m>

Entry Points

Name Comments DBIA/ICR reference
OPT ; menu option main entry point
OPTA
OPTB(DFN,IBOPCL,IBOEDT,IBDEFDT) ; close existing clock and open the new one, also called from IB CANCEL IB*2.0*728
EX ;
ASKYN() ; "do you still wish to continue" prompt IB*2.0*728
ASKCONT ; "press any key to continue" prompt IB*2.0*728
ASKSTDT(DEF) ; prompt for start date IB*2.0*728
ASKCRU(UFLG) ; prompt for create new / update existing clock IB*2.0*728
DISPLAY ; display clock information
; Temporary
EDIT ; edit either start date or free days
AGAINE
START ; edit the start date
FREE ; change the free days
AGAINF ;
AFREE ; add free days
AFREEA
EFREE ; edit a free day IBFREEX
DFREE ; delete a free day
SCREEN(DFN) ; screen out non-LTC patients
ALREADY ; checks to see if the free day is already there
DATE(IBB) ; prompts for date selection (IBB is default)
BADDT ; checks out IBDT to make sure it is a valid date based upon start date
LASTED ; update last edited by and date fields
YR(IBCLDT,IBFR) ; is the effective date of the clock too old?
; Input: IBCLDT -- New Clock Effective Date
; IBFR -- Event Date
; Output: 1 -- Effective Date is too old
; 0 -- Not
REINDEX ; this will take a clock and re-index the free days in order
; assumes IBLTCX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTA+2
Function Call: WRITE
  • Prompt: !!,"WARNING!!!"
  • Line Location: OPTB+12
Function Call: WRITE
  • Prompt: !,"Creating a new clock for this patient will close the existing open LTC Clock.",!
  • Line Location: OPTB+13
Function Call: WRITE
  • Prompt: !!,"Clock for the Period starting on ",IBOSTDTE," is now closed."
  • Line Location: OPTB+30
Function Call: WRITE
  • Prompt: !,"A new clock starting on ",$$FMTE^XLFDT(IBSTDT)," is now open.",!
  • Line Location: OPTB+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: AGAINE+0
Function Call: WRITE
  • Prompt: !,"You can edit Start Date OR Days Not Subject To LTC Copay (Free Days)"
  • Line Location: AGAINE+1
Function Call: WRITE
  • Prompt: !!?10,"No Change !!"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"You must enter a date that is BEFORE all the Free Days"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"You entered a start date greater than 1 year before a Free Day"
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAINF+13
Function Call: WRITE
  • Prompt: !,"Patients are only allowed 21 free days. ",!,VADM(1)," has ",IBC," already."
  • Line Location: AFREE+5
Function Call: WRITE
  • Prompt: ?40,"... ",$$FMTE^XLFDT(IBDT)," was ",$S(Y>0:"",1:"NOT "),"added."
  • Line Location: AFREEA+12
Function Call: WRITE
  • Prompt: !,"No change"
  • Line Location: EFREE+5
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'"
  • Line Location: DFREE+4
Function Call: WRITE
  • Prompt: !!,$$FMTE^XLFDT($P(IBDT,"^",2))," is already on file!"
  • Line Location: ALREADY+3
Function Call: WRITE
  • Prompt: !!,$$FMTE^XLFDT(IBDT)," is less than the clock start date of ",$$FMTE^XLFDT($P(IBLTCZ,"^",3))
  • Line Location: BADDT+1
Function Call: WRITE
  • Prompt: !!,$$FMTE^XLFDT(IBDT)," is greater than 1 year pased the clock start date."
  • Line Location: BADDT+2
Function Call: WRITE
  • Prompt: !!,$$FMTE^XLFDT(IBDT)," is during the current month.",!,"You must allow the montly job to enter this date into the clock."
  • Line Location: BADDT+4

FileMan Files Accessed Via FileMan Db Call

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