IBCOPV1 ;ALB/LDB - CPT LISTING IN MCCR ;30 APR 90
;;2.0;INTEGRATED BILLING;**106,260,796**;21-MAR-94;Build 34
;
;MAP TO DGCROPV1
;
PRT ;
N IBQUIT,IBNUM,IBDATE,Z1 S IBQUIT=0
;D:$D(DIR) HLP
D HDR1,HDR F I=0:0 S I=$O(^UTILITY($J,"OPV","AP",I)) Q:'I S IBNUM=I-1 W ! D SCR Q:IBQUIT S IBNUM=I W ?1,I_")",?5 S (Y,I1)=+^UTILITY($J,"OPV","AP",I) D DT^DIQ S IBDATE=Y K Y D VT Q:IBQUIT
;W:DGCNT>30 !!,"THERE ARE MORE THAN TEN VISITS DURING THE PERIOD THAT THIS STATEMENT COVERS."
F C=$Y:1:(IOSL-6) W !
D:'IBQUIT PICK
G Q2
;Q:$D(DIR)
PICK K Y S DIR("A")="Select visits to include in this bill (1-"_IBNUM_"): "
OK S DIR(0)="LAO^1:"_IBNUM_"^K:X[""."" X" D ^DIR
I $D(DTOUT)!$D(DUOUT) S IBQUIT=1 Q
Q:X=""
I $P($$OPV1^IBCU41(IBIFN,1,($L(Y,",")-1)),U,2)'="" G OK
;I (DGCNT1+($L(Y,",")-1))>30 W !,"Maximum of 30 visits allowed per bill!",!,"The visits already on the bill along with those selected total more than 30." G OK
;I $D(^DIC(36,+^DGCR(399,IBIFN,"M"),0)),$P(^(0),"^",8),+$P(Y,",",2)>0!(DGCNT1&(+$E(Y)>0)) W !,*7,"THIS INSURANCE COMPANY WILL ONLY ACCEPT ONE VISIT PER BILL.",! G OK
OK1 I +Y W !,"YOU HAVE SELECTED VISIT(S) NUMBERED- ",$E(Y,1,$L(Y)-1),!,"IS THIS CORRECT" S %=1 D YN^DICN I %=-1 S IBOUT=1 G Q2
I +Y,'% W !,"Enter 'Y'es to include these visits.",!,"Enter 'N'o to reselect." G OK1
I +Y,%=2 G OK
G:'Y Q1
S IBVT=Y
F I=1:1 S:$P(IBVT,",",I) DGAP=$P(IBVT,",",I) Q:$P(IBVT,",",I)']"" D VFILE
D Q2 Q
VFILE S (DINUM,X)=+^UTILITY($J,"OPV","AP",DGAP)
VFILE1 S DA(1)=IBIFN,DIC(0)="L",DIC="^DGCR(399,"_DA(1)_",""OP"","
S:'$D(^DGCR(399,DA(1),"OP",0)) ^(0)="^399.043DA^"
I $D(^DGCR(399,DA(1),"OP",DINUM)) G VFILEQ
I '$$OPV1^IBCU41(IBIFN,1)!('$$OPV2^IBCU41(DINUM,IBIFN,1)) D S DGNOADD=1 G VFILEQ
. W !,?10,"Can't add OP Visit Date of ",$$DAT2^IBOUTL(X)
S Y=$$DUPCHK^IBCU41(DINUM,IBIFN,1)
;I $P(^DGCR(399,IBIFN,0),"^",19)'=2,$O(^DGCR(399,DA(1),"OP",0)),$D(^DGCR(399,"ASC2",DA(1))) W !?4,"Only 1 visit date allowed on bills with Amb. Surg. Codes!" S DGNOADD=1 G VFILEQ
W !?4,"Adding OP Visit Date of ",$$DAT2^IBOUTL(X)
K DD,DO D FILE^DICN L ^DGCR(399,IBIFN):1
VFILEQ Q
Q2 S IBQUIT=1 K DIR,DIRUT G Q
Q1 S:$D(DUOUT)!$D(DTOUT) IBOUT=1 K DIR,DIRUT
Q K DA,DGBIL,DGCNT,DGCNT2,DGCOD,DGCT1,IBCD,DGCPT,DGCPT1,IBOPV,IBCOPV1,IBOPV2,IBOPV3,IBOPV4,DGCNT1,DGCNT2,DGDT,DGDT,DGDT1,DGFIL,DGMT,DGMT1,DGNO,DGNOD,DGTYP,DGTYPE,DIC,DIE,DINUM,DR,L,V,X,Y,IBCHG1,IBCHG2,IBRVCE,IBVDT
K DGTE,I9,DGLP,DGCPT0,DGCPT2,DGCPT3,I7,P,IBVT,DGAP,Z,I4,DGASC,DGCPTS,DGBIL1,DGDIV,DGDAT,DGNOADD,IBFT,IBCODCL,DGUNIT Q
;
HDR1 W @IOF,?25,"<<<OUTPATIENT VISITS>>>",!! S X="",$P(X,"=",80)="" W X Q
HDR W !,"NO.",?6,"VISIT DATE",?19,"ELIG/MT",?28,"PROVIDER",?45,"BILL# - TYPE",?65,"STOP CD/CLINIC"
W !,"===",?6,"==========",?19,"=======",?28,"========",?45,"============",?65,"==============="
Q
VT S I2="" F Z1=1:1 S I2=$O(^UTILITY($J,"OPV",I1,I2)) Q:I2=""!IBQUIT S I3="" F I4=1:1 S I3=$O(^UTILITY($J,"OPV",I1,I2,I3)) Q:I3="" S IBOPV3=^UTILITY($J,"OPV",I1,I2,I3) D VT1 Q:IBQUIT
Q
VT1 D SCR Q:IBQUIT I (Z1>1)!(I4>1) W:$X>1 ! W ?5,$G(IBDATE)
W ?19,$P(IBOPV3,"^") W:$P(IBOPV3,"^",2)]"" "/"_$P(IBOPV3,"^",2)
W:+$P(IBOPV3,U,8) ?28,$E($P($G(^VA(200,+$P(IBOPV3,U,8),0)),"^",1),1,15)
I Z1=1,I4=1,$P(^UTILITY($J,"OPV","AP",I),"^",4)'="" W ?45,$J($P(^UTILITY($J,"OPV","AP",I),"^",4),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",5)
W ?65,$E($P(^UTILITY($J,"OPV",I1,I2,I3),"^",6),1,15)
W !
I $P($G(^IBT(356,+$O(^IBT(356,"ASCE",+$P(^UTILITY($J,"OPV",I1,I2,I3),"^",9),0)),0)),"^",19) W ?7,$E("**RNB: "_$P($G(^IBE(356.8,+$P(^(0),"^",19),0)),"^"),1,30)
I Z1=1,I4=1,$P(^UTILITY($J,"OPV","AP",I),"^",6)'="" W ?45,$J($P(^UTILITY($J,"OPV","AP",I),"^",6),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",7)
W ?65,$E($P(^UTILITY($J,"OPV",I1,I2,I3),"^",7),1,15)
I (Z1=1)&(I4=1) F P=8:2 Q:$P(^UTILITY($J,"OPV","AP",I),"^",P)="" W !,?45,$J($P(^UTILITY($J,"OPV","AP",I),"^",P),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",P+1)
Q
SCR Q:IBQUIT I $E(IOST,1,2)["C-",$Y+6>IOSL F Y=$Y:1:IOSL-5 W !
I W !,"Press return to continue, ""^"" to exit display, or " D PICK I 'IBQUIT W @IOF D HDR1,HDR W !
Q
HLP ;W !!,"Enter a number between 1 and ",DGCNT," or a list or range separated with commas",!,"or dashes, e.g., 1,3,5 or 2-4,8"
;W !,"The number(s) must correspond to a visit." R H:5 K H
Q
CHG W:(Z1=1)&(I4=1) ?31,$J($P(^UTILITY($J,"OPV","AP",I),"^",2),8) Q
NOVT I 'DGCNT D HDR1 W !!,"NO OUTPATIENT VISITS FOUND DURING THE PERIOD COVERED BY THIS STATEMENT" D Q Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCOPV1 4479 printed Sep 23, 2025@19:54:52 Page 2
IBCOPV1 ;ALB/LDB - CPT LISTING IN MCCR ;30 APR 90
+1 ;;2.0;INTEGRATED BILLING;**106,260,796**;21-MAR-94;Build 34
+2 ;
+3 ;MAP TO DGCROPV1
+4 ;
PRT ;
+1 NEW IBQUIT,IBNUM,IBDATE,Z1
SET IBQUIT=0
+2 ;D:$D(DIR) HLP
+3 DO HDR1
DO HDR
FOR I=0:0
SET I=$ORDER(^UTILITY($JOB,"OPV","AP",I))
if 'I
QUIT
SET IBNUM=I-1
WRITE !
DO SCR
if IBQUIT
QUIT
SET IBNUM=I
WRITE ?1,I_")",?5
SET (Y,I1)=+^UTILITY($JOB,"OPV","AP",I)
DO DT^DIQ
SET IBDATE=Y
KILL Y
DO VT
if IBQUIT
QUIT
+4 ;W:DGCNT>30 !!,"THERE ARE MORE THAN TEN VISITS DURING THE PERIOD THAT THIS STATEMENT COVERS."
+5 FOR C=$Y:1:(IOSL-6)
WRITE !
+6 if 'IBQUIT
DO PICK
+7 GOTO Q2
+8 ;Q:$D(DIR)
PICK KILL Y
SET DIR("A")="Select visits to include in this bill (1-"_IBNUM_"): "
OK SET DIR(0)="LAO^1:"_IBNUM_"^K:X[""."" X"
DO ^DIR
+1 IF $DATA(DTOUT)!$DATA(DUOUT)
SET IBQUIT=1
QUIT
+2 if X=""
QUIT
+3 IF $PIECE($$OPV1^IBCU41(IBIFN,1,($LENGTH(Y,",")-1)),U,2)'=""
GOTO OK
+4 ;I (DGCNT1+($L(Y,",")-1))>30 W !,"Maximum of 30 visits allowed per bill!",!,"The visits already on the bill along with those selected total more than 30." G OK
+5 ;I $D(^DIC(36,+^DGCR(399,IBIFN,"M"),0)),$P(^(0),"^",8),+$P(Y,",",2)>0!(DGCNT1&(+$E(Y)>0)) W !,*7,"THIS INSURANCE COMPANY WILL ONLY ACCEPT ONE VISIT PER BILL.",! G OK
OK1 IF +Y
WRITE !,"YOU HAVE SELECTED VISIT(S) NUMBERED- ",$EXTRACT(Y,1,$LENGTH(Y)-1),!,"IS THIS CORRECT"
SET %=1
DO YN^DICN
IF %=-1
SET IBOUT=1
GOTO Q2
+1 IF +Y
IF '%
WRITE !,"Enter 'Y'es to include these visits.",!,"Enter 'N'o to reselect."
GOTO OK1
+2 IF +Y
IF %=2
GOTO OK
+3 if 'Y
GOTO Q1
+4 SET IBVT=Y
+5 FOR I=1:1
if $PIECE(IBVT,",",I)
SET DGAP=$PIECE(IBVT,",",I)
if $PIECE(IBVT,",",I)']""
QUIT
DO VFILE
+6 DO Q2
QUIT
VFILE SET (DINUM,X)=+^UTILITY($JOB,"OPV","AP",DGAP)
VFILE1 SET DA(1)=IBIFN
SET DIC(0)="L"
SET DIC="^DGCR(399,"_DA(1)_",""OP"","
+1 if '$DATA(^DGCR(399,DA(1),"OP",0))
SET ^(0)="^399.043DA^"
+2 IF $DATA(^DGCR(399,DA(1),"OP",DINUM))
GOTO VFILEQ
+3 IF '$$OPV1^IBCU41(IBIFN,1)!('$$OPV2^IBCU41(DINUM,IBIFN,1))
Begin DoDot:1
+4 WRITE !,?10,"Can't add OP Visit Date of ",$$DAT2^IBOUTL(X)
End DoDot:1
SET DGNOADD=1
GOTO VFILEQ
+5 SET Y=$$DUPCHK^IBCU41(DINUM,IBIFN,1)
+6 ;I $P(^DGCR(399,IBIFN,0),"^",19)'=2,$O(^DGCR(399,DA(1),"OP",0)),$D(^DGCR(399,"ASC2",DA(1))) W !?4,"Only 1 visit date allowed on bills with Amb. Surg. Codes!" S DGNOADD=1 G VFILEQ
+7 WRITE !?4,"Adding OP Visit Date of ",$$DAT2^IBOUTL(X)
+8 KILL DD,DO
DO FILE^DICN
LOCK ^DGCR(399,IBIFN):1
VFILEQ QUIT
Q2 SET IBQUIT=1
KILL DIR,DIRUT
GOTO Q
Q1 if $DATA(DUOUT)!$DATA(DTOUT)
SET IBOUT=1
KILL DIR,DIRUT
Q KILL DA,DGBIL,DGCNT,DGCNT2,DGCOD,DGCT1,IBCD,DGCPT,DGCPT1,IBOPV,IBCOPV1,IBOPV2,IBOPV3,IBOPV4,DGCNT1,DGCNT2,DGDT,DGDT,DGDT1,DGFIL,DGMT,DGMT1,DGNO,DGNOD,DGTYP,DGTYPE,DIC,DIE,DINUM,DR,L,V,X,Y,IBCHG1,IBCHG2,IBRVCE,IBVDT
+1 KILL DGTE,I9,DGLP,DGCPT0,DGCPT2,DGCPT3,I7,P,IBVT,DGAP,Z,I4,DGASC,DGCPTS,DGBIL1,DGDIV,DGDAT,DGNOADD,IBFT,IBCODCL,DGUNIT
QUIT
+2 ;
HDR1 WRITE @IOF,?25,"<<<OUTPATIENT VISITS>>>",!!
SET X=""
SET $PIECE(X,"=",80)=""
WRITE X
QUIT
HDR WRITE !,"NO.",?6,"VISIT DATE",?19,"ELIG/MT",?28,"PROVIDER",?45,"BILL# - TYPE",?65,"STOP CD/CLINIC"
+1 WRITE !,"===",?6,"==========",?19,"=======",?28,"========",?45,"============",?65,"==============="
+2 QUIT
VT SET I2=""
FOR Z1=1:1
SET I2=$ORDER(^UTILITY($JOB,"OPV",I1,I2))
if I2=""!IBQUIT
QUIT
SET I3=""
FOR I4=1:1
SET I3=$ORDER(^UTILITY($JOB,"OPV",I1,I2,I3))
if I3=""
QUIT
SET IBOPV3=^UTILITY($JOB,"OPV",I1,I2,I3)
DO VT1
if IBQUIT
QUIT
+1 QUIT
VT1 DO SCR
if IBQUIT
QUIT
IF (Z1>1)!(I4>1)
if $X>1
WRITE !
WRITE ?5,$GET(IBDATE)
+1 WRITE ?19,$PIECE(IBOPV3,"^")
if $PIECE(IBOPV3,"^",2)]""
WRITE "/"_$PIECE(IBOPV3,"^",2)
+2 if +$PIECE(IBOPV3,U,8)
WRITE ?28,$EXTRACT($PIECE($GET(^VA(200,+$PIECE(IBOPV3,U,8),0)),"^",1),1,15)
+3 IF Z1=1
IF I4=1
IF $PIECE(^UTILITY($JOB,"OPV","AP",I),"^",4)'=""
WRITE ?45,$JUSTIFY($PIECE(^UTILITY($JOB,"OPV","AP",I),"^",4),7),"-",$PIECE(^UTILITY($JOB,"OPV","AP",I),"^",5)
+4 WRITE ?65,$EXTRACT($PIECE(^UTILITY($JOB,"OPV",I1,I2,I3),"^",6),1,15)
+5 WRITE !
+6 IF $PIECE($GET(^IBT(356,+$ORDER(^IBT(356,"ASCE",+$PIECE(^UTILITY($JOB,"OPV",I1,I2,I3),"^",9),0)),0)),"^",19)
WRITE ?7,$EXTRACT("**RNB: "_$PIECE($GET(^IBE(356.8,+$PIECE(^(0),"^",19),0)),"^"),1,30)
+7 IF Z1=1
IF I4=1
IF $PIECE(^UTILITY($JOB,"OPV","AP",I),"^",6)'=""
WRITE ?45,$JUSTIFY($PIECE(^UTILITY($JOB,"OPV","AP",I),"^",6),7),"-",$PIECE(^UTILITY($JOB,"OPV","AP",I),"^",7)
+8 WRITE ?65,$EXTRACT($PIECE(^UTILITY($JOB,"OPV",I1,I2,I3),"^",7),1,15)
+9 IF (Z1=1)&(I4=1)
FOR P=8:2
if $PIECE(^UTILITY($JOB,"OPV","AP",I),"^",P)=""
QUIT
WRITE !,?45,$JUSTIFY($PIECE(^UTILITY($JOB,"OPV","AP",I),"^",P),7),"-",$PIECE(^UTILITY($JOB,"OPV","AP",I),"^",P+1)
+10 QUIT
SCR if IBQUIT
QUIT
IF $EXTRACT(IOST,1,2)["C-"
IF $Y+6>IOSL
FOR Y=$Y:1:IOSL-5
WRITE !
+1 IF $TEST
WRITE !,"Press return to continue, ""^"" to exit display, or "
DO PICK
IF 'IBQUIT
WRITE @IOF
DO HDR1
DO HDR
WRITE !
+2 QUIT
HLP ;W !!,"Enter a number between 1 and ",DGCNT," or a list or range separated with commas",!,"or dashes, e.g., 1,3,5 or 2-4,8"
+1 ;W !,"The number(s) must correspond to a visit." R H:5 K H
+2 QUIT
CHG if (Z1=1)&(I4=1)
WRITE ?31,$JUSTIFY($PIECE(^UTILITY($JOB,"OPV","AP",I),"^",2),8)
QUIT
NOVT IF 'DGCNT
DO HDR1
WRITE !!,"NO OUTPATIENT VISITS FOUND DURING THE PERIOD COVERED BY THIS STATEMENT"
DO Q
QUIT
