IBCTUP ;ALB/RTW - CT ENTRY INACTIVATION IN FILE #356;09/26/2022
;;2.0;INTEGRATED BILLING;**740**;21-MAR-94;Build 9
;inactivate CT entries from the first episode date to 12/31/1999
;CT entries will be dropped from auto biller list in IB MT NIGHT COMP
;ITSM Incident ticket ,INC24030981
;
Q
EN ;begin process of finding and inactivating CT entry by episode date
;
N IBCNT,IBCM,IBTOL,IBTYP,IBEABS,IBEABN,IBTRN,IBTRND,IBZ,U,DA,DR,DIE,X,Y
S U="^",(IBCNT,IBTOL)=0
S IBEABS=$O(^IBT(356,"D","")),IBEABS=$$FMTE^XLFDT($P(IBEABS,".",1))
S IBCM="Inactivated to correct errors in the IB MT Night Comp job."
D MSG(" Inactivating CT entry with episode date, "_IBEABS_" through Dec 31,1999...")
D MSG("")
S IBTYP=$O(^IBE(356.6,"B","OUTPATIENT VISIT",0))
I 'IBTYP D MSG(" >>>>> No outpatient visit type defined, no inactivation!") G END
S IBEABS="",IBEABN=2991231.999999
F S IBEABS=$O(^IBT(356,"D",IBEABS)) Q:(IBEABS="")!(IBEABS>IBEABN) D
. S IBTRN=0 F S IBTRN=$O(^IBT(356,"D",IBEABS,IBTRN)) Q:'IBTRN D
.. S IBTRND=$G(^IBT(356,IBTRN,0)) Q:IBTRND=""
.. S IBTOL=IBTOL+1
.. ;outpatient visit only
.. I $P(IBTRND,U,18)'=IBTYP Q
.. ;early auto bill date only
.. I $P(IBTRND,U,17)="" Q
.. ;inactive status, delete eabd date, add comment
.. S DIE="^IBT(356,",DA=IBTRN,DR=".2///0"_";.17///@"_";1.08///"_IBCM D ^DIE
.. S IBCNT=IBCNT+1
END D MSG(" Total "_IBCNT_" out of "_IBTOL_" CT entries inactivated in the CLAIMS TRACKING file (#356)")
D MSG("")
D MSG(" Inactivating CT entry is complete.")
Q
MSG(IBZ) ;
D MES^XPDUTL(IBZ)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCTUP 1585 printed Dec 13, 2024@02:20:34 Page 2
IBCTUP ;ALB/RTW - CT ENTRY INACTIVATION IN FILE #356;09/26/2022
+1 ;;2.0;INTEGRATED BILLING;**740**;21-MAR-94;Build 9
+2 ;inactivate CT entries from the first episode date to 12/31/1999
+3 ;CT entries will be dropped from auto biller list in IB MT NIGHT COMP
+4 ;ITSM Incident ticket ,INC24030981
+5 ;
+6 QUIT
EN ;begin process of finding and inactivating CT entry by episode date
+1 ;
+2 NEW IBCNT,IBCM,IBTOL,IBTYP,IBEABS,IBEABN,IBTRN,IBTRND,IBZ,U,DA,DR,DIE,X,Y
+3 SET U="^"
SET (IBCNT,IBTOL)=0
+4 SET IBEABS=$ORDER(^IBT(356,"D",""))
SET IBEABS=$$FMTE^XLFDT($PIECE(IBEABS,".",1))
+5 SET IBCM="Inactivated to correct errors in the IB MT Night Comp job."
+6 DO MSG(" Inactivating CT entry with episode date, "_IBEABS_" through Dec 31,1999...")
+7 DO MSG("")
+8 SET IBTYP=$ORDER(^IBE(356.6,"B","OUTPATIENT VISIT",0))
+9 IF 'IBTYP
DO MSG(" >>>>> No outpatient visit type defined, no inactivation!")
GOTO END
+10 SET IBEABS=""
SET IBEABN=2991231.999999
+11 FOR
SET IBEABS=$ORDER(^IBT(356,"D",IBEABS))
if (IBEABS="")!(IBEABS>IBEABN)
QUIT
Begin DoDot:1
+12 SET IBTRN=0
FOR
SET IBTRN=$ORDER(^IBT(356,"D",IBEABS,IBTRN))
if 'IBTRN
QUIT
Begin DoDot:2
+13 SET IBTRND=$GET(^IBT(356,IBTRN,0))
if IBTRND=""
QUIT
+14 SET IBTOL=IBTOL+1
+15 ;outpatient visit only
+16 IF $PIECE(IBTRND,U,18)'=IBTYP
QUIT
+17 ;early auto bill date only
+18 IF $PIECE(IBTRND,U,17)=""
QUIT
+19 ;inactive status, delete eabd date, add comment
+20 SET DIE="^IBT(356,"
SET DA=IBTRN
SET DR=".2///0"_";.17///@"_";1.08///"_IBCM
DO ^DIE
+21 SET IBCNT=IBCNT+1
End DoDot:2
End DoDot:1
END DO MSG(" Total "_IBCNT_" out of "_IBTOL_" CT entries inactivated in the CLAIMS TRACKING file (#356)")
+1 DO MSG("")
+2 DO MSG(" Inactivating CT entry is complete.")
+3 QUIT
MSG(IBZ) ;
+1 DO MES^XPDUTL(IBZ)
+2 QUIT
