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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  NOW^%DTC  
Accounts Receivable 1 $$SLH^RCFN01  

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 1 PRCA PAYMENTS WITH WRITE-OFFS  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^%DT BEG+1, BEG+2
NOW^%DTC BEG+1
^%ZIS BEG+4
^%ZISC Q
^%ZTLOAD BEG+5
$$SLH^RCFN01 Q2+4, HDR1+3

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
Routine Call
  • %ZIS
  • Line Location:
    • BEG+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DQ+9
^PRCA(430 - [#430] DQ+7, DQ+8, DQ+11
^PRCA(430.3 - [#430.3] DQ+6, DQ+8, DQ+12, Q2+5
^PRCA(433 - [#433] DQ+4, DQ+6, DQ+12, Q2+4, Q2+5
^RCD(340 - [#340] DQ+5, DQ+9

Label References

Name Line Occurrences
BEG BEG+3
DQ BEG+6
HDR DQ+9, DQ+10, Q2+3
HDR1 DQ+3
Q BEG+1, BEG+2, BEG+4, BEG+5
Q1 Q2+1, Q2+2, Q2+3
Q2 DQ+8, DQ+9, DQ+10
Q3 HDR+1

Naked Globals

Name Field # of Occurrence
^(0 DQ+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BEG+1
%DT V+2~, BEG+1*, BEG+2*
%DT("A" BEG+1*, BEG+2*
%DT(0 BEG+1*
%ZIS V+2~, BEG+4*
BEG V+2~, BEG+1*, BEG+3, DQ+4, HDR1+3
BILL DQ+1~, DQ+7*, DQ+8, DQ+11, DQ+12
DATE DQ+1~, DQ+4*, Q2+4
DEBT DQ+1~, DQ+2*, DQ+4*, DQ+5, DQ+7, DQ+9, DQ+10, Q2+1, Q2+2*, Q2+3
, HDR+1*
DIR V+2~
DIROUT V+2~
DIRUT V+2~
DT HDR1+3
DTIME HDR+1
DTOUT V+2~, HDR+1*
DUOUT V+2~
END V+2~, BEG+2*, BEG+3, DQ+4, HDR1+3
IO BEG+6
IO("Q" BEG+5
IOF DQ+3, HDR+2
IOM HDR1+2, HDR1+3
IOS V+2~, Q2+3
IOSL DQ+9, DQ+10Press return to continue:
IOST DQ+3, HDR+1
PAGE DQ+1~, DQ+2*, HDR1+1*, HDR1+2
>> POP BEG+4
PRI DQ+1~, DQ+4*, DQ+7, DQ+9*, Q2+2
>> TRAN DQ+4*, DQ+6, Q2+4, Q2+5
X V+2~, DQ+9*, DQ+11*, DQ+12*, DQ+13, Q2+4*, HDR+1*, HDR1+3*, HDR1+4*
Y V+2~, BEG+1, BEG+2
>> ZTDESC BEG+5*
>> ZTRTN BEG+5*
>> ZTSAVE("BEG" BEG+5*
>> ZTSAVE("END" BEG+5*
ZTSK V+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All