- ABMDCCL3 ; IHS/ASDST/DMJ - Cancelled claim Stats ;
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;Original;TMD;
- ;
- ; IHS/SD/SDR - v2.5 p10 - IM20737
- ; Fixed <UNDEF>SUBHDR^ABMDCCL3; occurs when no
- ; data for selected range
- ;
- ; IHS/SD/SDR - v2.5 p10 - IM20911
- ; Fixed totals
- ;
- PRINT ;EP for writing data
- S ABM("PG")=0
- D HDB
- S ABM("CNT")=0,ABM("AMT")=0,ABM("O")="",ABM("OL")=""
- S ABM("TOTCNT")=0
- F S ABM("O")=$O(ABM("ST",ABM("O"))) Q:'ABM("O")!($G(ABM("F1"))) D
- .W !!?5,"Cancelling Official: ",$P(^VA(200,ABM("O"),0),U)
- .S ABM("L")="",ABM("OL")="",(ABM("SUBCNT"),ABM("V"),ABM("SUBAMT"))=0
- .F S ABM("L")=$O(ABM("ST",ABM("O"),ABM("L"))) Q:ABM("L")=""!($G(ABM("F1"))) D
- ..S (ABM("SSCNT"),ABM("V"),ABM("SSAMT"))=0
- ..F S ABM("V")=$O(ABM("ST",ABM("O"),ABM("L"),ABM("V"))) Q:'ABM("V")!($G(ABM("F1"))) D
- ...I $Y>(IOSL-5) D HD Q:$G(ABM("F1")) S ABM("OL")=""
- ...I ABM("L")'=ABM("OL") W !!,$E(ABM("L"),1,30) S ABM("OL")=ABM("L")
- ...E W !
- ...I ABMY("SORT")="V" W ?32,$E($P(^ABMDVTYP(ABM("V"),0),U),1,26)
- ...I ABMY("SORT")="C" W ?32,$E($P(^DIC(40.7,ABM("V"),0),U),1,26)
- ...S ABM("T")=$P(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,1)
- ...S ABM("A")=$P(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,2)
- ...W ?60,$J($FN(ABM("T"),",",0),5)
- ...S ABM("CNT")=ABM("CNT")+ABM("T"),ABM("SUBCNT")=ABM("SUBCNT")+ABM("T")
- ...S ABM("TOTCNT")=ABM("TOTCNT")+ABM("T")
- ...S ABM("AMT")=ABM("AMT")+ABM("A"),ABM("SUBAMT")=ABM("SUBAMT")+ABM("A")
- ...S ABM("SSAMT")=ABM("SSAMT")+ABM("A"),ABM("SSCNT")=ABM("SSCNT")+ABM("T")
- .D SUBHDR
- D TOTHDR
- W !!,"E N D O F R E P O R T"
- D PAZ^ABMDRUTL
- Q
- ;
- HD D PAZ^ABMDRUTL I $D(DTOUT)!$D(DUOUT)!$D(DIROUT) S ABM("F1")=1 Q
- HDB S ABM("PG")=ABM("PG")+1 D WHD^ABMDRHD
- W !,?58,"Number of"
- W !,"Location",?32,$S(ABMY("SORT")="C":"Clinic",1:"Visit Type"),?60,"Claims"
- S $P(ABM("LINE"),"-",80)="" W !,ABM("LINE") K ABM("LINE")
- Q
- ;
- SUBHDR ;
- Q:+$G(ABM("SUBCNT"))=0
- W !?60,"------"
- W !?16,"Subtotal:",?60,$J($FN(ABM("SUBCNT"),",",0),5)
- S ABM("SUBCNT")=0
- Q
- ;
- TOTHDR ;
- Q:+$G(ABM("TOTCNT"))=0
- W !?60,"------"
- W !?19,"Total:",?60,$J($FN(ABM("TOTCNT"),",",0),5)
- S ABM("T")=0
- Q
- XIT ;EXIT POINT
- Q
- ABMDCCL3 ; IHS/ASDST/DMJ - Cancelled claim Stats ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;Original;TMD;
- +3 ;
- +4 ; IHS/SD/SDR - v2.5 p10 - IM20737
- +5 ; Fixed <UNDEF>SUBHDR^ABMDCCL3; occurs when no
- +6 ; data for selected range
- +7 ;
- +8 ; IHS/SD/SDR - v2.5 p10 - IM20911
- +9 ; Fixed totals
- +10 ;
- PRINT ;EP for writing data
- +1 SET ABM("PG")=0
- +2 DO HDB
- +3 SET ABM("CNT")=0
- SET ABM("AMT")=0
- SET ABM("O")=""
- SET ABM("OL")=""
- +4 SET ABM("TOTCNT")=0
- +5 FOR
- SET ABM("O")=$ORDER(ABM("ST",ABM("O")))
- IF 'ABM("O")!($GET(ABM("F1")))
- QUIT
- Begin DoDot:1
- +6 WRITE !!?5,"Cancelling Official: ",$PIECE(^VA(200,ABM("O"),0),U)
- +7 SET ABM("L")=""
- SET ABM("OL")=""
- SET (ABM("SUBCNT"),ABM("V"),ABM("SUBAMT"))=0
- +8 FOR
- SET ABM("L")=$ORDER(ABM("ST",ABM("O"),ABM("L")))
- IF ABM("L")=""!($GET(ABM("F1")))
- QUIT
- Begin DoDot:2
- +9 SET (ABM("SSCNT"),ABM("V"),ABM("SSAMT"))=0
- +10 FOR
- SET ABM("V")=$ORDER(ABM("ST",ABM("O"),ABM("L"),ABM("V")))
- IF 'ABM("V")!($GET(ABM("F1")))
- QUIT
- Begin DoDot:3
- +11 IF $Y>(IOSL-5)
- DO HD
- IF $GET(ABM("F1"))
- QUIT
- SET ABM("OL")=""
- +12 IF ABM("L")'=ABM("OL")
- WRITE !!,$EXTRACT(ABM("L"),1,30)
- SET ABM("OL")=ABM("L")
- +13 IF '$TEST
- WRITE !
- +14 IF ABMY("SORT")="V"
- WRITE ?32,$EXTRACT($PIECE(^ABMDVTYP(ABM("V"),0),U),1,26)
- +15 IF ABMY("SORT")="C"
- WRITE ?32,$EXTRACT($PIECE(^DIC(40.7,ABM("V"),0),U),1,26)
- +16 SET ABM("T")=$PIECE(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,1)
- +17 SET ABM("A")=$PIECE(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,2)
- +18 WRITE ?60,$JUSTIFY($FNUMBER(ABM("T"),",",0),5)
- +19 SET ABM("CNT")=ABM("CNT")+ABM("T")
- SET ABM("SUBCNT")=ABM("SUBCNT")+ABM("T")
- +20 SET ABM("TOTCNT")=ABM("TOTCNT")+ABM("T")
- +21 SET ABM("AMT")=ABM("AMT")+ABM("A")
- SET ABM("SUBAMT")=ABM("SUBAMT")+ABM("A")
- +22 SET ABM("SSAMT")=ABM("SSAMT")+ABM("A")
- SET ABM("SSCNT")=ABM("SSCNT")+ABM("T")
- End DoDot:3
- End DoDot:2
- +23 DO SUBHDR
- End DoDot:1
- +24 DO TOTHDR
- +25 WRITE !!,"E N D O F R E P O R T"
- +26 DO PAZ^ABMDRUTL
- +27 QUIT
- +28 ;
- HD DO PAZ^ABMDRUTL
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- SET ABM("F1")=1
- QUIT
- HDB SET ABM("PG")=ABM("PG")+1
- DO WHD^ABMDRHD
- +1 WRITE !,?58,"Number of"
- +2 WRITE !,"Location",?32,$SELECT(ABMY("SORT")="C":"Clinic",1:"Visit Type"),?60,"Claims"
- +3 SET $PIECE(ABM("LINE"),"-",80)=""
- WRITE !,ABM("LINE")
- KILL ABM("LINE")
- +4 QUIT
- +5 ;
- SUBHDR ;
- +1 IF +$GET(ABM("SUBCNT"))=0
- QUIT
- +2 WRITE !?60,"------"
- +3 WRITE !?16,"Subtotal:",?60,$JUSTIFY($FNUMBER(ABM("SUBCNT"),",",0),5)
- +4 SET ABM("SUBCNT")=0
- +5 QUIT
- +6 ;
- TOTHDR ;
- +1 IF +$GET(ABM("TOTCNT"))=0
- QUIT
- +2 WRITE !?60,"------"
- +3 WRITE !?19,"Total:",?60,$JUSTIFY($FNUMBER(ABM("TOTCNT"),",",0),5)
- +4 SET ABM("T")=0
- +5 QUIT
- XIT ;EXIT POINT
- +1 QUIT
