- 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 Feb 18, 2025@23:48:04 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