Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
646 bytes
|
Rev | Line | |
---|
[613] | 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.