Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
710 bytes
|
Line | |
---|
1 | IBY155NV ;ALB/ESG - IB*2*155 Environment Check ;8-Jun-2004
|
---|
2 | ;;2.0;INTEGRATED BILLING;**155**; 21-MAR-94
|
---|
3 | ;
|
---|
4 | ; Check to make sure that IB patch 232 is really installed.
|
---|
5 | ;
|
---|
6 | I '$D(^IBA(364.7,1015)) S XPDQUIT=1 ; X12 version# field
|
---|
7 | I $T(IBCEF2+1^IBCEF2)'[232 S XPDQUIT=1 ; output formatter rtn
|
---|
8 | ;
|
---|
9 | ; Display a message to the user if we can't install
|
---|
10 | I $D(XPDQUIT) D
|
---|
11 | . W !!,"The EDI enhancements patch - IB*2.0*232 - is not currently installed. It may"
|
---|
12 | . W !,"have been installed previously and then manually backed out."
|
---|
13 | . W !!,"Patch 232 is required for the MRA functionality. The installation of the MRA"
|
---|
14 | . W !,"patch will now be terminated."
|
---|
15 | . W !!
|
---|
16 | . N DIR S DIR(0)="E" D ^DIR
|
---|
17 | . Q
|
---|
18 | ;
|
---|
19 | Q
|
---|
20 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.