Routine: RCKATRPT

Information

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

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

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