| 1 | IBESTAT ;ALB/AAS - INTEGRATED BILLING - FILER STATUS ; 27-FEB-91
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | % ;
|
|---|
| 5 | ;***
|
|---|
| 6 | ;S XRTL=$ZU(0),XRTN="IBESTAT-1" D T0^%ZOSV ;start rt clock
|
|---|
| 7 | ;
|
|---|
| 8 | D HOME^%ZIS
|
|---|
| 9 | ;
|
|---|
| 10 | W @IOF,"Integrated Billing Status"
|
|---|
| 11 | S X="" S $P(X,"=",IOM)="" W !,X
|
|---|
| 12 | S X=$S($D(^IBE(350.9,1,0)):^(0),1:"")
|
|---|
| 13 | SITE ;
|
|---|
| 14 | W !,"IB Facility Name ........................ ",$S($D(^DIC(4,+$P(X,"^",2),0)):$P(^(0),"^"),1:"")
|
|---|
| 15 | W !,"IB Facility Number ...................... ",$S($D(^DIC(4,+$P(X,"^",2),99)):$P(^(99),"^"),1:"")
|
|---|
| 16 | W !
|
|---|
| 17 | PARAM W !,"File in Background ...................... ",$S($P(X,"^",3):"YES",1:"NO")
|
|---|
| 18 | W !,"Filer UCI,VOL ........................... ",$P(X,"^",7)
|
|---|
| 19 | W !,"Filer Hang Time ......................... ",$P(X,"^",8)_" Seconds"
|
|---|
| 20 | W !,"Background Error Mail Group ............. ",$S($D(^XMB(3.8,+$P(X,"^",9),0)):$P(^(0),"^"),1:"")
|
|---|
| 21 | ;
|
|---|
| 22 | W !
|
|---|
| 23 | FILER I +$P(X,"^",4) W !,"Filer Appears to be Running!",!
|
|---|
| 24 | E W !,"Filer does not Appear to be Running!",!
|
|---|
| 25 | W !,"Filer currently queued to run ........... ",$S($P(X,"^",10):"YES",1:"NO")
|
|---|
| 26 | S C=0 F I=0:0 S I=$O(^IB("APOST",I)) Q:'I S C=C+1
|
|---|
| 27 | W !,"Number Transactions in Queue ............ ",C
|
|---|
| 28 | W !,"Filer Started on ........................ " S Y=$P(X,"^",4) D DT^DIQ
|
|---|
| 29 | W !,"Filer Stopped on ........................ " S Y=$P(X,"^",5) D DT^DIQ
|
|---|
| 30 | W !,"Filer last processed transaction on ..... " S Y=$P(X,"^",6) D DT^DIQ
|
|---|
| 31 | W !
|
|---|
| 32 | S C=0 F I=DT:0 S I=$O(^IB("D",I)) Q:'I!(I>(DT+.24)) F J=0:0 S J=$O(^IB("D",I,J)) Q:'J S C=C+1
|
|---|
| 33 | W !,"Transactions filed since midnight ....... ",C
|
|---|
| 34 | ;
|
|---|
| 35 | D MENU^IBECK
|
|---|
| 36 | F I=$Y:1:(IOSL-4) W !
|
|---|
| 37 | S DIR(0)="E" D ^DIR
|
|---|
| 38 | ;
|
|---|
| 39 | END K %H,C,I,J,X,Y,DIR
|
|---|
| 40 | ;***
|
|---|
| 41 | ;I $D(XRT0) S:'$D(XRTN) XRTN="IBESTAT" D T1^%ZOSV ;stop rt clock
|
|---|
| 42 | Q
|
|---|
