Routine: IBAECC

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

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

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 IB2.0728
EX	;
ASKYN()	; "do you still wish to continue" prompt IB2.0728
ASKCONT	; "press any key to continue" prompt IB2.0728
ASKSTDT(DEF)	; prompt for start date IB2.0728
ASKCRU(UFLG)	; prompt for create new / update existing clock IB2.0728
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+9, AGAINF+13, AGAINF+14, DATE+2
FRDAYS^IBAECB1	AGAINF+6
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: ! 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
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+9 AGAINF+13 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+15, 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	AFREEA, EFREE+4
$$OPTB	OPTA+18
$$YR	START+13, BADDT+2
@(	AGAINE+3, AGAINF+19
AFREEA	AFREEA+3, AFREEA+6, AFREEA+18
AGAINE	AGAINE+4
AGAINF	AGAINF+21
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, AGAINF+13
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+9, AGAINF+13, 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+9, 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+13, 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+15*
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+15
IBFR	YR~, YR+6
IBFREEX	FREE+1~, AGAINF+15*, EFREE+14, DFREE+8
IBFREEZ	FREE+1~, AGAINF+15*, 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+15 , 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+9*, AGAINF+12, AGAINF+19
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
STOP	FREE+2~, AGAINF+12, AGAINF+13, AGAINF+14*, AGAINF+17
UFLG	ASKCRU~, ASKCRU+7, ASKCRU+11
VADM	OPT+2~
VADM(1	OPTA+9, AFREE+5
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+9, AGAINF+15, AFREE+1~, AFREEA+12 , AFREEA+13, DATE+1~, DATE+3, REINDEX+2~
Z	OPTB+9~, OPTB+21*, OPTB+22, OPTB+23

Customize PDF page

Package: Integrated Billing

Routine: IBAECC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: