IBBADFTO.m

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 ---IBBADFTO   665     printed  Mar 13, 2025@21:13:11                                                                                                                                                                                                     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