FBCHDI2 ;AISC/DMK-DISPLAY INVOICE ;08FEB89
;;3.5;FEE BASIS;**122**;JAN 30, 1995;Build 8
;;Per VHA Directive 10-93-142, this routine should not be modified.
ASKIN K FBAANQ W !! S DIC="^FBAAI(",DIC(0)="AEQM" D ^DIC G END:X="^"!(X=""),ASKIN:Y<0 S FBI=+Y
S VAR="FBI",VAL=FBI,PGM="START^FBCHDI2" D ZIS^FBAAUTL G:FBPOP END S:IO=IO(0) FBAANQ=1
START S Q="",$P(Q,"=",80)="=",FBAAOUT=0,FBPG=$S($E(IOST,1,2)="C-":0,1:1)
U IO D PRVD^FBCHVH D HEDC^FBCHVH ; FB*3.5*122 added Provider information display
EN D GETINV^FBCHVH Q:FBAAOUT
F J=5,16,17 S FBIN(J)=$P(FBIN,"^",J)
S Y=FBIN(16) D PDF^FBAAUTL S FBIN(16)=Y S:$P(FBIN(5),";",2)="FB583(" FBIN(5)="" I FBIN(5)]"" S FBIN(5)=$S($D(^FB7078(+FBIN(5),0)):$P(^(0),"^",1),1:"")
I FBIN(17)]"" S FBIN(17)=$S($D(^FBAA(161.7,FBIN(17),0)):$P(^(0),"^",1),1:"")
I FBIN(5)]"" W !,?4,"Associated 7078: ",FBIN(5)
W !,?4,"Batch #: ",FBIN(17),?40,"Date Finalized: ",FBIN(16),!
I $D(^FBAAI(FBI,"FBREJ")),$P(^("FBREJ"),"^",1)]"" W ?4,"Rejects Pending!",?25,"Reject reason: ",$P(^("FBREJ"),"^",2),!,?4,"Old Batch #: ",$S($P(^("FBREJ"),"^",3):$S($D(^FBAA(161.7,$P(^("FBREJ"),"^",3),0)):$P(^(0),"^"),1:""),1:"")
Q:$D(FBLISTC)
G:$D(FBAANQ) ASKIN
END K VA D END^FBCHVH Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBCHDI2 1211 printed Dec 13, 2024@01:57:38 Page 2
FBCHDI2 ;AISC/DMK-DISPLAY INVOICE ;08FEB89
+1 ;;3.5;FEE BASIS;**122**;JAN 30, 1995;Build 8
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
ASKIN KILL FBAANQ
WRITE !!
SET DIC="^FBAAI("
SET DIC(0)="AEQM"
DO ^DIC
if X="^"!(X="")
GOTO END
if Y<0
GOTO ASKIN
SET FBI=+Y
+1 SET VAR="FBI"
SET VAL=FBI
SET PGM="START^FBCHDI2"
DO ZIS^FBAAUTL
if FBPOP
GOTO END
if IO=IO(0)
SET FBAANQ=1
START SET Q=""
SET $PIECE(Q,"=",80)="="
SET FBAAOUT=0
SET FBPG=$SELECT($EXTRACT(IOST,1,2)="C-":0,1:1)
+1 ; FB*3.5*122 added Provider information display
USE IO
DO PRVD^FBCHVH
DO HEDC^FBCHVH
EN DO GETINV^FBCHVH
if FBAAOUT
QUIT
+1 FOR J=5,16,17
SET FBIN(J)=$PIECE(FBIN,"^",J)
+2 SET Y=FBIN(16)
DO PDF^FBAAUTL
SET FBIN(16)=Y
if $PIECE(FBIN(5),";",2)="FB583("
SET FBIN(5)=""
IF FBIN(5)]""
SET FBIN(5)=$SELECT($DATA(^FB7078(+FBIN(5),0)):$PIECE(^(0),"^",1),1:"")
+3 IF FBIN(17)]""
SET FBIN(17)=$SELECT($DATA(^FBAA(161.7,FBIN(17),0)):$PIECE(^(0),"^",1),1:"")
+4 IF FBIN(5)]""
WRITE !,?4,"Associated 7078: ",FBIN(5)
+5 WRITE !,?4,"Batch #: ",FBIN(17),?40,"Date Finalized: ",FBIN(16),!
+6 IF $DATA(^FBAAI(FBI,"FBREJ"))
IF $PIECE(^("FBREJ"),"^",1)]""
WRITE ?4,"Rejects Pending!",?25,"Reject reason: ",$PIECE(^("FBREJ"),"^",2),!,?4,"Old Batch #: ",$SELECT($PIECE(^("FBREJ"),"^",3):$SELECT($DATA(^FBAA(161.7,$PIECE(^("FBREJ"),"^",3),0)):$PIECE(^(0),"^"),1:""),1:"")
+7 if $DATA(FBLISTC)
QUIT
+8 if $DATA(FBAANQ)
GOTO ASKIN
END KILL VA
DO END^FBCHVH
QUIT
