Routine: RCJIBFN3

Package	Total	Call Graph
VA FileMan	6	^%DT NOW^%DTC YN^DICN ^DIE EN1^DIP ^DIR
Accounts Receivable	4	UPPRIN^PRCADJ ^PRCATO4 (PATTR,SETTR,TRANUP)^PRCAUTL DELETE^PRCAWO1
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Integrated Billing	1	IBJTA1

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;15,67,169;Mar 20, 1995
ADJUST(PRCABN)	;Pass in the IFN for 430 - user allowed to add a brief comments as	ICR #1453 Status: Active Usage: Private
DIE
ASK
DONE
Q
EN1
ASK1	;ASK FOR STATUS
RPT	;
ST
REPQ
DQ1	;
DQ2	;
TI()	;
BEGIN	;K PRCATERM,PRCABN,PRCAEN,PRCA("CKSITE") D BILL^PRCAUTL Q:('$D(PRCABN))

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADJUST+4
Function Call: WRITE	Prompt: ! Line Location: DIE+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: DIE+2
Function Call: WRITE	Prompt: !!,*7,"You entered a date of follow-up before the date of contact!" Line Location: DIE+3
Function Call: WRITE	Prompt: !!,"Is this correct" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'YES' if this data is correct, answer 'N' or 'NO' if not",! Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: ST+0
Function Call: WRITE	Prompt: !!,*7," (Ending date must be greater than Start date.)" Line Location: ST+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: DQ1+3
Function Call: WRITE	Prompt: !!," This bill was cancelled in IB before it was passed to AR. ",!,*7 Line Location: BEGIN+1
Function Call: WRITE	Prompt: !!," Comments CANNOT be entered on an ARCHIVED bill. ",!,*7 Line Location: BEGIN+2
Routine Call	DIE Line Location: DIE
Routine Call	DIR Line Location: DONE+3 DONE+4 ASK1+2
Routine Call	%ZIS Line Location: ST+3 DQ2+1

FileNo	Call Tags
^RC(341 - [#341]	Classic Fileman Calls
^PRCA(433 - [#433]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	DONE+1, BEGIN+1, BEGIN+2
^PRCA(430.3 - [#430.3]	ASK1+3
^PRCA(433 - [#433]	ADJUST+4, DIE+1, DIE+3, DONE+2, DONE+6, EN1+2
^RCD(340 - [#340]	DONE+1

Name	Field # of Occurrence
>> %	ASK*, ASK+1, TI+2
%DT	RPT+1~, ST, ST+1, TI+1~, TI+2*
%DT("A"	ST, ST+1, TI+1*
%DT("B"	TI+1*
%DT(0	TI+2*
>> %ZIS	ST+3*
BEG	RPT+1~, ST*, ST+2, DQ1+1, DQ2+2
>> BY	DQ1+1, DQ2+2
D0	ADJUST+2~, DIE+2*
DA	ADJUST+2~, DIE*!
DIC	RPT+1~, DQ1+1, DQ2+2, BEGIN+3*
DIE	ADJUST+2~, DIE*!
DIR	ADJUST+2~, DONE+3!, DONE+4!, ASK1+1~, ASK1+2!
DIR("A"	DONE+3, DONE+4, ASK1+2*
DIR("B"	DONE+3, DONE+4, ASK1+2*
DIR(0	DONE+3, DONE+4, ASK1+2*
DIROUT	ADJUST+2~, ASK1+1~
DIRUT	ADJUST+2~, ASK1+1~
DR	ADJUST+2~, DIE*!
DTIME	DQ1+3
DTOUT	ASK1+1~, ST+5, DQ1+3*
DUOUT	ADJUST+2~, ASK1+1~
DXS	DIE+2!
END	RPT+1~, ST+1*, ST+2, DQ1+1, DQ2+2
FLDS	RPT+1~, DQ1+1, DQ2+2
FR	RPT+1~, DQ1+1, DQ2+2
IO("DOC"	ST+3
IO("Q"	ST+4
IOF	DIE+2, DQ1+3
IOM	ST+3
ION	ST+3
IOP	DQ1+1, DQ1+2!, DQ2+1, DQ2+2*, DQ2+3!
IOSL	ST+3
IOST	ST+3, DQ1+3
L	RPT+1~, DQ1+1, DQ2+2
POP	RPT+1~, ST+3, DQ2+2
PRCA	ADJUST+2~
PRCA("STATUS"	ASK1+3*
PRCAA1	ADJUST+2~, ADJUST+4*
PRCAA2	ADJUST+2~, ADJUST+4*
PRCABN	ADJUST~, ADJUST+3, DONE+1, EN1, EN1+2, BEGIN+1, BEGIN+2
PRCACM	RPT+1~, ST+4*
PRCACOMM	DIE+1!, DIE+3!, ASK+1*!
PRCAD	ADJUST+2~
PRCAD("DELETE"	DONE, BEGIN+3!
PRCADEV	RPT+1~, ST+3*, DQ1+1, DQ2+1, DQ2+2
PRCAEN	ADJUST+2~, ADJUST+3, ADJUST+4, DIE, DIE+1, DIE+2, DIE+3, DONE+2, DONE+6
PRCAMT	BEGIN+3!
>> PRCAQNM	EN1+2*
PRCATY	ADJUST+2~
RCASK	ADJUST+2~, DONE*
TO	RPT+1~, DQ1+1, DQ2+2
U	ADJUST+4
X	EN1+1~, EN1+2, DQ1+3
>> Y	DONE+4, ASK1+3, ST, ST+1, ST+4*, TI+3
>> ZTDESC	ST+4*
>> ZTDTH	ST+4*
>> ZTRTN	ST+4*
>> ZTSAVE("BEG"	ST+4*
>> ZTSAVE("END"	ST+4*
>> ZTSAVE("PRCADEV"	ST+4*