IBCERP5 ;ALB/TMP - BATCH LIST ;02-OCT-96
;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
Q
LIST ; List batch detail
N DIR,IBS1,Y,IBINCL
S DIR("A")="DO YOU WANT TO INCLUDE A LIST OF BILLS WITH EACH BATCH?: ",DIR(0)="YA",DIR("B")="YES" D ^DIR K DIR
I $D(DTOUT)!($D(DUOUT)) Q
S IBINCL=+Y
S DIR("A")="SORT BY",DIR(0)="SBM^B:BATCH;D:LAST DATE TRANSMITTED;S:LATEST BATCH RECEIPT STATUS",DIR("B")="B" D ^DIR K DIR
I $D(DTOUT)!($D(DUOUT)) Q
S IBS1=Y,(IBS1(1),IBS1(2))=""
;
I IBS1="B" D Q:IBS1(1)=""!(IBS1(2)="") G LISTQ
.F S DIR("?")="Enter the first 10-digit batch number you want included on the report",DIR("A")="Start with BATCH #: ",DIR("B")="FIRST",DIR(0)="FA" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) D Q:IBS1(1)'=""
..I Y'="FIRST",Y'?10N W !,*7,"Must enter a 10-digit batch #" Q
..S IBS1(1)=$S(Y:Y-1,1:0)
.Q:IBS1(1)=""
.F S DIR("?")="Enter the last 10-digit batch number you want included on the report",DIR("A")="Go to BATCH #: ",DIR("B")="LAST",DIR(0)="FA" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) D Q:IBS1(2)'=""
..I Y'="LAST",Y'?10N W !,*7,"Must enter a 10-digit batch #" Q
..S IBS1(2)=$S(Y="LAST":9999999999,1:+Y)
;
I IBS1="D" D Q:IBS1(1)=""!(IBS1(2)="") G LISTQ
.F S DIR("?")="Enter the first date you want to include on the report",DIR("A")="Start with LAST TRANSMIT DATE: ",DIR("B")="FIRST",DIR(0)="FA" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) D Q:IBS1(1)'=""
..I Y'="FIRST" S X=Y,%DT="P" D ^%DT I Y<0 W !,*7,"Must enter a valid date" Q
..S IBS1(1)=$S(Y:Y-.0000001,1:0)
.Q:IBS1(1)=""
.F S DIR("?")="Enter the last date you want to include on the report",DIR("A")="Go to LAST TRANSMIT DATE: ",DIR("B")="LAST",DIR(0)="FA" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) D Q:IBS1(2)'=""
..I Y'="LAST" S X=Y,%DT="P" D ^%DT I Y<0 W !,*7,"Must enter a valid date" Q
..S IBS1(2)=$S(Y="LAST":9999999,1:Y+.9999)
;
I IBS1="S" D Q:IBS1(1)="" G LISTQ
. N DA
.S DIR("A")="Select BATCH STATUS: ",DIR(0)="364.1,.02A" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) S (IBS1(1),IBS1(2))=$P(Y,U)
;
Q
;
LISTQ S %ZIS="QM" D ^%ZIS Q:POP
I $D(IO("Q")) K IO("Q") S ZTRTN="EN^IBCERP5",ZTSAVE("IB*")="",ZTDESC="EDI 837 BATCH DETAIL LIST" D ^%ZTLOAD K ZTSK D HOME^%ZIS Q
U IO
EN ; Queued job entrypoint
N IBPAGE,IBLINE,IBHDRDT,IB0,IB1,IBB,IBB0,IBBL,IB399,IBFIRST,IBSTOP,DIR,Y,IBXR,IBX,IBB3614,IBRIN,IBLTDT,IBTRSTAT
W:$E(IOST,1,2)["C-" @IOF ;Only initial form feed for print to screen
S (IBPAGE,IBSTOP)=0 D HDR1
S IBXR=$S(IBS1="B":"B",IBS1="D":"ALT",1:"ASTAT")
;
S IBV=IBS1(1)
F S IBV=$S(IBS1'="S":$O(^IBA(364.1,IBXR,IBV)),1:IBV) Q:IBV=""!(IBV]]IBS1(2)) S IB=0 F S IB=$O(^IBA(364.1,IBXR,IBV,IB)) S:'IB&(IBS1="S") IBV="" Q:'IB S IB0=$G(^IBA(364.1,IB,0)),IB1=$G(^(1)) D G:IBSTOP Q
.D:IBLINE>(IOSL-15) HDR1 Q:IBSTOP
.I 'IBFIRST W ! S IBLINE=IBLINE+1
.S:IBFIRST IBFIRST=0 S IBRESUB=$P(IB0,U,13)
. K IBX S IBX=1
. D:$P(IB0,U,10) CKRES^IBCESRV2(IB,0,.IBX)
.W !,"Batch #: ",$P(IB0,U),?40,"Rejected?: ",$P("NO^YES",U,+$P(IB0,U,5)+1),?60,$S(IBRESUB:"Resubmit: "_$S($P(IB0,U,10):"IN",1:"")_"COMPLETE",1:"")
.W !," Batch Type : ",$$EXPAND^IBTRE(364.1,.07,$P(IB0,U,7)),?42,"# Bills: ",$P(IB0,U,3),?60,"Mail Msg: ",$P(IB0,U,4)
.S IBLINE=IBLINE+1
.I IBLINE>(IOSL-5) D HDR1 Q:IBSTOP
.W !," Received in Austin?: "_$S($P(IB0,U,2)="A0":"Yes",1:"No")
.W !," Status Date: ",$$FMTE^XLFDT($P(IB1,U,5),2),?36,"Date Recorded: ",$$FMTE^XLFDT($P(IB1,U,6),2)
.S IBLINE=IBLINE+1
.I IBLINE>(IOSL-5) D HDR1 Q:IBSTOP
.W !," First Sent : ",$$FMTE^XLFDT($P(IB1,U),2),?47,"By: ",$E($$EXPAND^IBTRE(364.1,1.02,$P(IB1,U,2)),1,29)
.S IBLINE=IBLINE+1
.I IBLINE>(IOSL-5) D HDR1 Q:IBSTOP
.I $P(IB1,U)'=$P(IB1,U,3) W !," Last Sent : ",$$FMTE^XLFDT($P(IB1,U,3),2),?47,"By: ",$E($$EXPAND^IBTRE(364.1,1.02,$P(IB1,U,4)),1,29) S IBLINE=IBLINE+1
.I IBLINE>(IOSL-5) D HDR1 Q:IBSTOP
.I $P(IB0,U,8)'="" W !," ",$E($P(IB0,U,8),1,79) S IBLINE=IBLINE+1
.;EJK 4/5/5 Claim detail can come from 2 source files now.
.Q:'IBINCL ;List of bills not wanted
.I IBLINE>(IOSL-5) D HDR1 Q:IBSTOP
.W !," **BILLS**",?25,"Number Transmit Status Resubmit Batch #"
.I IBLINE>(IOSL-6) D HDR1 Q:IBSTOP
.K ^TMP($J,"IBSORT")
.W !,?2,$S($P(IB0,U,10):"* = NOT RESUBMITTED",1:""),?25,"-------- ------------------------- ----------------" S IBLINE=IBLINE+2
.;EJK 4/5/5 Get E-Claims test data from new file 361.4
.I $O(^IBM(361.4,"C",IB,"")) D
..S (IBB,IBBL)=0
..F S IBB=$O(^IBM(361.4,"C",IB,IBB)) Q:'IBB D
...S IBB0=$G(^IBM(361.4,IBB,0))
...S IB399=$G(^DGCR(399,+IBB0,0))
...S IBB3614=$P(IBB0,U,1)
...S IBLTDT=$P(IBB0,U,2)
...S IBRIN="",IBRIN=$O(^IBM(361.4,IBB,1,"ALTD",IBLTDT,IBRIN),-1)
...S $P(IBB3614,U,7)=$P($G(^IBM(361.4,IBB,1,IBRIN,0)),U,4)
...S ^TMP($J,"IBSORT",$P(IB399,U),IBB)=IBB3614
...Q
..Q
.I $O(^IBA(364,"C",IB,"")) D
..S (IBB,IBBL)=0 F S IBB=$O(^IBA(364,"C",IB,IBB)) Q:'IBB S IBB0=$G(^IBA(364,IBB,0)),IB399=$G(^DGCR(399,+IBB0,0)) S ^TMP($J,"IBSORT",$P(IB399,U),IBB)=IBB0 S:$D(IBX(IBB)) ^(IBB,1)=1
.S IBB1="" F S IBB1=$O(^TMP($J,"IBSORT",IBB1)) Q:IBB1=""!(IBSTOP) S IBB=0 F S IBB=$O(^TMP($J,"IBSORT",IBB1,IBB)) Q:'IBB S IBB0=$G(^(IBB)) D Q:IBSTOP
..I IBLINE>(IOSL-5) D HDR1 Q:IBSTOP D
...W !,"Batch #: ",$$EXPAND^IBTRE(364,.02,$P(IBB0,U,2)),?25,"Number Transmit Status" W:IBRESUB " Resubmit Batch #"
...W !,?9,"(continued)",?25,"-------- ------------------------- ----------------"
...S IBLINE=IBLINE+2,IBFIRST=0
..S IBTRSTAT=$$EXPAND^IBTRE(364,.03,$P(IBB0,U,3))
..W !,?24,$S($G(^TMP($J,"IBSORT",IBB1,IBB,1)):"*",1:" "),IBB1
..W ?35,$S($G(IBTRSTAT)'="":IBTRSTAT,1:"N/A")
..W ?65,$$EXPAND^IBTRE(364,.06,$P(IBB0,U,6))
..S IBLINE=IBLINE+1
G:IBSTOP Q
I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR
Q I '$D(ZTQUEUED) D ^%ZISC
I $D(ZTQUEUED) S ZTREQ="@"
K ^TMP($J,"IBSORT")
Q
;
HDR1 ; Header code
N Z,DIR,Y
I 'IBPAGE S IBHDRDT=$$HTE^XLFDT($H,"2")
I IBPAGE D Q:IBSTOP
.I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR S IBSTOP=('Y) Q:IBSTOP
.W @IOF
S IBPAGE=IBPAGE+1
W !,?32,"BATCH DETAIL LIST",?70,"PAGE: ",IBPAGE,!,?27,"RUN DATE: ",IBHDRDT
S Z="",$P(Z,"-",81)="" W !,Z
S IBLINE=3,IBFIRST=1
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCERP5 6167 printed Apr 09, 2024@21:08:01 Page 2
IBCERP5 ;ALB/TMP - BATCH LIST ;02-OCT-96
+1 ;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
+2 QUIT
LIST ; List batch detail
+1 NEW DIR,IBS1,Y,IBINCL
+2 SET DIR("A")="DO YOU WANT TO INCLUDE A LIST OF BILLS WITH EACH BATCH?: "
SET DIR(0)="YA"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
+3 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+4 SET IBINCL=+Y
+5 SET DIR("A")="SORT BY"
SET DIR(0)="SBM^B:BATCH;D:LAST DATE TRANSMITTED;S:LATEST BATCH RECEIPT STATUS"
SET DIR("B")="B"
DO ^DIR
KILL DIR
+6 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+7 SET IBS1=Y
SET (IBS1(1),IBS1(2))=""
+8 ;
+9 IF IBS1="B"
Begin DoDot:1
+10 FOR
SET DIR("?")="Enter the first 10-digit batch number you want included on the report"
SET DIR("A")="Start with BATCH #: "
SET DIR("B")="FIRST"
SET DIR(0)="FA"
DO ^DIR
KILL DIR
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
Begin DoDot:2
+11 IF Y'="FIRST"
IF Y'?10N
WRITE !,*7,"Must enter a 10-digit batch #"
QUIT
+12 SET IBS1(1)=$SELECT(Y:Y-1,1:0)
End DoDot:2
if IBS1(1)'=""
QUIT
+13 if IBS1(1)=""
QUIT
+14 FOR
SET DIR("?")="Enter the last 10-digit batch number you want included on the report"
SET DIR("A")="Go to BATCH #: "
SET DIR("B")="LAST"
SET DIR(0)="FA"
DO ^DIR
KILL DIR
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
Begin DoDot:2
+15 IF Y'="LAST"
IF Y'?10N
WRITE !,*7,"Must enter a 10-digit batch #"
QUIT
+16 SET IBS1(2)=$SELECT(Y="LAST":9999999999,1:+Y)
End DoDot:2
if IBS1(2)'=""
QUIT
End DoDot:1
if IBS1(1)=""!(IBS1(2)="")
QUIT
GOTO LISTQ
+17 ;
+18 IF IBS1="D"
Begin DoDot:1
+19 FOR
SET DIR("?")="Enter the first date you want to include on the report"
SET DIR("A")="Start with LAST TRANSMIT DATE: "
SET DIR("B")="FIRST"
SET DIR(0)="FA"
DO ^DIR
KILL DIR
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
Begin DoDot:2
+20 IF Y'="FIRST"
SET X=Y
SET %DT="P"
DO ^%DT
IF Y<0
WRITE !,*7,"Must enter a valid date"
QUIT
+21 SET IBS1(1)=$SELECT(Y:Y-.0000001,1:0)
End DoDot:2
if IBS1(1)'=""
QUIT
+22 if IBS1(1)=""
QUIT
+23 FOR
SET DIR("?")="Enter the last date you want to include on the report"
SET DIR("A")="Go to LAST TRANSMIT DATE: "
SET DIR("B")="LAST"
SET DIR(0)="FA"
DO ^DIR
KILL DIR
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
Begin DoDot:2
+24 IF Y'="LAST"
SET X=Y
SET %DT="P"
DO ^%DT
IF Y<0
WRITE !,*7,"Must enter a valid date"
QUIT
+25 SET IBS1(2)=$SELECT(Y="LAST":9999999,1:Y+.9999)
End DoDot:2
if IBS1(2)'=""
QUIT
End DoDot:1
if IBS1(1)=""!(IBS1(2)="")
QUIT
GOTO LISTQ
+26 ;
+27 IF IBS1="S"
Begin DoDot:1
+28 NEW DA
+29 SET DIR("A")="Select BATCH STATUS: "
SET DIR(0)="364.1,.02A"
DO ^DIR
KILL DIR
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
SET (IBS1(1),IBS1(2))=$PIECE(Y,U)
End DoDot:1
if IBS1(1)=""
QUIT
GOTO LISTQ
+30 ;
+31 QUIT
+32 ;
LISTQ SET %ZIS="QM"
DO ^%ZIS
if POP
QUIT
+1 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTRTN="EN^IBCERP5"
SET ZTSAVE("IB*")=""
SET ZTDESC="EDI 837 BATCH DETAIL LIST"
DO ^%ZTLOAD
KILL ZTSK
DO HOME^%ZIS
QUIT
+2 USE IO
EN ; Queued job entrypoint
+1 NEW IBPAGE,IBLINE,IBHDRDT,IB0,IB1,IBB,IBB0,IBBL,IB399,IBFIRST,IBSTOP,DIR,Y,IBXR,IBX,IBB3614,IBRIN,IBLTDT,IBTRSTAT
+2 ;Only initial form feed for print to screen
if $EXTRACT(IOST,1,2)["C-"
WRITE @IOF
+3 SET (IBPAGE,IBSTOP)=0
DO HDR1
+4 SET IBXR=$SELECT(IBS1="B":"B",IBS1="D":"ALT",1:"ASTAT")
+5 ;
+6 SET IBV=IBS1(1)
+7 FOR
SET IBV=$SELECT(IBS1'="S":$ORDER(^IBA(364.1,IBXR,IBV)),1:IBV)
if IBV=""!(IBV]]IBS1(2))
QUIT
SET IB=0
FOR
SET IB=$ORDER(^IBA(364.1,IBXR,IBV,IB))
if 'IB&(IBS1="S")
SET IBV=""
if 'IB
QUIT
SET IB0=$GET(^IBA(364.1,IB,0))
SET IB1=$GET(^(1))
Begin DoDot:1
+8 if IBLINE>(IOSL-15)
DO HDR1
if IBSTOP
QUIT
+9 IF 'IBFIRST
WRITE !
SET IBLINE=IBLINE+1
+10 if IBFIRST
SET IBFIRST=0
SET IBRESUB=$PIECE(IB0,U,13)
+11 KILL IBX
SET IBX=1
+12 if $PIECE(IB0,U,10)
DO CKRES^IBCESRV2(IB,0,.IBX)
+13 WRITE !,"Batch #: ",$PIECE(IB0,U),?40,"Rejected?: ",$PIECE("NO^YES",U,+$PIECE(IB0,U,5)+1),?60,$SELECT(IBRESUB:"Resubmit: "_$SELECT($PIECE(IB0,U,10):"IN",1:"")_"COMPLETE",1:"")
+14 WRITE !," Batch Type : ",$$EXPAND^IBTRE(364.1,.07,$PIECE(IB0,U,7)),?42,"# Bills: ",$PIECE(IB0,U,3),?60,"Mail Msg: ",$PIECE(IB0,U,4)
+15 SET IBLINE=IBLINE+1
+16 IF IBLINE>(IOSL-5)
DO HDR1
if IBSTOP
QUIT
+17 WRITE !," Received in Austin?: "_$SELECT($PIECE(IB0,U,2)="A0":"Yes",1:"No")
+18 WRITE !," Status Date: ",$$FMTE^XLFDT($PIECE(IB1,U,5),2),?36,"Date Recorded: ",$$FMTE^XLFDT($PIECE(IB1,U,6),2)
+19 SET IBLINE=IBLINE+1
+20 IF IBLINE>(IOSL-5)
DO HDR1
if IBSTOP
QUIT
+21 WRITE !," First Sent : ",$$FMTE^XLFDT($PIECE(IB1,U),2),?47,"By: ",$EXTRACT($$EXPAND^IBTRE(364.1,1.02,$PIECE(IB1,U,2)),1,29)
+22 SET IBLINE=IBLINE+1
+23 IF IBLINE>(IOSL-5)
DO HDR1
if IBSTOP
QUIT
+24 IF $PIECE(IB1,U)'=$PIECE(IB1,U,3)
WRITE !," Last Sent : ",$$FMTE^XLFDT($PIECE(IB1,U,3),2),?47,"By: ",$EXTRACT($$EXPAND^IBTRE(364.1,1.02,$PIECE(IB1,U,4)),1,29)
SET IBLINE=IBLINE+1
+25 IF IBLINE>(IOSL-5)
DO HDR1
if IBSTOP
QUIT
+26 IF $PIECE(IB0,U,8)'=""
WRITE !," ",$EXTRACT($PIECE(IB0,U,8),1,79)
SET IBLINE=IBLINE+1
+27 ;EJK 4/5/5 Claim detail can come from 2 source files now.
+28 ;List of bills not wanted
if 'IBINCL
QUIT
+29 IF IBLINE>(IOSL-5)
DO HDR1
if IBSTOP
QUIT
+30 WRITE !," **BILLS**",?25,"Number Transmit Status Resubmit Batch #"
+31 IF IBLINE>(IOSL-6)
DO HDR1
if IBSTOP
QUIT
+32 KILL ^TMP($JOB,"IBSORT")
+33 WRITE !,?2,$SELECT($PIECE(IB0,U,10):"* = NOT RESUBMITTED",1:""),?25,"-------- ------------------------- ----------------"
SET IBLINE=IBLINE+2
+34 ;EJK 4/5/5 Get E-Claims test data from new file 361.4
+35 IF $ORDER(^IBM(361.4,"C",IB,""))
Begin DoDot:2
+36 SET (IBB,IBBL)=0
+37 FOR
SET IBB=$ORDER(^IBM(361.4,"C",IB,IBB))
if 'IBB
QUIT
Begin DoDot:3
+38 SET IBB0=$GET(^IBM(361.4,IBB,0))
+39 SET IB399=$GET(^DGCR(399,+IBB0,0))
+40 SET IBB3614=$PIECE(IBB0,U,1)
+41 SET IBLTDT=$PIECE(IBB0,U,2)
+42 SET IBRIN=""
SET IBRIN=$ORDER(^IBM(361.4,IBB,1,"ALTD",IBLTDT,IBRIN),-1)
+43 SET $PIECE(IBB3614,U,7)=$PIECE($GET(^IBM(361.4,IBB,1,IBRIN,0)),U,4)
+44 SET ^TMP($JOB,"IBSORT",$PIECE(IB399,U),IBB)=IBB3614
+45 QUIT
End DoDot:3
+46 QUIT
End DoDot:2
+47 IF $ORDER(^IBA(364,"C",IB,""))
Begin DoDot:2
+48 SET (IBB,IBBL)=0
FOR
SET IBB=$ORDER(^IBA(364,"C",IB,IBB))
if 'IBB
QUIT
SET IBB0=$GET(^IBA(364,IBB,0))
SET IB399=$GET(^DGCR(399,+IBB0,0))
SET ^TMP($JOB,"IBSORT",$PIECE(IB399,U),IBB)=IBB0
if $DATA(IBX(IBB))
SET ^(IBB,1)=1
End DoDot:2
+49 SET IBB1=""
FOR
SET IBB1=$ORDER(^TMP($JOB,"IBSORT",IBB1))
if IBB1=""!(IBSTOP)
QUIT
SET IBB=0
FOR
SET IBB=$ORDER(^TMP($JOB,"IBSORT",IBB1,IBB))
if 'IBB
QUIT
SET IBB0=$GET(^(IBB))
Begin DoDot:2
+50 IF IBLINE>(IOSL-5)
DO HDR1
if IBSTOP
QUIT
Begin DoDot:3
+51 WRITE !,"Batch #: ",$$EXPAND^IBTRE(364,.02,$PIECE(IBB0,U,2)),?25,"Number Transmit Status"
if IBRESUB
WRITE " Resubmit Batch #"
+52 WRITE !,?9,"(continued)",?25,"-------- ------------------------- ----------------"
+53 SET IBLINE=IBLINE+2
SET IBFIRST=0
End DoDot:3
+54 SET IBTRSTAT=$$EXPAND^IBTRE(364,.03,$PIECE(IBB0,U,3))
+55 WRITE !,?24,$SELECT($GET(^TMP($JOB,"IBSORT",IBB1,IBB,1)):"*",1:" "),IBB1
+56 WRITE ?35,$SELECT($GET(IBTRSTAT)'="":IBTRSTAT,1:"N/A")
+57 WRITE ?65,$$EXPAND^IBTRE(364,.06,$PIECE(IBB0,U,6))
+58 SET IBLINE=IBLINE+1
End DoDot:2
if IBSTOP
QUIT
End DoDot:1
if IBSTOP
GOTO Q
+59 if IBSTOP
GOTO Q
+60 IF $EXTRACT(IOST,1,2)["C-"
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
Q IF '$DATA(ZTQUEUED)
DO ^%ZISC
+1 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 KILL ^TMP($JOB,"IBSORT")
+3 QUIT
+4 ;
HDR1 ; Header code
+1 NEW Z,DIR,Y
+2 IF 'IBPAGE
SET IBHDRDT=$$HTE^XLFDT($HOROLOG,"2")
+3 IF IBPAGE
Begin DoDot:1
+4 IF $EXTRACT(IOST,1,2)["C-"
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
SET IBSTOP=('Y)
if IBSTOP
QUIT
+5 WRITE @IOF
End DoDot:1
if IBSTOP
QUIT
+6 SET IBPAGE=IBPAGE+1
+7 WRITE !,?32,"BATCH DETAIL LIST",?70,"PAGE: ",IBPAGE,!,?27,"RUN DATE: ",IBHDRDT
+8 SET Z=""
SET $PIECE(Z,"-",81)=""
WRITE !,Z
+9 SET IBLINE=3
SET IBFIRST=1
+10 QUIT
+11 ;
