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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Integrated Billing 3 (FRDAYS,REPORT)^IBAECB1  $$ASKCLK^IBAECP  ($$ADDCL,$$LTCST)^IBAECU  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
Registration 1 (DEM,KVAR)^VADPT  

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 IBAEC LTC CLOCK EDIT  IBARXMI  

Entry Points

Name Comments DBIA/ICR reference
OPT ; menu option main entry point
OPTA
EX ;
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

External References

Name Field # of Occurrence
^DIC OPTA+2
FILE^DICN AFREEA+10, REINDEX+8
YN^DICN OPTA+8, DFREE+4
^DIE START+17, AFREEA+13, EFREE+14, DFREE+9, LASTED+2
^DIK DFREE+8, REINDEX+5
^DIR OPTA+13, AGAINE+2, START+3, AGAINF+11, AGAINF+14, DATE+2
FRDAYS^IBAECB1 AGAINF+8
REPORT^IBAECB1 DISPLAY+5
$$ASKCLK^IBAECP OPTA+19
$$ADDCL^IBAECU OPTA+16
$$LTCST^IBAECU SCREEN+1
DEM^VADPT OPTA+3
KVAR^VADPT EX+1
$$FMDIFF^XLFDT YR+6
$$FMTE^XLFDT START+2, AFREEA+12, EFREE+4, ALREADY+3, BADDT+1, BADDT+2, BADDT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTA+2
Function Call: WRITE
  • Prompt: !!,"The patient ",VADM(1)," has no LTC clock on file."
  • Line Location: OPTA+7
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'"
  • Line Location: OPTA+8
Function Call: WRITE
  • Prompt: !,"You need to specify the clock start date"
  • Line Location: OPTA+12
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: !?5,$O(IBF(IBD,0)),?10,$$FMTE^XLFDT(IBD)
  • Line Location: AGAINF+7
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
Routine Call
  • DIC
  • Line Location:
    • OPTA+2
Routine Call
  • DIE
  • Line Location:
    • START+17
    • AFREEA+13
    • EFREE+14
    • DFREE+9
    • LASTED+2
Routine Call
  • DIR
  • Line Location:
    • OPTA+13
    • AGAINE+2
    • START+3
    • AGAINF+11
    • AGAINF+14
    • DATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBA(351.81 - [#351.81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(351.81 - [#351.81] OPTA+6, OPTA+21, START+9, START+13, START+18, AGAINF+3, AGAINF+14, AFREE+4, AFREEA+9, AFREEA+13
, DFREE+9, SCREEN+2, ALREADY+2, REINDEX+5

Label References

Name Line Occurrences
$$DATE AFREEA, EFREE+4
$$YR START+13, BADDT+2
@( AGAINE+3, AGAINF+16
AFREEA AFREEA+3, AFREEA+6, AFREEA+18
AGAINE AGAINE+4
AGAINF AGAINF+18
ALREADY AFREEA+3, EFREE+8
BADDT AFREEA+6, EFREE+11
DISPLAY OPTA+21, AGAINE+3
EDIT OPTA+21
EX OPTA+2
LASTED START+20, AFREEA+15, EFREE+16, DFREE+11
OPTA OPTA+6, OPTA+19, OPTA+22
REINDEX AGAINF+1, AFREEA+15, EFREE+16, DFREE+11
START START+10, START+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OPT+2~, OPTA+8*, OPTA+9, DFREE+1~, DFREE+4*, DFREE+5
DA START+1~, START+17*, AFREE+1~, AFREEA+13*, EFREE+1~, EFREE+14*, DFREE+1~, DFREE+8*, DFREE+9*, LASTED+1~
, LASTED+2*, REINDEX+2~, REINDEX+5*
DA(1 AFREEA+10*, EFREE+14*, DFREE+8*, REINDEX+5*, REINDEX+8*
DFN OPT+2~, OPTA!, OPTA+3*, OPTA+6, OPTA+16, OPTA+19, SCREEN~, SCREEN+1, SCREEN+2
DIC OPT+2~, OPTA!, OPTA+2*, AFREE+1~, AFREEA+10*, REINDEX+8*
DIC("DR" AFREEA+10*, REINDEX+8*
DIC("S" OPTA+2*
DIC(0 OPTA+2*, AFREEA+10*, REINDEX+8*
DIE START+1~, START+17*, AFREE+1~, AFREEA+13*, EFREE+1~, EFREE+14*, DFREE+1~, DFREE+9*, LASTED+1~, LASTED+2*
DIK DFREE+1~, DFREE+8*, REINDEX+2~, REINDEX+5*
DINUM AFREE+1~, AFREEA+10*, REINDEX+8*
DIR OPT+2~, EDIT+1~, START+1~, FREE+1~, AFREE+1~, DATE+1~
DIR("B" START+2*, DATE+2*
DIR(0 OPTA+13*, AGAINE+2*, START+2*, AGAINF+11*, AGAINF+14*, DATE+2*
DIROUT OPT+2~, EDIT+1~, START+1~, FREE+1~, AFREE+1~, DATE+1~
DIRUT OPT+2~, OPTA+13, EDIT+1~, AGAINE+2, START+1~, START+3, FREE+1~, AGAINF+11, AGAINF+14, AFREE+1~
, DATE+1~
DO AFREE+1~, AFREEA+10!, REINDEX+8!
DPTNOFZY OPTA+1~*
DR START+1~, START+17*, AFREE+1~, AFREEA+13*, EFREE+1~, EFREE+14*, DFREE+1~, DFREE+9*, LASTED+1~, LASTED+2*
DT OPTA+13, SCREEN+1, DATE+2, BADDT+4
DTOUT OPT+2~, EDIT+1~, START+1~, FREE+1~, AFREE+1~, DATE+1~
DUOUT OPT+2~, EDIT+1~, START+1~, FREE+1~, AFREE+1~, DATE+1~
IBB DATE~, DATE+2
IBC FREE+1~, AGAINF+3*, AGAINF+14, AFREE+1~, AFREE+4*, AFREE+5
IBCL OPT+2~
IBCLDT YR~, YR+6
IBCLK DISPLAY+2~, DISPLAY+3*, FREE+2~, FREE+3*
IBD FREE+1~, AGAINF+14*
IBDT AFREE+1~, AFREEA*, AFREEA+3, AFREEA+6, AFREEA+12, EFREE+1~, EFREE+4*, EFREE+5, EFREE+8, EFREE+11
, ALREADY+2*, ALREADY+3, BADDT+1*, BADDT+2*, BADDT+4*
IBF FREE+1~
IBF( AGAINF+3*, AGAINF+14
IBFR YR~, YR+6
IBFREEX FREE+1~, AGAINF+14*, EFREE+14, DFREE+8
IBFREEZ FREE+1~, AGAINF+14*, EFREE+4, EFREE+5
IBLTCST SCREEN+1~*, SCREEN+2
IBLTCX OPT+2~, OPTA!, OPTA+6, OPTA+16*, OPTA+19*, OPTA+21, DISPLAY+3, START+9, START+13, START+17
, START+18, FREE+3, AGAINF+3, AGAINF+14, AFREE+4, AFREEA+9, AFREEA+10, AFREEA+13, EFREE+14, DFREE+8
, DFREE+9, ALREADY+2, LASTED+2, REINDEX+5, REINDEX+8
IBLTCZ OPT+2~, OPTA+21*, START+2, START+6, START+18*, AFREEA+13*, AFREEA+18, DFREE+9*, BADDT+1, BADDT+2
IBNUM YR+5~, YR+6*, YR+7
IBOPT FREE+1~, AGAINF+11*, AGAINF+14, AGAINF+16
IBSTDT OPT+2~, OPTA+13*, OPTA+16, START+1~, START+3*, START+6, START+9*, START+10, START+13*, START+14
IBX OPT+2~, FREE+1~, AGAINF+3*, AFREE+1~, AFREE+4*, AFREEA+9*, AFREEA+10, ALREADY+1~, ALREADY+2*, REINDEX+2~
, REINDEX+5*, REINDEX+8*
IBY OPT+2~
IBYR YR+5~, YR+6*, YR+7
IBZ START+1~, START+9*, START+13*, REINDEX+2~, REINDEX+8*
IBZ( REINDEX+5*, REINDEX+8
IOF DISPLAY+4
IOM AGAINE
>> VADM(1 OPTA+7, AFREE+5
VADP OPTA!
X OPT+2~, OPTA!, EDIT+1~, AGAINE*, START+1~, FREE+1~, AFREE+1~, AFREEA+10*, DATE+1~, REINDEX+2~
, REINDEX+8*
Y OPT+2~, OPTA!, OPTA+2, OPTA+3, OPTA+13, EDIT+1~, AGAINE+3, START+1~, START+3, FREE+1~
, AGAINF+11, AGAINF+14, AFREE+1~, AFREEA+12, AFREEA+13, DATE+1~, DATE+3, REINDEX+2~
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 |  Local Variables  | All