- ABMMUFC5 ;IHS/SD/SDR - EHR Incentive Report (MU) ;
- ;;2.6;IHS 3P BILLING SYSTEM;**6,7,12,15**;NOV 12, 2009;Build 251
- ;IHS/SDR/SDR - 2.6*12 - VMBP RQMT_104 - Added VA data to report
- ;IHS/SD/SDR - 2.6*12 - Added swingbed
- ;IHS/SD/SDR - 2.6*15 - HEAT183309 - Created separate GETBILLS for 'F' option since they are so different now
- GETBILLS ;EP
- S ABMPSDT=ABMP("SDT")-10000
- F S ABMPSDT=$O(^ABMDBILL(DUZ(2),"AD",ABMPSDT)) Q:'ABMPSDT D ;loop thru service date from x-ref
- .S ABMPFLG=0 ;abm*2.6*15 HEAT183309 Req#B
- .S ABMP("BDFN")=0
- .F S ABMP("BDFN")=$O(^ABMDBILL(DUZ(2),"AD",ABMPSDT,ABMP("BDFN"))) Q:'ABMP("BDFN") D
- ..S ABMVDFN=0
- ..F S ABMVDFN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),11,ABMVDFN)) Q:'ABMVDFN D Q:ABMPFLG=1
- ...I $P($G(^AUPNVSIT(ABMVDFN,0)),U,11)=1 Q ;deleted visit
- ...S ABMSC=$P($G(^AUPNVSIT(ABMVDFN,0)),U,7) ;service category
- ...I "HIASRO"'[ABMSC Q ;ignore all other service categories
- ...;H=Hosp
- ...;I=In Hosp
- ...;A=Amb
- ...;S=Day Surg
- ...;R=Nurs Home
- ...;O=Observ
- ...;parent visit link; default to visit if there isn't one
- ...S ABMP("PVDFN")=$S($P($G(^AUPNVSIT(ABMVDFN,0)),U,12):$P(^AUPNVSIT(ABMVDFN,0),U,12),1:ABMVDFN)
- ...;if not Hospitalization, use Visit/Admit Date&Time
- ...I ABMSC'="H",($P($G(^AUPNVSIT(ABMP("PVDFN"),0)),U)<ABMP("SDT")) Q ;seen before start date
- ...I ABMSC'="H",($P($G(^AUPNVSIT(ABMP("PVDFN"),0)),U)>ABMP("EDT")) Q ;seen after end date
- ...;if Hospitalization, get Date of Discharge from V Hospitalization file
- ...S ABMQFLG=1
- ...I ABMSC="H" D Q:ABMQFLG=0
- ....;S ABMP("VHIEN")=$O(^AUPNVINP("AD",ABMP("PVDFN"),0)) ;abm*2.6*7
- ....S ABMP("VHIEN")=+$O(^AUPNVINP("AD",ABMP("PVDFN"),0)) ;abm*2.6*7
- ....I ABMP("VHIEN")=0 S ABMQFLG=0 Q
- ....S ABMP("DISCHDT")=$P($G(^AUPNVINP(ABMP("VHIEN"),0)),U)
- ....I ABMP("DISCHDT")<ABMP("SDT") S ABMQFLG=0 Q ;seen before start date
- ....I ABMP("DISCHDT")>ABMP("EDT") S ABMQFLG=0 Q ;seen after end date
- ....;start new abm*2.6*12 swingbed
- ....S ABMP("SWINGBED")=0
- ....I $$GET1^DIQ(45.7,$$GET1^DIQ(9000010.02,ABMP("VHIEN"),".04","I"),"9999999.01","E")=21 S ABMP("SWINGBED")=1
- ....I $$GET1^DIQ(45.7,$$GET1^DIQ(9000010.02,ABMP("VHIEN"),".05","I"),"9999999.01","E")=21 S ABMP("SWINGBED")=1
- ....;end new swingbed
- ...S ABMPBDFN=0
- ...S ABMPFLG=0 ;pymt flg
- ...K ABMB
- ...F ABMC=1:1 S ABMPBDFN=$O(^ABMDBILL(DUZ(2),"AV",ABMP("PVDFN"),ABMPBDFN)) Q:'ABMPBDFN D Q:ABMPFLG=1
- ....S ABMP("BTYP")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,2) ;bill type
- ....S ABMP("VTYP")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,7) ;visit type
- ....I $P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,4)="X" Q ;skip cancelled bills
- ....S ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC)=ABMPBDFN
- ...I '$D(ABMB) Q ;no active bills found ;abm*2.6*15 HEAT183309
- ...S ABMP("VTYP")=0
- ...F S ABMP("VTYP")=$O(ABMB(ABMP("VTYP"))) Q:'ABMP("VTYP") D Q:ABMPFLG=1
- ....S ABMP("BTYP")=0
- ....F S ABMP("BTYP")=$O(ABMB(ABMP("VTYP"),ABMP("BTYP"))) Q:'ABMP("BTYP") D Q:ABMPFLG=1
- .....S ABMC=0
- .....F S ABMC=$O(ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC)) Q:'ABMC D Q:ABMPFLG=1
- ......S ABMPBDFN=$G(ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC))
- ......S ABM=ABMPBDFN
- ......S ABMP("PDFN")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,5)
- ......S ABMP("INS")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,8)
- ......S ABMP("LDFN")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,3)
- ......S ABMP("VDT")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U)
- ......S ABMP("NEWBORN")=0 ;abm*2.6*7
- ......I $$GET1^DIQ(9002274.03,$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,5)),U),.03,"E")="NEWBORN" S ABMP("NEWBORN")=1 ;abm*2.6*7
- ......S ABMP("PD")=0 ;abm*2.6*15 HEAT183309 Req#B
- ......D PREV^ABMMUFC3
- ......I +$G(ABMP("PD"))=0&('ABMPYD) Q ;skip if no payment made on bill
- ......S ABMPFLG=1
- ...I ABMPFLG=0 D ;if ABMPFLG=0 there wasn't a pymt on any bill; use the first one billed
- ....S ABMP("VTYP")=$O(ABMB(0))
- ....S ABMP("BTYP")=$O(ABMB(ABMP("VTYP"),0))
- ....S ABMC=$O(ABMB(ABMP("VTYP"),ABMP("BTYP"),0))
- ....S ABMPBDFN=$G(ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC))
- ...;start old abm*2.6*15 HEAT183309 Req#B
- ...;;if it gets here and ABMPFLG is 0, no pymt was found for any bill for this visit
- ...;Q:+$G(ABMPFLG)=0
- ...;end old HEAT183309 Req#B
- ...;if it gets here, ABMP("BDFN") is the first bill with a payment
- ...S ABMIT=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,2)),U,2)
- ...D INSTYP
- ...S ABMP("INS")=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,8)
- ...S ABMP("FSDT")=0,ABMFFLG=0
- ...F S ABMP("FSDT")=$O(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),11,ABMP("FSDT"))) Q:'ABMP("FSDT") D Q:ABMFFLG=1
- ....I $P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),11,ABMP("FSDT"),0)),U)>ABMP("EDT") Q
- ....I $P($G(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),11,ABMP("FSDT"),0)),U,2)>ABMP("SDT") Q
- ....S ABMFFLG=1
- ...D SETCAT^ABMMUFAC
- ...;Q:$D(^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))) ;quit if this visit has already counted
- ...;S ^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))="" ;add visit to list
- ...;start new abm*2.6*15 HEAT183309 Req#B
- ...S ABMDOSB=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U)
- ...S ABMDOSE=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U,2)
- ...S ABMBILLD=+$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,2)),U)
- ...S ABMVLOC=$$GET1^DIQ(9002274.4,ABMPBDFN,".03","E")
- ...S ABMNDAYS=+$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,6)),U,6)
- ...S ABMCDAYS=+$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U,3)
- ...S:'ABMCDAYS ABMCDAYS=$P($G(^ABMDBILL(DUZ(2),ABMPBDFN,6)),U,9)
- ...S:'ABMCDAYS ABMCDAYS=1
- ...S ABMRT=$S(+$G(ABMP("PD"))'=0&(ABMPYD):"PD",1:"BLD")
- ...I "^S^B^"[("^"_ABMSUMDT_"^") D SUMMREC
- ...I "^D^B^"[("^"_ABMSUMDT_"^") D DETREC
- Q
- SUMMREC ;EP
- ;cnt # IP/OP discharges
- I $D(^TMP($J,"ABM-MUVLST",ABMP("PVDFN")))&(ABMITYP'="PRI/MCD") Q ;quit if this visit has already counted
- S ^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))="" ;add visit to list
- ;
- S ^TMP($J,"ABM-MUFAC",ABMITYP,ABMP("RPT-CAT"))=+$G(^TMP($J,"ABM-MUFAC",ABMITYP,ABMP("RPT-CAT")))+1
- ;tot cov'd days
- S:(ABMP("RPT-CAT")="IP SB DISCHGS") ^TMP($J,"ABM-MUFAC",ABMITYP,"IP SB DAYS")=+$G(^TMP($J,"ABM-MUFAC",ABMITYP,"IP SB DAYS"))+ABMCDAYS
- S:(ABMP("RPT-CAT")="IP DISCHGS") ^TMP($J,"ABM-MUFAC",ABMITYP,"IP DAYS")=+$G(^TMP($J,"ABM-MUFAC",ABMITYP,"IP DAYS"))+ABMCDAYS
- S:(ABMP("RPT-CAT")="IP NB DISCHGS") ^TMP($J,"ABM-MUFAC",ABMITYP,"IP NB DAYS")=+$G(^TMP($J,"ABM-MUFAC",ABMITYP,"IP NB DAYS"))+ABMCDAYS
- S:(ABMP("RPT-CAT")="IP CHGS") ^TMP($J,"ABM-MUFAC",ABMITYP,"IP CHGS DAYS")=+$G(^TMP($J,"ABM-MUFAC",ABMITYP,"IP CHGS DAYS"))+ABMCDAYS
- Q
- DETREC ;EP
- I ABMITYP="PRI/MCD" K ^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))
- I $D(^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))) Q ;quit if this visit has already counted
- S ^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))="" ;add visit to list
- ;
- S ABMP("INSN")=$P($G(^AUTNINS(ABMP("INS"),0)),U)
- S ABMREC=ABMDOSB_U_ABMDOSE_U_ABMBILLD_U_+$G(ABMP("PD"))_U_ABMCDAYS_U_ABMNDAYS_U_ABMVLOC_U_DUZ(2)_U_ABMPBDFN
- S ^TMP($J,"ABM-MUFAC","DETAIL",ABMITYP,ABMP("RPT-CAT"),ABMP("INSN")_"|"_ABMP("INS"),$S(+$G(ABMP("PVDFN")):ABMP("PVDFN"),1:ABMVDFN))=ABMREC
- Q
- INSTYP ;EP
- I "^R^MH^MD^"[("^"_ABMIT_"^") S ABMITYP="MEDICARE"
- I "^P^H^D^F^"[("^"_ABMIT_"^") S ABMITYP="PRIVATE"
- I ABMIT="D" S ABMITYP="MEDICAID"
- I ABMIT="K" S ABMITYP="KIDSCARE/CHIP"
- I ABMIT="V" S ABMITYP="VMBP"
- I "^W^C^N^I^T^G^FPL^MMC^MC^SEP^TSI^"[("^"_ABMIT_"^") S ABMITYP="OTHER"
- Q
- ABMMUFC5 ;IHS/SD/SDR - EHR Incentive Report (MU) ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**6,7,12,15**;NOV 12, 2009;Build 251
- +2 ;IHS/SDR/SDR - 2.6*12 - VMBP RQMT_104 - Added VA data to report
- +3 ;IHS/SD/SDR - 2.6*12 - Added swingbed
- +4 ;IHS/SD/SDR - 2.6*15 - HEAT183309 - Created separate GETBILLS for 'F' option since they are so different now
- GETBILLS ;EP
- +1 SET ABMPSDT=ABMP("SDT")-10000
- +2 ;loop thru service date from x-ref
- FOR
- SET ABMPSDT=$ORDER(^ABMDBILL(DUZ(2),"AD",ABMPSDT))
- IF 'ABMPSDT
- QUIT
- Begin DoDot:1
- +3 ;abm*2.6*15 HEAT183309 Req#B
- SET ABMPFLG=0
- +4 SET ABMP("BDFN")=0
- +5 FOR
- SET ABMP("BDFN")=$ORDER(^ABMDBILL(DUZ(2),"AD",ABMPSDT,ABMP("BDFN")))
- IF 'ABMP("BDFN")
- QUIT
- Begin DoDot:2
- +6 SET ABMVDFN=0
- +7 FOR
- SET ABMVDFN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),11,ABMVDFN))
- IF 'ABMVDFN
- QUIT
- Begin DoDot:3
- +8 ;deleted visit
- IF $PIECE($GET(^AUPNVSIT(ABMVDFN,0)),U,11)=1
- QUIT
- +9 ;service category
- SET ABMSC=$PIECE($GET(^AUPNVSIT(ABMVDFN,0)),U,7)
- +10 ;ignore all other service categories
- IF "HIASRO"'[ABMSC
- QUIT
- +11 ;H=Hosp
- +12 ;I=In Hosp
- +13 ;A=Amb
- +14 ;S=Day Surg
- +15 ;R=Nurs Home
- +16 ;O=Observ
- +17 ;parent visit link; default to visit if there isn't one
- +18 SET ABMP("PVDFN")=$SELECT($PIECE($GET(^AUPNVSIT(ABMVDFN,0)),U,12):$PIECE(^AUPNVSIT(ABMVDFN,0),U,12),1:ABMVDFN)
- +19 ;if not Hospitalization, use Visit/Admit Date&Time
- +20 ;seen before start date
- IF ABMSC'="H"
- IF ($PIECE($GET(^AUPNVSIT(ABMP("PVDFN"),0)),U)<ABMP("SDT"))
- QUIT
- +21 ;seen after end date
- IF ABMSC'="H"
- IF ($PIECE($GET(^AUPNVSIT(ABMP("PVDFN"),0)),U)>ABMP("EDT"))
- QUIT
- +22 ;if Hospitalization, get Date of Discharge from V Hospitalization file
- +23 SET ABMQFLG=1
- +24 IF ABMSC="H"
- Begin DoDot:4
- +25 ;S ABMP("VHIEN")=$O(^AUPNVINP("AD",ABMP("PVDFN"),0)) ;abm*2.6*7
- +26 ;abm*2.6*7
- SET ABMP("VHIEN")=+$ORDER(^AUPNVINP("AD",ABMP("PVDFN"),0))
- +27 IF ABMP("VHIEN")=0
- SET ABMQFLG=0
- QUIT
- +28 SET ABMP("DISCHDT")=$PIECE($GET(^AUPNVINP(ABMP("VHIEN"),0)),U)
- +29 ;seen before start date
- IF ABMP("DISCHDT")<ABMP("SDT")
- SET ABMQFLG=0
- QUIT
- +30 ;seen after end date
- IF ABMP("DISCHDT")>ABMP("EDT")
- SET ABMQFLG=0
- QUIT
- +31 ;start new abm*2.6*12 swingbed
- +32 SET ABMP("SWINGBED")=0
- +33 IF $$GET1^DIQ(45.7,$$GET1^DIQ(9000010.02,ABMP("VHIEN"),".04","I"),"9999999.01","E")=21
- SET ABMP("SWINGBED")=1
- +34 IF $$GET1^DIQ(45.7,$$GET1^DIQ(9000010.02,ABMP("VHIEN"),".05","I"),"9999999.01","E")=21
- SET ABMP("SWINGBED")=1
- +35 ;end new swingbed
- End DoDot:4
- IF ABMQFLG=0
- QUIT
- +36 SET ABMPBDFN=0
- +37 ;pymt flg
- SET ABMPFLG=0
- +38 KILL ABMB
- +39 FOR ABMC=1:1
- SET ABMPBDFN=$ORDER(^ABMDBILL(DUZ(2),"AV",ABMP("PVDFN"),ABMPBDFN))
- IF 'ABMPBDFN
- QUIT
- Begin DoDot:4
- +40 ;bill type
- SET ABMP("BTYP")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,2)
- +41 ;visit type
- SET ABMP("VTYP")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,7)
- +42 ;skip cancelled bills
- IF $PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,4)="X"
- QUIT
- +43 SET ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC)=ABMPBDFN
- End DoDot:4
- IF ABMPFLG=1
- QUIT
- +44 ;no active bills found ;abm*2.6*15 HEAT183309
- IF '$DATA(ABMB)
- QUIT
- +45 SET ABMP("VTYP")=0
- +46 FOR
- SET ABMP("VTYP")=$ORDER(ABMB(ABMP("VTYP")))
- IF 'ABMP("VTYP")
- QUIT
- Begin DoDot:4
- +47 SET ABMP("BTYP")=0
- +48 FOR
- SET ABMP("BTYP")=$ORDER(ABMB(ABMP("VTYP"),ABMP("BTYP")))
- IF 'ABMP("BTYP")
- QUIT
- Begin DoDot:5
- +49 SET ABMC=0
- +50 FOR
- SET ABMC=$ORDER(ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC))
- IF 'ABMC
- QUIT
- Begin DoDot:6
- +51 SET ABMPBDFN=$GET(ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC))
- +52 SET ABM=ABMPBDFN
- +53 SET ABMP("PDFN")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,5)
- +54 SET ABMP("INS")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,8)
- +55 SET ABMP("LDFN")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,3)
- +56 SET ABMP("VDT")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U)
- +57 ;abm*2.6*7
- SET ABMP("NEWBORN")=0
- +58 ;abm*2.6*7
- IF $$GET1^DIQ(9002274.03,$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,5)),U),.03,"E")="NEWBORN"
- SET ABMP("NEWBORN")=1
- +59 ;abm*2.6*15 HEAT183309 Req#B
- SET ABMP("PD")=0
- +60 DO PREV^ABMMUFC3
- +61 ;skip if no payment made on bill
- IF +$GET(ABMP("PD"))=0&('ABMPYD)
- QUIT
- +62 SET ABMPFLG=1
- End DoDot:6
- IF ABMPFLG=1
- QUIT
- End DoDot:5
- IF ABMPFLG=1
- QUIT
- End DoDot:4
- IF ABMPFLG=1
- QUIT
- +63 ;if ABMPFLG=0 there wasn't a pymt on any bill; use the first one billed
- IF ABMPFLG=0
- Begin DoDot:4
- +64 SET ABMP("VTYP")=$ORDER(ABMB(0))
- +65 SET ABMP("BTYP")=$ORDER(ABMB(ABMP("VTYP"),0))
- +66 SET ABMC=$ORDER(ABMB(ABMP("VTYP"),ABMP("BTYP"),0))
- +67 SET ABMPBDFN=$GET(ABMB(ABMP("VTYP"),ABMP("BTYP"),ABMC))
- End DoDot:4
- +68 ;start old abm*2.6*15 HEAT183309 Req#B
- +69 ;;if it gets here and ABMPFLG is 0, no pymt was found for any bill for this visit
- +70 ;Q:+$G(ABMPFLG)=0
- +71 ;end old HEAT183309 Req#B
- +72 ;if it gets here, ABMP("BDFN") is the first bill with a payment
- +73 SET ABMIT=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,2)),U,2)
- +74 DO INSTYP
- +75 SET ABMP("INS")=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,0)),U,8)
- +76 SET ABMP("FSDT")=0
- SET ABMFFLG=0
- +77 FOR
- SET ABMP("FSDT")=$ORDER(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),11,ABMP("FSDT")))
- IF 'ABMP("FSDT")
- QUIT
- Begin DoDot:4
- +78 IF $PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),11,ABMP("FSDT"),0)),U)>ABMP("EDT")
- QUIT
- +79 IF $PIECE($GET(^ABMNINS(DUZ(2),ABMP("INS"),1,ABMP("VTYP"),11,ABMP("FSDT"),0)),U,2)>ABMP("SDT")
- QUIT
- +80 SET ABMFFLG=1
- End DoDot:4
- IF ABMFFLG=1
- QUIT
- +81 DO SETCAT^ABMMUFAC
- +82 ;Q:$D(^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))) ;quit if this visit has already counted
- +83 ;S ^TMP($J,"ABM-MUVLST",ABMP("PVDFN"))="" ;add visit to list
- +84 ;start new abm*2.6*15 HEAT183309 Req#B
- +85 SET ABMDOSB=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U)
- +86 SET ABMDOSE=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U,2)
- +87 SET ABMBILLD=+$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,2)),U)
- +88 SET ABMVLOC=$$GET1^DIQ(9002274.4,ABMPBDFN,".03","E")
- +89 SET ABMNDAYS=+$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,6)),U,6)
- +90 SET ABMCDAYS=+$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,7)),U,3)
- +91 IF 'ABMCDAYS
- SET ABMCDAYS=$PIECE($GET(^ABMDBILL(DUZ(2),ABMPBDFN,6)),U,9)
- +92 IF 'ABMCDAYS
- SET ABMCDAYS=1
- +93 SET ABMRT=$SELECT(+$GET(ABMP("PD"))'=0&(ABMPYD):"PD",1:"BLD")
- +94 IF "^S^B^"[("^"_ABMSUMDT_"^")
- DO SUMMREC
- +95 IF "^D^B^"[("^"_ABMSUMDT_"^")
- DO DETREC
- End DoDot:3
- IF ABMPFLG=1
- QUIT
- End DoDot:2
- End DoDot:1
- +96 QUIT
- SUMMREC ;EP
- +1 ;cnt # IP/OP discharges
- +2 ;quit if this visit has already counted
- IF $DATA(^TMP($JOB,"ABM-MUVLST",ABMP("PVDFN")))&(ABMITYP'="PRI/MCD")
- QUIT
- +3 ;add visit to list
- SET ^TMP($JOB,"ABM-MUVLST",ABMP("PVDFN"))=""
- +4 ;
- +5 SET ^TMP($JOB,"ABM-MUFAC",ABMITYP,ABMP("RPT-CAT"))=+$GET(^TMP($JOB,"ABM-MUFAC",ABMITYP,ABMP("RPT-CAT")))+1
- +6 ;tot cov'd days
- +7 IF (ABMP("RPT-CAT")="IP SB DISCHGS")
- SET ^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP SB DAYS")=+$GET(^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP SB DAYS"))+ABMCDAYS
- +8 IF (ABMP("RPT-CAT")="IP DISCHGS")
- SET ^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP DAYS")=+$GET(^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP DAYS"))+ABMCDAYS
- +9 IF (ABMP("RPT-CAT")="IP NB DISCHGS")
- SET ^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP NB DAYS")=+$GET(^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP NB DAYS"))+ABMCDAYS
- +10 IF (ABMP("RPT-CAT")="IP CHGS")
- SET ^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP CHGS DAYS")=+$GET(^TMP($JOB,"ABM-MUFAC",ABMITYP,"IP CHGS DAYS"))+ABMCDAYS
- +11 QUIT
- DETREC ;EP
- +1 IF ABMITYP="PRI/MCD"
- KILL ^TMP($JOB,"ABM-MUVLST",ABMP("PVDFN"))
- +2 ;quit if this visit has already counted
- IF $DATA(^TMP($JOB,"ABM-MUVLST",ABMP("PVDFN")))
- QUIT
- +3 ;add visit to list
- SET ^TMP($JOB,"ABM-MUVLST",ABMP("PVDFN"))=""
- +4 ;
- +5 SET ABMP("INSN")=$PIECE($GET(^AUTNINS(ABMP("INS"),0)),U)
- +6 SET ABMREC=ABMDOSB_U_ABMDOSE_U_ABMBILLD_U_+$GET(ABMP("PD"))_U_ABMCDAYS_U_ABMNDAYS_U_ABMVLOC_U_DUZ(2)_U_ABMPBDFN
- +7 SET ^TMP($JOB,"ABM-MUFAC","DETAIL",ABMITYP,ABMP("RPT-CAT"),ABMP("INSN")_"|"_ABMP("INS"),$SELECT(+$GET(ABMP("PVDFN")):ABMP("PVDFN"),1:ABMVDFN))=ABMREC
- +8 QUIT
- INSTYP ;EP
- +1 IF "^R^MH^MD^"[("^"_ABMIT_"^")
- SET ABMITYP="MEDICARE"
- +2 IF "^P^H^D^F^"[("^"_ABMIT_"^")
- SET ABMITYP="PRIVATE"
- +3 IF ABMIT="D"
- SET ABMITYP="MEDICAID"
- +4 IF ABMIT="K"
- SET ABMITYP="KIDSCARE/CHIP"
- +5 IF ABMIT="V"
- SET ABMITYP="VMBP"
- +6 IF "^W^C^N^I^T^G^FPL^MMC^MC^SEP^TSI^"[("^"_ABMIT_"^")
- SET ABMITYP="OTHER"
- +7 QUIT
