Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ORY212E

ORY212E.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY212E   326     printed  Apr 09, 2024@21:29:58                                                                                                                                                                                                      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