| 1 | IBCSC7 ;ALB/MJB - MCCR SCREEN 7 (INPT. BILLING INFO) ;27 MAY 88 10:19
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**52,80,109,106,343**;21-MAR-94;Build 16
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ;MAP TO DGCRSC7
|
|---|
| 6 | ;
|
|---|
| 7 | I $P(^DGCR(399,IBIFN,0),"^",5)'>2 G ^IBCSC8
|
|---|
| 8 | I $D(DGRVRCAL) D ^IBCU6 K DGRVRCAL
|
|---|
| 9 | EN D ^IBCSCU S IBSR=7,IBSR1="",IBV1="0000000" S:IBV IBV1="1111111" F I="U","U1",0,"U2","U3" S IB(I)=$S($D(^DGCR(399,IBIFN,I)):^(I),1:"")
|
|---|
| 10 | D H^IBCSCU
|
|---|
| 11 | D 4^IBCVA1,5^IBCVA1
|
|---|
| 12 | S IBBT=$P(IB(0),U,24)_$P($G(^DGCR(399.1,+$P(IB(0),U,25),0)),U,2)_$P(IB(0),U,26)
|
|---|
| 13 | S Z=1,IBW=1 X IBWW W " Bill Type : ",$S('$D(IBBT):IBU,IBBT="":IBU,1:IBBT)
|
|---|
| 14 | W $J("",14),"Loc. of Care: ",$E($G(IBBTP1),1,30) K IBBTP1
|
|---|
| 15 | W !?4,"Covered Days: ",$S(IB("U2")="":IBU,$P(IB("U2"),U,2)'="":$P(IB("U2"),U,2),1:IBU)
|
|---|
| 16 | W ?35,"Bill Classif: ",$E($G(IBBTP2),1,30) K IBBTP2
|
|---|
| 17 | W !?4,"Non-Cov Days: ",$S(IB("U2")="":IBU,$P(IB("U2"),U,3)'="":$P(IB("U2"),U,3),1:IBU)
|
|---|
| 18 | W ?38,"Timeframe: ",$S($D(IBBTP3):$E(IBBTP3,1,30),1:"") K IBBTP3
|
|---|
| 19 | W !?4,"Charge Type : ",$S($P(IB(0),U,27)=1:"INSTITUTIONAL",$P(IB(0),U,27)=2:"PROFESSIONAL",1:IBU)
|
|---|
| 20 | W ?37,"Disch Stat: ",$E($$EXTERNAL^DILFD(399,162,"",$P(IB("U"),U,12)),1,30)
|
|---|
| 21 | W !?4,"Form Type : ",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1)
|
|---|
| 22 | W ?39,"Division: ",$E($P($G(^DG(40.8,+$P(IB(0),U,22),0)),U,1),1,30)
|
|---|
| 23 | ; PRXM/KJH - Add Taxonomy code to display for patch 343.
|
|---|
| 24 | W !?34,"Div. Taxonomy: "
|
|---|
| 25 | S IBZ=$$GET1^DIQ(8932.1,+$P(IB("U3"),U,2),"X12 CODE") W $S(IBZ'="":IBZ,1:IBU)
|
|---|
| 26 | S IBZ=$$GET1^DIQ(8932.1,+$P(IB("U3"),U,2),"SPECIALTY CODE") W $S(IBZ'="":" ("_IBZ_")",1:"")
|
|---|
| 27 | ;
|
|---|
| 28 | ;W !?4,"Provider # : ",$S(IB("U2")="":IBU,$P(IB("U2"),U,2)'="":$P(IB("U2"),U,2),1:IBU)
|
|---|
| 29 | ;
|
|---|
| 30 | ROI S Z=2,IBW=1 X IBWW
|
|---|
| 31 | W " Sensitive? : ",$S(IB("U")="":IBU,$P(IB("U"),U,5)="":IBU,$P(IB("U"),U,5)=1:"YES",1:"NO")
|
|---|
| 32 | W ?46,"Assignment: ",$S(IB("U")="":IBU,$P(IB("U"),U,6)="":IBU,$P(IB("U"),U,6)["n":"NO",$P(IB("U"),U,6)["N":"NO",$P(IB("U"),U,6)=0:"NO",1:"YES")
|
|---|
| 33 | I $P(IB("U"),U,5)=1 W !?4,"R.O.I. Form : ",$S($P(IB("U"),U,7)=1:"COMPLETED",$P(IB("U"),U,7)=0:"NOT COMPLETED",1:"STATUS UNKNOWN")
|
|---|
| 34 | S IBOA="01^02^03^04^05^06^" F I=1:1:5 Q:'$D(IBOCN(I)) I IBOA[IBOCN(I)_"^" S IBOX=1
|
|---|
| 35 | W:$D(IBOX) !,?4,"Pow of Atty : ",$S($P(IB("U"),U,3)=1:"COMPLETED",$P(IB("U"),U,3)=0:"NOT COMPLETED",1:"STATUS UNKNOWN")
|
|---|
| 36 | ;
|
|---|
| 37 | S Z=3,IBW=1 X IBWW D FROMTO^IBCSC6
|
|---|
| 38 | ;
|
|---|
| 39 | OP S Z=4,IBW=1 X IBWW W " OP Visits : " F I=0:0 S I=$O(^DGCR(399,IBIFN,"OP",I)) Q:'I S Y=I X ^DD("DD") W:$X>67 !?18 W Y_", "
|
|---|
| 40 | I '$O(^DGCR(399,IBIFN,"OP",0)) W IBU
|
|---|
| 41 | ;
|
|---|
| 42 | G REV^IBCSC6
|
|---|
| 43 | ;
|
|---|
| 44 | ;IBCSC7
|
|---|
