source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBESTAT.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1IBESTAT ;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:"")
13SITE ;
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 !
17PARAM 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 !
23FILER 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 ;
39END 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
Note: See TracBrowser for help on using the repository browser.