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

PSOCLPRE.m

Go to the documentation of this file.

PSOCLPRE ;BHAM ISC/RTR-Environment check routine for Patch 15

 ;;7.0;OUTPATIENT PHARMACY;**15**;DEC 1997

N X

 S X=$T(REF^ORMBLDPS) I $G(X)'["CLINIC" W !,"The latest version of Patch OR*3.0*38 must be installed first!",! S XPDQUIT=2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOCLPRE   245     printed  Apr 09, 2024@21:27:48                                                                                                                                                                                                     Page 2

PSOCLPRE  ;BHAM ISC/RTR-Environment check routine for Patch 15

 +1       ;;7.0;OUTPATIENT PHARMACY;**15**;DEC 1997

 +2       ;

 +3        NEW X

 +4        SET X=$TEXT(REF^ORMBLDPS)

           IF $GET(X)'["CLINIC"

               WRITE !,"The latest version of Patch OR*3.0*38 must be installed first!",!

               SET XPDQUIT=2

 +5        QUIT