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: PRCAWOF

Package: Accounts Receivable

Routine: PRCAWOF


Information

PRCAWOF ;WASH-ISC@ALTOONA,PA/RGY-AR WRITE-OFF REPORT ;8/23/95 9:00 AM

Source Information

Source file <PRCAWOF.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**20*,104*;Mar 20, 1995
BEG ;
Q
DQ ;
Q2
Q1
HDR ;Print Header of report
HDR1 ;
Q3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,*7,"*** Beginning date is Greater than or equal to Ending date ***",!
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !,$P($G(^DPT(+$P(^RCD(340,DEBT,0),"^"),0)),"^")
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: " (",$E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9),")"
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !?5,"Bill # ",$P(^PRCA(430,BILL,0),"^")
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: ?25,"Amt: ",$J($P(X,"^")+$P(X,"^",2)+$P(X,"^",3)+$P(X,"^",4)+$P(X,"^",5),7,2)
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: ?45,$P(^PRCA(430.3,+$P(^PRCA(433,X,1),"^",2),0),"^")
  • Line Location: DQ+12
Function Call: WRITE
  • Prompt: !?5,"Trans #: ",TRAN,?20,"Date: ",$$SLH^RCFN01(DATE)
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: ?40,"Amt: ",$J($P(X,"^")+$P(X,"^",2)+$P(X,"^",3)+$P(X,"^",4)+$P(X,"^",5),7,2)
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: ?60,$P(^PRCA(430.3,+$P(^PRCA(433,TRAN,1),"^",2),0),"^")
  • Line Location: Q2+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Press return to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Payments Received for Patient Accounts with Written-off Bills",?IOM-($L(PAGE)+7),"Page: ",PAGE
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"From ",$$SLH^RCFN01(BEG)," thru ",$$SLH^RCFN01(END)
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: ?IOM-$L(X)-1,X,!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HDR1+4
Info |  Source |  Entry Points |  Interaction Calls