Routine: RCYDD1

Package	Total	Call Graph
Integrated Billing	4	$$RXST^IBARXEU $$EOB^IBCNSBL2 $$REC^IBRFN $$IB^IBRUTL
Accounts Receivable	3	$$BAL^PRCAFN $$PAID^PRCAFN1 $$NAM^RCFN01
VA FileMan	3	(,NOW)^%DTC ^DIC ^DIR
Outpatient Pharmacy	1	$$POT^PSOCOPAY

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;9,48,128;Mar 20, 1995
PN	;Called by the input transform in field 344.01,.09
Q2
DIS	;DISPLAY BILL INFO
PAY	;Called by the input transform of field 344.01,.04
Q1
DEF(DEB)	;Get default for payment amount (used in input templates for payments)
Q3
DOP	;Make sure date of payment not in future or more than one month ago
Q4
CHK(DFN)	;Check copay exemption status and RX potential charges
REC	;Called by the 344,.01 input transform. Make sure duplicate receipts cannot be created.
STAT(RCYC)	;Called by the 344,100 field to return status of receipt
NOT(REC)	;Called to calculate the number of transaction for a receipt (344,101)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P($G(^PRCA(430,+X,0)),"^")," " Line Location: PN+12
Function Call: WRITE	Prompt: *7," ... This bill appears to have other patient bills on 'hold'." Line Location: PN+15
Function Call: WRITE	Prompt: " ",$P(^PRCA(430.3,RCY,0),"^") Line Location: DIS+3
Function Call: WRITE	Prompt: *7,!,"This bill is not in 'active' status." Line Location: DIS+3
Function Call: WRITE	Prompt: " $",$J($P(RCY,"^")+$P(RCY,"^",2)+$P(RCY,"^",3)+$P(RCY,"^",4)+$P(RCY,"^",5),1,2) Line Location: DIS+4
Function Call: WRITE	Prompt: 7," Payment amount greater than amount of bill!",7 Line Location: PAY+7
Function Call: WRITE	Prompt: 7,!?2," Patient is exempt from RX Copay: ",$P(X,"^",4)," *" Line Location: CHK+1
Function Call: WRITE	Prompt: 7,!?2," This patient has ",X,"-30 day RX's totaling $",(X2),".00 that are potentially " Line Location: CHK+2
Function Call: WRITE	Prompt: !,"* billable. This represents any Window Rx's issued today. *" Line Location: CHK+3
Function Call: WRITE	Prompt: !,"Receipt already in use, please use another receipt number!" Line Location: REC+1
Routine Call	DIC Line Location: PN+4
Routine Call	DIR Line Location: PN+11

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	CHK+1, CHK+2
^PRCA(430 - [#430]	PN+3, PN+12, PN+16, DIS+2, DIS+3, DIS+4, PAY+5, PAY+6, PAY+8, DEF+4
^PRCA(430.3 - [#430.3]	DIS+3, DEF+4
^PRCA(433 - [#433]	REC+1
^RCD(340 - [#340]	PN+16, DIS+3, PAY+5
^RCY(344 - [#344]	PAY+2, PAY+3, REC+1, STAT+3, STAT+4, STAT+6, NOT+3

Name	Field # of Occurrence
^(0	PN+3, DIS+3

Name	Field # of Occurrence
>> %	STAT+5
AMT	PAY+1~, PAY+2, PAY+6, PAY+7
AMT(1	PAY+8*, PAY+9, PAY+10
>> DA	PAY+2
>> DA(1	PAY+2, PAY+3
DATE	DOP+1~, DOP+2*, DOP+4
DEB	DEF~, DEF+2, DEF+3, DEF+4
DFN	CHK~, CHK+1, CHK+2
>> DIC	PN+4*
>> DIC(0	PN+4*
DIR	PN+8~
DIR("A"	PN+9*
DIR("B"	PN+9*
DIR(0	PN+11*
DIRUT	PN+8~
DT	DOP+2, CHK+1
I	PAY+1~, PAY+6*
PROC	PAY+1~, PAY+3*
RCY	PN+1~, PN+3, PN+4, PN+6, PN+9, PN+10, PN+12, PN+14, PN+15, PN+16 , Q2, DIS+1~, DIS+2, DIS+3, DIS+4
RCY1	PN+1~
RCY2	PN+1~
RCYC	STAT~, STAT+3, STAT+4, STAT+6
>> RCYTYP	PN+5
REC	NOT~, NOT+3
TOT	NOT+1~, NOT+2, NOT+3, NOT+4
X	PN+2!, PN+3, PN+4, PN+6, PN+10, PN+12, PN+13!, PN+14, PN+16, Q2 , DIS+2, DIS+3, DIS+4, PAY+7, DEF+1~, DEF+2, DEF+3, DEF+4, Q3, DOP+2 , DOP+3!, DOP+4, CHK+1, CHK+2, REC+1!, STAT+1~, STAT+3, STAT+4, STAT+5, STAT+6 , STAT+7
>> X1	DOP+2*
>> X2	DOP+2*
Y	PN+1~, PN+4, PN+5, PN+6, PN+7, PN+11, PN+12, PN+13, PAY+1~, PAY+2* , PAY+4, PAY+5, PAY+6, STAT+1~, STAT+3, STAT+4, STAT+5, STAT+6, NOT+1~, NOT+3*
Y(1	PAY+6*, PAY+8