| [613] | 1 | IBCEQBS ;ALB/TMP - 837 EDI QUERY BATCH STATUS REPORTS ;05-SEP-96
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
|
|---|
| 3 | Q
|
|---|
| 4 | QSTAT ; Query Pending Batch Transmit Status
|
|---|
| 5 | N IBQ,IBQ1,DIC,IBBDA,IBMSG,IBST,Y,DIR,DIRUT,DTOUT,DUOUT,Z
|
|---|
| 6 | S IBQ=$P($G(^IBE(350.9,1,8)),U),IBQ1=$P($G(^(8)),U,9)
|
|---|
| 7 | I IBQ="",IBQ1="" W !,*7,"No 837 data queues are set up" S DIR(0)="E" D ^DIR Q
|
|---|
| 8 | S DIC="^IBA(364.1,",DIC("S")="I $P(^(0),U,2)=""P""",DIC(0)="AEMQZ" D ^DIC
|
|---|
| 9 | Q:Y<0 S IBBDA=+Y
|
|---|
| 10 | S %ZIS="QM" D ^%ZIS Q:POP
|
|---|
| 11 | I $D(IO("Q")) K IO("Q") S ZTRTN="STAT^IBCEQBS",ZTSAVE("IB*")="",ZTDESC="PRINT TXMN STATUS OF PENDING BATCH" D ^%ZTLOAD K ZTSK D HOME^%ZIS Q
|
|---|
| 12 | U IO
|
|---|
| 13 | D STAT
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | STAT ; Queued job entrypoint
|
|---|
| 17 | N Y
|
|---|
| 18 | W:$E(IOST,1,2)["C-" @IOF
|
|---|
| 19 | W !,"PENDING BATCH TRANSMISSION STATUS REPORT",?50,"Run Date: ",$$HTE^XLFDT($H,"2P"),!
|
|---|
| 20 | S Y=IBBDA,Y(0)=$G(^IBA(364.1,IBBDA,0)),Y(1)=$G(^(1))
|
|---|
| 21 | S:$P(Y(0),U,14) IBQ=IBQ1
|
|---|
| 22 | S IBMSG=$P(Y(0),U,4),Y(1)=$G(^IBA(364.1,+Y,1)),IBST=$$STATUS^XMS1(IBMSG,"XXX@Q-"_IBQ_".VA.GOV")
|
|---|
| 23 | W !,"Status of batch ",$P(Y,U,2)," (mail message #: ",IBMSG,"): ",$S(IBST'="":IBST,1:"Sent")
|
|---|
| 24 | S Z=$$EXPAND^IBTRE(364.1,1.02,$P(Y(1),U,2))
|
|---|
| 25 | W !!,"First Sent: ",$$FMTE^XLFDT(+Y(1),"2P"),?35,"By: ",$S(Z'="":Z,1:"Unknown")
|
|---|
| 26 | S Z=$$EXPAND^IBTRE(364.1,1.04,$P(Y(1),U,4))
|
|---|
| 27 | W !," Last Sent: ",$$FMTE^XLFDT($P(Y(1),U,3),"2P"),?35,"By: ",$S(Z'="":Z,1:"Unknown")
|
|---|
| 28 | D ^%ZISC
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
