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
Print Page as PDF
Routine: RCDPRECT

Package: Accounts Receivable

Routine: RCDPRECT


Information

RCDPRECT ;WISC/RFJ-print a receipt ;1 Jun 99

Source Information

Source file <RCDPRECT.m>

Entry Points

Name Comments DBIA/ICR reference
RECEIPT(RCRECTDA,RCTRANDA) ; control printing of receipt for device selection
DEVICE() ; select the device and print receipt
; returns 0 if not successful
QUEUEIT ; queue printing receipt
PRINT ; print a receipt
; requires variables rcrectda and rctranda

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !?25,"Department Of Veterans Affairs"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?((80-$L($P(ADDRESS,"^",%)))/2),$P(ADDRESS,"^",%)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?((80-$L(ADDRESS))/2),ADDRESS
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!?((80-$L(%))/2),%
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: $P($G(^DPT(+$P(DATA,"^",3),0)),"^")
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: " (",$E(%,6,9),")"
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: $P($G(^PRCA(430,+$P(DATA,"^",3),0)),"^")
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: " "
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: $$NAM^RCFN01($P($G(^PRCA(430,+$P(DATA,"^",3),0)),"^",9))
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: " (",$E(%,6,9),")"
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !," Receipt #: ",$P(^RCY(344,RCRECTDA,0),"^"),"/",$P(DATA,"^")
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: ?53,"Date: ",Y
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !," Payment Type: ",$P($G(^RC(341.1,+$P(^RCY(344,RCRECTDA,0),"^",4),0)),"^")
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: ?45,"Payment Date: ",Y
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !," Check #: ",$P(DATA,"^",7)
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: ?47,"Check Date: ",Y
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: !," Bank #: ",$P(DATA,"^",8)
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !," Last 4 of Credit Card #: ",$E($P(DATA,"^",11),$L($P(DATA,"^",11))-3,$L($P(DATA,"^",11)))
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !," Confirmation#: ",$P(DATA,"^",2)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !,"Payment Amount: $ ",$J($P(DATA,"^",4),0,2)
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: ?42,"Account Balance: $ ",$J($$BAL^PRCAFN($S($P(DATA,"^",3)[";PRCA(430":$P(^PRCA(430,+$P(DATA,"^",3),0),"^",9),1:$P(DATA,"^",3))),0,2)
  • Line Location: PRINT+56
Function Call: WRITE
  • Prompt: !!,"IMPORTANT"
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: !!,"Note that checks or drafts are not valid until paid by your bank."
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: !!,"This receipt should be retained for your records."
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: !,"A detailed listing of how your payment has been applied to your"
  • Line Location: PRINT+61
Function Call: WRITE
  • Prompt: !,"account will be provided on your patient statement, which you"
  • Line Location: PRINT+62
Function Call: WRITE
  • Prompt: !,"will receive in the mail at a later date."
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: !!,?((80-$L(MSG))/2),MSG
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: PRINT+66
Info |  Source |  Entry Points |  Interaction Calls