IBBADFTO ;OAK/ELZ - PFSS DFT BATCH MESSAGING ;15-MAR-2005
;;2.0;INTEGRATED BILLING;**286**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
EN ;entry point from menu option IBBA BATCH DFT
N IBBMMAX,X
S X=$T(SWSTAT^IBBASWCH)
Q:(X="")
Q:'(+$$SWSTAT^IBBASWCH())
Q:'$D(^IBBAS(372,1,0))
Q:+$P(^IBBAS(372,1,0),U,10)
;set batch running flag
S $P(^IBBAS(372,1,0),U,10)=1,$P(^(0),U,11)=$$NOW^XLFDT()
S IBBMMAX=+$P(^IBBAS(372,1,0),U,3) S:'IBBMMAX IBBMMAX=999
;call batch builder
S X=$T(BATCH^IBBVP03) I X'="" D BATCH^IBBVP03(IBBMMAX)
;clear batch running flag
S $P(^IBBAS(372,1,0),U,10)=0,$P(^(0),U,11)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBBADFTO 665 printed Oct 16, 2024@18:09:02 Page 2
IBBADFTO ;OAK/ELZ - PFSS DFT BATCH MESSAGING ;15-MAR-2005
+1 ;;2.0;INTEGRATED BILLING;**286**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
EN ;entry point from menu option IBBA BATCH DFT
+1 NEW IBBMMAX,X
+2 SET X=$TEXT(SWSTAT^IBBASWCH)
+3 if (X="")
QUIT
+4 if '(+$$SWSTAT^IBBASWCH())
QUIT
+5 if '$DATA(^IBBAS(372,1,0))
QUIT
+6 if +$PIECE(^IBBAS(372,1,0),U,10)
QUIT
+7 ;set batch running flag
+8 SET $PIECE(^IBBAS(372,1,0),U,10)=1
SET $PIECE(^(0),U,11)=$$NOW^XLFDT()
+9 SET IBBMMAX=+$PIECE(^IBBAS(372,1,0),U,3)
if 'IBBMMAX
SET IBBMMAX=999
+10 ;call batch builder
+11 SET X=$TEXT(BATCH^IBBVP03)
IF X'=""
DO BATCH^IBBVP03(IBBMMAX)
+12 ;clear batch running flag
+13 SET $PIECE(^IBBAS(372,1,0),U,10)=0
SET $PIECE(^(0),U,11)=""
+14 QUIT
