ABMUCPR ; IHS/SD/SDR - UFMS Cashiering Session Productivity Report ;
;;2.6;IHS Third Party Billing;**1,11**;NOV 12, 2009;Build 133
;
; IHS/SD/SDR - abm*2.6*1 - NO HEAT - Added averages and fixed
; "^" out of report
; IHS/SD/SDR - abm*2.6*11 - adde V to list of codes
;
K ABM,ABMY
S ABM("HD",0)="Cashiering Session Productivity Report"
S ABM("POS")=1
S ABM("SSTAT","A")=""
S $P(ABMDASH,"=",79)="="
; start new code abm*2.6*1 NOHEAT
W !!!?5,"This report will only look at closed or transmitted/reconciled sessions."
W !?5,"All open/reopened sessions will be ignored."
;end new code abm*2.6*1
;
SEL ;
S ABM("NODX")="" D ^ABMURSEL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
D ^ABMURHD
S ABMQ("RC")="COMPUTE^ABMUCPR"
S ABMQ("RX")="POUT^ABMDRUTL"
S ABMQ("NS")="ABM"
S ABMQ("RP")="PRINT^ABMUCPR"
D ^ABMDRDBQ
Q ;abm*2.6*11
;
COMPUTE ;EP - Entry Point for Setting up Data
S ABM("SUBR")="ABM-UCR" K ^TMP("ABM-UCR",$J)
S ABM("PG")=0
LOOP ; loop through sessions
S ABMLOC=$$FINDLOC^ABMUCUTL
K ABMZ ;abm*2.6*1 NO HEAT
S ABM("HD",1)="For Location: "_$P($G(^DIC(4,ABMLOC,0)),U)
I '$D(ABMY("USER")) S ABM("HD",2)="For ALL users"_$S($G(ABMY("POS"))=1:" Including",1:" Excluding")_" POS Claims"
E D
.S ABM("HD",2)="For user(s): "
.S ABMU=0
.F S ABMU=$O(ABMY("USER",ABMU)) Q:+ABMU=0 S ABM("HD",2)=ABM("HD",2)_$S($G(ABMFLG)=1:", ",1:"")_$P($G(^VA(200,ABMU,0)),U),^TMP("ABM-UCR",$J,$P($G(^VA(200,ABMU,0)),U))="",ABMFLG=1
.S ABM("HD",2)=ABM("HD",2)_$S($G(ABMFLG)=1:",",1:"")_$S($G(ABMY("POS"))=1:" Including",1:" Excluding")_" POS CLAIMS"
S ABMU=0
S ABMLOOP=10
F S ABMU=$O(^ABMUCASH(ABMLOC,10,ABMU)) Q:+ABMU=0 D
.I $D(ABMY("USER")) Q:'$D(ABMY("USER",ABMU)) ;select users only
.S ABMUO=$P($G(^VA(200,ABMU,0)),U)
.S ABMFROM=$S($G(ABMY("DT",1)):ABMY("DT",1),1:0) ;from date
.S ABMTO=$S($G(ABMY("DT",2)):ABMY("DT",2)_".999999",1:9999999) ;to date
.F S ABMFROM=$O(^ABMUCASH(ABMLOC,10,ABMU,20,ABMFROM)) Q:+ABMFROM=0!(ABMFROM>ABMTO) D
..;check session status
..I "^O^S^"[("^"_$P($G(^ABMUCASH(ABMLOC,10,ABMU,20,ABMFROM,0)),U,4)_"^") Q ;skip open/reopened sessions ;abm*2.6*1 NO HEAT
..I '$D(ABMY("SSTAT","A"))&'$D(ABMY("SSTAT",$P($G(^ABMUCASH(ABMLOC,10,ABMU,20,ABMFROM,0)),U,4))) Q
..D DATA
I $G(ABMY("POS"))=1 D
.S ABMLOOP=20
.S ABMU=1,ABMUO="POS CLAIMS"
.S ABMFROM=$S($G(ABMY("DT",1)):ABMY("DT",1),1:0) ;from date
.S ABMTO=$S($G(ABMY("DT",2)):ABMY("DT",2),1:9999999) ;to date
.F S ABMFROM=$O(^ABMUCASH(ABMLOC,20,ABMU,20,ABMFROM)) Q:+ABMFROM=0!(ABMFROM>ABMTO) D
..;check session status
..I "^O^S^"[("^"_$P($G(^ABMUCASH(ABMLOC,20,ABMU,20,ABMFROM,0)),U,4)_"^") Q ;skip open/reopened sessions ;abm*2.6*1 NO HEAT
..I '$D(ABMY("SSTAT","A"))&'$D(ABMY("SSTAT",$P($G(^ABMUCASH(ABMLOC,20,ABMU,20,ABMFROM,0)),U,4))) Q
..D DATA
Q
;
DATA ;
S ABMDAYS=+($S($P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,3):$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,3),1:DT)-ABMFROM) ;abm*2.6*1 NO HEAT
I ABMDAYS<1 S ABMDAYS=1 ;abm*2.6*1 NO HEAT
S ABMZ(ABMUO,"ABMTDAYS")=+$G(ABMZ(ABMUO,"ABMTDAYS"))+ABMDAYS ;abm*2.6*1 NO HEAT
S ABMZ(ABMUO,"SCNT")=+$G(ABMZ(ABMUO,"SCNT"))+1 ;abm*2.6*1 NO HEAT
;budget activity
;S ^TMP("ABM-UCR",$J,ABMUO,ABMFROM)=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,4) ;abm*2.6*1 NO HEAT
S ^TMP("ABM-UCR",$J,ABMUO,ABMFROM)=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,4)_"^"_$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,3) ;abm*2.6*1 NO HEAT
S ABMB=0
F S ABMB=$O(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB)) Q:+ABMB=0 D
.;S ABMBA=$P($T(@$G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,0))),";;",2) ;abm*2.6*11
.S ABMBA=$P($T(@($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,0)))^ABMUVBCH),";;",2) ;abm*2.6*11
.;
.;approved bills
.S ABMAB=0
.F S ABMAB=$O(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,2,ABMAB)) Q:+ABMAB=0 D
..S ^TMP("ABM-UCR",$J,ABMUO,"AB",ABMBA,"CNT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"AB",ABMBA,"CNT"))+1
..S ^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","CNT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","CNT"))+1
..S ABMDUZ=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,2,ABMAB,0)),U,2)
..S ABMIEN=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,2,ABMAB,0)),U,3)
..S ^TMP("ABM-UCR",$J,ABMUO,"AB",ABMBA,"AMT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"AB",ABMBA,"AMT"))+$P($G(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
..S ^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","AMT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","AMT"))+$P($G(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
.Q:ABMLOOP=20 ;don't do cancelled anything for POS user
.;
.;cancelled claims
.S ABMCC=0
.F S ABMCC=$O(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,1,ABMCC)) Q:+ABMCC=0 D
..S ^TMP("ABM-UCR",$J,ABMUO,"CC",ABMBA,"CNT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"CC",ABMBA,"CNT"))+1
..S ^TMP("ABM-UCR",$J,ABMUO,"TOT","CC","CNT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CC","CNT"))+1
.;
.;cancelled bills
.S ABMCB=0
.F S ABMCB=$O(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,3,ABMCB)) Q:+ABMCB=0 D
..S ^TMP("ABM-UCR",$J,ABMUO,"CB",ABMBA,"CNT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"CB",ABMBA,"CNT"))+1
..S ^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","CNT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","CNT"))+1
..S ABMDUZ=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,3,ABMCB,0)),U,2)
..S ABMIEN=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,3,ABMCB,0)),U,3)
..S ^TMP("ABM-UCR",$J,ABMUO,"CB",ABMBA,"AMT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"CB",ABMBA,"AMT"))+$P($G(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
..S ^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","AMT")=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","AMT"))+$P($G(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
Q
PRINT ;
D HDB
S ABMUO=""
S ABMO=""
F S ABMUO=$O(^TMP("ABM-UCR",$J,ABMUO)) Q:ABMUO="" D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
.I ($G(ABMO)'=""),($G(ABMO)'=ABMUO) W !,ABMDASH
.S ABMO=ABMUO
.W !,"Statistics for ",ABMUO
.F ABMBC="AB","CC","CB" D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
..Q:(ABMUO="POS CLAIMS")&(ABMBC'="AB")
..W !?5,$S(ABMBC="AB":"BILLED",ABMBC="CC":"CANCELLED CLAIMS",1:"CANCELLED BILLS")
..;F ABMBA="MEDICARE","MEDICAID","PRIVATE INSURANCE","OTHER" D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) ;abm*2.6*11
..F ABMBA="MEDICARE","MEDICAID","PRIVATE INSURANCE","OTHER","VET" D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) ;abm*2.6*11
...W !?10,ABMBA
...W ?35,$J(+$G(^TMP("ABM-UCR",$J,ABMUO,ABMBC,ABMBA,"CNT")),6)
...I ABMBC="AB"!(ABMBC="CB") W ?50,$J($FN(+$G(^TMP("ABM-UCR",$J,ABMUO,ABMBC,ABMBA,"AMT")),",",2),"10R")
..W !?35,"------"
..W:ABMBC["B" ?50,"----------"
..W !?20,"Total "_$S(ABMBC="AB"!(ABMBC="CB"):"Bills",1:"Claims"),?35,$J(+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT",ABMBC,"CNT")),6)
..W:ABMBC["B" ?50,$J($FN(+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT",ABMBC,"AMT")),",",2),"10R")
..W !
..I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) W " (cont)"
.;
.;start new code abm*2.6*1 NO HEAT
.S (ABMABAVG,ABMABTOT,ABMCBAVG,ABMCBTOT,ABMCCAVG,ABMSAVG)=0
.D CALC
.W !,"Average approved bills a day: "_$J(ABMABAVG,",",3)_" for $"_$J(ABMABTOT,",",2)
.W !,"Average cancelled BILLS a day: "_$J(ABMCBAVG,",",3)_" for $"_$J(ABMCBTOT,",",2)
.W !,"Average cancelled CLAIMS a day: "_$J(ABMCCAVG,",",3)
.W !,"Average hours/mins session was open: "_ABMSAVG
.;end new code NO HEAT
.;
.W !!,"Cashiering Sessions used:"
.I +$O(^TMP("ABM-UCR",$J,ABMUO,0))=0 W !?5,"NO SESSIONS FOUND"
.S ABMFROM=0
.F S ABMFROM=$O(^TMP("ABM-UCR",$J,ABMUO,ABMFROM)) Q:+ABMFROM=0 D
..W !?5,ABMFROM
..;S ABMST=$G(^TMP("ABM-UCR",$J,ABMUO,ABMFROM)) ;abm*2.6*1 NO HEAT
..W " - "_$P($G(^TMP("ABM-UCR",$J,ABMUO,ABMFROM)),U,2)_" " ;abm*2.6*1 NO HEAT
..S ABMST=$P($G(^TMP("ABM-UCR",$J,ABMUO,ABMFROM)),U) ;abm*2.6*1 NO HEAT
..S ABMST=$S(ABMST="O":"OPEN",ABMST="C":"CLOSED",ABMST="R":"RECONCILED",ABMST="S":"RE-OPENED",1:"TRANSMITTED")
..W ?20,"(",ABMST,")"
Q
HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
HDB S ABM("PG")=ABM("PG")+1,ABM("I")="" D WHD^ABMURHD
Q
;start new code abm*2.6*1 NO HEAT
CALC ;
Q:'$D(ABMZ(ABMUO)) ;user doesn't have any sessions ;abm*2.6*1 NO HEAT
ABILLS S ABMABAVG=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","CNT"))/(ABMZ(ABMUO,"ABMTDAYS"))
S ABMABTOT=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","AMT"))/+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","AB","CNT"),1)
CBILLS S ABMCBAVG=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","CNT"))/(ABMZ(ABMUO,"ABMTDAYS"))
S ABMCBTOT=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","AMT"))/+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CB","CNT"),1)
CCLMS S ABMCCAVG=+$G(^TMP("ABM-UCR",$J,ABMUO,"TOT","CC","CNT"))/(ABMZ(ABMUO,"ABMTDAYS"))
S ABMSAVG=$P(ABMZ(ABMUO,"ABMTDAYS"),".")*24 ;convert days to hours
S ABMSAVG=(ABMSAVG+($E($P(ABMZ(ABMUO,"ABMTDAYS"),".",2),1,2)))*60 ;convert hours to minutes
S ABMSAVG=ABMSAVG+$E($P(ABMZ(ABMUO,"ABMTDAYS"),".",2),3,4) ;add remaining minutes
S ABMSAVG=ABMSAVG_"."_$E($P(ABMZ(ABMUO,"ABMTDAYS"),".",2),5,6) ;seconds as decimal
S ABMSAVG=ABMSAVG/(+$G(ABMZ(ABMUO,"SCNT"),1)) ;divide by number of sessions
S ABMSAVG=ABMSAVG/60 ;convert back to hours/mins
Q
;end new code NO HEAT
ABMUCPR ; IHS/SD/SDR - UFMS Cashiering Session Productivity Report ;
+1 ;;2.6;IHS Third Party Billing;**1,11**;NOV 12, 2009;Build 133
+2 ;
+3 ; IHS/SD/SDR - abm*2.6*1 - NO HEAT - Added averages and fixed
+4 ; "^" out of report
+5 ; IHS/SD/SDR - abm*2.6*11 - adde V to list of codes
+6 ;
+7 KILL ABM,ABMY
+8 SET ABM("HD",0)="Cashiering Session Productivity Report"
+9 SET ABM("POS")=1
+10 SET ABM("SSTAT","A")=""
+11 SET $PIECE(ABMDASH,"=",79)="="
+12 ; start new code abm*2.6*1 NOHEAT
+13 WRITE !!!?5,"This report will only look at closed or transmitted/reconciled sessions."
+14 WRITE !?5,"All open/reopened sessions will be ignored."
+15 ;end new code abm*2.6*1
+16 ;
SEL ;
+1 SET ABM("NODX")=""
DO ^ABMURSEL
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
+2 DO ^ABMURHD
+3 SET ABMQ("RC")="COMPUTE^ABMUCPR"
+4 SET ABMQ("RX")="POUT^ABMDRUTL"
+5 SET ABMQ("NS")="ABM"
+6 SET ABMQ("RP")="PRINT^ABMUCPR"
+7 DO ^ABMDRDBQ
+8 ;abm*2.6*11
QUIT
+9 ;
COMPUTE ;EP - Entry Point for Setting up Data
+1 SET ABM("SUBR")="ABM-UCR"
KILL ^TMP("ABM-UCR",$JOB)
+2 SET ABM("PG")=0
LOOP ; loop through sessions
+1 SET ABMLOC=$$FINDLOC^ABMUCUTL
+2 ;abm*2.6*1 NO HEAT
KILL ABMZ
+3 SET ABM("HD",1)="For Location: "_$PIECE($GET(^DIC(4,ABMLOC,0)),U)
+4 IF '$DATA(ABMY("USER"))
SET ABM("HD",2)="For ALL users"_$SELECT($GET(ABMY("POS"))=1:" Including",1:" Excluding")_" POS Claims"
+5 IF '$TEST
Begin DoDot:1
+6 SET ABM("HD",2)="For user(s): "
+7 SET ABMU=0
+8 FOR
SET ABMU=$ORDER(ABMY("USER",ABMU))
IF +ABMU=0
QUIT
SET ABM("HD",2)=ABM("HD",2)_$SELECT($GET(ABMFLG)=1:", ",1:"")_$PIECE($GET(^VA(200,ABMU,0)),U)
SET ^TMP("ABM-UCR",$JOB,$PIECE($GET(^VA(200,ABMU,0)),U))=""
SET ABMFLG=1
+9 SET ABM("HD",2)=ABM("HD",2)_$SELECT($GET(ABMFLG)=1:",",1:"")_$SELECT($GET(ABMY("POS"))=1:" Including",1:" Excluding")_" POS CLAIMS"
End DoDot:1
+10 SET ABMU=0
+11 SET ABMLOOP=10
+12 FOR
SET ABMU=$ORDER(^ABMUCASH(ABMLOC,10,ABMU))
IF +ABMU=0
QUIT
Begin DoDot:1
+13 ;select users only
IF $DATA(ABMY("USER"))
IF '$DATA(ABMY("USER",ABMU))
QUIT
+14 SET ABMUO=$PIECE($GET(^VA(200,ABMU,0)),U)
+15 ;from date
SET ABMFROM=$SELECT($GET(ABMY("DT",1)):ABMY("DT",1),1:0)
+16 ;to date
SET ABMTO=$SELECT($GET(ABMY("DT",2)):ABMY("DT",2)_".999999",1:9999999)
+17 FOR
SET ABMFROM=$ORDER(^ABMUCASH(ABMLOC,10,ABMU,20,ABMFROM))
IF +ABMFROM=0!(ABMFROM>ABMTO)
QUIT
Begin DoDot:2
+18 ;check session status
+19 ;skip open/reopened sessions ;abm*2.6*1 NO HEAT
IF "^O^S^"[("^"_$PIECE($GET(^ABMUCASH(ABMLOC,10,ABMU,20,ABMFROM,0)),U,4)_"^")
QUIT
+20 IF '$DATA">DATA(ABMY("SSTAT","A"))&'$DATA">DATA(ABMY("SSTAT",$PIECE($GET(^ABMUCASH(ABMLOC,10,ABMU,20,ABMFROM,0)),U,4)))
QUIT
+21 DO DATA
End DoDot:2
End DoDot:1
+22 IF $GET(ABMY("POS"))=1
Begin DoDot:1
+23 SET ABMLOOP=20
+24 SET ABMU=1
SET ABMUO="POS CLAIMS"
+25 ;from date
SET ABMFROM=$SELECT($GET(ABMY("DT",1)):ABMY("DT",1),1:0)
+26 ;to date
SET ABMTO=$SELECT($GET(ABMY("DT",2)):ABMY("DT",2),1:9999999)
+27 FOR
SET ABMFROM=$ORDER(^ABMUCASH(ABMLOC,20,ABMU,20,ABMFROM))
IF +ABMFROM=0!(ABMFROM>ABMTO)
QUIT
Begin DoDot:2
+28 ;check session status
+29 ;skip open/reopened sessions ;abm*2.6*1 NO HEAT
IF "^O^S^"[("^"_$PIECE($GET(^ABMUCASH(ABMLOC,20,ABMU,20,ABMFROM,0)),U,4)_"^")
QUIT
+30 IF '$DATA">DATA(ABMY("SSTAT","A"))&'$DATA">DATA(ABMY("SSTAT",$PIECE($GET(^ABMUCASH(ABMLOC,20,ABMU,20,ABMFROM,0)),U,4)))
QUIT
+31 DO DATA
End DoDot:2
End DoDot:1
+32 QUIT
+33 ;
DATA ;
+1 ;abm*2.6*1 NO HEAT
SET ABMDAYS=+($SELECT($PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,3):$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,3),1:DT)-ABMFROM)
+2 ;abm*2.6*1 NO HEAT
IF ABMDAYS<1
SET ABMDAYS=1
+3 ;abm*2.6*1 NO HEAT
SET ABMZ(ABMUO,"ABMTDAYS")=+$GET(ABMZ(ABMUO,"ABMTDAYS"))+ABMDAYS
+4 ;abm*2.6*1 NO HEAT
SET ABMZ(ABMUO,"SCNT")=+$GET(ABMZ(ABMUO,"SCNT"))+1
+5 ;budget activity
+6 ;S ^TMP("ABM-UCR",$J,ABMUO,ABMFROM)=$P($G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,4) ;abm*2.6*1 NO HEAT
+7 ;abm*2.6*1 NO HEAT
SET ^TMP("ABM-UCR",$JOB,ABMUO,ABMFROM)=$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,4)_"^"_$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,0)),U,3)
+8 SET ABMB=0
+9 FOR
SET ABMB=$ORDER(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB))
IF +ABMB=0
QUIT
Begin DoDot:1
+10 ;S ABMBA=$P($T(@$G(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,0))),";;",2) ;abm*2.6*11
+11 ;abm*2.6*11
SET ABMBA=$PIECE($TEXT(@($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,0)))^ABMUVBCH),";;",2)
+12 ;
+13 ;approved bills
+14 SET ABMAB=0
+15 FOR
SET ABMAB=$ORDER(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,2,ABMAB))
IF +ABMAB=0
QUIT
Begin DoDot:2
+16 SET ^TMP("ABM-UCR",$JOB,ABMUO,"AB",ABMBA,"CNT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"AB",ABMBA,"CNT"))+1
+17 SET ^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","CNT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","CNT"))+1
+18 SET ABMDUZ=$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,2,ABMAB,0)),U,2)
+19 SET ABMIEN=$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,2,ABMAB,0)),U,3)
+20 SET ^TMP("ABM-UCR",$JOB,ABMUO,"AB",ABMBA,"AMT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"AB",ABMBA,"AMT"))+$PIECE($GET(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
+21 SET ^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","AMT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","AMT"))+$PIECE($GET(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
End DoDot:2
+22 ;don't do cancelled anything for POS user
IF ABMLOOP=20
QUIT
+23 ;
+24 ;cancelled claims
+25 SET ABMCC=0
+26 FOR
SET ABMCC=$ORDER(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,1,ABMCC))
IF +ABMCC=0
QUIT
Begin DoDot:2
+27 SET ^TMP("ABM-UCR",$JOB,ABMUO,"CC",ABMBA,"CNT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"CC",ABMBA,"CNT"))+1
+28 SET ^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CC","CNT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CC","CNT"))+1
End DoDot:2
+29 ;
+30 ;cancelled bills
+31 SET ABMCB=0
+32 FOR
SET ABMCB=$ORDER(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,3,ABMCB))
IF +ABMCB=0
QUIT
Begin DoDot:2
+33 SET ^TMP("ABM-UCR",$JOB,ABMUO,"CB",ABMBA,"CNT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"CB",ABMBA,"CNT"))+1
+34 SET ^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","CNT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","CNT"))+1
+35 SET ABMDUZ=$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,3,ABMCB,0)),U,2)
+36 SET ABMIEN=$PIECE($GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMU,20,ABMFROM,11,ABMB,3,ABMCB,0)),U,3)
+37 SET ^TMP("ABM-UCR",$JOB,ABMUO,"CB",ABMBA,"AMT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"CB",ABMBA,"AMT"))+$PIECE($GET(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
+38 SET ^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","AMT")=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","AMT"))+$PIECE($GET(^ABMDBILL(ABMDUZ,ABMIEN,2)),U)
End DoDot:2
End DoDot:1
+39 QUIT
PRINT ;
+1 DO HDB
+2 SET ABMUO=""
+3 SET ABMO=""
+4 FOR
SET ABMUO=$ORDER(^TMP("ABM-UCR",$JOB,ABMUO))
IF ABMUO=""
QUIT
Begin DoDot:1
+5 IF ($GET(ABMO)'="")
IF ($GET(ABMO)'=ABMUO)
WRITE !,ABMDASH
+6 SET ABMO=ABMUO
+7 WRITE !,"Statistics for ",ABMUO
+8 FOR ABMBC="AB","CC","CB"
Begin DoDot:2
+9 IF (ABMUO="POS CLAIMS")&(ABMBC'="AB")
QUIT
+10 WRITE !?5,$SELECT(ABMBC="AB":"BILLED",ABMBC="CC":"CANCELLED CLAIMS",1:"CANCELLED BILLS")
+11 ;F ABMBA="MEDICARE","MEDICAID","PRIVATE INSURANCE","OTHER" D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) ;abm*2.6*11
+12 ;abm*2.6*11
FOR ABMBA="MEDICARE","MEDICAID","PRIVATE INSURANCE","OTHER","VET"
Begin DoDot:3
+13 WRITE !?10,ABMBA
+14 WRITE ?35,$JUSTIFY(+$GET(^TMP("ABM-UCR",$JOB,ABMUO,ABMBC,ABMBA,"CNT")),6)
+15 IF ABMBC="AB"!(ABMBC="CB")
WRITE ?50,$JUSTIFY($FNUMBER(+$GET(^TMP("ABM-UCR",$JOB,ABMUO,ABMBC,ABMBA,"AMT")),",",2),"10R")
End DoDot:3
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
+16 WRITE !?35,"------"
+17 IF ABMBC["B"
WRITE ?50,"----------"
+18 WRITE !?20,"Total "_$SELECT(ABMBC="AB"!(ABMBC="CB"):"Bills",1:"Claims"),?35,$JUSTIFY(+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT",ABMBC,"CNT")),6)
+19 IF ABMBC["B"
WRITE ?50,$JUSTIFY($FNUMBER(+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT",ABMBC,"AMT")),",",2),"10R")
+20 WRITE !
+21 IF $Y>(IOSL-5)
DO HD
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
WRITE " (cont)"
End DoDot:2
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
+22 ;
+23 ;start new code abm*2.6*1 NO HEAT
+24 SET (ABMABAVG,ABMABTOT,ABMCBAVG,ABMCBTOT,ABMCCAVG,ABMSAVG)=0
+25 DO CALC
+26 WRITE !,"Average approved bills a day: "_$JUSTIFY(ABMABAVG,",",3)_" for $"_$JUSTIFY(ABMABTOT,",",2)
+27 WRITE !,"Average cancelled BILLS a day: "_$JUSTIFY(ABMCBAVG,",",3)_" for $"_$JUSTIFY(ABMCBTOT,",",2)
+28 WRITE !,"Average cancelled CLAIMS a day: "_$JUSTIFY(ABMCCAVG,",",3)
+29 WRITE !,"Average hours/mins session was open: "_ABMSAVG
+30 ;end new code NO HEAT
+31 ;
+32 WRITE !!,"Cashiering Sessions used:"
+33 IF +$ORDER(^TMP("ABM-UCR",$JOB,ABMUO,0))=0
WRITE !?5,"NO SESSIONS FOUND"
+34 SET ABMFROM=0
+35 FOR
SET ABMFROM=$ORDER(^TMP("ABM-UCR",$JOB,ABMUO,ABMFROM))
IF +ABMFROM=0
QUIT
Begin DoDot:2
+36 WRITE !?5,ABMFROM
+37 ;S ABMST=$G(^TMP("ABM-UCR",$J,ABMUO,ABMFROM)) ;abm*2.6*1 NO HEAT
+38 ;abm*2.6*1 NO HEAT
WRITE " - "_$PIECE($GET(^TMP("ABM-UCR",$JOB,ABMUO,ABMFROM)),U,2)_" "
+39 ;abm*2.6*1 NO HEAT
SET ABMST=$PIECE($GET(^TMP("ABM-UCR",$JOB,ABMUO,ABMFROM)),U)
+40 SET ABMST=$SELECT(ABMST="O":"OPEN",ABMST="C":"CLOSED",ABMST="R":"RECONCILED",ABMST="S":"RE-OPENED",1:"TRANSMITTED")
+41 WRITE ?20,"(",ABMST,")"
End DoDot:2
End DoDot:1
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
+42 QUIT
HD DO PAZ^ABMDRUTL
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
HDB SET ABM("PG")=ABM("PG")+1
SET ABM("I")=""
DO WHD^ABMURHD
+1 QUIT
+2 ;start new code abm*2.6*1 NO HEAT
CALC ;
+1 ;user doesn't have any sessions ;abm*2.6*1 NO HEAT
IF '$DATA(ABMZ(ABMUO))
QUIT
ABILLS SET ABMABAVG=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","CNT"))/(ABMZ(ABMUO,"ABMTDAYS"))
+1 SET ABMABTOT=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","AMT"))/+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","AB","CNT"),1)
CBILLS SET ABMCBAVG=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","CNT"))/(ABMZ(ABMUO,"ABMTDAYS"))
+1 SET ABMCBTOT=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","AMT"))/+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CB","CNT"),1)
CCLMS SET ABMCCAVG=+$GET(^TMP("ABM-UCR",$JOB,ABMUO,"TOT","CC","CNT"))/(ABMZ(ABMUO,"ABMTDAYS"))
+1 ;convert days to hours
SET ABMSAVG=$PIECE(ABMZ(ABMUO,"ABMTDAYS"),".")*24
+2 ;convert hours to minutes
SET ABMSAVG=(ABMSAVG+($EXTRACT($PIECE(ABMZ(ABMUO,"ABMTDAYS"),".",2),1,2)))*60
+3 ;add remaining minutes
SET ABMSAVG=ABMSAVG+$EXTRACT($PIECE(ABMZ(ABMUO,"ABMTDAYS"),".",2),3,4)
+4 ;seconds as decimal
SET ABMSAVG=ABMSAVG_"."_$EXTRACT($PIECE(ABMZ(ABMUO,"ABMTDAYS"),".",2),5,6)
+5 ;divide by number of sessions
SET ABMSAVG=ABMSAVG/(+$GET(ABMZ(ABMUO,"SCNT"),1))
+6 ;convert back to hours/mins
SET ABMSAVG=ABMSAVG/60
+7 QUIT
+8 ;end new code NO HEAT
