- ABMUVBC2 ; IHS/SD/SDR - 3PB/UFMS View Batch option
- ;;2.6;IHS Third Party Billing;**1,3,9,11,21**;NOV 12, 2009;Build 379
- ; View Batch
- ;IHS/SD/SDR v2.6 p1 NO HEAT - Added totals for cash. sessions
- ;IHS/SD/SDR 2.6 p9 HEAT28995 - added screen so only exports from current DUZ(2) display
- ;IHS/SD/SDR v2.6 p11 added V to list of codes
- ;IHS/SD/SDR 2.6*21 split from ABMUVBCH
- ;IHS/SD/SDR 2.6*21 HEAT129446 - Made change so insurer type would show correctly on report; was blank because of code
- ; change made in p11.
- ;
- SET ;SET UP SOME THINGS
- ;ABME("BDATE") = Batch export date
- ;ABME("FNAME") = File Name
- S ABMSAV=ABMSUMDT ;save original option
- K Y,DIRUT,DIROUT,DTOUT,DUOUT
- S ABMSUMDT=$S(ABMSUMDT="X"!(ABMSUMDT="D"):"D",1:"S") ;change option back for summary
- F S ABMP("XMIT")=$O(^ABMUTXMT(ABMP("XMIT"))) Q:'+ABMP("XMIT")!(ABMP("XMIT")>ABME("XMITE")) D Q:(IOST["C")&(($G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
- .S Y=$P(^ABMUTXMT(ABMP("XMIT"),0),U)
- .D DD^%DT
- .S ABME("BDATE")=Y
- .S ABME("FNAME")=$P($G(^ABMUTXMT(ABMP("XMIT"),0)),U,2)
- .S ABME("LOC")=$P($G(^ABMUTXMT(ABMP("XMIT"),0)),U,4)
- .S ABME("TOT")=0
- .S ABME("STOT")=0
- .S ABME("CNT")=0
- .S $P(ABME("-"),"-",81)=""
- .S $P(ABME("EQ"),"=",81)=""
- .I "PXG"[ABMSAV D ;print reconcile page before summary
- ..D LOOP^ABMUVBCR(ABMP("XMIT"),ABME("LOC"))
- ..S ABME("PG")=0 ;reset page cntr
- .F ABMI=1,2 D
- ..S ABMUS=0
- ..F S ABMUS=$O(^ABMUTXMT(ABMP("XMIT"),ABMI,ABMUS)) Q:+ABMUS=0 D
- ...S ABMUSR=$G(^ABMUTXMT(ABMP("XMIT"),ABMI,ABMUS,0))
- ...Q:+ABMUSR=0
- ...S ABMSDT=0
- ...F S ABMSDT=$O(^ABMUTXMT(ABMP("XMIT"),ABMI,ABMUSR,2,ABMSDT)) Q:+ABMSDT=0 D
- ....S ABMLOOP=$S(ABMI=1:10,1:20)
- ....S ABM0=$G(^ABMUCASH(ABME("LOC"),ABMLOOP,ABMUSR,20,ABMSDT,0))
- ....S ABMSTR=$P(ABM0,U,4)_U_$P(ABM0,U,3) ;SESSION STATUS^SIGN OUT DATE
- ....S ABMUSER=$S(ABMLOOP=20:"POS",1:ABMUSR) ;SUB "POS" FOR USER IEN
- ....S ABMC(ABMSDT,ABMUSER,ABMSDT)=ABMSTR ;Create local ABMC array
- .D HD^ABMUVBCH
- .D:ABMSAV'="G" LOOP^ABMUVBCH Q:(IOST["C")&(($G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
- .D:ABMSAV="G" GLOOP^ABMUVBCH,GRANDTOT^ABMUVBCH Q:(IOST["C")&(($G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
- Q
- LOOP ; Loop through bills of specified batch to gather data and print report
- S ABMSDT=0
- F S ABMSDT=$O(ABMC(ABMSDT)) Q:+ABMSDT=0 D
- .S ABMUSER=""
- .F S ABMUSER=$O(ABMC(ABMSDT,ABMUSER)) Q:ABMUSER="" D
- ..S ABMLOOP=$S(+ABMUSER'=0:1,1:2)
- ..S ABMUS=ABMUSER
- ..I ABMUS="POS" S ABMUS=1
- ..W !!,"SESSION ID: ",ABMSDT
- ..;start old abm*2.6*1
- ..;W:ABMUS'=1 ?30,"BILLER: ",$P($P($G(^VA(200,ABMUS,0)),U),",")_","_$E($P($P($G(^VA(200,ABMUS,0)),U),",",2),1),!
- ..;W:ABMUS=1 ?30,"BILLER: POS CLAIMS",!
- ..;end old start new
- ..W:ABMUS'=1 ?30,"BILLER: ",$P($P($G(^VA(200,ABMUS,0)),U),",")_","_$E($P($P($G(^VA(200,ABMUS,0)),U),",",2),1)
- ..W:ABMUS=1 ?30,"BILLER: POS CLAIMS"
- ..;end new
- ..;start new abm*2.6*1 NOHEAT
- ..D TOTAL^ABMUVBC1
- ..W ?55,"TOTAL: ",$J($FN(ABME("TAMT"),",",2),10)
- ..;end new NOHEAT
- ..S ABMBA=0,ABMEXCNT=0,ABMEXAMT=0
- ..F S ABMBA=$O(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMSDT,11,ABMBA)) Q:+ABMBA=0 D Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- ...S ABMBAOUT=$P($G(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMSDT,11,ABMBA,0)),U)
- ...K ABME(ABMBAOUT)
- ...S ABMBIEN=0
- ...;W !?2,$P($T(@ABMBAOUT^ABMUCASH),";;",2) ;abm*2.6*21 IHS/SD/SDR HEAT129446
- ...W !?2,$$INSTYP^ABMUCASH(ABMBAOUT) ;abm*2.6*21 IHS/SD/SDR HEAT129446
- ...F S ABMBIEN=$O(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMSDT,11,ABMBA,2,ABMBIEN)) Q:+ABMBIEN=0 D Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- ....I ABMSUMDT="D" D DTAIL^ABMUVBCH
- ....I ABMSUMDT="S" D SUMMARY^ABMUVBCH
- ....Q:((IOST["C")&(+$G(Y)=0))!$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- ...I ABMSUMDT="S" D
- ....W ?35,+$G(ABME(ABMBAOUT)),$S(+$G(ABME(ABMBAOUT))=1:" bill",1:" bills")
- ....W ?50,$J($FN(ABME(ABMBAOUT,"AMT"),",",2),10)
- ...;start new abm*2.6*1 NOHEAT
- ...I ABMSUMDT="D" D
- ....W !?68,"----------"
- ....W !?68,$J($FN(ABME(ABMBAOUT,"AMT"),",",2),10)
- ...;end new NOHEAT
- ..I +$G(ABMEXCNT)'=0 D
- ...W !?26,+$G(ABMEXCNT)," excluded "_$S(+$G(ABMEXCNT)=1:"bill",1:"bills"),?45,$J($FN(ABMEXAMT,",",2),10),!
- W !!,$$EN^ABMVDF("HIN"),"TOTAL BILLS FOR THIS EXPORT: ",$$EN^ABMVDF("HIF"),?35,ABME("CNT")_$S(ABME("CNT")=1:" bill",1:" bills"),?$S(ABMSUMDT="S":50,1:69),$J($FN(ABME("TOT"),",",2),10)
- S ABME("TOT")=0
- Q
- GLOOP ;Loop thru bills of specified batch to gather data and print report
- K ABMT
- S ABMEXCNT=0,ABMEXAMT=0
- K ABMBAT ;abm*2.6*3
- F ABMLOOP=1,2 D Q:(IOST["C")&(($G(Y)<0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
- .S ABMU=0
- .F S ABMU=$O(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMU)) Q:+ABMU=0 D Q:(IOST["C")&(($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
- ..S ABMUS=$G(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMU,0))
- ..Q:+ABMUS=0
- ..S ABMDT=0
- ..F S ABMDT=$O(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT)) Q:+ABMDT=0 D Q:(IOST["C")&(($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
- ...S ABMBA=0
- ...F S ABMBA=$O(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA)) Q:+ABMBA=0 D Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- ....S ABMBAOUT=$P($G(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,0)),U)
- ....;S ABMBAOUT=$P($T(@ABMBAOUT),";;",2) ;abm*2.6*21 IHS/SD/SDR HEAT279161
- ....S ABMBAOUT=$$INSTYP^ABMUCASH(ABMBAOUT) ;abm*2.6*21 IHS/SD/SDR HEAT279161
- ....S ABMBIEN=0
- ....F S ABMBIEN=$O(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN)) Q:+ABMBIEN=0 D Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- .....K ABMDUZ2,ABMBDFN
- .....S ABMDUZ2=$P($G(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN,0)),U,2)
- .....S ABMBDFN=$P($G(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN,0)),U,3)
- .....S ABMT(ABMDUZ2,ABMBAOUT)=+$G(ABMT(ABMDUZ2,ABMBAOUT))+1 ;cnt b.a. bills for location
- .....;start new abm*2.6*3 NOHEAT
- .....S ABMBAT(ABMBAOUT,"CNT")=+$G(ABMBAT(ABMBAOUT,"CNT"))+1 ;cnt b.a. tot
- .....S ABMBAT(ABMBAOUT,"AMT")=+$G(ABMBAT(ABMBAOUT,"AMT"))+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U)) ;cnt b.a. total amt
- .....;end new abm*2.6*3
- .....S ABMT(ABMDUZ2,ABMBAOUT,"AMT")=+$G(ABMT(ABMDUZ2,ABMBAOUT,"AMT"))+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U)) ;cnt bill amt
- .....S ABM(ABMDUZ2,"CNT")=+$G(ABM(ABMDUZ2,"CNT"))+1 ;cnt bills for loc
- .....S ABM("CNT")=+$G(ABM("CNT"))+1 ;cnt total bills
- .....S ABM(ABMDUZ2,"TOT")=+$G(ABM(ABMDUZ2,"TOT"))+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U)) ;cnt amt for location
- .....S ABM("TOT")=+$G(ABM("TOT"))+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U)) ;cnt tot bill amt
- .....I $P($G(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN,0)),U,5)=1 D ;excluded bills
- ......S ABMT(ABMDUZ2,ABMBAOUT,"ECNT")=+$G(ABMT(ABMDUZ2,ABMBAOUT,"ECNT"))+1 ;cnt excluded by loc/Budget act.
- ......S ABMT(ABMDUZ2,ABMBAOUT,"EAMT")=+$G(ABMT(ABMDUZ2,ABMBAOUT,"EAMT"))+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U)) ;excl. amt
- ......;start new abm*2.6*3 NOHEAT
- ......S ABMBAT(ABMBAOUT,"ECNT")=+$G(ABMBAT(ABMBAOUT,"ECNT"))+1 ;cnt b.a. E-total
- ......S ABMBAT(ABMBAOUT,"EAMT")=+$G(ABMBAT(ABMBAOUT,"ETOT"))+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U)) ;cnt b.a. total E-amt
- ......;end new abm*2.6*3
- ......S ABMEXCNT=+$G(ABMEXCNT)+1
- ......S ABMEXAMT=+$G(ABMEXAMT)+($P($G(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- .....S ABMU(ABMDT,ABMUS)=""
- Q
- ABMUVBC2 ; IHS/SD/SDR - 3PB/UFMS View Batch option
- +1 ;;2.6;IHS Third Party Billing;**1,3,9,11,21**;NOV 12, 2009;Build 379
- +2 ; View Batch
- +3 ;IHS/SD/SDR v2.6 p1 NO HEAT - Added totals for cash. sessions
- +4 ;IHS/SD/SDR 2.6 p9 HEAT28995 - added screen so only exports from current DUZ(2) display
- +5 ;IHS/SD/SDR v2.6 p11 added V to list of codes
- +6 ;IHS/SD/SDR 2.6*21 split from ABMUVBCH
- +7 ;IHS/SD/SDR 2.6*21 HEAT129446 - Made change so insurer type would show correctly on report; was blank because of code
- +8 ; change made in p11.
- +9 ;
- SET ;SET UP SOME THINGS
- +1 ;ABME("BDATE") = Batch export date
- +2 ;ABME("FNAME") = File Name
- +3 ;save original option
- SET ABMSAV=ABMSUMDT
- +4 KILL Y,DIRUT,DIROUT,DTOUT,DUOUT
- +5 ;change option back for summary
- SET ABMSUMDT=$SELECT(ABMSUMDT="X"!(ABMSUMDT="D"):"D",1:"S")
- +6 FOR
- SET ABMP("XMIT")=$ORDER(^ABMUTXMT(ABMP("XMIT")))
- IF '+ABMP("XMIT")!(ABMP("XMIT")>ABME("XMITE"))
- QUIT
- Begin DoDot:1
- +7 SET Y=$PIECE(^ABMUTXMT(ABMP("XMIT"),0),U)
- +8 DO DD^%DT
- +9 SET ABME("BDATE")=Y
- +10 SET ABME("FNAME")=$PIECE($GET(^ABMUTXMT(ABMP("XMIT"),0)),U,2)
- +11 SET ABME("LOC")=$PIECE($GET(^ABMUTXMT(ABMP("XMIT"),0)),U,4)
- +12 SET ABME("TOT")=0
- +13 SET ABME("STOT")=0
- +14 SET ABME("CNT")=0
- +15 SET $PIECE(ABME("-"),"-",81)=""
- +16 SET $PIECE(ABME("EQ"),"=",81)=""
- +17 ;print reconcile page before summary
- IF "PXG"[ABMSAV
- Begin DoDot:2
- +18 DO LOOP^ABMUVBCR(ABMP("XMIT"),ABME("LOC"))
- +19 ;reset page cntr
- SET ABME("PG")=0
- End DoDot:2
- +20 FOR ABMI=1,2
- Begin DoDot:2
- +21 SET ABMUS=0
- +22 FOR
- SET ABMUS=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMI,ABMUS))
- IF +ABMUS=0
- QUIT
- Begin DoDot:3
- +23 SET ABMUSR=$GET(^ABMUTXMT(ABMP("XMIT"),ABMI,ABMUS,0))
- +24 IF +ABMUSR=0
- QUIT
- +25 SET ABMSDT=0
- +26 FOR
- SET ABMSDT=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMI,ABMUSR,2,ABMSDT))
- IF +ABMSDT=0
- QUIT
- Begin DoDot:4
- +27 SET ABMLOOP=$SELECT(ABMI=1:10,1:20)
- +28 SET ABM0=$GET(^ABMUCASH(ABME("LOC"),ABMLOOP,ABMUSR,20,ABMSDT,0))
- +29 ;SESSION STATUS^SIGN OUT DATE
- SET ABMSTR=$PIECE(ABM0,U,4)_U_$PIECE(ABM0,U,3)
- +30 ;SUB "POS" FOR USER IEN
- SET ABMUSER=$SELECT(ABMLOOP=20:"POS",1:ABMUSR)
- +31 ;Create local ABMC array
- SET ABMC(ABMSDT,ABMUSER,ABMSDT)=ABMSTR
- End DoDot:4
- End DoDot:3
- End DoDot:2
- +32 DO HD^ABMUVBCH
- +33 IF ABMSAV'="G"
- DO LOOP^ABMUVBCH
- IF (IOST["C")&(($GET(Y)=0)!($DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)))
- QUIT
- +34 IF ABMSAV="G"
- DO GLOOP^ABMUVBCH
- DO GRANDTOT^ABMUVBCH
- IF (IOST["C")&(($GET(Y)=0)!($DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)))
- QUIT
- End DoDot:1
- IF (IOST["C")&(($GET(Y)=0)!($DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)))
- QUIT
- +35 QUIT
- LOOP ; Loop through bills of specified batch to gather data and print report
- +1 SET ABMSDT=0
- +2 FOR
- SET ABMSDT=$ORDER(ABMC(ABMSDT))
- IF +ABMSDT=0
- QUIT
- Begin DoDot:1
- +3 SET ABMUSER=""
- +4 FOR
- SET ABMUSER=$ORDER(ABMC(ABMSDT,ABMUSER))
- IF ABMUSER=""
- QUIT
- Begin DoDot:2
- +5 SET ABMLOOP=$SELECT(+ABMUSER'=0:1,1:2)
- +6 SET ABMUS=ABMUSER
- +7 IF ABMUS="POS"
- SET ABMUS=1
- +8 WRITE !!,"SESSION ID: ",ABMSDT
- +9 ;start old abm*2.6*1
- +10 ;W:ABMUS'=1 ?30,"BILLER: ",$P($P($G(^VA(200,ABMUS,0)),U),",")_","_$E($P($P($G(^VA(200,ABMUS,0)),U),",",2),1),!
- +11 ;W:ABMUS=1 ?30,"BILLER: POS CLAIMS",!
- +12 ;end old start new
- +13 IF ABMUS'=1
- WRITE ?30,"BILLER: ",$PIECE($PIECE($GET(^VA(200,ABMUS,0)),U),",")_","_$EXTRACT($PIECE($PIECE($GET(^VA(200,ABMUS,0)),U),",",2),1)
- +14 IF ABMUS=1
- WRITE ?30,"BILLER: POS CLAIMS"
- +15 ;end new
- +16 ;start new abm*2.6*1 NOHEAT
- +17 DO TOTAL^ABMUVBC1
- +18 WRITE ?55,"TOTAL: ",$JUSTIFY($FNUMBER(ABME("TAMT"),",",2),10)
- +19 ;end new NOHEAT
- +20 SET ABMBA=0
- SET ABMEXCNT=0
- SET ABMEXAMT=0
- +21 FOR
- SET ABMBA=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMSDT,11,ABMBA))
- IF +ABMBA=0
- QUIT
- Begin DoDot:3
- +22 SET ABMBAOUT=$PIECE($GET(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMSDT,11,ABMBA,0)),U)
- +23 KILL ABME(ABMBAOUT)
- +24 SET ABMBIEN=0
- +25 ;W !?2,$P($T(@ABMBAOUT^ABMUCASH),";;",2) ;abm*2.6*21 IHS/SD/SDR HEAT129446
- +26 ;abm*2.6*21 IHS/SD/SDR HEAT129446
- WRITE !?2,$$INSTYP^ABMUCASH(ABMBAOUT)
- +27 FOR
- SET ABMBIEN=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMSDT,11,ABMBA,2,ABMBIEN))
- IF +ABMBIEN=0
- QUIT
- Begin DoDot:4
- +28 IF ABMSUMDT="D"
- DO DTAIL^ABMUVBCH
- +29 IF ABMSUMDT="S"
- DO SUMMARY^ABMUVBCH
- +30 IF ((IOST["C")&(+$GET(Y)=0))!$DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- End DoDot:4
- IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +31 IF ABMSUMDT="S"
- Begin DoDot:4
- +32 WRITE ?35,+$GET(ABME(ABMBAOUT)),$SELECT(+$GET(ABME(ABMBAOUT))=1:" bill",1:" bills")
- +33 WRITE ?50,$JUSTIFY($FNUMBER(ABME(ABMBAOUT,"AMT"),",",2),10)
- End DoDot:4
- +34 ;start new abm*2.6*1 NOHEAT
- +35 IF ABMSUMDT="D"
- Begin DoDot:4
- +36 WRITE !?68,"----------"
- +37 WRITE !?68,$JUSTIFY($FNUMBER(ABME(ABMBAOUT,"AMT"),",",2),10)
- End DoDot:4
- +38 ;end new NOHEAT
- End DoDot:3
- IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +39 IF +$GET(ABMEXCNT)'=0
- Begin DoDot:3
- +40 WRITE !?26,+$GET(ABMEXCNT)," excluded "_$SELECT(+$GET(ABMEXCNT)=1:"bill",1:"bills"),?45,$JUSTIFY($FNUMBER(ABMEXAMT,",",2),10),!
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +41 WRITE !!,$$EN^ABMVDF("HIN"),"TOTAL BILLS FOR THIS EXPORT: ",$$EN^ABMVDF("HIF"),?35,ABME("CNT")_$SELECT(ABME("CNT")=1:" bill",1:" bills"),?$SELECT(ABMSUMDT="S":50,1:69),$JUSTIFY($FNUMBER(ABME("TOT"),",",2),10)
- +42 SET ABME("TOT")=0
- +43 QUIT
- GLOOP ;Loop thru bills of specified batch to gather data and print report
- +1 KILL ABMT
- +2 SET ABMEXCNT=0
- SET ABMEXAMT=0
- +3 ;abm*2.6*3
- KILL ABMBAT
- +4 FOR ABMLOOP=1,2
- Begin DoDot:1
- +5 SET ABMU=0
- +6 FOR
- SET ABMU=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMU))
- IF +ABMU=0
- QUIT
- Begin DoDot:2
- +7 SET ABMUS=$GET(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMU,0))
- +8 IF +ABMUS=0
- QUIT
- +9 SET ABMDT=0
- +10 FOR
- SET ABMDT=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT))
- IF +ABMDT=0
- QUIT
- Begin DoDot:3
- +11 SET ABMBA=0
- +12 FOR
- SET ABMBA=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA))
- IF +ABMBA=0
- QUIT
- Begin DoDot:4
- +13 SET ABMBAOUT=$PIECE($GET(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,0)),U)
- +14 ;S ABMBAOUT=$P($T(@ABMBAOUT),";;",2) ;abm*2.6*21 IHS/SD/SDR HEAT279161
- +15 ;abm*2.6*21 IHS/SD/SDR HEAT279161
- SET ABMBAOUT=$$INSTYP^ABMUCASH(ABMBAOUT)
- +16 SET ABMBIEN=0
- +17 FOR
- SET ABMBIEN=$ORDER(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN))
- IF +ABMBIEN=0
- QUIT
- Begin DoDot:5
- +18 KILL ABMDUZ2,ABMBDFN
- +19 SET ABMDUZ2=$PIECE($GET(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN,0)),U,2)
- +20 SET ABMBDFN=$PIECE($GET(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN,0)),U,3)
- +21 ;cnt b.a. bills for location
- SET ABMT(ABMDUZ2,ABMBAOUT)=+$GET(ABMT(ABMDUZ2,ABMBAOUT))+1
- +22 ;start new abm*2.6*3 NOHEAT
- +23 ;cnt b.a. tot
- SET ABMBAT(ABMBAOUT,"CNT")=+$GET(ABMBAT(ABMBAOUT,"CNT"))+1
- +24 ;cnt b.a. total amt
- SET ABMBAT(ABMBAOUT,"AMT")=+$GET(ABMBAT(ABMBAOUT,"AMT"))+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- +25 ;end new abm*2.6*3
- +26 ;cnt bill amt
- SET ABMT(ABMDUZ2,ABMBAOUT,"AMT")=+$GET(ABMT(ABMDUZ2,ABMBAOUT,"AMT"))+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- +27 ;cnt bills for loc
- SET ABM(ABMDUZ2,"CNT")=+$GET(ABM(ABMDUZ2,"CNT"))+1
- +28 ;cnt total bills
- SET ABM("CNT")=+$GET(ABM("CNT"))+1
- +29 ;cnt amt for location
- SET ABM(ABMDUZ2,"TOT")=+$GET(ABM(ABMDUZ2,"TOT"))+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- +30 ;cnt tot bill amt
- SET ABM("TOT")=+$GET(ABM("TOT"))+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- +31 ;excluded bills
- IF $PIECE($GET(^ABMUTXMT(ABMP("XMIT"),ABMLOOP,ABMUS,2,ABMDT,11,ABMBA,2,ABMBIEN,0)),U,5)=1
- Begin DoDot:6
- +32 ;cnt excluded by loc/Budget act.
- SET ABMT(ABMDUZ2,ABMBAOUT,"ECNT")=+$GET(ABMT(ABMDUZ2,ABMBAOUT,"ECNT"))+1
- +33 ;excl. amt
- SET ABMT(ABMDUZ2,ABMBAOUT,"EAMT")=+$GET(ABMT(ABMDUZ2,ABMBAOUT,"EAMT"))+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- +34 ;start new abm*2.6*3 NOHEAT
- +35 ;cnt b.a. E-total
- SET ABMBAT(ABMBAOUT,"ECNT")=+$GET(ABMBAT(ABMBAOUT,"ECNT"))+1
- +36 ;cnt b.a. total E-amt
- SET ABMBAT(ABMBAOUT,"EAMT")=+$GET(ABMBAT(ABMBAOUT,"ETOT"))+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- +37 ;end new abm*2.6*3
- +38 SET ABMEXCNT=+$GET(ABMEXCNT)+1
- +39 SET ABMEXAMT=+$GET(ABMEXAMT)+($PIECE($GET(^ABMDBILL(ABMDUZ2,ABMBDFN,2)),U))
- End DoDot:6
- +40 SET ABMU(ABMDT,ABMUS)=""
- End DoDot:5
- IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- End DoDot:4
- IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- End DoDot:3
- IF (IOST["C")&(($DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)))
- QUIT
- End DoDot:2
- IF (IOST["C")&(($DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)))
- QUIT
- End DoDot:1
- IF (IOST["C")&(($GET(Y)<0)!($DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)))
- QUIT
- +41 QUIT
