IBESTAT.m

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

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