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

Package: Accounts Receivable

Routine: RCRJRTR1


Information

RCRJRTR1 ;WISC/RFJ-transaction report (print) ;1 Mar 97

Source Information

Source file <RCRJRTR1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print the report
NDB(NDBTYPE,TRANTYPE,NODE)
NDBCATEG(NDBTYPE)
WRITE(VALUE)
PAUSE ; pause at end of page
H ; header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TRANSACTION TYPE: ",TYPE," ",$P($G(^PRCA(430.3,+TYPE,0)),"^")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: " [ADDED]"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: " [EXEMPT]"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: " [CONTRACTUAL ADJUSTMENTS]"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: " [PRE-PAYMENTS]"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !?5,"CATEGORY: ",$E($S($L(CATDA)=1:" ",1:"")_CATDA_" "_$P($G(^PRCA(430.2,CATDA,0)),"^"),1,20),?36
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !?10,$P($G(^PRCA(430,BILLDA,0)),"^"),?28,$P($G(^PRCA(433,DA,0)),"^"),?36
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !?10,$E($TR(RCRJLINE,"-","."),11,80),!?10,"TOTALS FOR CATEGORY ...",?36
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !?5,$E($TR(RCRJLINE,"-","."),6,80),!?5,"TOTALS FOR TRANSACTION TYPE ...",?36
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !!,"NATIONAL DATABASE TOTALS (VALUES FROM THE REPORT) ...",!
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,$E(RCRJLINE,1,80),!,"BALANCE GAINS/LOSSES FOR DATE RANGE",?42,"+/-",$J(PRINTOTL,13,2),$J(INTTOTAL,11,2)
  • Line Location: PRINT+76
Function Call: WRITE
  • Prompt: !!," The following formula can be used to balance the values in the national"
  • Line Location: PRINT+78
Function Call: WRITE
  • Prompt: !," database. Note: This report must be run for the entire month and all"
  • Line Location: PRINT+79
Function Call: WRITE
  • Prompt: !," transaction types must be selected. Also, this will only balance for"
  • Line Location: PRINT+80
Function Call: WRITE
  • Prompt: !," the months following the installation of this patch."
  • Line Location: PRINT+81
Function Call: WRITE
  • Prompt: !," Principal Int/Adm",!
  • Line Location: PRINT+82
Function Call: WRITE
  • Prompt: !,"Previous months receivables from NDB (category 1) + __________.__ _______.__"
  • Line Location: PRINT+83
Function Call: WRITE
  • Prompt: !,"Current months gains/losses from this report +/-",$J(PRINTOTL,14,2),$J(INTTOTAL,12,2)
  • Line Location: PRINT+84
Function Call: WRITE
  • Prompt: !,$E(RCRJLINE,1,80)
  • Line Location: PRINT+85
Function Call: WRITE
  • Prompt: !,"Current months receivables from NDB (category 1) = __________.__ _______.__"
  • Line Location: PRINT+86
Function Call: WRITE
  • Prompt: !,"(",NDBTYPE,") ",$$NDBCATEG(NDBTYPE),?36
  • Line Location: NDB+3
Function Call: WRITE
  • Prompt: $J(SIGN_" ",11),$J($G(NDB(TRANTYPE,NODE)),$S(NODE=2:11,1:22),2)
  • Line Location: NDB+7
Function Call: WRITE
  • Prompt: ?75,"(",$J(TRANTYPE,3),")"
  • Line Location: NDB+8
Function Call: WRITE
  • Prompt: $J(VALUE,11)
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: $J(VALUE,11,2)
  • Line Location: WRITE+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $C(13),"AR TRANSACTION LISTING REPORT",?(80-$L(%)),%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2,?65,$J("TYPE: "_$S(RCRJSUMM=1:"SUMMARY",1:"DETAILED"),15)
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?26,$J("TRANSACTION AMOUNT",21),$J("PRINCIPAL",11),$J("INTEREST",11),$J("ADMIN",11)
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,"NATIONAL DATABASE CATEGORY",?26,$J("ADD (+)/SUB (-)",21),$J("PRINCIPAL",11),$J("INT/ADM",11),$J("TRANSTYPE",11)
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !,RCRJLINE
  • Line Location: H+8
Info |  Source |  Entry Points |  Interaction Calls