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
Q
;
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
;
D EN
I IBFLAG'="" W !,*7 F I=1,2,3 I IBFLAG[I D @I
K IBFLAG,IBPARM,Y,I G END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBECK 1009 printed Dec 13, 2024@02:21:41 Page 2
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 ;
+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
