|
Last change
on this file since 1521 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
554 bytes
|
| Line | |
|---|
| 1 | ORY195V ;SLC/JDL -- environment check, if BCMA, then need PSB*3*6 [10/7/04 4:28pm]
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | N VAL1,VAL2,ANS,RA
|
|---|
| 5 | S VAL1=+$$VERSION^XPDUTL("PSB")
|
|---|
| 6 | S VAL2=$$PATCH^XPDUTL("PSB*3.0*6")
|
|---|
| 7 | S ANS=""
|
|---|
| 8 | I (VAL1>1),(VAL2=0) D
|
|---|
| 9 | . W !,!,"--- PATCH PSB*3.0*6 was not found on your site. ---"
|
|---|
| 10 | . W !,!,"PATCH PSB*3.0*6 need to be installed before installing OR*3.0*195, otherwise, BCMA MED ORDER BUTTON will not function properly."
|
|---|
| 11 | . W !,!,"--- OR*3.0*195 installation process terminated. ---",!
|
|---|
| 12 | . S XPDQUIT=1
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
