| [613] | 1 | IBECK ;ALB/AAS - INTEGRATED BILLING CHECK IF FILER RUNNING ; 8-MAY-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 | EN N X,Y,I S IBFLAG="" G:'$D(^IB("APOST")) END
|
|---|
| 6 | S IBCNT=0,IBI="" F S IBI=$O(^IB("APOST",IBI)) Q:'IBI S IBCNT=IBCNT+1 I IBCNT>11 S IBFLAG=1
|
|---|
| 7 | ;
|
|---|
| 8 | NOT S IBPARM=$G(^IBE(350.9,1,0))
|
|---|
| 9 | I '$P(IBPARM,"^",4)&('$P(IBPARM,"^",10)) S IBFLAG=IBFLAG_"2"
|
|---|
| 10 | LAST S X=$P(IBPARM,"^",6) D H^%DTC
|
|---|
| 11 | I $P(IBPARM,"^",6),+$H'=+%H!(%T+(2200*(+$P(IBPARM,"^",8)))<$P($H,",",2)) S IBFLAG=IBFLAG_"3"
|
|---|
| 12 | ;
|
|---|
| 13 | END K IBCNT,IBI,%T,%H,IBPARM
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | 1 W !,"The Integrated Billing filer has more than 10 transactions in the queue." Q
|
|---|
| 17 | 2 W !,"The Integrated Billing filer is not running and has transactions to file." Q
|
|---|
| 18 | 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
|
|---|
| 19 | ;
|
|---|
| 20 | MENU ; -menu entry action
|
|---|
| 21 | D EN
|
|---|
| 22 | I IBFLAG'="" W !,*7 F I=1,2,3 I IBFLAG[I D @I
|
|---|
| 23 | K IBFLAG,IBPARM,Y,I G END
|
|---|
