Routine: IBECK

IBECK	;ALB/AAS - INTEGRATED BILLING CHECK IF FILER RUNNING ; 8-MAY-91

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;;Per VHA Directive 10-93-142, this routine should not be modified.

EN	N X,Y,I S IBFLAG="" G:'$D(^IB("APOST")) END

	S IBCNT=0,IBI="" F  S IBI=$O(^IB("APOST",IBI)) Q:'IBI  S IBCNT=IBCNT+1 I IBCNT>11 S IBFLAG=1

NOT	S IBPARM=$G(^IBE(350.9,1,0))

	I '$P(IBPARM,"^",4)&('$P(IBPARM,"^",10)) S IBFLAG=IBFLAG_"2"

LAST	S X=$P(IBPARM,"^",6) D H^%DTC

	I $P(IBPARM,"^",6),+$H'=+%H!(%T+(2200*(+$P(IBPARM,"^",8)))<$P($H,",",2)) S IBFLAG=IBFLAG_"3"

END	K IBCNT,IBI,%T,%H,IBPARM

1	W !,"The Integrated Billing filer has more than 10 transactions in the queue." Q

2	W !,"The Integrated Billing filer is not running and has transactions to file." Q

3	W !,"The Integrated Billing filer is late.  It hasn't run since " S Y=$P(^IBE(350.9,1,0),"^",6) D D^DIQ W Y Q

MENU	;  -menu entry action

	D EN

	I IBFLAG'="" W !,*7 F I=1,2,3 I IBFLAG[I D @I

	K IBFLAG,IBPARM,Y,I G END

IBECK     ;ALB/AAS - INTEGRATED BILLING CHECK IF FILER RUNNING ; 8-MAY-91

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

EN         NEW X,Y,I

           SET IBFLAG=""

           IF '$DATA(^IB("APOST"))

               GOTO END

 +1        SET IBCNT=0

           SET IBI=""

FOR

               SET IBI=$ORDER(^IB("APOST",IBI))

               IF 'IBI

                   QUIT

               SET IBCNT=IBCNT+1

               IF IBCNT>11

                   SET IBFLAG=1

 +2       ;

NOT        SET IBPARM=$GET(^IBE(350.9,1,0))

 +1        IF '$PIECE(IBPARM,"^",4)&('$PIECE(IBPARM,"^",10))

               SET IBFLAG=IBFLAG_"2"

LAST       SET X=$PIECE(IBPARM,"^",6)

           DO H^%DTC

 +1        IF $PIECE(IBPARM,"^",6)

               IF +$HOROLOG'=+%H!(%T+(2200*(+$PIECE(IBPARM,"^",8)))<$PIECE($HOROLOG,",",2))

                   SET IBFLAG=IBFLAG_"3"

 +2       ;

END        KILL IBCNT,IBI,%T,%H,IBPARM

 +1        QUIT

 +2       ;

1          WRITE !,"The Integrated Billing filer has more than 10 transactions in the queue."

           QUIT

2          WRITE !,"The Integrated Billing filer is not running and has transactions to file."

           QUIT

3          WRITE !,"The Integrated Billing filer is late.  It hasn't run since "

           SET Y=$PIECE(^IBE(350.9,1,0),"^",6)

           DO D^DIQ

           WRITE Y

           QUIT

 +1       ;

MENU      ;  -menu entry action

 +1        DO EN

 +2        IF IBFLAG'=""

               WRITE !,*7

               FOR I=1,2,3

                   IF IBFLAG[I

                       DO @I

 +3        KILL IBFLAG,IBPARM,Y,I

           GOTO END

IBECK.m