Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCYDD1

Package: Accounts Receivable

Routine: RCYDD1


Information

RCYDD1 ;WASH-ISC@ALTOONA,PA/RGY-DD CALL UTILITIES ;8/27/96 5:35 PM

Source Information

Source file <RCYDD1.m>

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)

Interaction Calls

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 $",(X*2),".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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call