ORY195V.m

ORY195V ;SLC/JDL -- environment check, if BCMA, then need PSB*3*6 [10/7/04 4:28pm]

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17, 1997

 ;

 N VAL1,VAL2,ANS,RA

 S VAL1=+$$VERSION^XPDUTL("PSB")

 S VAL2=$$PATCH^XPDUTL("PSB*3.0*6")

 S ANS=""

 I (VAL1>1),(VAL2=0) D

 . W !,!,"--- PATCH PSB*3.0*6 was not found on your site. ---"

 . 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."

 . W !,!,"--- OR*3.0*195 installation process terminated. ---",!

 . S XPDQUIT=1

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY195V   568     printed  Dec 13, 2024@02:39:04                                                                                                                                                                                                      Page 2

ORY195V   ;SLC/JDL -- environment check, if BCMA, then need PSB*3*6 [10/7/04 4:28pm]

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17, 1997

 +2       ;

 +3        NEW VAL1,VAL2,ANS,RA

 +4        SET VAL1=+$$VERSION^XPDUTL("PSB")

 +5        SET VAL2=$$PATCH^XPDUTL("PSB*3.0*6")

 +6        SET ANS=""

 +7        IF (VAL1>1)

               IF (VAL2=0)

                   Begin DoDot:1

 +8                    WRITE !,!,"--- PATCH PSB*3.0*6 was not found on your site. ---"

 +9                    WRITE !,!,"PATCH PSB*3.0*6 need to be installed before installing OR*3.0*195, otherwise, BCMA MED ORDER BUTTON will not function properly."

 +10                   WRITE !,!,"--- OR*3.0*195 installation process terminated. ---",!

 +11                   SET XPDQUIT=1

                   End DoDot:1

 +12       QUIT 

 +13      ;