ORY212E.m

ORY212E ;SLC/MKB - Env Check for OR*3*212 ;2/11/08  11:06

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**212**;Dec 17, 1997;Build 24

 ;

EN ; -- Require VBECS, CPRS v27 in production

 I $$PROD^XUPROD,'$$PATCH^XPDUTL("OR*3.0*243") D

 . W !!,"CPRS v27 must be present to install this in a production system.",!

 . S XPDQUIT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY212E   326     printed  Sep 23, 2025@20:15:30                                                                                                                                                                                                      Page 2

ORY212E   ;SLC/MKB - Env Check for OR*3*212 ;2/11/08  11:06

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**212**;Dec 17, 1997;Build 24

 +2       ;

EN        ; -- Require VBECS, CPRS v27 in production

 +1        IF $$PROD^XUPROD

               IF '$$PATCH^XPDUTL("OR*3.0*243")

                   Begin DoDot:1

 +2                    WRITE !!,"CPRS v27 must be present to install this in a production system.",!

 +3                    SET XPDQUIT=1

                   End DoDot:1

 +4        QUIT