- BPSNTR01 ; AITC/MRD - NTR-Related Reports; JAN 09, 2020@08:23
- ;;1.0;E CLAIMS MGMT ENGINE;**27**;JUN 2004;Build 15
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- Q
- ;
- EN ;
- ;
- N BPSCNT,BPSDATE,BPSDATESUB,BPSIEN57
- N BPSQUIT,BPSTOUCH,BPSTYPE,BPSYRMO,DIR,DIRUT
- ;
- ; Display a brief description of the report.
- ;
- W !!,"This report will display a line for each transaction"
- W !,"in the month* specified. The earliest month possible is"
- W !,"January, 2004."
- W !," Note: The transactions will be displayed according to"
- W !," the date last updated, not the date submitted."
- W !
- ;
- ; Prompt user for desired month and year.
- ;
- DATE ;
- S DIR(0)="FAO^4:7^K:X'?1.2N1""/""1.2N X"
- S DIR("A")="Enter a month and year (M/YY or MM/YY): "
- S DIR("?")="Example values: 1/18, 01/18, 12/19."
- D ^DIR
- I $G(DIRUT) G QUIT
- S BPSYRMO=$P(X,"/",1)
- I BPSYRMO>12 W !,"Please try again",*7,! G DATE
- I $L(BPSYRMO)<2 S BPSYRMO="0"_BPSYRMO
- S BPSYRMO=3_$P(X,"/",2)_BPSYRMO
- I BPSYRMO<30401 W !,"Please try again",*7,! G DATE
- I $O(^BPSTL("AH",(BPSYRMO_"00")))="" W !,"Please try again",*7,! G DATE
- ;
- W !
- D HEADER
- ;
- S BPSQUIT=0
- S BPSCNT=0
- ;
- ; Initialize the looping variable to be the 0th day of the month
- ; selected by the user.
- ;
- S BPSDATE=BPSYRMO_"00"
- F S BPSDATE=$O(^BPSTL("AH",BPSDATE)) Q:'BPSDATE Q:$E(BPSDATE,1,5)>BPSYRMO D Q:BPSQUIT
- . S BPSIEN57=0
- . F S BPSIEN57=$O(^BPSTL("AH",BPSDATE,BPSIEN57)) Q:'BPSIEN57 D Q:BPSQUIT
- . . ;
- . . ; Skip if non-billable; skip if the Submit Date is earlier than
- . . ; the first day of the selected month.
- . . ;
- . . I $$GET1^DIQ(9002313.57,BPSIEN57,19,"I")="N" Q
- . . I $$GET1^DIQ(9002313.57,BPSIEN57,6,"I")<(BPSYRMO_"01") Q
- . . ;
- . . W !,$$GET1^DIQ(9002313.57,BPSIEN57,1.11,"E") ; Rx#
- . . W "/",$$GET1^DIQ(9002313.57,BPSIEN57,9,"E") ; Fill#
- . . ;
- . . W ?11,$$FMTE^XLFDT(BPSDATE,"2D") ; Date Last Update
- . . S BPSDATESUB=$$GET1^DIQ(9002313.57,BPSIEN57,6,"I")
- . . W ?20,$$FMTE^XLFDT(BPSDATESUB,"2D") ; Submit Date
- . . ;
- . . W ?29,$$GET1^DIQ(9002313.57,BPSIEN57,1201) ; RX Action (BWHERE)
- . . ;
- . . S BPSTOUCH=$$TOUCHED^BPSUTIL(BPSIEN57)
- . . W ?34,$S(BPSTOUCH:"Manual",1:"No-Touch") ; Touched?
- . . ;
- . . S BPSTYPE=$$TYPE(BPSIEN57)
- . . W ?43,$E(BPSTYPE,1,10) ; Transaction Type
- . . ;
- . . W ?54,$E($$GET1^DIQ(9002313.57,BPSIEN57,5,"E"),1,15) ; Patient Name
- . . ;
- . . W ?71,BPSIEN57 ; Transaction IEN
- . . ;
- . . S BPSCNT=BPSCNT+1
- . . I BPSCNT#22=0 D
- . . . N DIR,DIRUT
- . . . S DIR(0)="E"
- . . . D ^DIR
- . . . I $G(DIRUT) S BPSQUIT=1 Q
- . . . D HEADER
- . . . Q
- . . Q
- . Q
- ;
- W !
- G DATE
- ;
- QUIT ;
- ;
- Q
- ;
- ;
- W !,"Rx#/Fill",?10,"Last Updt",?20,"SubmitDt",?29,"Actn",?34,"Touched?"
- W ?44,"Type",?54,"Patient",?64,"Transaction IEN"
- ;
- Q
- ;
- TALLY ;
- ;
- N BPSDATE,BPSENDDATE,BPSIEN57,BPSSTARTDATE,BPSSUBMIT,BPSTOTALS
- N BPSYRMO,DIR,DIRUT,X,Y
- ;
- S BPSTOTALS=""
- ;
- ; Prompt user for desired year.
- ;
- W !!,"This report will display counts of transactions for"
- W !,"each month in fiscal year specified, with sub-totals"
- W !,"by transaction type and by no-touch vs manual."
- W !
- S DIR(0)="NAO^2008:2036"
- S DIR("A")="Enter a year: "
- D ^DIR
- I $G(DIRUT) Q
- ;
- ; Determine the range of months to be included. Since we wish to
- ; display a year's worth according to fiscal year, the starting
- ; month will be October of the previous year, and the ending month
- ; will be September of the year selected.
- ;
- S Y=Y-1700
- S BPSSTARTDATE=(Y-1)_10
- S BPSENDDATE=Y_"09"
- ;
- ; Loop through all transactions from the start date to today. All
- ; transactions with a Submit Date in the fiscal year selected by
- ; the user will be counted.
- ;
- S BPSDATE=BPSSTARTDATE_"00"
- F S BPSDATE=$O(^BPSTL("AH",BPSDATE)) Q:'BPSDATE D
- . ;
- . S BPSIEN57=0
- . F S BPSIEN57=$O(^BPSTL("AH",BPSDATE,BPSIEN57)) Q:'BPSIEN57 D
- . . ;
- . . ; Skip if non-billable.
- . . ;
- . . I $$GET1^DIQ(9002313.57,BPSIEN57,19,"I")="N" Q
- . . ;
- . . ; Skip if Submit Date is not in the selected fiscal year.
- . . ;
- . . S BPSSUBMIT=$$GET1^DIQ(9002313.57,BPSIEN57,6,"I")
- . . S BPSSUBMIT=$E(BPSSUBMIT,1,5)
- . . I BPSSUBMIT<BPSSTARTDATE Q
- . . I BPSSUBMIT>BPSENDDATE Q
- . . ;
- . . ; Add this transaction to the totals.
- . . ;
- . . D COUNT(BPSIEN57,BPSSUBMIT,.BPSTOTALS)
- . . ;
- . . Q
- . Q
- ;
- F BPSYRMO=BPSSTARTDATE:1:BPSENDDATE D
- . I $E(BPSYRMO,4,5)=13 S BPSYRMO=($E(BPSYRMO,1,3)+1)_"01"
- . ;
- . ; Write the results for this month.
- . ;
- . D DISPLAY(BPSYRMO,.BPSTOTALS)
- . ;
- . Q
- ;
- W !
- N DIR
- S DIR(0)="E"
- D ^DIR
- ;
- Q
- ;
- COUNT(BPSIEN57,BPSSUBMIT,BPSTOTALS) ; Add one transaction to the totals.
- ;
- ; For the given transactions, this procedure will determine a count of the
- ; number of transactions of each type (payable, rejected, duplicate,
- ; captured, accepted, reversal, eligibility, completed) and manual
- ; vs no-touch.
- ;
- ; Input:
- ; BPSIEN57 is a pointer to 9002313.57, BPS LOG OF TRANSACTIONS.
- ; BPSSUBMIT is a year+month portion of the Submit Date for the
- ; transaction passed in (e.g. 31912 = December 2019).
- ; Output:
- ; BPSTOTALS is passed by reference. The format returned is:
- ; BPSTOTALS(YearMonth) = total transactions for that month
- ; BPSTOTALS(YearMonth,1,Type) = count for a given type
- ; BPSTOTALS(YearMonth,1,Type,Touched) = count of
- ; transactions with a given type + manual/no-touch
- ; BPSTOTALS(YearMonth,2,Touched) = count for manual/no-touch
- ;
- N BPSTOUCHED,BPSTYPE
- ;
- S BPSTYPE=$$TYPE(BPSIEN57)
- ;
- S BPSTOUCHED=$$TOUCHED^BPSUTIL(BPSIEN57)
- I BPSTOUCHED=1 S BPSTOUCHED="Manual"
- E S BPSTOUCHED="No-Touch"
- ;
- S BPSTOTALS(BPSSUBMIT)=$G(BPSTOTALS(BPSSUBMIT))+1
- S BPSTOTALS(BPSSUBMIT,1,BPSTYPE)=$G(BPSTOTALS(BPSSUBMIT,1,BPSTYPE))+1
- S BPSTOTALS(BPSSUBMIT,1,BPSTYPE,BPSTOUCHED)=$G(BPSTOTALS(BPSSUBMIT,1,BPSTYPE,BPSTOUCHED))+1
- S BPSTOTALS(BPSSUBMIT,2,BPSTOUCHED)=$G(BPSTOTALS(BPSSUBMIT,2,BPSTOUCHED))+1
- ;
- Q
- ;
- DISPLAY(BPSYRMO,BPSTOTALS) ; Write the results for one month.
- ;
- W !!,$E(BPSYRMO,1,3)+1700,"/",$E(BPSYRMO,4,5)
- W ?11,"Payable",?20,"Rejected",?30,"Duplicate",?41,"Captured",?51,"Reversal",?61,"Unstranded",?73,"Total"
- ;
- W !," Manual"
- W ?11,$J(+$G(BPSTOTALS(BPSYRMO,1,"Payable","Manual")),7)
- W ?20,$J(+$G(BPSTOTALS(BPSYRMO,1,"Rejected","Manual")),8)
- W ?30,$J(+$G(BPSTOTALS(BPSYRMO,1,"Duplicate","Manual")),9)
- W ?41,$J(+$G(BPSTOTALS(BPSYRMO,1,"Captured","Manual")),8)
- W ?51,$J(+$G(BPSTOTALS(BPSYRMO,1,"Reversal","Manual")),8)
- W ?61,$J(+$G(BPSTOTALS(BPSYRMO,1,"Unstranded","Manual")),10)
- W ?73,$J(+$G(BPSTOTALS(BPSYRMO,2,"Manual")),5)
- ;
- W !,"No-Touch"
- W ?11,$J(+$G(BPSTOTALS(BPSYRMO,1,"Payable","No-Touch")),7)
- W ?20,$J(+$G(BPSTOTALS(BPSYRMO,1,"Rejected","No-Touch")),8)
- W ?30,$J(+$G(BPSTOTALS(BPSYRMO,1,"Duplicate","No-Touch")),9)
- W ?41,$J(+$G(BPSTOTALS(BPSYRMO,1,"Captured","No-Touch")),8)
- W ?51,$J(+$G(BPSTOTALS(BPSYRMO,1,"Reversal","No-Touch")),8)
- W ?61,$J(+$G(BPSTOTALS(BPSYRMO,1,"Unstranded","No-Touch")),10)
- W ?73,$J(+$G(BPSTOTALS(BPSYRMO,2,"No-Touch")),5)
- ;
- W !," Totals"
- W ?11,$J(+$G(BPSTOTALS(BPSYRMO,1,"Payable")),7)
- W ?20,$J(+$G(BPSTOTALS(BPSYRMO,1,"Rejected")),8)
- W ?30,$J(+$G(BPSTOTALS(BPSYRMO,1,"Duplicate")),9)
- W ?41,$J(+$G(BPSTOTALS(BPSYRMO,1,"Captured")),8)
- W ?51,$J(+$G(BPSTOTALS(BPSYRMO,1,"Reversal")),8)
- W ?61,$J(+$G(BPSTOTALS(BPSYRMO,1,"Unstranded")),10)
- W ?73,$J(+$G(BPSTOTALS(BPSYRMO)),5)
- ;
- Q
- ;
- TYPE(BPSIEN57) ; Determine the type of this transaction.
- ;
- N BPSSTATUS
- ;
- S BPSSTATUS=$$GET1^DIQ(9002313.57,BPSIEN57,4.0098)
- ;
- I BPSSTATUS="E CAPTURED" Q "Captured"
- I BPSSTATUS="E DUPLICATE" Q "Duplicate"
- I BPSSTATUS="E PAYABLE" Q "Payable"
- I BPSSTATUS="E REJECTED" Q "Rejected"
- I BPSSTATUS["REVERSAL" Q "Reversal"
- I BPSSTATUS="E UNSTRANDED" Q "Unstranded"
- ;
- Q "Other"
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSNTR01 7974 printed Apr 23, 2025@18:05:51 Page 2
- BPSNTR01 ; AITC/MRD - NTR-Related Reports; JAN 09, 2020@08:23
- +1 ;;1.0;E CLAIMS MGMT ENGINE;**27**;JUN 2004;Build 15
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 QUIT
- +5 ;
- EN ;
- +1 ;
- +2 NEW BPSCNT,BPSDATE,BPSDATESUB,BPSIEN57
- +3 NEW BPSQUIT,BPSTOUCH,BPSTYPE,BPSYRMO,DIR,DIRUT
- +4 ;
- +5 ; Display a brief description of the report.
- +6 ;
- +7 WRITE !!,"This report will display a line for each transaction"
- +8 WRITE !,"in the month* specified. The earliest month possible is"
- +9 WRITE !,"January, 2004."
- +10 WRITE !," Note: The transactions will be displayed according to"
- +11 WRITE !," the date last updated, not the date submitted."
- +12 WRITE !
- +13 ;
- +14 ; Prompt user for desired month and year.
- +15 ;
- DATE ;
- +1 SET DIR(0)="FAO^4:7^K:X'?1.2N1""/""1.2N X"
- +2 SET DIR("A")="Enter a month and year (M/YY or MM/YY): "
- +3 SET DIR("?")="Example values: 1/18, 01/18, 12/19."
- +4 DO ^DIR
- +5 IF $GET(DIRUT)
- GOTO QUIT
- +6 SET BPSYRMO=$PIECE(X,"/",1)
- +7 IF BPSYRMO>12
- WRITE !,"Please try again",*7,!
- GOTO DATE
- +8 IF $LENGTH(BPSYRMO)<2
- SET BPSYRMO="0"_BPSYRMO
- +9 SET BPSYRMO=3_$PIECE(X,"/",2)_BPSYRMO
- +10 IF BPSYRMO<30401
- WRITE !,"Please try again",*7,!
- GOTO DATE
- +11 IF $ORDER(^BPSTL("AH",(BPSYRMO_"00")))=""
- WRITE !,"Please try again",*7,!
- GOTO DATE
- +12 ;
- +13 WRITE !
- +14 DO HEADER
- +15 ;
- +16 SET BPSQUIT=0
- +17 SET BPSCNT=0
- +18 ;
- +19 ; Initialize the looping variable to be the 0th day of the month
- +20 ; selected by the user.
- +21 ;
- +22 SET BPSDATE=BPSYRMO_"00"
- +23 FOR
- SET BPSDATE=$ORDER(^BPSTL("AH",BPSDATE))
- if 'BPSDATE
- QUIT
- if $EXTRACT(BPSDATE,1,5)>BPSYRMO
- QUIT
- Begin DoDot:1
- +24 SET BPSIEN57=0
- +25 FOR
- SET BPSIEN57=$ORDER(^BPSTL("AH",BPSDATE,BPSIEN57))
- if 'BPSIEN57
- QUIT
- Begin DoDot:2
- +26 ;
- +27 ; Skip if non-billable; skip if the Submit Date is earlier than
- +28 ; the first day of the selected month.
- +29 ;
- +30 IF $$GET1^DIQ(9002313.57,BPSIEN57,19,"I")="N"
- QUIT
- +31 IF $$GET1^DIQ(9002313.57,BPSIEN57,6,"I")<(BPSYRMO_"01")
- QUIT
- +32 ;
- +33 ; Rx#
- WRITE !,$$GET1^DIQ(9002313.57,BPSIEN57,1.11,"E")
- +34 ; Fill#
- WRITE "/",$$GET1^DIQ(9002313.57,BPSIEN57,9,"E")
- +35 ;
- +36 ; Date Last Update
- WRITE ?11,$$FMTE^XLFDT(BPSDATE,"2D")
- +37 SET BPSDATESUB=$$GET1^DIQ(9002313.57,BPSIEN57,6,"I")
- +38 ; Submit Date
- WRITE ?20,$$FMTE^XLFDT(BPSDATESUB,"2D")
- +39 ;
- +40 ; RX Action (BWHERE)
- WRITE ?29,$$GET1^DIQ(9002313.57,BPSIEN57,1201)
- +41 ;
- +42 SET BPSTOUCH=$$TOUCHED^BPSUTIL(BPSIEN57)
- +43 ; Touched?
- WRITE ?34,$SELECT(BPSTOUCH:"Manual",1:"No-Touch")
- +44 ;
- +45 SET BPSTYPE=$$TYPE(BPSIEN57)
- +46 ; Transaction Type
- WRITE ?43,$EXTRACT(BPSTYPE,1,10)
- +47 ;
- +48 ; Patient Name
- WRITE ?54,$EXTRACT($$GET1^DIQ(9002313.57,BPSIEN57,5,"E"),1,15)
- +49 ;
- +50 ; Transaction IEN
- WRITE ?71,BPSIEN57
- +51 ;
- +52 SET BPSCNT=BPSCNT+1
- +53 IF BPSCNT#22=0
- Begin DoDot:3
- +54 NEW DIR,DIRUT
- +55 SET DIR(0)="E"
- +56 DO ^DIR
- +57 IF $GET(DIRUT)
- SET BPSQUIT=1
- QUIT
- +58 DO HEADER
- +59 QUIT
- End DoDot:3
- +60 QUIT
- End DoDot:2
- if BPSQUIT
- QUIT
- +61 QUIT
- End DoDot:1
- if BPSQUIT
- QUIT
- +62 ;
- +63 WRITE !
- +64 GOTO DATE
- +65 ;
- QUIT ;
- +1 ;
- +2 QUIT
- +3 ;
- +1 ;
- +2 WRITE !,"Rx#/Fill",?10,"Last Updt",?20,"SubmitDt",?29,"Actn",?34,"Touched?"
- +3 WRITE ?44,"Type",?54,"Patient",?64,"Transaction IEN"
- +4 ;
- +5 QUIT
- +6 ;
- TALLY ;
- +1 ;
- +2 NEW BPSDATE,BPSENDDATE,BPSIEN57,BPSSTARTDATE,BPSSUBMIT,BPSTOTALS
- +3 NEW BPSYRMO,DIR,DIRUT,X,Y
- +4 ;
- +5 SET BPSTOTALS=""
- +6 ;
- +7 ; Prompt user for desired year.
- +8 ;
- +9 WRITE !!,"This report will display counts of transactions for"
- +10 WRITE !,"each month in fiscal year specified, with sub-totals"
- +11 WRITE !,"by transaction type and by no-touch vs manual."
- +12 WRITE !
- +13 SET DIR(0)="NAO^2008:2036"
- +14 SET DIR("A")="Enter a year: "
- +15 DO ^DIR
- +16 IF $GET(DIRUT)
- QUIT
- +17 ;
- +18 ; Determine the range of months to be included. Since we wish to
- +19 ; display a year's worth according to fiscal year, the starting
- +20 ; month will be October of the previous year, and the ending month
- +21 ; will be September of the year selected.
- +22 ;
- +23 SET Y=Y-1700
- +24 SET BPSSTARTDATE=(Y-1)_10
- +25 SET BPSENDDATE=Y_"09"
- +26 ;
- +27 ; Loop through all transactions from the start date to today. All
- +28 ; transactions with a Submit Date in the fiscal year selected by
- +29 ; the user will be counted.
- +30 ;
- +31 SET BPSDATE=BPSSTARTDATE_"00"
- +32 FOR
- SET BPSDATE=$ORDER(^BPSTL("AH",BPSDATE))
- if 'BPSDATE
- QUIT
- Begin DoDot:1
- +33 ;
- +34 SET BPSIEN57=0
- +35 FOR
- SET BPSIEN57=$ORDER(^BPSTL("AH",BPSDATE,BPSIEN57))
- if 'BPSIEN57
- QUIT
- Begin DoDot:2
- +36 ;
- +37 ; Skip if non-billable.
- +38 ;
- +39 IF $$GET1^DIQ(9002313.57,BPSIEN57,19,"I")="N"
- QUIT
- +40 ;
- +41 ; Skip if Submit Date is not in the selected fiscal year.
- +42 ;
- +43 SET BPSSUBMIT=$$GET1^DIQ(9002313.57,BPSIEN57,6,"I")
- +44 SET BPSSUBMIT=$EXTRACT(BPSSUBMIT,1,5)
- +45 IF BPSSUBMIT<BPSSTARTDATE
- QUIT
- +46 IF BPSSUBMIT>BPSENDDATE
- QUIT
- +47 ;
- +48 ; Add this transaction to the totals.
- +49 ;
- +50 DO COUNT(BPSIEN57,BPSSUBMIT,.BPSTOTALS)
- +51 ;
- +52 QUIT
- End DoDot:2
- +53 QUIT
- End DoDot:1
- +54 ;
- +55 FOR BPSYRMO=BPSSTARTDATE:1:BPSENDDATE
- Begin DoDot:1
- +56 IF $EXTRACT(BPSYRMO,4,5)=13
- SET BPSYRMO=($EXTRACT(BPSYRMO,1,3)+1)_"01"
- +57 ;
- +58 ; Write the results for this month.
- +59 ;
- +60 DO DISPLAY(BPSYRMO,.BPSTOTALS)
- +61 ;
- +62 QUIT
- End DoDot:1
- +63 ;
- +64 WRITE !
- +65 NEW DIR
- +66 SET DIR(0)="E"
- +67 DO ^DIR
- +68 ;
- +69 QUIT
- +70 ;
- COUNT(BPSIEN57,BPSSUBMIT,BPSTOTALS) ; Add one transaction to the totals.
- +1 ;
- +2 ; For the given transactions, this procedure will determine a count of the
- +3 ; number of transactions of each type (payable, rejected, duplicate,
- +4 ; captured, accepted, reversal, eligibility, completed) and manual
- +5 ; vs no-touch.
- +6 ;
- +7 ; Input:
- +8 ; BPSIEN57 is a pointer to 9002313.57, BPS LOG OF TRANSACTIONS.
- +9 ; BPSSUBMIT is a year+month portion of the Submit Date for the
- +10 ; transaction passed in (e.g. 31912 = December 2019).
- +11 ; Output:
- +12 ; BPSTOTALS is passed by reference. The format returned is:
- +13 ; BPSTOTALS(YearMonth) = total transactions for that month
- +14 ; BPSTOTALS(YearMonth,1,Type) = count for a given type
- +15 ; BPSTOTALS(YearMonth,1,Type,Touched) = count of
- +16 ; transactions with a given type + manual/no-touch
- +17 ; BPSTOTALS(YearMonth,2,Touched) = count for manual/no-touch
- +18 ;
- +19 NEW BPSTOUCHED,BPSTYPE
- +20 ;
- +21 SET BPSTYPE=$$TYPE(BPSIEN57)
- +22 ;
- +23 SET BPSTOUCHED=$$TOUCHED^BPSUTIL(BPSIEN57)
- +24 IF BPSTOUCHED=1
- SET BPSTOUCHED="Manual"
- +25 IF '$TEST
- SET BPSTOUCHED="No-Touch"
- +26 ;
- +27 SET BPSTOTALS(BPSSUBMIT)=$GET(BPSTOTALS(BPSSUBMIT))+1
- +28 SET BPSTOTALS(BPSSUBMIT,1,BPSTYPE)=$GET(BPSTOTALS(BPSSUBMIT,1,BPSTYPE))+1
- +29 SET BPSTOTALS(BPSSUBMIT,1,BPSTYPE,BPSTOUCHED)=$GET(BPSTOTALS(BPSSUBMIT,1,BPSTYPE,BPSTOUCHED))+1
- +30 SET BPSTOTALS(BPSSUBMIT,2,BPSTOUCHED)=$GET(BPSTOTALS(BPSSUBMIT,2,BPSTOUCHED))+1
- +31 ;
- +32 QUIT
- +33 ;
- DISPLAY(BPSYRMO,BPSTOTALS) ; Write the results for one month.
- +1 ;
- +2 WRITE !!,$EXTRACT(BPSYRMO,1,3)+1700,"/",$EXTRACT(BPSYRMO,4,5)
- +3 WRITE ?11,"Payable",?20,"Rejected",?30,"Duplicate",?41,"Captured",?51,"Reversal",?61,"Unstranded",?73,"Total"
- +4 ;
- +5 WRITE !," Manual"
- +6 WRITE ?11,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Payable","Manual")),7)
- +7 WRITE ?20,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Rejected","Manual")),8)
- +8 WRITE ?30,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Duplicate","Manual")),9)
- +9 WRITE ?41,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Captured","Manual")),8)
- +10 WRITE ?51,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Reversal","Manual")),8)
- +11 WRITE ?61,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Unstranded","Manual")),10)
- +12 WRITE ?73,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,2,"Manual")),5)
- +13 ;
- +14 WRITE !,"No-Touch"
- +15 WRITE ?11,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Payable","No-Touch")),7)
- +16 WRITE ?20,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Rejected","No-Touch")),8)
- +17 WRITE ?30,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Duplicate","No-Touch")),9)
- +18 WRITE ?41,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Captured","No-Touch")),8)
- +19 WRITE ?51,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Reversal","No-Touch")),8)
- +20 WRITE ?61,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Unstranded","No-Touch")),10)
- +21 WRITE ?73,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,2,"No-Touch")),5)
- +22 ;
- +23 WRITE !," Totals"
- +24 WRITE ?11,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Payable")),7)
- +25 WRITE ?20,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Rejected")),8)
- +26 WRITE ?30,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Duplicate")),9)
- +27 WRITE ?41,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Captured")),8)
- +28 WRITE ?51,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Reversal")),8)
- +29 WRITE ?61,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO,1,"Unstranded")),10)
- +30 WRITE ?73,$JUSTIFY(+$GET(BPSTOTALS(BPSYRMO)),5)
- +31 ;
- +32 QUIT
- +33 ;
- TYPE(BPSIEN57) ; Determine the type of this transaction.
- +1 ;
- +2 NEW BPSSTATUS
- +3 ;
- +4 SET BPSSTATUS=$$GET1^DIQ(9002313.57,BPSIEN57,4.0098)
- +5 ;
- +6 IF BPSSTATUS="E CAPTURED"
- QUIT "Captured"
- +7 IF BPSSTATUS="E DUPLICATE"
- QUIT "Duplicate"
- +8 IF BPSSTATUS="E PAYABLE"
- QUIT "Payable"
- +9 IF BPSSTATUS="E REJECTED"
- QUIT "Rejected"
- +10 IF BPSSTATUS["REVERSAL"
- QUIT "Reversal"
- +11 IF BPSSTATUS="E UNSTRANDED"
- QUIT "Unstranded"
- +12 ;
- +13 QUIT "Other"
- +14 ;
