source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBECK.m@ 1791

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

initial load of FOIAVistA 6/30/08 version

File size: 986 bytes
Line 
1IBECK ;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 ;
5EN 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 ;
8NOT S IBPARM=$G(^IBE(350.9,1,0))
9 I '$P(IBPARM,"^",4)&('$P(IBPARM,"^",10)) S IBFLAG=IBFLAG_"2"
10LAST 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 ;
13END K IBCNT,IBI,%T,%H,IBPARM
14 Q
15 ;
161 W !,"The Integrated Billing filer has more than 10 transactions in the queue." Q
172 W !,"The Integrated Billing filer is not running and has transactions to file." Q
183 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 ;
20MENU ; -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
Note: See TracBrowser for help on using the repository browser.