SRAENV10.m

SRAENV10 ;HPS/DSK - KIDS ENVIRONMENT CHECK FOR RISK ASSESSMENT DB ENVIRONMENT; Aug 18, 2023@16:00

 ;;3.0;SURGERY RISK ASSESSMENT;**10**;23 Sep 91;Build 7

 W @IOF

 W !!,"Checking for Risk Assessment database environment",!

 I '$D(^SRA(0)) D

 . W !!,$C(7),">> This patch is only installed in the Surgery Risk Assessment Database."

 . W !,"It cannot be installed at a VA Medical Center."

 . S XPDABORT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SRAENV10   413     printed  Apr 09, 2024@21:42:12                                                                                                                                                                                                     Page 2

SRAENV10  ;HPS/DSK - KIDS ENVIRONMENT CHECK FOR RISK ASSESSMENT DB ENVIRONMENT; Aug 18, 2023@16:00

 +1       ;;3.0;SURGERY RISK ASSESSMENT;**10**;23 Sep 91;Build 7

 +2        WRITE @IOF

 +3        WRITE !!,"Checking for Risk Assessment database environment",!

 +4        IF '$DATA(^SRA(0))

               Begin DoDot:1

 +5                WRITE !!,$CHAR(7),">> This patch is only installed in the Surgery Risk Assessment Database."

 +6                WRITE !,"It cannot be installed at a VA Medical Center."

 +7                SET XPDABORT=1

               End DoDot:1

 +8        QUIT