Routine: RCKATRPT

Information

RCKATRPT ;ALB/MAF-KATRINA FINANCIAL STATEMENT REPORT ;12/1/05 4:14 PM

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	3	DD^%DT (C,NOW)^%DTC ^DIR
Accounts Receivable	2	$$SSN^RCFN01 EN^RCKATRPT
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Registration	2	$$EMGRES^DGUTL $$SITE^VASITE

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

Package	Total	Caller Graph
Accounts Receivable	2	RC EMERGENCY RESPONSE REPORT RCKATRPT

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;242,246;Mar 20, 1995
EN1	;
RPTQ
EN	;
BBAL	;get bills balances return array
BBALQ
PRINT	;PRINT THE REPORT
RET	;
HEAD	;HEADING DETAILED
PRDATA	;WRITE THE DATA

External References

Name	Field # of Occurrence
DD^%DT	HEAD+2
C^%DTC	EN+3
NOW^%DTC	EN1+6, EN+3
^%ZIS	EN1+10
HOME^%ZIS	EN1+15
^%ZTLOAD	EN1+13
$$EMGRES^DGUTL	EN+11
^DIR	EN1+3, RET+6
$$SSN^RCFN01	EN+8
EN^RCKATRPT	EN1+17
$$SITE^VASITE	PRDATA+4, PRDATA+9, PRDATA+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unavailable") Line Location: EN1+14
Function Call: WRITE	Prompt: !!,"No data meets this criteria" Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: RET+1
Function Call: WRITE	Prompt: @IOF,"Financial"_$S(RCTYPE="S":" Summary ",1:" Detailed ")_"Statement for Hurricane Katrina ",?53 Line Location: HEAD+2
Function Call: WRITE	Prompt: Y," ",$J("PAGE: "_RCPAG,12),! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,RCDCL Line Location: HEAD+7
Function Call: WRITE	Prompt: !,?35,$P($$SITE^VASITE(),"^",2),! Line Location: PRDATA+9
Function Call: WRITE	Prompt: !,DEB_":"_$P($G(^DPT(DFN,0)),"^",1) Line Location: PRDATA+10
Function Call: WRITE	Prompt: !,$P($G(^PRCA(430,BN,0)),"^",1),?12,$S($P($G(DATA),"^",1):$J("$"_$P(DATA,"^",1),15),1:$J("$0",15)),?30,$S($P($G(DATA),"^",2):$J("$"_$P(DATA,"^",2),15),1:$J("$0",15)) Line Location: PRDATA+11
Function Call: WRITE	Prompt: !,?35,$P($$SITE^VASITE(),"^",2),!!,DEB_":"_$P($G(^DPT(DFN,0)),"^",1),! Line Location: PRDATA+15
Function Call: WRITE	Prompt: !,"------",?16,RCDL Line Location: PRDATA+18
Routine Call	DIR Line Location: EN1+3 RET+6
Routine Call	%ZIS Line Location: EN1+10
Routine Call	%ZIS Line Location: EN1+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRDATA+10, PRDATA+15
^PRCA(430 - [#430]	BBAL+3, BBAL+5, BBAL+6, PRDATA+11
^PRCA(430.3 - [#430.3]	BBAL+2
^RCD(340 - [#340]	EN+7, EN+11
^TMP("DEBTOR"	EN+6!, EN+14!, BBAL+7, BBAL+10*, PRINT+5, PRINT+6, PRDATA+8, PRDATA+14
^TMP("RCBBL"	EN+6!, EN+14!, BBAL+4*
^TMP("RCDEBTOR"	EN+6!, EN+14!, BBAL+11*, PRINT+3, PRDATA+17
^TMP("RCDFN"	EN+6!, EN+14!, RET+3!, RET+8!, PRDATA+10, PRDATA+13, PRDATA+15*
^TMP("RCSITE"	EN+6!, EN+14!, RET+3!, RET+8!, PRDATA+9, PRDATA+13, PRDATA+15*
^TMP("RCTOT"	EN+6!, EN+14!, BBAL+12, BBAL+13, PRINT+11, PRDATA+3
^XTMP("RCKATRPT"	EN+2!, EN+4, PRDATA+5, PRDATA+20, PRDATA+21

Label References

Name	Line Occurrences
BBAL	EN+12
BBALQ	BBAL+1
HEAD	PRINT+2, RET+4
PRDATA	PRINT+6, PRINT+11
PRINT	EN+13
RET	PRINT+6, PRINT+9, PRDATA+15
RPTQ	EN1+4, EN1+10, EN1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+1~, EN+1~
%H	EN+1~
%I	EN+1~
%ZIS	EN1+9~, EN1+10*
AC	EN+1~, BBAL+2*, BBAL+3
ADM	EN+1~, BBAL+4, BBAL+8, BBAL+11
BAL	EN+1~, BBAL+5*, BBAL+8, BBAL+9, BBAL+10, BBAL+12, BBAL+13
BBAL	EN+1~, EN+12, BBAL+4, BBAL+9*, BBAL+10, BBAL+13
BN	EN+1~, BBAL+3, BBAL+5, BBAL+6, BBAL+10, PRINT+6, PRDATA+8, PRDATA+11, PRDATA+14, PRDATA+21
DATA	EN+1~, PRDATA+7~, PRDATA+8*, PRDATA+11, PRDATA+12, PRDATA+21
DEB	EN+1~, EN+5, EN+7, EN+8, EN+11, BBAL+1, BBAL+3, BBAL+4, BBAL+7, BBAL+10 , BBAL+11, PRINT+5*, PRINT+6, PRDATA+8, PRDATA+10, PRDATA+14, PRDATA+15, PRDATA+17, PRDATA+20, PRDATA+21
DFN	EN+1~, PRINT+6*, RET+3, RET+8, PRDATA+8, PRDATA+10, PRDATA+13, PRDATA+14, PRDATA+15, PRDATA+17 , PRDATA+20, PRDATA+21
DIR	EN1+1~, EN1+3!, RET+5~
DIR("A"	EN1+2, RET+6
DIR("B"	EN1+3*
DIR(0	EN1+2, RET+6
DT	EN1+7, EN+3, EN+4
DTOUT	EN1+1~, EN1+4, RET+5~, RET+7
DUOUT	EN1+1~, EN1+4, RET+5~, RET+7
INT	EN+1~, BBAL+4, BBAL+8, BBAL+11
IO	EN1+16
IO("Q"	EN1+11, EN1+15!
IOF	HEAD+2
IOSL	PRINT+6, RET+1, PRDATA+15
IOST	RET+2
OP	EN+1~, BBAL+2*, BBAL+3
PB	EN+1~, BBAL+4, BBAL+8, BBAL+11
POP	EN1+9~, EN1+10
PRE	EN+1~
RCDATE	EN1+1~, EN1+7*, HEAD+2
RCDCL	EN+1~, PRINT+1*, HEAD+7
RCDFN	EN+1~, EN+11~*, BBAL+10, BBAL+11
RCDL	EN+1~, PRDATA+18*
RCFLAG	EN+1~, PRINT+5, PRINT+6, PRINT+9, RET+7, PRDATA+15
RCPAG	EN+1~, PRINT+1, PRINT+9, HEAD+1*, HEAD+2
RCSITE	EN+1~
RCTOT	EN+1~, BBAL+12*, BBAL+13
RCTYPE	EN1+1~, EN1+5, PRINT+4, PRINT+9, PRINT+10, RET+3, RET+8, HEAD+2, HEAD+3, HEAD+5 , PRDATA+2, PRDATA+6
SITE	EN+1~, BBAL+6, BBAL+7, BBAL+10, BBAL+11, BBAL+12, BBAL+13, PRINT+1, PRINT+5, PRINT+6 , PRINT+11, RET+3, RET+8, PRDATA+3, PRDATA+5, PRDATA+8, PRDATA+9, PRDATA+13, PRDATA+14, PRDATA+15 , PRDATA+17, PRDATA+20, PRDATA+21
STAT	EN+1~, BBAL+3*
TOTAMT	EN+1~, EN+5, PRDATA+3, PRDATA+4, PRDATA+5
TOTVET	EN+1~, EN+5, BBAL+7, PRDATA+4, PRDATA+5
X	EN1+1~, EN+1~, EN+4, RET+1, PRDATA+16~, PRDATA+17, PRDATA+19, PRDATA+20
X1	EN+1~, EN+3*
X2	EN+1~, EN+3*
Y	EN1+1~, EN1+4, EN1+5, EN+1~, HEAD+1~, HEAD+2*
ZTDESC	EN1+9~, EN1+12*
ZTRTN	EN1+9~, EN1+12*
ZTSAVE	EN1+9~
ZTSAVE("RCDATE"	EN1+12*
ZTSAVE("RCTYPE"	EN1+12*
ZTSK	EN1+9~, EN1+14, EN1+15!

Customize PDF page

Package: Accounts Receivable