- 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
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOCLPRE 245 printed Feb 18, 2025@23:51:56 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