|
Last change
on this file since 1749 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.
