- RCRJRTR1 ;WISC/RFJ-transaction report (print) ;1 Mar 97
- ;;4.5;Accounts Receivable;**68,340**;Mar 20, 1995;Build 9
- ;;Per VA Directive 6402, this routine should not be modified.
- Q
- ;
- ;
- PRINT ; print the report
- N %I,DATA,DATEDIS1,DATEDIS2,INTTOTAL,NDB,NDBFLAG,NOW,PAGE,PRINTOTL,RCRJFLAG,RCRJLINE,SCREEN,SIGN,TOTALC,TOTALT,X,Y
- ;
- ; calculate new receivables from bills and store in 43C
- I $D(TRANTYPE(43)) S NDB("43C",2)=$P($$GETNEW^RCRJRCOL(DATESTRT,DATEEND,0),"^",2)
- ;
- S Y=$P(DATESTRT,".") D DD^%DT S DATEDIS1=Y
- S Y=$P(DATEEND,".") D DD^%DT S DATEDIS2=Y
- D NOW^%DTC S Y=% D DD^%DT S NOW=Y
- S PAGE=1,RCRJLINE="",$P(RCRJLINE,"-",81)=""
- S SCREEN=0 I '$D(ZTQUEUED),IO=IO(0),$E(IOST)="C" S SCREEN=1
- U IO D H
- ;
- S TRANTYPE="" F S TRANTYPE=$O(^TMP($J,"RCRJRTRA",TRANTYPE)) Q:TRANTYPE=""!($G(RCRJFLAG)) D
- . I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
- . S TYPE=$TR(TRANTYPE," ")
- . W !!,"TRANSACTION TYPE: ",TYPE," ",$P($G(^PRCA(430.3,+TYPE,0)),"^")
- . I TYPE="12A"!(TYPE="74A") W " [ADDED]" ; *340 added 74A
- . I TYPE="12E"!(TYPE="74E") W " [EXEMPT]" ; *340 added 74E
- . I TYPE="35C" W " [CONTRACTUAL ADJUSTMENTS]"
- . I TYPE="34P" W " [PRE-PAYMENTS]"
- . ;
- . K TOTALT
- . S CATDA=0 F S CATDA=$O(^TMP($J,"RCRJRTRA",TRANTYPE,CATDA)) Q:'CATDA!($G(RCRJFLAG)) D
- . . I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
- . . W !?5,"CATEGORY: ",$E($S($L(CATDA)=1:" ",1:"")_CATDA_" "_$P($G(^PRCA(430.2,CATDA,0)),"^"),1,20),?36
- . . ;
- . . K TOTALC
- . . S BILLDA=0 F S BILLDA=$O(^TMP($J,"RCRJRTRA",TRANTYPE,CATDA,BILLDA)) Q:'BILLDA!($G(RCRJFLAG)) D
- . . . ;
- . . . S DA=0 F S DA=$O(^TMP($J,"RCRJRTRA",TRANTYPE,CATDA,BILLDA,DA)) Q:'DA!($G(RCRJFLAG)) S DATA=^(DA) D
- . . . . I $Y>(IOSL-5) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
- . . . . I RCRJSUMM=2 W !?10,$P($G(^PRCA(430,BILLDA,0)),"^"),?28,$P($G(^PRCA(433,DA,0)),"^"),?36
- . . . . F %=1:1:4 D:RCRJSUMM=2 WRITE($P(DATA,"^",%)) I $P(DATA,"^",%)'="" S TOTALC(%)=$G(TOTALC(%))+$P(DATA,"^",%)
- . . I $G(RCRJFLAG) Q
- . . I RCRJSUMM=2 W !?10,$E($TR(RCRJLINE,"-","."),11,80),!?10,"TOTALS FOR CATEGORY ...",?36
- . . F %=1:1:4 D WRITE($G(TOTALC(%))) I $G(TOTALC(%))'="" S TOTALT(%)=$G(TOTALT(%))+TOTALC(%)
- . . I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
- . ;
- . I $G(RCRJFLAG) Q
- . W !?5,$E($TR(RCRJLINE,"-","."),6,80),!?5,"TOTALS FOR TRANSACTION TYPE ...",?36
- . F %=1:1:4 D WRITE($G(TOTALT(%))) I $G(TOTALT(%))'="" S NDB(TYPE,%)=$G(NDB(TYPE,%))+TOTALT(%)
- . I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
- ;
- I $G(RCRJFLAG) Q
- ;
- ; set ndbflag to change header for ndb totals (see H)
- S NDBFLAG=1
- D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
- ;
- ; print national database totals
- S PRINTOTL=0,INTTOTAL=0
- W !!,"NATIONAL DATABASE TOTALS (VALUES FROM THE REPORT) ...",!
- ;
- ; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
- ;
- D NDB(15,43,2)
- D NDB(15,"43C",2)
- D NDB(15,43,3)
- D NDB(15,43,4)
- D NDB(16,1,2),NDB(16,73,2) ; *340 added 73 - cs increase adjustments
- D NDB(18,35,2)
- D NDB(20,34,2)
- D NDB(21,2,2)
- D NDB(22,"35C",2)
- D NDB(23,"34P",2)
- D NDB(24,10,2),NDB(24,10,3),NDB(24,10,4)
- D NDB(25,11,2),NDB(25,11,3),NDB(25,11,4)
- D NDB(26,9,2),NDB(26,9,3),NDB(26,9,4)
- D NDB(27,8,2),NDB(27,8,3),NDB(27,8,4)
- D NDB(40,34,3),NDB(40,"34P",3),NDB(40,2,3)
- D NDB(41,34,4),NDB(41,2,4)
- D NDB(42,"12A",3),NDB(42,"74A",3),NDB(42,13,3) ; *340 added 74A and 74E - cs admin.cost charges
- D NDB(43,"12A",4),NDB(43,"74A",4),NDB(43,13,4)
- D NDB(44,"12E",3),NDB(44,"12E",4),NDB(44,"74E",3),NDB(44,"74E",4),NDB(44,14,3)
- D NDB(45,41,2)
- W !,$E(RCRJLINE,1,80),!,"BALANCE GAINS/LOSSES FOR DATE RANGE",?42,"+/-",$J(PRINTOTL,13,2),$J(INTTOTAL,11,2)
- ;
- W !!," The following formula can be used to balance the values in the national"
- W !," database. Note: This report must be run for the entire month and all"
- W !," transaction types must be selected. Also, this will only balance for"
- W !," the months following the installation of this patch."
- W !," Principal Int/Adm",!
- W !,"Previous months receivables from NDB (category 1) + __________.__ _______.__"
- W !,"Current months gains/losses from this report +/-",$J(PRINTOTL,14,2),$J(INTTOTAL,12,2)
- W !,$E(RCRJLINE,1,80)
- W !,"Current months receivables from NDB (category 1) = __________.__ _______.__"
- ;
- Q
- ;
- ;
- NDB(NDBTYPE,TRANTYPE,NODE) ; write ndb totals and calc end total
- I +$G(NDB(TRANTYPE,NODE))=0 Q
- ;
- W !,"(",NDBTYPE,") ",$$NDBCATEG(NDBTYPE),?36
- ;
- S SIGN="-"
- I $F(".1.73.12A.74A.13.43.43C.46.","."_TRANTYPE_".") S SIGN="+" ; *340 added 73 and 74A here
- W $J(SIGN_" ",11),$J($G(NDB(TRANTYPE,NODE)),$S(NODE=2:11,1:22),2)
- W ?75,"(",$J(TRANTYPE,3),")"
- ;
- I NODE=2 S PRINTOTL=PRINTOTL+$S(SIGN="+":$G(NDB(TRANTYPE,NODE)),1:-$G(NDB(TRANTYPE,NODE)))
- I NODE=3!(NODE=4) S INTTOTAL=INTTOTAL+$S(SIGN="+":$G(NDB(TRANTYPE,NODE)),1:-$G(NDB(TRANTYPE,NODE)))
- Q
- ;
- ;
- NDBCATEG(NDBTYPE) ; return ndb category
- ;
- ; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
- ;
- I NDBTYPE=15 Q "NEW RECEIVABLES"
- I NDBTYPE=16 Q "TOTAL INCREASE ADJUSTMENTS"
- I NDBTYPE=18 Q "TOTAL DECREASE ADJUSTMENTS"
- I NDBTYPE=20 Q "COLLECTIONS - FULL PAYMENT"
- I NDBTYPE=21 Q "COLLECTIONS - PART PAYMENT"
- I NDBTYPE=22 Q "COLLECTIONS - CONTRACT ADJ"
- I NDBTYPE=23 Q "COLLECTIONS - PREPAYMENTS"
- I NDBTYPE=24 Q "COLLECTIONS - WAIVED IN FULL"
- I NDBTYPE=25 Q "COLLECTIONS - WAIVED IN PART"
- I NDBTYPE=26 Q "COLLECTIONS - TERM COMPROMISE"
- I NDBTYPE=27 Q "COLLECTIONS - TERM FISCAL OFF"
- I NDBTYPE=40 Q "COLLECTIONS - INTEREST"
- I NDBTYPE=41 Q "COLLECTIONS - ADMIN"
- I NDBTYPE=42 Q "INTEREST ADDED"
- I NDBTYPE=43 Q "ADMINISTRATIVE COST ADDED"
- I NDBTYPE=44 Q "INTEREST/ADMIN COST EXEMPT"
- I NDBTYPE=45 Q "REFUNDS"
- Q "UNKNOWN"
- ;
- ;
- WRITE(VALUE) ; write value
- I VALUE="" W $J(VALUE,11) Q
- W $J(VALUE,11,2)
- Q
- ;
- ;
- PAUSE ; pause at end of page
- N X U IO(0) W !,"Press RETURN to continue, '^' to exit:" R X:DTIME S:'$T X="^" S:X["^" RCRJFLAG=1 U IO Q
- ;
- ;
- H ; header
- S %=NOW_" PAGE "_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF
- W $C(13),"AR TRANSACTION LISTING REPORT",?(80-$L(%)),%
- W !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2,?65,$J("TYPE: "_$S(RCRJSUMM=1:"SUMMARY",1:"DETAILED"),15)
- ;
- I '$G(NDBFLAG) W !?26,$J("TRANSACTION AMOUNT",21),$J("PRINCIPAL",11),$J("INTEREST",11),$J("ADMIN",11)
- I $G(NDBFLAG) W !,"NATIONAL DATABASE CATEGORY",?26,$J("ADD (+)/SUB (-)",21),$J("PRINCIPAL",11),$J("INT/ADM",11),$J("TRANSTYPE",11)
- ;
- W !,RCRJLINE
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRJRTR1 6839 printed Jan 18, 2025@02:49:31 Page 2
- RCRJRTR1 ;WISC/RFJ-transaction report (print) ;1 Mar 97
- +1 ;;4.5;Accounts Receivable;**68,340**;Mar 20, 1995;Build 9
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 QUIT
- +4 ;
- +5 ;
- PRINT ; print the report
- +1 NEW %I,DATA,DATEDIS1,DATEDIS2,INTTOTAL,NDB,NDBFLAG,NOW,PAGE,PRINTOTL,RCRJFLAG,RCRJLINE,SCREEN,SIGN,TOTALC,TOTALT,X,Y
- +2 ;
- +3 ; calculate new receivables from bills and store in 43C
- +4 IF $DATA(TRANTYPE(43))
- SET NDB("43C",2)=$PIECE($$GETNEW^RCRJRCOL(DATESTRT,DATEEND,0),"^",2)
- +5 ;
- +6 SET Y=$PIECE(DATESTRT,".")
- DO DD^%DT
- SET DATEDIS1=Y
- +7 SET Y=$PIECE(DATEEND,".")
- DO DD^%DT
- SET DATEDIS2=Y
- +8 DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- SET NOW=Y
- +9 SET PAGE=1
- SET RCRJLINE=""
- SET $PIECE(RCRJLINE,"-",81)=""
- +10 SET SCREEN=0
- IF '$DATA(ZTQUEUED)
- IF IO=IO(0)
- IF $EXTRACT(IOST)="C"
- SET SCREEN=1
- +11 USE IO
- DO H
- +12 ;
- +13 SET TRANTYPE=""
- FOR
- SET TRANTYPE=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE))
- if TRANTYPE=""!($GET(RCRJFLAG))
- QUIT
- Begin DoDot:1
- +14 IF $Y>(IOSL-6)
- if SCREEN
- DO PAUSE
- if $GET(RCRJFLAG)
- QUIT
- DO H
- +15 SET TYPE=$TRANSLATE(TRANTYPE," ")
- +16 WRITE !!,"TRANSACTION TYPE: ",TYPE," ",$PIECE($GET(^PRCA(430.3,+TYPE,0)),"^")
- +17 ; *340 added 74A
- IF TYPE="12A"!(TYPE="74A")
- WRITE " [ADDED]"
- +18 ; *340 added 74E
- IF TYPE="12E"!(TYPE="74E")
- WRITE " [EXEMPT]"
- +19 IF TYPE="35C"
- WRITE " [CONTRACTUAL ADJUSTMENTS]"
- +20 IF TYPE="34P"
- WRITE " [PRE-PAYMENTS]"
- +21 ;
- +22 KILL TOTALT
- +23 SET CATDA=0
- FOR
- SET CATDA=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE,CATDA))
- if 'CATDA!($GET(RCRJFLAG))
- QUIT
- Begin DoDot:2
- +24 IF $Y>(IOSL-6)
- if SCREEN
- DO PAUSE
- if $GET(RCRJFLAG)
- QUIT
- DO H
- +25 WRITE !?5,"CATEGORY: ",$EXTRACT($SELECT($LENGTH(CATDA)=1:" ",1:"")_CATDA_" "_$PIECE($GET(^PRCA(430.2,CATDA,0)),"^"),1,20),?36
- +26 ;
- +27 KILL TOTALC
- +28 SET BILLDA=0
- FOR
- SET BILLDA=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE,CATDA,BILLDA))
- if 'BILLDA!($GET(RCRJFLAG))
- QUIT
- Begin DoDot:3
- +29 ;
- +30 SET DA=0
- FOR
- SET DA=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE,CATDA,BILLDA,DA))
- if 'DA!($GET(RCRJFLAG))
- QUIT
- SET DATA=^(DA)
- Begin DoDot:4
- +31 IF $Y>(IOSL-5)
- if SCREEN
- DO PAUSE
- if $GET(RCRJFLAG)
- QUIT
- DO H
- +32 IF RCRJSUMM=2
- WRITE !?10,$PIECE($GET(^PRCA(430,BILLDA,0)),"^"),?28,$PIECE($GET(^PRCA(433,DA,0)),"^"),?36
- +33 FOR %=1:1:4
- if RCRJSUMM=2
- DO WRITE($PIECE(DATA,"^",%))
- IF $PIECE(DATA,"^",%)'=""
- SET TOTALC(%)=$GET(TOTALC(%))+$PIECE(DATA,"^",%)
- End DoDot:4
- End DoDot:3
- +34 IF $GET(RCRJFLAG)
- QUIT
- +35 IF RCRJSUMM=2
- WRITE !?10,$EXTRACT($TRANSLATE(RCRJLINE,"-","."),11,80),!?10,"TOTALS FOR CATEGORY ...",?36
- +36 FOR %=1:1:4
- DO WRITE($GET(TOTALC(%)))
- IF $GET(TOTALC(%))'=""
- SET TOTALT(%)=$GET(TOTALT(%))+TOTALC(%)
- +37 IF $Y>(IOSL-6)
- if SCREEN
- DO PAUSE
- if $GET(RCRJFLAG)
- QUIT
- DO H
- End DoDot:2
- +38 ;
- +39 IF $GET(RCRJFLAG)
- QUIT
- +40 WRITE !?5,$EXTRACT($TRANSLATE(RCRJLINE,"-","."),6,80),!?5,"TOTALS FOR TRANSACTION TYPE ...",?36
- +41 FOR %=1:1:4
- DO WRITE($GET(TOTALT(%)))
- IF $GET(TOTALT(%))'=""
- SET NDB(TYPE,%)=$GET(NDB(TYPE,%))+TOTALT(%)
- +42 IF $Y>(IOSL-6)
- if SCREEN
- DO PAUSE
- if $GET(RCRJFLAG)
- QUIT
- DO H
- End DoDot:1
- +43 ;
- +44 IF $GET(RCRJFLAG)
- QUIT
- +45 ;
- +46 ; set ndbflag to change header for ndb totals (see H)
- +47 SET NDBFLAG=1
- +48 if SCREEN
- DO PAUSE
- if $GET(RCRJFLAG)
- QUIT
- DO H
- +49 ;
- +50 ; print national database totals
- +51 SET PRINTOTL=0
- SET INTTOTAL=0
- +52 WRITE !!,"NATIONAL DATABASE TOTALS (VALUES FROM THE REPORT) ...",!
- +53 ;
- +54 ; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
- +55 ;
- +56 DO NDB(15,43,2)
- +57 DO NDB(15,"43C",2)
- +58 DO NDB(15,43,3)
- +59 DO NDB(15,43,4)
- +60 ; *340 added 73 - cs increase adjustments
- DO NDB(16,1,2)
- DO NDB(16,73,2)
- +61 DO NDB(18,35,2)
- +62 DO NDB(20,34,2)
- +63 DO NDB(21,2,2)
- +64 DO NDB(22,"35C",2)
- +65 DO NDB(23,"34P",2)
- +66 DO NDB(24,10,2)
- DO NDB(24,10,3)
- DO NDB(24,10,4)
- +67 DO NDB(25,11,2)
- DO NDB(25,11,3)
- DO NDB(25,11,4)
- +68 DO NDB(26,9,2)
- DO NDB(26,9,3)
- DO NDB(26,9,4)
- +69 DO NDB(27,8,2)
- DO NDB(27,8,3)
- DO NDB(27,8,4)
- +70 DO NDB(40,34,3)
- DO NDB(40,"34P",3)
- DO NDB(40,2,3)
- +71 DO NDB(41,34,4)
- DO NDB(41,2,4)
- +72 ; *340 added 74A and 74E - cs admin.cost charges
- DO NDB(42,"12A",3)
- DO NDB(42,"74A",3)
- DO NDB(42,13,3)
- +73 DO NDB(43,"12A",4)
- DO NDB(43,"74A",4)
- DO NDB(43,13,4)
- +74 DO NDB(44,"12E",3)
- DO NDB(44,"12E",4)
- DO NDB(44,"74E",3)
- DO NDB(44,"74E",4)
- DO NDB(44,14,3)
- +75 DO NDB(45,41,2)
- +76 WRITE !,$EXTRACT(RCRJLINE,1,80),!,"BALANCE GAINS/LOSSES FOR DATE RANGE",?42,"+/-",$JUSTIFY(PRINTOTL,13,2),$JUSTIFY(INTTOTAL,11,2)
- +77 ;
- +78 WRITE !!," The following formula can be used to balance the values in the national"
- +79 WRITE !," database. Note: This report must be run for the entire month and all"
- +80 WRITE !," transaction types must be selected. Also, this will only balance for"
- +81 WRITE !," the months following the installation of this patch."
- +82 WRITE !," Principal Int/Adm",!
- +83 WRITE !,"Previous months receivables from NDB (category 1) + __________.__ _______.__"
- +84 WRITE !,"Current months gains/losses from this report +/-",$JUSTIFY(PRINTOTL,14,2),$JUSTIFY(INTTOTAL,12,2)
- +85 WRITE !,$EXTRACT(RCRJLINE,1,80)
- +86 WRITE !,"Current months receivables from NDB (category 1) = __________.__ _______.__"
- +87 ;
- +88 QUIT
- +89 ;
- +90 ;
- NDB(NDBTYPE,TRANTYPE,NODE) ; write ndb totals and calc end total
- +1 IF +$GET(NDB(TRANTYPE,NODE))=0
- QUIT
- +2 ;
- +3 WRITE !,"(",NDBTYPE,") ",$$NDBCATEG(NDBTYPE),?36
- +4 ;
- +5 SET SIGN="-"
- +6 ; *340 added 73 and 74A here
- IF $FIND(".1.73.12A.74A.13.43.43C.46.","."_TRANTYPE_".")
- SET SIGN="+"
- +7 WRITE $JUSTIFY(SIGN_" ",11),$JUSTIFY($GET(NDB(TRANTYPE,NODE)),$SELECT(NODE=2:11,1:22),2)
- +8 WRITE ?75,"(",$JUSTIFY(TRANTYPE,3),")"
- +9 ;
- +10 IF NODE=2
- SET PRINTOTL=PRINTOTL+$SELECT(SIGN="+":$GET(NDB(TRANTYPE,NODE)),1:-$GET(NDB(TRANTYPE,NODE)))
- +11 IF NODE=3!(NODE=4)
- SET INTTOTAL=INTTOTAL+$SELECT(SIGN="+":$GET(NDB(TRANTYPE,NODE)),1:-$GET(NDB(TRANTYPE,NODE)))
- +12 QUIT
- +13 ;
- +14 ;
- NDBCATEG(NDBTYPE) ; return ndb category
- +1 ;
- +2 ; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
- +3 ;
- +4 IF NDBTYPE=15
- QUIT "NEW RECEIVABLES"
- +5 IF NDBTYPE=16
- QUIT "TOTAL INCREASE ADJUSTMENTS"
- +6 IF NDBTYPE=18
- QUIT "TOTAL DECREASE ADJUSTMENTS"
- +7 IF NDBTYPE=20
- QUIT "COLLECTIONS - FULL PAYMENT"
- +8 IF NDBTYPE=21
- QUIT "COLLECTIONS - PART PAYMENT"
- +9 IF NDBTYPE=22
- QUIT "COLLECTIONS - CONTRACT ADJ"
- +10 IF NDBTYPE=23
- QUIT "COLLECTIONS - PREPAYMENTS"
- +11 IF NDBTYPE=24
- QUIT "COLLECTIONS - WAIVED IN FULL"
- +12 IF NDBTYPE=25
- QUIT "COLLECTIONS - WAIVED IN PART"
- +13 IF NDBTYPE=26
- QUIT "COLLECTIONS - TERM COMPROMISE"
- +14 IF NDBTYPE=27
- QUIT "COLLECTIONS - TERM FISCAL OFF"
- +15 IF NDBTYPE=40
- QUIT "COLLECTIONS - INTEREST"
- +16 IF NDBTYPE=41
- QUIT "COLLECTIONS - ADMIN"
- +17 IF NDBTYPE=42
- QUIT "INTEREST ADDED"
- +18 IF NDBTYPE=43
- QUIT "ADMINISTRATIVE COST ADDED"
- +19 IF NDBTYPE=44
- QUIT "INTEREST/ADMIN COST EXEMPT"
- +20 IF NDBTYPE=45
- QUIT "REFUNDS"
- +21 QUIT "UNKNOWN"
- +22 ;
- +23 ;
- WRITE(VALUE) ; write value
- +1 IF VALUE=""
- WRITE $JUSTIFY(VALUE,11)
- QUIT
- +2 WRITE $JUSTIFY(VALUE,11,2)
- +3 QUIT
- +4 ;
- +5 ;
- PAUSE ; pause at end of page
- +1 NEW X
- USE IO(0)
- WRITE !,"Press RETURN to continue, '^' to exit:"
- READ X:DTIME
- if '$TEST
- SET X="^"
- if X["^"
- SET RCRJFLAG=1
- USE IO
- QUIT
- +2 ;
- +3 ;
- H ; header
- +1 SET %=NOW_" PAGE "_PAGE
- SET PAGE=PAGE+1
- IF PAGE'=2!(SCREEN)
- WRITE @IOF
- +2 WRITE $CHAR(13),"AR TRANSACTION LISTING REPORT",?(80-$LENGTH(%)),%
- +3 WRITE !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2,?65,$JUSTIFY("TYPE: "_$SELECT(RCRJSUMM=1:"SUMMARY",1:"DETAILED"),15)
- +4 ;
- +5 IF '$GET(NDBFLAG)
- WRITE !?26,$JUSTIFY("TRANSACTION AMOUNT",21),$JUSTIFY("PRINCIPAL",11),$JUSTIFY("INTEREST",11),$JUSTIFY("ADMIN",11)
- +6 IF $GET(NDBFLAG)
- WRITE !,"NATIONAL DATABASE CATEGORY",?26,$JUSTIFY("ADD (+)/SUB (-)",21),$JUSTIFY("PRINCIPAL",11),$JUSTIFY("INT/ADM",11),$JUSTIFY("TRANSTYPE",11)
- +7 ;
- +8 WRITE !,RCRJLINE
- +9 QUIT