ABMTALLY.m

ABMTALLY ; IHS/SD/SDR - Monthly tally report - 8/19/2005 1:28:34 PM

 ;;2.6;IHS Third Party Billing;**1**;NOV 12, 2009

 ;

 ; IHS/SD/SDR - v2.5 p10 - IM18370

 ;   New report

 ; IHS/SD/SDR - abm*2.6*1 - HEAT3073 - fix <SUBSCR>COMPUTE+45^ABMTALLY

 ;

 ;Report to count:

 ;   Number of visits (total; with and without TPB coverage)

 ;   Number of claims (total; divided by claim status)

 ;   Number of bills (total; divided by billed amount and outstanding)

 ; User will be prompted for (this will also be the sort order):

 ;   Visit Location(s)

 ;   Clinic Type(s)

 ;   Date range

 ;OPTION: ABMD RP TALLY^VISIT/CLAIM/BILL TALLY REPORT

 K ABM,ABMY

 S ABM("RTYP")=1

 S ABM("RTYP","NM")="TALLY LISTING"

 ;

SEL D LOOP Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)

 S ABM("HD",0)="LISTING of TALLIED files "

 S ABM("LVL")=0

 D QUE

 Q

 ;

QUE ;

 S ZTRTN="COMPUTE^ABMTALLY"

 S ZTDESC="TALLED REPORT OF PCC/TPB/AR"

 S ZTSAVE("ABM*")=""

 K ZTSK

 ;S ABMFILE=$P($G(^DIC(4,DUZ(2),0)),U)_DT_".txt"  ;abm*2.6*1 HEAT3073

 S ABMFILE=$TR($P($G(^DIC(4,DUZ(2),0)),U)_DT_".txt"," ","_")  ;abm*2.6*1 HEAT3073

 S ABMPATH=$P($G(^ABMDPARM(DUZ(2),1,4)),U,7)

 S %ZIS("HFSNAME")=ABMPATH_ABMFILE

 S %ZIS("HFSMODE")="W"

 S %ZIS("B")="HFS"

 S %ZIS="QN"

 D ^%ZIS

 Q:POP

 S ZTIO=""  ;force taskman NOT to use IO from here. TM gets confused and sends output to tmp.hfs

 ;file is transferred via ABMPATH and ABMFILE

 D ^%ZTLOAD

 I $G(ZTSK) D

 .W !,"Task # ",ZTSK," queued."

 .W !,"File to be created:"_ABMPATH_ABMFILE

 .D ^%ZISC

 D HOME^%ZIS

 K DIR

 S DIR(0)="E"

 D ^DIR

 Q

 ;

LOOP ;

 ; Display current exclusion parameters

 S ABMY("X")="W $$SDT^ABMDUTL(X)"

 G XIT:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)

 W !!?3,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:",!?3,"======================================================================="

 W !?3,"- Visit Location.....: "

 I $D(ABMY("LOC")) D

 .S ABMI=0

 .F  S ABMI=$O(ABMY("LOC",ABMI)) Q:+ABMI=0  W !?12,$P(^DIC(4,ABMI,0),U)

 E  W "ALL"

 I $D(ABMY("DT")) W !?3,"- Date Range....:"

 I  S X=ABMY("DT",1) X ABMY("X") W "  to: " S X=ABMY("DT",2) X ABMY("X")

 W !?3,"- Clinics...:"

 I $D(ABMY("CLIN")) D

 .S ABMI=0

 .F  S ABMI=$O(ABMY("CLIN",ABMI)) Q:+ABMI=0  W !?12,$P(^DIC(40.7,ABMI,0),U)

 E  W "ALL"

PARM ;

 ; Choose additional exclusion parameters

 K DIR

 S DIR(0)="SO^1:LOCATION;2:DATE RANGE;3:CLINIC"

 S DIR("A")="Select ONE or MORE of the above EXCLUSION PARAMETERS"

 S DIR("?")="The report can be restricted to one or more of the listed parameters. A parameter can be removed by reselecting it and making a null entry."

 D ^DIR

 K DIR

 G XIT:$D(DIRUT)!$D(DIROUT)

 I Y=1!(Y=2)!(Y=3) D @($S(Y=3:"CLIN",Y=1:"LOC",1:"DT")_"^ABMTALLY") G LOOP

 Q

 ;

COMPUTE ;

 S ABM("SUBR")="ABM-TALLY"

 K ^TMP("ABM-TALLY",$J)

 ;PCC DATA

 S ABMSDT=+$G(ABMY("DT",1))  ;start date

 S ABMEDT=$S(+$G(ABMY("DT",2))'=0:+$G(ABMY("DT",2)),1:9999999)  ;end date

 S ABMVDT=ABMSDT-.01

 F  S ABMVDT=$O(^AUPNVSIT("B",ABMVDT)) Q:+ABMVDT=0!(ABMVDT>ABMEDT)  D

 .S ABMVIEN=0

 .F  S ABMVIEN=$O(^AUPNVSIT("B",ABMVDT,ABMVIEN)) Q:+ABMVIEN=0  D

 ..S ABMVL=$P($G(^AUPNVSIT(ABMVIEN,0)),U,6)

 ..S:ABMVL="" ABMVL="NO VISIT LOCATION"

 ..I $D(ABMY("LOC"))&('$D(ABMY("LOC",ABMVL))) Q  ;not selected visit location

 ..S ABMCLN=$P($G(^AUPNVSIT(ABMVIEN,0)),U,8)

 ..S:ABMCLN="" ABMCLN=99999

 ..I $D(ABMY("CLIN"))&('$D(ABMY("CLIN",ABMCLN))) Q  ;not selected clinic

 ..S ABMSCAT=$P($G(^AUPNVSIT(ABMVIEN,0)),U,7)  ;SERVICE CATEGORY

 ..S:ABMSCAT="" ABMSCAT="NO SERVICE CATEGORY"

 ..S ABMTPB=$P($G(^AUPNVSIT(ABMVIEN,0)),U,4)

 ..S ^TMP("ABM-TALLY",$J,"VTOT")=+$G(^TMP("ABM-TALLY",$J,"VTOT"))+1  ;total visits

 ..S ABMSTODT=$E(ABMVDT,1,5)  ;month and year of visit for sorting

 ..I ABMTPB=1!(ABMTPB=2)!(ABMTPB=24)!(ABMTPB=25) S ^TMP("ABM-TALLY",$J,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"CLM")=+$G(^TMP("ABM-TALLY",$J,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"CLM"))+1  ;clinic cnt w/clm

 ..E  S ^TMP("ABM-TALLY",$J,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"NOCLM")=+$G(^TMP("ABM-TALLY",$J,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"NOCLM"))+1

 ;

 ;CLAIM DATA

 S ABMCLMDT=ABMSDT-.01

 F  S ABMCLMDT=$O(^ABMDCLM(DUZ(2),"AC",ABMCLMDT)) Q:+ABMCLMDT=0!(ABMCLMDT>ABMEDT)  D

 .S ABMIEN=0

 .F  S ABMIEN=$O(^ABMDCLM(DUZ(2),"AC",ABMCLMDT,ABMIEN)) Q:+ABMIEN=0  D

 ..S ABMVL=$P($G(^ABMDCLM(DUZ(2),ABMIEN,0)),U,3)

 ..S:ABMVL="" ABMVL="NO VISIT LOCATION"  ;NO VISIT LOCATION

 ..I $D(ABMY("LOC"))&('$D(ABMY("LOC",ABMVL))) Q  ;not selected visit location

 ..S ABMCLN=$P($G(^ABMDCLM(DUZ(2),ABMIEN,0)),U,6)  ;CLINIC

 ..S:ABMCLN="" ABMCLN=99999

 ..I $D(ABMY("CLIN"))&('$D(ABMY("CLIN",ABMCLN))) Q  ;not selected clinic

 ..S ABMVTYP=$P($G(^ABMDCLM(DUZ(2),ABMIEN,0)),U,7)  ;VISIT TYPE

 ..S:ABMVTYP="" ABMVTYP="UNKNOWN"

 ..S ABMCLST=$P($G(^ABMDCLM(DUZ(2),ABMIEN,0)),U,4)      ;CLAIM STATUS

 ..S:ABMCLST="" ABMCLST="UNKNOWN"  ;abm*2.6*1 HEAT3073

 ..S ABMACTI=$P($G(^ABMDCLM(DUZ(2),ABMIEN,0)),U,8)      ;ACTIVE INSURER

 ..S:ABMACTI'="" ABMITYP=$P($G(^AUTNINS(ABMACTI,2)),U)

 ..S:ABMACTI'="" ABMACTI=$P($G(^AUTNINS(ABMACTI,0)),U)  ;

 ..I ABMACTI="" S ABMACTI="NO INSURER"

 ..I ABMITYP="" S ABMITYP="NO INS. TYPE"

 ..S ABMSTODT=$E(ABMCLMDT,1,5)  ;month and year of visit for sorting

 ..S ^TMP("ABM-TALLY",$J,"CTOT")=+$G(^TMP("ABM-TALLY",$J,"CTOT"))+1  ;total claims

 ..S ^TMP("ABM-TALLY",$J,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI)=+$G(^TMP("ABM-TALLY",$J,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI))+1

 ;now get cancelled claim data

 S ABMCLMDT=ABMSDT-.01

 S ABMCLST="X"      ;CLAIM STATUS

 F  S ABMCLMDT=$O(^ABMCCLMS(DUZ(2),"AC",ABMCLMDT)) Q:+ABMCLMDT=0!(ABMCLMDT>ABMEDT)  D

 .S ABMIEN=0

 .F  S ABMIEN=$O(^ABMCCLMS(DUZ(2),"AC",ABMCLMDT,ABMIEN)) Q:+ABMIEN=0  D

 ..S ABMVL=$P($G(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,3)

 ..S:ABMVL="" ABMVL="NO VISIT LOCATION"  ;NO VISIT LOCATION

 ..I $D(ABMY("LOC"))&('$D(ABMY("LOC",ABMVL))) Q  ;not selected visit location

 ..S ABMCLN=$P($G(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,6)  ;CLINIC

 ..S:ABMCLN="" ABMCLN=99999

 ..I $D(ABMY("CLIN"))&('$D(ABMY("CLIN",ABMCLN))) Q  ;not selected clinic

 ..S ABMVTYP=$P($G(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,7)  ;VISIT TYPE

 ..S:ABMVTYP="" ABMVTYP="UNKNOWN"

 ..S ABMACTI=$P($G(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,8)      ;ACTIVE INSURER

 ..S:ABMACTI'="" ABMITYP=$P($G(^AUTNINS(ABMACTI,2)),U)

 ..S:ABMACTI'="" ABMACTI=$P($G(^AUTNINS(ABMACTI,0)),U)

 ..I ABMACTI="" S ABMACTI="NO INSURER"

 ..I ABMITYP="" S ABMITYP="NO INS. TYPE"

 ..S ABMSTODT=$E(ABMCLMDT,1,5)  ;month and year of visit for sorting

 ..S ^TMP("ABM-TALLY",$J,"CTOT")=+$G(^TMP("ABM-TALLY",$J,"CTOT"))+1  ;total claims

 ..S ^TMP("ABM-TALLY",$J,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI)=+$G(^TMP("ABM-TALLY",$J,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI))+1

 ;

 ;BILL DATA

 S ABMBDT=ABMSDT-.01

 F  S ABMBDT=$O(^BARBL(DUZ(2),"F",ABMBDT)) Q:+ABMBDT=0!(ABMBDT>ABMEDT)  D

 .S ABMBIEN=0

 .F  S ABMBIEN=$O(^BARBL(DUZ(2),"F",ABMBDT,ABMBIEN)) Q:+ABMBIEN=0  D

 ..S ABMACCTI=$P($G(^BARBL(DUZ(2),ABMBIEN,0)),U,3)

 ..S ABMACCT=$P($G(^BARAC(DUZ(2),ABMACCTI,0)),U)

 ..I (ABMACCT'["AUTNINS")&(ABMACCT'["AUPNDPT") Q  ;only insurer/patient entries

 ..I ABMACCT[("AUTNINS") S ABMINS=$P($G(@(U_$P(ABMACCT,";",2)_+ABMACCT_",0)")),U)

 ..S:ABMINS="" ABMINS="NO INSURER"

 ..S D0=ABMACCTI,ABMITYP=$$VAL^BARVPM(8)  ;insurer type

 ..S ABMVL=$P($G(^BARBL(DUZ(2),ABMBIEN,1)),U,8)  ;visit location

 ..S:ABMVL="" ABMVL="NO VISIT LOCATION"  ;NO VISIT LOCATION

 ..I $D(ABMY("LOC"))&('$D(ABMY("LOC",ABMVL))) Q  ;not selected visit location

 ..S ABMCLN=$P($G(^BARBL(DUZ(2),ABMBIEN,1)),U,12)  ;clinic

 ..S:ABMCLN="" ABMCLN=99999

 ..I $D(ABMY("CLIN"))&('$D(ABMY("CLIN",ABMCLN))) Q  ;not selected clinic

 ..S ABMVTYP=$P($G(^BARBL(DUZ(2),ABMBIEN,1)),U,14)  ;VISIT TYPE

 ..S:ABMVTYP="" ABMVTYP="UNKNOWN"

 ..S ABMSTODT=$E(ABMBDT,1,5)  ;month and year of visit for sorting

 ..S ABMBLST=$$VAL^BAR3PINQ(ABMBIEN,"B",.04)  ;bill status

 ..Q:ABMBLST=""  ;NO BILL STATUS

 ..S ABMBILL=$P($G(^BARBL(DUZ(2),ABMBIEN,0)),U,13)  ;amount billed

 ..S ABMCURR=$P($G(^BARBL(DUZ(2),ABMBIEN,0)),U,15)  ;current bill amount

 ..S ^TMP("ABM-TALLY",$J,"BTOT")=+$G(^TMP("ABM-TALLY",$J,"BTOT"))+1  ;total bills

 ..S ^TMP("ABM-TALLY",$J,"BAR",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS)=+$G(^TMP("ABM-TALLY",$J,"BAR",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS))+1

 ..S ^TMP("ABM-TALLY",$J,"BAR-BILLED",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS)=+$G(^TMP("ABM-TALLY",$J,"BAR-BILLED",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS))+ABMBILL

 ..S ^TMP("ABM-TALLY",$J,"TBILLED")=+$G(^TMP("ABM-TALLY",$J,"TBILLED"))+ABMBILL

 ..S ^TMP("ABM-TALLY",$J,"BAR-CBILLED",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS)=+$G(^TMP("ABM-TALLY",$J,"BAR-CBILLED",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS))+ABMCURR

 ..S ^TMP("ABM-TALLY",$J,"TCBILLED")=+$G(^TMP("ABM-TALLY",$J,"TCBILLED"))+ABMCURR

 ..; now get transaction data

 ..S ABMTRIEN=0

 ..F  S ABMTRIEN=$O(^BARTR(DUZ(2),"AC",ABMBIEN,ABMTRIEN))  Q:+ABMTRIEN=0  D

 ...S (ABM(1),ABM(2),ABM(3),ABM(4))=0

 ...I +ABMTRIEN<ABMSDT!(+ABMTRIEN>ABMEDT) Q  ;outside date range

 ...D TRANS^ABMTALL2

 ...S ABMTR("ADJ CAT")=$P(ABMTR(1),U,2)           ; Adjustment Category

 ...I ",3,4,13,14,15,16,19,20,"'[(","_ABMTR("ADJ CAT")_",")&(",40,49,39,108,503,"'[(","_ABMTR("T")_",")) Q

 ...S:(ABMTR("T")=49!(ABMTR("T")=503)) ABM(1)=ABMTR("CR-DB")

 ...S:ABMTR("T")=40 ABM(2)=ABMTR("CR-DB")

 ...S:(",3,4,13,14,15,16,20,"[(","_ABMTR("ADJ CAT")_",")) ABM(3)=ABMTR("CR-DB")

 ...S:ABMTR("T")=108 ABM(3)=ABMTR("CR-DB")

 ...S:(ABMTR("T")=39!(ABMTR("ADJ CAT")=19)) ABM(4)=ABMTR("CR-DB")

 ...S ^TMP("ABM-TALLY",$J,"PAYMENT",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS)=+$G(^TMP("ABM-TALLY",$J,"PAYMENT",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS))+ABM(2)

 ...S ^TMP("ABM-TALLY",$J,"TPAY")=+$G(^TMP("ABM-TALLY",$J,"TPAY"))+ABM(2)

 ...S ^TMP("ABM-TALLY",$J,"ADJUST",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS)=+$G(^TMP("ABM-TALLY",$J,"ADJUST",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS))+ABM(3)

 ...S ^TMP("ABM-TALLY",$J,"TADJ")=+$G(^TMP("ABM-TALLY",$J,"TADJ"))+ABM(3)

 ...S ^TMP("ABM-TALLY",$J,"REFUND",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS)=+$G(^TMP("ABM-TALLY",$J,"REFUND",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMBLST,ABMITYP,ABMINS))+ABM(4)

 ...S ^TMP("ABM-TALLY",$J,"TREF")=+$G(^TMP("ABM-TALLY",$J,"TREF"))+ABM(4)

 D OPEN^%ZISH("ABMTALLY",ABMPATH,ABMFILE,"W")

 Q:POP

 U IO

 D OUTPUT  ;write data

 D CLOSE^%ZISH("ABMTALLY")

 K ^TMP("ABM-TALLY",$J)

 Q

OUTPUT ;

 D OUTPUT^ABMTALL2

 Q

LOC ;EP

 W ! K DIC,ABMY("LOC")

 S DIC="^BAR(90052.05,DUZ(2),"

 S DIC(0)="AEMQ"

 S DIC("A")="Select LOCATION: ALL//"

 F  D  Q:+Y<0

 .I $D(ABMY("LOC")) S DIC("A")="Select Another Location: "

 .D ^DIC

 .Q:+Y<0

 .S ABMY("LOC",+Y)=""

 I '$D(ABMY("LOC")) D

 .I $D(DUOUT) K ABMY("SORT") Q

 .W "ALL"

 K DIC

 Q

DT ;EP

 K DIR,ABMY("DT")

 Q:$D(DIRUT)

 S ABMY("DT")="E"

 S Y="DATE"

 W !!," ============ Entry of ",Y," Range =============",!

 S DIR("A")="Enter STARTING "_Y_" for the Report"

 S DIR(0)="DO^::EP"

 D ^DIR

 G DT:$D(DIRUT)

 S ABMY("DT",1)=Y

 W !

 S DIR("A")="Enter ENDING DATE for the Report"

 D ^DIR

 K DIR

 G DT:$D(DIRUT)

 S ABMY("DT",2)=Y

 I ABMY("DT",1)>ABMY("DT",2) W !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! G DT

 Q

CLIN ;SELECT CLINICS

 K ABMY("CLIN")

 S DIC="^DIC(40.7,"

 S DIC(0)="AEMQ"

 S DIC("A")="Select Clinic: ALL// "

 F  D  Q:+Y<0

 .I $D(ABMY("CLIN")) S DIC("A")="Select Another Clinic: "

 .D ^DIC

 .Q:+Y<0

 .S ABMY("CLIN",+Y)=""

 I '$D(ABMY("CLIN")) D

 .I $D(DUOUT) K ABMY("SORT") Q

 .W "ALL"

 K DIC

 Q

XIT ;

 K ABMY("I"),ABMY("X"),DIR

 Q

HDR ;

 I $D(ABMY("LOC")) S ABM("TXT")=$P(^DIC(4,ABMY("LOC"),0),U),ABM("CONJ")="at " D CHK

 Q:$G(ABMY("DT",1))=""  ;no dates

 S ABM("CONJ")="with "

 S ABM("TXT")="Edit Date" D CHK

 S ABM("CONJ")="from ",ABM("TXT")=$$SDT^ABMDUTL(ABMY("DT",1)) D CHK

 S ABM("CONJ")="to ",ABM("TXT")=$$SDT^ABMDUTL(ABMY("DT",2)) D CHK

 Q

WHD ;EP for writing Report Header

 W $$EN^ABMVDF("IOF"),!

 I $D(ABM("PRIVACY")) W ?($S($D(ABM(132)):34,1:8)),"WARNING: Confidential Patient Information, Privacy Act Applies",!

 K ABM("LINE") S $P(ABM("LINE"),"=",$S($D(ABM(132)):132,1:80))="" W ABM("LINE"),!

 W ABM("HD",0),?$S($D(ABM(132)):108,1:57) S Y=DT X ^DD("DD") W Y,"   Page ",ABM("PG")

 W:$G(ABM("HD",1))]"" !,ABM("HD",1)

 W:$G(ABM("HD",2))]"" !,ABM("HD",2)

 W !,ABM("LINE") K ABM("LINE")

 Q

CHK I ($L(ABM("HD",ABM("LVL")))+1+$L(ABM("CONJ"))+$L(ABM("TXT")))<($S($D(ABM(132)):104,1:52)+$S(ABM("LVL")>0:28,1:0)) S ABM("HD",ABM("LVL"))=ABM("HD",ABM("LVL"))_" "_ABM("CONJ")_ABM("TXT")

 E  S ABM("LVL")=ABM("LVL")+1,ABM("HD",ABM("LVL"))=ABM("CONJ")_ABM("TXT")

 Q

GETSVCAT(ABMCAT) ;EP-GET THE FULL SERVICE CATEGORY NAME

 Q $P($P(ABMCATS,ABMCAT_":",2),";")

ABMTALLY  ; IHS/SD/SDR - Monthly tally report - 8/19/2005 1:28:34 PM

 +1       ;;2.6;IHS Third Party Billing;**1**;NOV 12, 2009

 +2       ;

 +3       ; IHS/SD/SDR - v2.5 p10 - IM18370

 +4       ;   New report

 +5       ; IHS/SD/SDR - abm*2.6*1 - HEAT3073 - fix <SUBSCR>COMPUTE+45^ABMTALLY

 +6       ;

 +7       ;Report to count:

 +8       ;   Number of visits (total; with and without TPB coverage)

 +9       ;   Number of claims (total; divided by claim status)

 +10      ;   Number of bills (total; divided by billed amount and outstanding)

 +11      ; User will be prompted for (this will also be the sort order):

 +12      ;   Visit Location(s)

 +13      ;   Clinic Type(s)

 +14      ;   Date range

 +15      ;OPTION: ABMD RP TALLY^VISIT/CLAIM/BILL TALLY REPORT

 +16       KILL ABM,ABMY

 +17       SET ABM("RTYP")=1

 +18       SET ABM("RTYP","NM")="TALLY LISTING"

 +19      ;

SEL        DO LOOP

           IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               QUIT 

 +1        SET ABM("HD",0)="LISTING of TALLIED files "

 +2        SET ABM("LVL")=0

 +3        DO QUE

 +4        QUIT 

 +5       ;

QUE       ;

 +1        SET ZTRTN="COMPUTE^ABMTALLY"

 +2        SET ZTDESC="TALLED REPORT OF PCC/TPB/AR"

 +3        SET ZTSAVE("ABM*")=""

 +4        KILL ZTSK

 +5       ;S ABMFILE=$P($G(^DIC(4,DUZ(2),0)),U)_DT_".txt"  ;abm*2.6*1 HEAT3073

 +6       ;abm*2.6*1 HEAT3073

           SET ABMFILE=$TRANSLATE($PIECE($GET(^DIC(4,DUZ(2),0)),U)_DT_".txt"," ","_")

 +7        SET ABMPATH=$PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,7)

 +8        SET %ZIS("HFSNAME")=ABMPATH_ABMFILE

 +9        SET %ZIS("HFSMODE")="W"

 +10       SET %ZIS("B")="HFS"

 +11       SET %ZIS="QN"

 +12       DO ^%ZIS

 +13       IF POP

               QUIT 

 +14      ;force taskman NOT to use IO from here. TM gets confused and sends output to tmp.hfs

           SET ZTIO=""

 +15      ;file is transferred via ABMPATH and ABMFILE

 +16       DO ^%ZTLOAD

 +17       IF $GET(ZTSK)

               Begin DoDot:1

 +18               WRITE !,"Task # ",ZTSK," queued."

 +19               WRITE !,"File to be created:"_ABMPATH_ABMFILE

 +20               DO ^%ZISC

               End DoDot:1

 +21       DO HOME^%ZIS

 +22       KILL DIR

 +23       SET DIR(0)="E"

 +24       DO ^DIR

 +25       QUIT 

 +26      ;

LOOP      ;

 +1       ; Display current exclusion parameters

 +2        SET ABMY("X")="W $$SDT^ABMDUTL(X)"

 +3        IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)

               GOTO XIT

 +4        WRITE !!?3,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:",!?3,"======================================================================="

 +5        WRITE !?3,"- Visit Location.....: "

 +6        IF $DATA(ABMY("LOC"))

               Begin DoDot:1

 +7                SET ABMI=0

 +8                FOR 

                       SET ABMI=$ORDER(ABMY("LOC",ABMI))

                       IF +ABMI=0

                           QUIT 

                       WRITE !?12,$PIECE(^DIC(4,ABMI,0),U)

               End DoDot:1

 +9       IF '$TEST

               WRITE "ALL"

 +10       IF $DATA(ABMY("DT"))

               WRITE !?3,"- Date Range....:"

 +11      IF $TEST

               SET X=ABMY("DT",1)

               XECUTE ABMY("X")

               WRITE "  to: "

               SET X=ABMY("DT",2)

               XECUTE ABMY("X")

 +12       WRITE !?3,"- Clinics...:"

 +13       IF $DATA(ABMY("CLIN"))

               Begin DoDot:1

 +14               SET ABMI=0

 +15               FOR 

                       SET ABMI=$ORDER(ABMY("CLIN",ABMI))

                       IF +ABMI=0

                           QUIT 

                       WRITE !?12,$PIECE(^DIC(40.7,ABMI,0),U)

               End DoDot:1

 +16      IF '$TEST

               WRITE "ALL"

PARM      ;

 +1       ; Choose additional exclusion parameters

 +2        KILL DIR

 +3        SET DIR(0)="SO^1:LOCATION;2:DATE RANGE;3:CLINIC"

 +4        SET DIR("A")="Select ONE or MORE of the above EXCLUSION PARAMETERS"

 +5        SET DIR("?")="The report can be restricted to one or more of the listed parameters. A parameter can be removed by reselecting it and making a null entry."

 +6        DO ^DIR

 +7        KILL DIR

 +8        IF $DATA(DIRUT)!$DATA(DIROUT)

               GOTO XIT

 +9        IF Y=1!(Y=2)!(Y=3)

               DO @($SELECT(Y=3:"CLIN",Y=1:"LOC",1:"DT")_"^ABMTALLY")

               GOTO LOOP

 +10       QUIT 

 +11      ;

COMPUTE   ;

 +1        SET ABM("SUBR")="ABM-TALLY"

 +2        KILL ^TMP("ABM-TALLY",$JOB)

 +3       ;PCC DATA

 +4       ;start date

           SET ABMSDT=+$GET(ABMY("DT",1))

 +5       ;end date

           SET ABMEDT=$SELECT(+$GET(ABMY("DT",2))'=0:+$GET(ABMY("DT",2)),1:9999999)

 +6        SET ABMVDT=ABMSDT-.01

 +7        FOR 

               SET ABMVDT=$ORDER(^AUPNVSIT("B",ABMVDT))

               IF +ABMVDT=0!(ABMVDT>ABMEDT)

                   QUIT 

               Begin DoDot:1

 +8                SET ABMVIEN=0

 +9                FOR 

                       SET ABMVIEN=$ORDER(^AUPNVSIT("B",ABMVDT,ABMVIEN))

                       IF +ABMVIEN=0

                           QUIT 

                       Begin DoDot:2

 +10                       SET ABMVL=$PIECE($GET(^AUPNVSIT(ABMVIEN,0)),U,6)

 +11                       IF ABMVL=""

                               SET ABMVL="NO VISIT LOCATION"

 +12      ;not selected visit location

                           IF $DATA(ABMY("LOC"))&('$DATA(ABMY("LOC",ABMVL)))

                               QUIT 

 +13                       SET ABMCLN=$PIECE($GET(^AUPNVSIT(ABMVIEN,0)),U,8)

 +14                       IF ABMCLN=""

                               SET ABMCLN=99999

 +15      ;not selected clinic

                           IF $DATA(ABMY("CLIN"))&('$DATA(ABMY("CLIN",ABMCLN)))

                               QUIT 

 +16      ;SERVICE CATEGORY

                           SET ABMSCAT=$PIECE($GET(^AUPNVSIT(ABMVIEN,0)),U,7)

 +17                       IF ABMSCAT=""

                               SET ABMSCAT="NO SERVICE CATEGORY"

 +18                       SET ABMTPB=$PIECE($GET(^AUPNVSIT(ABMVIEN,0)),U,4)

 +19      ;total visits

                           SET ^TMP("ABM-TALLY",$JOB,"VTOT")=+$GET(^TMP("ABM-TALLY",$JOB,"VTOT"))+1

 +20      ;month and year of visit for sorting

                           SET ABMSTODT=$EXTRACT(ABMVDT,1,5)

 +21      ;clinic cnt w/clm

                           IF ABMTPB=1!(ABMTPB=2)!(ABMTPB=24)!(ABMTPB=25)

                               SET ^TMP("ABM-TALLY",$JOB,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"CLM")=+$GET(^TMP("ABM-TALLY",$JOB,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"CLM"))+1

 +22                      IF '$TEST

                               SET ^TMP("ABM-TALLY",$JOB,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"NOCLM")=+$GET(^TMP("ABM-TALLY",$JOB,"PCC",ABMVL,ABMCLN,ABMSCAT,ABMSTODT,"NOCLM"))+1

                       End DoDot:2

               End DoDot:1

 +23      ;

 +24      ;CLAIM DATA

 +25       SET ABMCLMDT=ABMSDT-.01

 +26       FOR 

               SET ABMCLMDT=$ORDER(^ABMDCLM(DUZ(2),"AC",ABMCLMDT))

               IF +ABMCLMDT=0!(ABMCLMDT>ABMEDT)

                   QUIT 

               Begin DoDot:1

 +27               SET ABMIEN=0

 +28               FOR 

                       SET ABMIEN=$ORDER(^ABMDCLM(DUZ(2),"AC",ABMCLMDT,ABMIEN))

                       IF +ABMIEN=0

                           QUIT 

                       Begin DoDot:2

 +29                       SET ABMVL=$PIECE($GET(^ABMDCLM(DUZ(2),ABMIEN,0)),U,3)

 +30      ;NO VISIT LOCATION

                           IF ABMVL=""

                               SET ABMVL="NO VISIT LOCATION"

 +31      ;not selected visit location

                           IF $DATA(ABMY("LOC"))&('$DATA(ABMY("LOC",ABMVL)))

                               QUIT 

 +32      ;CLINIC

                           SET ABMCLN=$PIECE($GET(^ABMDCLM(DUZ(2),ABMIEN,0)),U,6)

 +33                       IF ABMCLN=""

                               SET ABMCLN=99999

 +34      ;not selected clinic

                           IF $DATA(ABMY("CLIN"))&('$DATA(ABMY("CLIN",ABMCLN)))

                               QUIT 

 +35      ;VISIT TYPE

                           SET ABMVTYP=$PIECE($GET(^ABMDCLM(DUZ(2),ABMIEN,0)),U,7)

 +36                       IF ABMVTYP=""

                               SET ABMVTYP="UNKNOWN"

 +37      ;CLAIM STATUS

                           SET ABMCLST=$PIECE($GET(^ABMDCLM(DUZ(2),ABMIEN,0)),U,4)

 +38      ;abm*2.6*1 HEAT3073

                           IF ABMCLST=""

                               SET ABMCLST="UNKNOWN"

 +39      ;ACTIVE INSURER

                           SET ABMACTI=$PIECE($GET(^ABMDCLM(DUZ(2),ABMIEN,0)),U,8)

 +40                       IF ABMACTI'=""

                               SET ABMITYP=$PIECE($GET(^AUTNINS(ABMACTI,2)),U)

 +41      ;

                           IF ABMACTI'=""

                               SET ABMACTI=$PIECE($GET(^AUTNINS(ABMACTI,0)),U)

 +42                       IF ABMACTI=""

                               SET ABMACTI="NO INSURER"

 +43                       IF ABMITYP=""

                               SET ABMITYP="NO INS. TYPE"

 +44      ;month and year of visit for sorting

                           SET ABMSTODT=$EXTRACT(ABMCLMDT,1,5)

 +45      ;total claims

                           SET ^TMP("ABM-TALLY",$JOB,"CTOT")=+$GET(^TMP("ABM-TALLY",$JOB,"CTOT"))+1

 +46                       SET ^TMP("ABM-TALLY",$JOB,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI)=+$GET(^TMP("ABM-TALLY",$JOB,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI))+1

                       End DoDot:2

               End DoDot:1

 +47      ;now get cancelled claim data

 +48       SET ABMCLMDT=ABMSDT-.01

 +49      ;CLAIM STATUS

           SET ABMCLST="X"

 +50       FOR 

               SET ABMCLMDT=$ORDER(^ABMCCLMS(DUZ(2),"AC",ABMCLMDT))

               IF +ABMCLMDT=0!(ABMCLMDT>ABMEDT)

                   QUIT 

               Begin DoDot:1

 +51               SET ABMIEN=0

 +52               FOR 

                       SET ABMIEN=$ORDER(^ABMCCLMS(DUZ(2),"AC",ABMCLMDT,ABMIEN))

                       IF +ABMIEN=0

                           QUIT 

                       Begin DoDot:2

 +53                       SET ABMVL=$PIECE($GET(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,3)

 +54      ;NO VISIT LOCATION

                           IF ABMVL=""

                               SET ABMVL="NO VISIT LOCATION"

 +55      ;not selected visit location

                           IF $DATA(ABMY("LOC"))&('$DATA(ABMY("LOC",ABMVL)))

                               QUIT 

 +56      ;CLINIC

                           SET ABMCLN=$PIECE($GET(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,6)

 +57                       IF ABMCLN=""

                               SET ABMCLN=99999

 +58      ;not selected clinic

                           IF $DATA(ABMY("CLIN"))&('$DATA(ABMY("CLIN",ABMCLN)))

                               QUIT 

 +59      ;VISIT TYPE

                           SET ABMVTYP=$PIECE($GET(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,7)

 +60                       IF ABMVTYP=""

                               SET ABMVTYP="UNKNOWN"

 +61      ;ACTIVE INSURER

                           SET ABMACTI=$PIECE($GET(^ABMCCLMS(DUZ(2),ABMIEN,0)),U,8)

 +62                       IF ABMACTI'=""

                               SET ABMITYP=$PIECE($GET(^AUTNINS(ABMACTI,2)),U)

 +63                       IF ABMACTI'=""

                               SET ABMACTI=$PIECE($GET(^AUTNINS(ABMACTI,0)),U)

 +64                       IF ABMACTI=""

                               SET ABMACTI="NO INSURER"

 +65                       IF ABMITYP=""

                               SET ABMITYP="NO INS. TYPE"

 +66      ;month and year of visit for sorting

                           SET ABMSTODT=$EXTRACT(ABMCLMDT,1,5)

 +67      ;total claims

                           SET ^TMP("ABM-TALLY",$JOB,"CTOT")=+$GET(^TMP("ABM-TALLY",$JOB,"CTOT"))+1

 +68                       SET ^TMP("ABM-TALLY",$JOB,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI)=+$GET(^TMP("ABM-TALLY",$JOB,"TPB",ABMVL,ABMCLN,ABMVTYP,ABMSTODT,ABMCLST,ABMITYP,ABMACTI))+1

                       End DoDot:2

               End DoDot:1

 +69      ;

 +70      ;BILL DATA

 +71       SET ABMBDT=ABMSDT-.01

 +72       FOR 

               SET ABMBDT=$ORDER(^BARBL(DUZ(2),"F",ABMBDT))

               IF +ABMBDT=0!(ABMBDT>ABMEDT)

                   QUIT 

               Begin DoDot:1

 +73               SET ABMBIEN=0

 +74               FOR 

                       SET ABMBIEN=$ORDER(^BARBL(DUZ(2),"F",ABMBDT,ABMBIEN))

                       IF +ABMBIEN=0

                           QUIT 

                       Begin DoDot:2

 +75                       SET ABMACCTI=$PIECE($GET(^BARBL(DUZ(2),ABMBIEN,0)),U,3)