Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
646 bytes
|
Line | |
---|
1 | IBBADFTO ;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 | ;
|
---|
5 | EN ;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.