- IBCB2 ;ALB/AAS - Process bill after enter/edited ; 13-DEC-89
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ;MAP TO DGCRB2
- ;
- ;IBQUIT = Flag to stop processing
- ;IBVIEW = Flag showing Bill has been viewed
- ;IBDISP = Flag showing Bill entering display been viewed.
- ;
- VIEW ;View screens; if status allows editing , allow editing
- S IBVIEW=1,IBV=$S($D(IBV):IBV,1:1),%=2 W !,"WANT TO ",$S('IBV:"EDIT",1:"REVIEW")," SCREENS" D YN^DICN S:%=-1 IBQUIT=1 Q:%=-1!(%=2)
- I '% W !?4,"YES - to ",$S('IBV:"EDIT",1:"REVIEW")," the screens",!?4,"NO - To take no action" G VIEW
- Q:%'=1
- VIEW1 S IBVIEW=1 D ^IBCSCU,^IBCSC1
- Q
- DISP S IB("S")=$S($D(^DGCR(399,IBIFN,"S")):^("S"),1:"")
- W ! D DISP^IBCNQ W !
- S IBDISP=1 Q
- Q
- EDITS S IBQUIT=0 I '$D(IBER)!('$D(PRCASV)) D EN^IBCBB
- I IBER]"" D FXERR I IBER]"" W !,"Can't Continue" S IBQUIT=1 Q
- I $D(PRCASV),'($D(PRCASV("OKAY"))) D ^PRCASVC6 I 'PRCASV("OKAY") D FXERR1 I 'PRCASV("OKAY") W !,"Can't Continue" S IBQUIT=1 Q
- D:'$D(IBDISP) DISP
- D:'$D(IBVIEW) VIEW
- Q
- FXERR S Y2="" F I=1:1 S X=$P(IBER,";",I) Q:X="" I $D(^IBE(350.8,$O(^IBE(350.8,"AC",X,0)),0)) S Y=^(0),Y1=$P(Y,"^",5),Y2=Y2_Y1 I Y1<5 W !?5,$P(Y,"^",2)
- Q:Y2'["3" W !!,"Do you wish to ",$S(IBAC<4:"edit",1:"review")," Inconsistencies now" S %=2 D YN^DICN Q:%=-1!(%=2)
- I '% W !!?4,"YES - To edit inconsistent fields",!?4,"NO - To discontinue this process." G FXERR
- D VIEW1
- D EN^IBCBB G:IBER]"" FXERR
- Q
- FXERR1 S Y2="",J=0 F I=0:0 S J=$O(PRCAE(J)) Q:J="" S X=PRCAE(J) I $D(^IBE(350.8,$O(^IBE(350.8,"AC",X,0)),0)) S Y=^(0),Y1=$P(Y,"^",5),Y2=Y2_Y1 I Y1<5 W !?5,$P(Y,"^",2)
- Q:Y2'["3" W !!,"Do you wish to edit Inconsistencies now" S %=2 D YN^DICN Q:%=-1!(%=2)
- I '% W !!?4,"YES - To edit inconsistent fields",!?4,"NO - To discontinue this process." G FXERR1
- D VIEW1
- D GVAR^IBCBB,ARRAY^IBCBB1,^PRCASVC6 G:'PRCASV("OKAY") FXERR1
- Q
- NOPTF S IBAC1=1 I $D(^DGCR(399,IBIFN,0)),$P(^(0),"^",8),'$D(^DGPT($P(^(0),"^",8),0)) S IBAC1=0
- Q
- NOPTF1 W !!,*7,"PTF Record for this Bill was DELETED!",!,"Further processing not allowed. Cancel and re-enter." Q
- IBCB2 ;ALB/AAS - Process bill after enter/edited ; 13-DEC-89
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ;MAP TO DGCRB2
- +5 ;
- +6 ;IBQUIT = Flag to stop processing
- +7 ;IBVIEW = Flag showing Bill has been viewed
- +8 ;IBDISP = Flag showing Bill entering display been viewed.
- +9 ;
- VIEW ;View screens; if status allows editing , allow editing
- +1 SET IBVIEW=1
- SET IBV=$SELECT($DATA(IBV):IBV,1:1)
- SET %=2
- WRITE !,"WANT TO ",$SELECT('IBV:"EDIT",1:"REVIEW")," SCREENS"
- DO YN^DICN
- IF %=-1
- SET IBQUIT=1
- IF %=-1!(%=2)
- QUIT
- +2 IF '%
- WRITE !?4,"YES - to ",$SELECT('IBV:"EDIT",1:"REVIEW")," the screens",!?4,"NO - To take no action"
- GOTO VIEW
- +3 IF %'=1
- QUIT
- VIEW1 SET IBVIEW=1
- DO ^IBCSCU
- DO ^IBCSC1
- +1 QUIT
- DISP SET IB("S")=$SELECT($DATA(^DGCR(399,IBIFN,"S")):^("S"),1:"")
- +1 WRITE !
- DO DISP^IBCNQ
- WRITE !
- +2 SET IBDISP=1
- QUIT
- +3 QUIT
- EDITS SET IBQUIT=0
- IF '$DATA(IBER)!('$DATA(PRCASV))
- DO EN^IBCBB
- +1 IF IBER]""
- DO FXERR
- IF IBER]""
- WRITE !,"Can't Continue"
- SET IBQUIT=1
- QUIT
- +2 IF $DATA(PRCASV)
- IF '($DATA(PRCASV("OKAY")))
- DO ^PRCASVC6
- IF 'PRCASV("OKAY")
- DO FXERR1
- IF 'PRCASV("OKAY")
- WRITE !,"Can't Continue"
- SET IBQUIT=1
- QUIT
- +3 IF '$DATA(IBDISP)
- DO DISP
- +4 IF '$DATA(IBVIEW)
- DO VIEW
- +5 QUIT
- FXERR SET Y2=""
- FOR I=1:1
- SET X=$PIECE(IBER,";",I)
- IF X=""
- QUIT
- IF $DATA(^IBE(350.8,$ORDER(^IBE(350.8,"AC",X,0)),0))
- SET Y=^(0)
- SET Y1=$PIECE(Y,"^",5)
- SET Y2=Y2_Y1
- IF Y1<5
- WRITE !?5,$PIECE(Y,"^",2)
- +1 IF Y2'["3"
- QUIT
- WRITE !!,"Do you wish to ",$SELECT(IBAC<4:"edit",1:"review")," Inconsistencies now"
- SET %=2
- DO YN^DICN
- IF %=-1!(%=2)
- QUIT
- +2 IF '%
- WRITE !!?4,"YES - To edit inconsistent fields",!?4,"NO - To discontinue this process."
- GOTO FXERR
- +3 DO VIEW1
- +4 DO EN^IBCBB
- IF IBER]""
- GOTO FXERR
- +5 QUIT
- FXERR1 SET Y2=""
- SET J=0
- FOR I=0:0
- SET J=$ORDER(PRCAE(J))
- IF J=""
- QUIT
- SET X=PRCAE(J)
- IF $DATA(^IBE(350.8,$ORDER(^IBE(350.8,"AC",X,0)),0))
- SET Y=^(0)
- SET Y1=$PIECE(Y,"^",5)
- SET Y2=Y2_Y1
- IF Y1<5
- WRITE !?5,$PIECE(Y,"^",2)
- +1 IF Y2'["3"
- QUIT
- WRITE !!,"Do you wish to edit Inconsistencies now"
- SET %=2
- DO YN^DICN
- IF %=-1!(%=2)
- QUIT
- +2 IF '%
- WRITE !!?4,"YES - To edit inconsistent fields",!?4,"NO - To discontinue this process."
- GOTO FXERR1
- +3 DO VIEW1
- +4 DO GVAR^IBCBB
- DO ARRAY^IBCBB1
- DO ^PRCASVC6
- IF 'PRCASV("OKAY")
- GOTO FXERR1
- +5 QUIT
- NOPTF SET IBAC1=1
- IF $DATA(^DGCR(399,IBIFN,0))
- IF $PIECE(^(0),"^",8)
- IF '$DATA(^DGPT($PIECE(^(0),"^",8),0))
- SET IBAC1=0
- +1 QUIT
- NOPTF1 WRITE !!,*7,"PTF Record for this Bill was DELETED!",!,"Further processing not allowed. Cancel and re-enter."
- QUIT
