- ABMM2PV6 ;IHS/SD/SDR - MU Patient Volume EP Report ;
- ;;2.6;IHS 3P BILLING SYSTEM;**11**;NOV 12, 2009;Build 133
- ;
- SUMMARY ;
- D EN^ABMVDF("IOF")
- W !
- D CENTER^ABMUCUTL("SUMMARY OF PATIENT VOLUME REPORT TO BE GENERATED")
- W !!!,"Report Name: "
- I ABMY("RTYP")="SEL" W "Patient Volume Report for Eligible Professionals"
- I ABMY("RTYP")="GRP" W "Patient Volume Report for Group Practice"
- I ABMY("RTYP")="HOS" W "Patient Volume Report for Eligible Hospitals"
- W !,"The date ranges for this report are:"
- W !?3,"Participation Year: ",ABMY("PYR")
- I "^A^B^C^"[("^"_ABMY("90")_"^") W !?3,"Qualification Year: ",ABMY("QYR")
- W !,"Reporting Period: "
- I ABMY("90")="A"!(ABMY("90")="D") W "Automated ",$S(ABMY("A90")="F":"First",1:"Highest")," 90-day"
- I ABMY("90")="B"!(ABMY("90")="E") W "90-day beginning ",$$SDT^ABMDUTL(ABMY("SDT"))
- I ABMY("90")="C" W $$SDT^ABMDUTL(ABMY("SDT"))_" thru "_$$SDT^ABMDUTL(ABMY("EDT"))
- I ABMY("90")="D"!(ABMY("90")="E") W !,"Attestation Date: "
- W:(ABMY("90")="D") $$SDT^ABMDUTL(ABMY("ADT"))
- W:(ABMY("90")="E") $$SDT^ABMDUTL(ABMY("SDT"))
- W:$G(ABMY("TVDTS")) !!,"Number of top volume dates to display if minimum thresholds are not met: ",ABMY("TVDTS")
- W !!,"Report Method Type: "
- W:ABMY("RTYP")="SEL" "Individual"
- W:ABMY("RTYP")="GRP" "Group"
- W:ABMY("RTYP")="HOS" "Hospital/ER"
- ;
- W !!,"SCHIP insurers included:"
- I '$D(ABML) W !?3,"<NONE>"
- S ABMINS=0
- F S ABMINS=$O(ABMI("INS",ABMINS)) Q:'ABMINS D
- .W !?5,$$GET1^DIQ(9999999.18,ABMINS,".01","E")
- I ABMY("RTYP")="SEL" D
- .W !!,"Eligible Professional(s):"
- .S ABMPRV=0
- .F S ABMPRV=$O(ABMPRVDR(ABMPRV)) Q:'ABMPRV D
- ..W !?3,$$GET1^DIQ(200,ABMPRV,".01")_" ("_$$GET1^DIQ(7,$$GET1^DIQ(200,ABMPRV,53.5,"I"),.01,"E")_")"
- W !
- W !,"Facility(s):"
- S ABMFC=0
- F S ABMFC=$O(ABMF(ABMFC)) Q:'ABMFC D
- .W !?3,$$GET1^DIQ(9999999.06,ABMFC,".01","E")
- .I $D(^ABMMUPRM(1,1,"B",ABMFC)) W " (FQHC/RHC/Tribal)"
- Q
- ABMM2PV6 ;IHS/SD/SDR - MU Patient Volume EP Report ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**11**;NOV 12, 2009;Build 133
- +2 ;
- SUMMARY ;
- +1 DO EN^ABMVDF("IOF")
- +2 WRITE !
- +3 DO CENTER^ABMUCUTL("SUMMARY OF PATIENT VOLUME REPORT TO BE GENERATED")
- +4 WRITE !!!,"Report Name: "
- +5 IF ABMY("RTYP")="SEL"
- WRITE "Patient Volume Report for Eligible Professionals"
- +6 IF ABMY("RTYP")="GRP"
- WRITE "Patient Volume Report for Group Practice"
- +7 IF ABMY("RTYP")="HOS"
- WRITE "Patient Volume Report for Eligible Hospitals"
- +8 WRITE !,"The date ranges for this report are:"
- +9 WRITE !?3,"Participation Year: ",ABMY("PYR")
- +10 IF "^A^B^C^"[("^"_ABMY("90")_"^")
- WRITE !?3,"Qualification Year: ",ABMY("QYR")
- +11 WRITE !,"Reporting Period: "
- +12 IF ABMY("90")="A"!(ABMY("90")="D")
- WRITE "Automated ",$SELECT(ABMY("A90")="F":"First",1:"Highest")," 90-day"
- +13 IF ABMY("90")="B"!(ABMY("90")="E")
- WRITE "90-day beginning ",$$SDT^ABMDUTL(ABMY("SDT"))
- +14 IF ABMY("90")="C"
- WRITE $$SDT^ABMDUTL(ABMY("SDT"))_" thru "_$$SDT^ABMDUTL(ABMY("EDT"))
- +15 IF ABMY("90")="D"!(ABMY("90")="E")
- WRITE !,"Attestation Date: "
- +16 IF (ABMY("90")="D")
- WRITE $$SDT^ABMDUTL(ABMY("ADT"))
- +17 IF (ABMY("90")="E")
- WRITE $$SDT^ABMDUTL(ABMY("SDT"))
- +18 IF $GET(ABMY("TVDTS"))
- WRITE !!,"Number of top volume dates to display if minimum thresholds are not met: ",ABMY("TVDTS")
- +19 WRITE !!,"Report Method Type: "
- +20 IF ABMY("RTYP")="SEL"
- WRITE "Individual"
- +21 IF ABMY("RTYP")="GRP"
- WRITE "Group"
- +22 IF ABMY("RTYP")="HOS"
- WRITE "Hospital/ER"
- +23 ;
- +24 WRITE !!,"SCHIP insurers included:"
- +25 IF '$DATA(ABML)
- WRITE !?3,"<NONE>"
- +26 SET ABMINS=0
- +27 FOR
- SET ABMINS=$ORDER(ABMI("INS",ABMINS))
- IF 'ABMINS
- QUIT
- Begin DoDot:1
- +28 WRITE !?5,$$GET1^DIQ(9999999.18,ABMINS,".01","E")
- End DoDot:1
- +29 IF ABMY("RTYP")="SEL"
- Begin DoDot:1
- +30 WRITE !!,"Eligible Professional(s):"
- +31 SET ABMPRV=0
- +32 FOR
- SET ABMPRV=$ORDER(ABMPRVDR(ABMPRV))
- IF 'ABMPRV
- QUIT
- Begin DoDot:2
- +33 WRITE !?3,$$GET1^DIQ(200,ABMPRV,".01")_" ("_$$GET1^DIQ(7,$$GET1^DIQ(200,ABMPRV,53.5,"I"),.01,"E")_")"
- End DoDot:2
- End DoDot:1
- +34 WRITE !
- +35 WRITE !,"Facility(s):"
- +36 SET ABMFC=0
- +37 FOR
- SET ABMFC=$ORDER(ABMF(ABMFC))
- IF 'ABMFC
- QUIT
- Begin DoDot:1
- +38 WRITE !?3,$$GET1^DIQ(9999999.06,ABMFC,".01","E")
- +39 IF $DATA(^ABMMUPRM(1,1,"B",ABMFC))
- WRITE " (FQHC/RHC/Tribal)"
- End DoDot:1
- +40 QUIT
