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

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

initial load of WorldVistAEHR

File size: 710 bytes
Line 
1IBY155NV ;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.