[613] | 1 | IBTOBI2 ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ;27-OCT-93
|
---|
| 2 | ;;2.0;INTEGRATED BILLING;**210**;21-MAR-94
|
---|
| 3 | ;
|
---|
| 4 | IR ; -- print insurance review information
|
---|
| 5 | Q:'$O(^IBT(356.2,"C",+IBTRN,0)) ; -no reivews
|
---|
| 6 | I ($Y+11)>IOSL D HDR^IBTOBI Q:IBQUIT
|
---|
| 7 | W !," Insurance Review Information "
|
---|
| 8 | N I,J,IBII,IBTRC,IBTRCD,IBACTION,TCODE
|
---|
| 9 | S IBII="" F S IBII=$O(^IBT(356.2,"ATIDT",IBTRN,IBII)) Q:'IBII!(IBQUIT) S IBTRC=0 F S IBTRC=$O(^IBT(356.2,"ATIDT",IBTRN,IBII,IBTRC)) Q:'IBTRC!(IBQUIT) D
|
---|
| 10 | .N IBJ,IBD
|
---|
| 11 | .D IR1
|
---|
| 12 | .D IR2
|
---|
| 13 | .S IBJ=0 F S IBJ=$O(IBD(IBJ)) Q:'IBJ W !,$E($G(IBD(IBJ,1)),1,39),?40,$E($G(IBD(IBJ,2)),1,39)
|
---|
| 14 | .D COMM2(IBTRC) Q:IBQUIT
|
---|
| 15 | .W !?30,"-----------------------------------"
|
---|
| 16 | .I ($Y+11)>IOSL D HDR^IBTOBI Q:IBQUIT
|
---|
| 17 | W:'IBQUIT !?4,$TR($J(" ",IOM-8)," ","-"),!
|
---|
| 18 | Q
|
---|
| 19 | ;
|
---|
| 20 | IR1 ; -- print one review
|
---|
| 21 | S IBTRCD=$G(^IBT(356.2,+IBTRC,0)),IBTRCD1=$G(^(1))
|
---|
| 22 | S IBD(1,1)=" Type Review: "_$$EXPAND^IBTRE(356.2,.04,$P(IBTRCD,"^",4))
|
---|
| 23 | S TCODE=$$TCODE^IBTRC(IBTRC) I TCODE D @TCODE
|
---|
| 24 | Q
|
---|
| 25 | 10 ; -- pre-cert contact
|
---|
| 26 | 15 ; -- admission review
|
---|
| 27 | 20 ; -- urgent/emergent ins. contact
|
---|
| 28 | 30 ; -- continued stay contact
|
---|
| 29 | S IBD(2,1)=" Action: "_$$EXPAND^IBTRE(356.2,.11,$P(IBTRCD,"^",11))
|
---|
| 30 | S IBACTION=$P($G(^IBE(356.7,+$P(IBTRCD,"^",11),0)),"^",3)
|
---|
| 31 | S IBACTION=IBACTION+100 D @IBACTION
|
---|
| 32 | Q
|
---|
| 33 | ;
|
---|
| 34 | 40 ; -- Discharge contact
|
---|
| 35 | 100 ; -- No type of action
|
---|
| 36 | Q
|
---|
| 37 | 50 ; -- outpatient treatment
|
---|
| 38 | S IBD(2,1)=" Opt Treatment: "_$$EXPAND^IBTRE(356.2,.26,$P(IBTRCD,"^",26))
|
---|
| 39 | S IBD(3,1)=" Action: "_$$EXPAND^IBTRE(356.2,.11,$P(IBTRCD,"^",11))
|
---|
| 40 | S IBD(4,1)=" Auth. Number: "_$P(IBTRCD,"^",28)
|
---|
| 41 | Q
|
---|
| 42 | 60 ; -- Appeal
|
---|
| 43 | 65 ; -- Nth appeal
|
---|
| 44 | S IBD(2,1)=" Appeal Type: "_$$EXPAND^IBTRE(356.2,.23,$P(IBTRCD,"^",23))
|
---|
| 45 | S IBD(3,1)=" Case Status: "_$$EXPAND^IBTRE(356.2,.1,$P(IBTRCD,"^",10))
|
---|
| 46 | S IBD(4,1)="No Days Pending: "_$$EXPAND^IBTRE(356.2,.25,$P(IBTRCD,"^",25))
|
---|
| 47 | S IBD(5,1)=" Final Outcome: "_$$EXPAND^IBTRE(356.2,.29,$P(IBTRCD,"^",29))
|
---|
| 48 | Q
|
---|
| 49 | 70 ; -- Patient
|
---|
| 50 | 80 ; -- Other
|
---|
| 51 | 85 ; -- Insurance verification
|
---|
| 52 | 90 ;
|
---|
| 53 | Q
|
---|
| 54 | ;
|
---|
| 55 | 110 ; -- approval actions
|
---|
| 56 | S IBD(3,1)="Authorized From: "_$S($P(IBTRCD1,"^",8):"ENTIRE VISIT",1:$$DAT1^IBOUTL($P(IBTRCD,"^",12)))
|
---|
| 57 | S IBD(4,1)=" Authorized To: "_$S($P(IBTRCD1,"^",8):"ENTIRE VISIT",1:$$DAT1^IBOUTL($P(IBTRCD,"^",13)))
|
---|
| 58 | S IBD(5,1)="Authorized Diag: "_$$DIAG^IBTRE6($P(IBTRCD,"^",14),1,$$TRNDATE^IBACSV($G(IBTRN)))
|
---|
| 59 | S IBD(6,1)=" Auth. Number: "_$P(IBTRCD,"^",28)
|
---|
| 60 | Q
|
---|
| 61 | 120 ; -- denial actions
|
---|
| 62 | S IBD(3,1)=" Denied From: "_$S($P(IBTRCD1,"^",7):"ENTIRE VISIT",1:$$DAT1^IBOUTL($P(IBTRCD,"^",15)))
|
---|
| 63 | S IBD(4,1)=" Denied To: "_$S($P(IBTRCD1,"^",7):"ENTIRE VISIT",1:$$DAT1^IBOUTL($P(IBTRCD,"^",16)))
|
---|
| 64 | S IBI=0,IBD=4 F S IBI=$O(^IBT(356.2,IBTRC,12,IBI)) Q:'IBI D
|
---|
| 65 | .S IBD=IBD+1
|
---|
| 66 | .S IBD(IBD,1)=" Denial Reasons: "_$$EXPAND^IBTRE(356.212,.01,+$G(^IBT(356.2,IBTRC,12,IBI,0)))
|
---|
| 67 | Q
|
---|
| 68 | 130 ; -- penalty
|
---|
| 69 | S IBI=0,IBD=2 F S IBI=$O(^IBT(356.2,IBTRC,13,IBI)) Q:'IBI D
|
---|
| 70 | .S IBD=IBD+1
|
---|
| 71 | .S IBD(IBD,1)=" Penalty: "_$$EXPAND^IBTRE(356.213,.01,+$G(^IBT(356.2,IBTRC,13,IBI,0)))
|
---|
| 72 | Q
|
---|
| 73 | 140 ; -- case pending
|
---|
| 74 | S IBD(3,1)=" Case Pending: "_$$EXPAND^IBTRE(356.2,.2,$P(IBTRCD,"^",20))
|
---|
| 75 | Q
|
---|
| 76 | 150 ; -- no coverage
|
---|
| 77 | S IBD(3,1)=" No Coverage: "_$$EXPAND^IBTRE(356.2,.21,$P(IBTRCD,"^",21))
|
---|
| 78 | Q
|
---|
| 79 | ;
|
---|
| 80 | IR2 ; -- contact information
|
---|
| 81 | ;N IBCDFN,IBCPOL
|
---|
| 82 | ;S IBCDFN=$P(IBTRCD1,"^",5),IBCPOL=$P(^DPT(DFN,.312,IBCDFN,0),"^",18)
|
---|
| 83 | S IBD(1,2)=" Review Date: "_$E($$DAT1^IBOUTL(+IBTRCD,"2P"),1,20)
|
---|
| 84 | S IBD(2,2)=" Insurance Co.: "_$E($P($G(^DIC(36,+$G(^DPT(DFN,.312,+$P(IBTRCD1,"^",5),0)),0)),"^"),1,20)
|
---|
| 85 | S IBD(3,2)="Person Contacted: "_$E($P(IBTRCD,"^",6),1,20)
|
---|
| 86 | S IBD(4,2)=" Contact Method: "_$E($$EXPAND^IBTRE(356.2,.17,$P(IBTRCD,"^",17)),1,20)
|
---|
| 87 | S IBD(5,2)="Call Ref. Number: "_$E($P(IBTRCD,"^",9),1,20)
|
---|
| 88 | S IBD(6,2)=" Status: "_$E($$EXPAND^IBTRE(356.2,.19,$P(IBTRCD,"^",19)),1,20)
|
---|
| 89 | S IBD(7,2)=" Last Edited By: "_$E($$EXPAND^IBTRE(356.2,1.04,$P($G(^IBT(356.2,+$G(IBTRC),1)),"^",4)),1,20)
|
---|
| 90 | I '$P(IBTRCD,"^",2) S IBD(2,2)="Patient Contacted: "_$E($P($G(^DPT(+$P(IBTRCD,"^",5),0)),"^"),1,20)
|
---|
| 91 | Q
|
---|
| 92 | ;
|
---|
| 93 | COMM2(DA) ; -- print comments from ins. reviews.
|
---|
| 94 | W !,"Comment: "
|
---|
| 95 | Q:'$D(^IBT(356.2,DA,11))
|
---|
| 96 | K ^UTILITY($J,"W")
|
---|
| 97 | S DIWL=10,DIWR=IOM-12,DIWF="W"
|
---|
| 98 | S IBJ=0 F S IBJ=$O(^IBT(356.2,DA,11,IBJ)) Q:'IBJ S X=^(IBJ,0) D ^DIWP I IOSL<($Y+4) Q:IBQUIT D HDR^IBTOBI
|
---|
| 99 | Q:IBQUIT
|
---|
| 100 | D ^DIWW
|
---|
| 101 | K ^UTILITY($J,"W")
|
---|
| 102 | Q
|
---|