IBESTAT ;ALB/AAS - INTEGRATED BILLING - FILER STATUS ; 27-FEB-91
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
% ;
;***
;S XRTL=$ZU(0),XRTN="IBESTAT-1" D T0^%ZOSV ;start rt clock
;
D HOME^%ZIS
;
W @IOF,"Integrated Billing Status"
S X="" S $P(X,"=",IOM)="" W !,X
S X=$S($D(^IBE(350.9,1,0)):^(0),1:"")
SITE ;
W !,"IB Facility Name ........................ ",$S($D(^DIC(4,+$P(X,"^",2),0)):$P(^(0),"^"),1:"")
W !,"IB Facility Number ...................... ",$S($D(^DIC(4,+$P(X,"^",2),99)):$P(^(99),"^"),1:"")
W !
PARAM W !,"File in Background ...................... ",$S($P(X,"^",3):"YES",1:"NO")
W !,"Filer UCI,VOL ........................... ",$P(X,"^",7)
W !,"Filer Hang Time ......................... ",$P(X,"^",8)_" Seconds"
W !,"Background Error Mail Group ............. ",$S($D(^XMB(3.8,+$P(X,"^",9),0)):$P(^(0),"^"),1:"")
;
W !
FILER I +$P(X,"^",4) W !,"Filer Appears to be Running!",!
E W !,"Filer does not Appear to be Running!",!
W !,"Filer currently queued to run ........... ",$S($P(X,"^",10):"YES",1:"NO")
S C=0 F I=0:0 S I=$O(^IB("APOST",I)) Q:'I S C=C+1
W !,"Number Transactions in Queue ............ ",C
W !,"Filer Started on ........................ " S Y=$P(X,"^",4) D DT^DIQ
W !,"Filer Stopped on ........................ " S Y=$P(X,"^",5) D DT^DIQ
W !,"Filer last processed transaction on ..... " S Y=$P(X,"^",6) D DT^DIQ
W !
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
W !,"Transactions filed since midnight ....... ",C
;
D MENU^IBECK
F I=$Y:1:(IOSL-4) W !
S DIR(0)="E" D ^DIR
;
END K %H,C,I,J,X,Y,DIR
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="IBESTAT" D T1^%ZOSV ;stop rt clock
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBESTAT 1794 printed Apr 09, 2024@21:38:33 Page 2
IBESTAT ;ALB/AAS - INTEGRATED BILLING - FILER STATUS ; 27-FEB-91
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
% ;
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="IBESTAT-1" D T0^%ZOSV ;start rt clock
+3 ;
+4 DO HOME^%ZIS
+5 ;
+6 WRITE @IOF,"Integrated Billing Status"
+7 SET X=""
SET $PIECE(X,"=",IOM)=""
WRITE !,X
+8 SET X=$SELECT($DATA(^IBE(350.9,1,0)):^(0),1:"")
SITE ;
+1 WRITE !,"IB Facility Name ........................ ",$SELECT($DATA(^DIC(4,+$PIECE(X,"^",2),0)):$PIECE(^(0),"^"),1:"")
+2 WRITE !,"IB Facility Number ...................... ",$SELECT($DATA(^DIC(4,+$PIECE(X,"^",2),99)):$PIECE(^(99),"^"),1:"")
+3 WRITE !
PARAM WRITE !,"File in Background ...................... ",$SELECT($PIECE(X,"^",3):"YES",1:"NO")
+1 WRITE !,"Filer UCI,VOL ........................... ",$PIECE(X,"^",7)
+2 WRITE !,"Filer Hang Time ......................... ",$PIECE(X,"^",8)_" Seconds"
+3 WRITE !,"Background Error Mail Group ............. ",$SELECT($DATA(^XMB(3.8,+$PIECE(X,"^",9),0)):$PIECE(^(0),"^"),1:"")
+4 ;
+5 WRITE !
FILER IF +$PIECE(X,"^",4)
WRITE !,"Filer Appears to be Running!",!
+1 IF '$TEST
WRITE !,"Filer does not Appear to be Running!",!
+2 WRITE !,"Filer currently queued to run ........... ",$SELECT($PIECE(X,"^",10):"YES",1:"NO")
+3 SET C=0
FOR I=0:0
SET I=$ORDER(^IB("APOST",I))
if 'I
QUIT
SET C=C+1
+4 WRITE !,"Number Transactions in Queue ............ ",C
+5 WRITE !,"Filer Started on ........................ "
SET Y=$PIECE(X,"^",4)
DO DT^DIQ
+6 WRITE !,"Filer Stopped on ........................ "
SET Y=$PIECE(X,"^",5)
DO DT^DIQ
+7 WRITE !,"Filer last processed transaction on ..... "
SET Y=$PIECE(X,"^",6)
DO DT^DIQ
+8 WRITE !
+9 SET C=0
FOR I=DT:0
SET I=$ORDER(^IB("D",I))
if 'I!(I>(DT+.24))
QUIT
FOR J=0:0
SET J=$ORDER(^IB("D",I,J))
if 'J
QUIT
SET C=C+1
+10 WRITE !,"Transactions filed since midnight ....... ",C
+11 ;
+12 DO MENU^IBECK
+13 FOR I=$Y:1:(IOSL-4)
WRITE !
+14 SET DIR(0)="E"
DO ^DIR
+15 ;
END KILL %H,C,I,J,X,Y,DIR
+1 ;***
+2 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBESTAT" D T1^%ZOSV ;stop rt clock
+3 QUIT
