source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBBADFTO.m@ 846

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

initial load of WorldVistAEHR

File size: 646 bytes
Line 
1IBBADFTO ;OAK/ELZ - PFSS DFT BATCH MESSAGING ;15-MAR-2005
2 ;;2.0;INTEGRATED BILLING;**286**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ;entry point from menu option IBBA BATCH DFT
6 N IBBMMAX,X
7 S X=$T(SWSTAT^IBBASWCH)
8 Q:(X="")
9 Q:'(+$$SWSTAT^IBBASWCH())
10 Q:'$D(^IBBAS(372,1,0))
11 Q:+$P(^IBBAS(372,1,0),U,10)
12 ;set batch running flag
13 S $P(^IBBAS(372,1,0),U,10)=1,$P(^(0),U,11)=$$NOW^XLFDT()
14 S IBBMMAX=+$P(^IBBAS(372,1,0),U,3) S:'IBBMMAX IBBMMAX=999
15 ;call batch builder
16 S X=$T(BATCH^IBBVP03) I X'="" D BATCH^IBBVP03(IBBMMAX)
17 ;clear batch running flag
18 S $P(^IBBAS(372,1,0),U,10)=0,$P(^(0),U,11)=""
19 Q
Note: See TracBrowser for help on using the repository browser.