Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Accounts Receivable 3 $$BAL^PRCAFN  $$OPTCK^RCDPRPL2  ($$NAM,$$SADD,$$SSN)^RCFN01  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Accounts Receivable 2 RCDPRPL2  RCDPURET  

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

External References

Name Field # of Occurrence
DD^%DT PRINT+36, PRINT+39, PRINT+46
NOW^%DTC PRINT+36
^%ZIS RECEIPT+14, DEVICE+5
^%ZISC DEVICE+6, QUEUEIT+5, PRINT+67
^%ZTLOAD QUEUEIT+4
$$BAL^PRCAFN PRINT+56
$$OPTCK^RCDPRPL2 RECEIPT+2, DEVICE+3
$$NAM^RCFN01 PRINT+31
$$SADD^RCFN01 PRINT+6
$$SSN^RCFN01 PRINT+25, PRINT+32

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
Routine Call
  • %ZIS
  • Line Location:
    • RECEIPT+14
    • DEVICE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+24
^PRCA(430 - [#430] PRINT+29, PRINT+31, PRINT+32, PRINT+56
^RC(341.1 - [#341.1] PRINT+38, PRINT+42
^RCY(344 - [#344] PRINT+19, PRINT+35, PRINT+38, PRINT+42

Label References

Name Line Occurrences
$$DEVICE RECEIPT+18
PRINT DEVICE+8
QUEUEIT RECEIPT+15, DEVICE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RECEIPT+1~, RECEIPT+18*, PRINT+2~, PRINT+8*, PRINT+15*, PRINT+16, PRINT+25*, PRINT+26, PRINT+32*, PRINT+33
%H PRINT+2~
%I PRINT+2~
>> %ZIS RECEIPT+13*, DEVICE+4*
>> %ZIS("A" DEVICE+2*
>> %ZIS("B" DEVICE+3*
ADDRESS PRINT+2~, PRINT+6*, PRINT+8, PRINT+9*, PRINT+10
DATA PRINT+2~, PRINT+19*, PRINT+20, PRINT+23, PRINT+24, PRINT+25, PRINT+29, PRINT+31, PRINT+32, PRINT+35
, PRINT+39, PRINT+45, PRINT+46, PRINT+48, PRINT+52, PRINT+53, PRINT+55, PRINT+56
IO PRINT+3
IO("Q" DEVICE+7
IOP RECEIPT+1~, RECEIPT+12*
LINE PRINT+2~, PRINT+12*, PRINT+13, PRINT+66
MSG PRINT+2~, PRINT+64*, PRINT+65
>> POP RECEIPT+14, DEVICE+6
PRINT RECEIPT+1~, RECEIPT+2*, RECEIPT+4*, RECEIPT+7, RECEIPT+10, RECEIPT+12*, RECEIPT+14*, RECEIPT+18
RCRECTDA RECEIPT~, PRINT+19, PRINT+35, PRINT+38, PRINT+42
RCTRANDA RECEIPT~, PRINT+19
RCTYPE PRINT+2~, PRINT+42*, PRINT+44, PRINT+51
X PRINT+2~, PRINT+36
Y PRINT+2~, PRINT+36*, PRINT+37, PRINT+39*, PRINT+40, PRINT+46*, PRINT+47
>> ZTDESC QUEUEIT+2*
>> ZTDTH QUEUEIT+2*
>> ZTRTN QUEUEIT+2*
>> ZTSAVE("RCRECTDA" QUEUEIT+3*
>> ZTSAVE("RCTRANDA" QUEUEIT+3*
>> ZTSAVE("ZTREQ" QUEUEIT+3*
ZTSK QUEUEIT+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All