Routine: PRCAPTR

Information

PRCAPTR ;WASH-ISC@ALTOONA,PA/RGY-Print PENDING TRANSACTION ;8/25/93 9:11 AM

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Accounts Receivable	1	PRCAREPT

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;;Mar 20, 1995
TOP	;
Q2
PRNTL	;
HDR	;
DT
TSK	;
Q1

External References

Name	Field # of Occurrence
^%ZIS	TSK+2
^%ZISC	Q1
^%ZTLOAD	TSK+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y+5>IOSL Line Location: V+6
Function Call: WRITE	Prompt: !?69,"----------",!?60,"TOTAL:",?69,$J(TOTAL,10,2),!?60,"COUNT:",?69,$J(CNT,10,2) Line Location: V+6
Function Call: WRITE	Prompt: !?60,"MEAN:",?69,$J(TOTAL/CNT,10,2) Condition for execution: CNT Line Location: V+6
Function Call: READ	Formatting: ! Prompt: "Press return to continue: " Variable: X Timeout: DTIME Line Location: TOP+1
Function Call: WRITE	Prompt: @IOF Line Location: TOP+2
Function Call: WRITE	Prompt: !,+X0,?9,$P($G(^PRCA(430,+$P(X0,"^",2),0)),"^") Line Location: PRNTL+1
Function Call: WRITE	Prompt: ?22 Line Location: PRNTL+2
Function Call: WRITE	Prompt: ?37,$E($P($G(^PRCA(430.2,+$P($G(^PRCA(430,+$P(X0,"^",2),0)),"^",2),0)),"^"),1,15),?55,$E($P($G(^PRCA(430.3,+$P(X1,"^",2),0)),"^"),1,10),?69,$J($P(X1,"^",5),10,2) Line Location: PRNTL+2
Function Call: WRITE	Prompt: !,"Pending Transaction List",!,"Date Printed: " Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"Tran. #",?9,"Bill #",?22,"Tran. Date",?37,"Category",?55,"Type",?73,"Amount",! Line Location: HDR+2
Function Call: WRITE	Prompt: X,! Line Location: HDR+3
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " Line Location: DT+0
Function Call: WRITE	Prompt: $J(Y#100\1,2)_"," Condition for execution: Y#100 Line Location: DT+0
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: DT+0
Routine Call	%ZIS Line Location: TSK+2

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	PRNTL+1, PRNTL+2
^PRCA(430.2 - [#430.2]	PRNTL+2
^PRCA(430.3 - [#430.3]	PRNTL+2
^PRCA(433 - [#433]	V+5, PRNTL+1

Label References

Name	Line Occurrences
DT	PRNTL+2, HDR+1
HDR	V+4, TOP+2
PRCAPTR	TSK+3
PRNTL	V+5
Q1	TSK+2, TSK+3
Q2	TOP+1
TOP	V+5

Naked Globals

Name	Field # of Occurrence
^(1	PRNTL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	TSK+2*
CNT	V+2~, V+3, V+6, PRNTL+3
DT	HDR+1
DTIME	TOP+1
IO	TSK+3
IO("Q"	TSK+3
IO(0	TSK+3
IOF	V+4, V+6, V+7, TOP+2
IOM	HDR+3
IOSL	V+5, V+6
IOST	V+4, V+7, TOP+1
POP	TSK+2, Q1!
PRCAE	V+2~, V+5*, PRNTL+1
TOTAL	V+2~, V+3, V+6, PRNTL+3
U	DT
>> X	V+5, V+6, TOP+1, HDR+3*
X0	V+2~, PRNTL+1*, PRNTL+2
X1	V+2~, PRNTL+1*, PRNTL+2, PRNTL+3
>> Y	PRNTL+2, HDR+1, DT
>> ZTDESC	TSK+4*
>> ZTRTN	TSK+4*
ZTSK	TSK+1~

Customize PDF page

Package: Accounts Receivable