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

Package Total Call Graph
VA FileMan 6 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Integrated Billing 4 (FRDAYS,REPORT)^IBAECB1  $$ASKCLK^IBAECP  ($$ADDCL,$$LTCST)^IBAECU  ($$FNDOPEN,CLOSECLK)^IBAECU4  
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: 3

Package Total Caller Graph
Integrated Billing 3 IBAEC LTC CLOCK EDIT  IBARXMI  IBECEA3  

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

External References

Name Field # of Occurrence
^DIC OPTA+2
FILE^DICN AFREEA+10, REINDEX+8
YN^DICN DFREE+4
^DIE START+17, AFREEA+13, EFREE+14, DFREE+9, LASTED+2
^DIK DFREE+8, REINDEX+5
$$GET1^DIQ OPTA+18, OPTB+11
^DIR ASKYN+7, ASKCONT+5, ASKSTDT+10, ASKCRU+15, AGAINE+2, START+3, AGAINF+11, AGAINF+14, DATE+2
FRDAYS^IBAECB1 AGAINF+8
REPORT^IBAECB1 DISPLAY+5
$$ASKCLK^IBAECP OPTA+22
$$ADDCL^IBAECU OPTA+13, OPTB+31
$$LTCST^IBAECU SCREEN+1
$$FNDOPEN^IBAECU4 OPTA+18
CLOSECLK^IBAECU4 OPTB+28
DEM^VADPT OPTA+3
KVAR^VADPT EX+1
$$FMDIFF^XLFDT YR+6
$$FMTE^XLFDT OPTB+21, OPTB+32, ASKSTDT+8, 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: !!,"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: !?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:
    • ASKYN+7
    • ASKCONT+5
    • ASKSTDT+10
    • ASKCRU+15
    • 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,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(351.81 - [#351.81] OPTA+8, OPTA+24, OPTB+27, OPTB+29, 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
$$ASKCRU OPTA+10, OPTA+16
$$ASKSTDT OPTA+11, OPTB+19
$$ASKYN OPTB+14
$$DATE AFREEAEFREE+4
$$OPTB OPTA+18
$$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
ASKCONT OPTB+17, OPTB+25, OPTB+33
BADDT AFREEA+6, EFREE+11
DISPLAY OPTA+24, AGAINE+3
EDIT OPTA+24
EX OPTA+2
LASTED START+20, AFREEA+15, EFREE+16, DFREE+11
OPTA OPTA+8, OPTA+16, OPTA+22, OPTA+25
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
% DFREE+1~, DFREE+4*, DFREE+5
ADDED OPT+2~, OPTA+7*, OPTA+13*, OPTA+16
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*
DEF ASKSTDT~, ASKSTDT+8
DFN OPT+2~, OPTA!, OPTA+3*, OPTA+8, OPTA+13, OPTA+18, OPTA+22, OPTB~, OPTB+28, OPTB+31
, 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 ASKYN+4~, ASKCONT+2~, ASKSTDT+6~, ASKCRU+6~, EDIT+1~, START+1~, FREE+1~, AFREE+1~, DATE+1~
DIR("A" ASKYN+5*, ASKCONT+3*, ASKSTDT+7*, ASKCRU+8*, ASKCRU+12*
DIR("B" ASKSTDT+8*, START+2*, DATE+2*
DIR(0 ASKYN+6*, ASKCONT+4*, ASKSTDT+9*, ASKCRU+9*, ASKCRU+13*, AGAINE+2*, START+2*, AGAINF+11*, AGAINF+14*, DATE+2*
DIROUT ASKYN+4~, ASKCONT+2~, ASKSTDT+6~, ASKSTDT+11, ASKCRU+6~, EDIT+1~, START+1~, FREE+1~, AFREE+1~, DATE+1~
DIRUT ASKYN+4~, ASKCONT+2~, ASKSTDT+6~, ASKSTDT+11, ASKCRU+6~, 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 ASKSTDT+9, SCREEN+1, DATE+2, BADDT+4
DTOUT ASKYN+4~, ASKCONT+2~, ASKSTDT+6~, ASKSTDT+11, ASKCRU+6~, ASKCRU+16, EDIT+1~, START+1~, FREE+1~, AFREE+1~
, DATE+1~
DUOUT ASKYN+4~, ASKCONT+2~, ASKSTDT+6~, ASKSTDT+11, ASKCRU+6~, ASKCRU+16, 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*
IBDEFDT OPTB~, OPTB+19
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+8, OPTA+13*, OPTA+18*, OPTA+22*, OPTA+24, OPTB+9~, OPTB+10*, OPTB+31*
, OPTB+32, OPTB+34, 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+24*, START+2, START+6, START+18*, AFREEA+13*, AFREEA+18, DFREE+9*, BADDT+1, BADDT+2
IBNUM YR+5~, YR+6*, YR+7
IBOEDT OPTB~, OPTB+20, OPTB+21
IBOIENS OPTB+9~, OPTB+11*
IBOPCL OPT+2~, OPTA+18*, OPTB~, OPTB+11, OPTB+27, OPTB+28, OPTB+29
IBOPT FREE+1~, AGAINF+11*, AGAINF+14, AGAINF+16
IBOSTDTE OPTB+9~, OPTB+11*, OPTB+16, OPTB+30
IBRES OPT+2~, OPTA+10*, OPTA+16*
IBSTDT OPT+2~, OPTA+11*, OPTA+13, OPTB+9~, OPTB+19*, OPTB+20, OPTB+31, OPTB+32, 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
UFLG ASKCRU~, ASKCRU+7, ASKCRU+11
>> VADM(1 OPTA+9, AFREE+5
VADP OPTA!
X OPT+2~, OPTA!, ASKYN+4~, ASKCONT+2~, ASKSTDT+6~, ASKCRU+6~, 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, ASKYN+4~, ASKYN+8, ASKCONT+2~, ASKSTDT+6~, ASKSTDT+12, ASKCRU+6~
, ASKCRU+17, 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~
Z OPTB+9~, OPTB+21*, OPTB+22, OPTB+23
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