SPNLENV ;HIRMFO-WAA; ENVIRONMENT CHECK ROUTINE
;;2.0;Spinal Cord Dysfunction;;01/02/1997
;;
;ENV
; This routine is to check to see that the correct version of
; SCD is installed or that this is a virgin install.
;
ENV ;Environment Check
N SPNENV,SPNNAME
S SPNENV=+$$VERSION^XPDUTL("SCD")
I SPNENV=1 D
. W $C(7)
. W !," You are trying to install Version 2.0 of"
. W !," SCD over version 1.0. Please first install"
. W $C(7),!," SCD version 1.5 then install SCD Version 2.0"
. S XPDQUIT=1
. Q
S SPNNAME=$G(^GMT(142.1,74,0))
I SPNNAME'="" D ; If entry #74 is not empty.
. I $P(SPNNAME,U)="SPINAL CORD DYSFUNCTION" Q ; Entry Already exists.
. ; Entry is illegal and needs to be fixed.
. W $C(7)
. W !," Entry # 74 in the Health Summary Component file 142.1"
. W !," is currently being used by an illegal entry. Please"
. W !," contact Customer Support to fix this problem."
. W $C(7)
. S XPDQUIT=1
.Q
Q
PRE ;Pre init Control point
N SPNPRE
S SPNPRE=$$NEWCP^XPDUTL("PRE01","^SPNLPRE1")
S SPNPRE=$$NEWCP^XPDUTL("PRE02","EN2^SPNLPRE1")
Q
POS ;Post init Control point
N SPNPOS
S SPNPOS=$$NEWCP^XPDUTL("POS01","EN1^SPNLPST1")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSPNLENV 1225 printed Dec 13, 2024@02:37:50 Page 2
SPNLENV ;HIRMFO-WAA; ENVIRONMENT CHECK ROUTINE
+1 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
+2 ;;
+3 ;ENV
+4 ; This routine is to check to see that the correct version of
+5 ; SCD is installed or that this is a virgin install.
+6 ;
ENV ;Environment Check
+1 NEW SPNENV,SPNNAME
+2 SET SPNENV=+$$VERSION^XPDUTL("SCD")
+3 IF SPNENV=1
Begin DoDot:1
+4 WRITE $CHAR(7)
+5 WRITE !," You are trying to install Version 2.0 of"
+6 WRITE !," SCD over version 1.0. Please first install"
+7 WRITE $CHAR(7),!," SCD version 1.5 then install SCD Version 2.0"
+8 SET XPDQUIT=1
+9 QUIT
End DoDot:1
+10 SET SPNNAME=$GET(^GMT(142.1,74,0))
+11 ; If entry #74 is not empty.
IF SPNNAME'=""
Begin DoDot:1
+12 ; Entry Already exists.
IF $PIECE(SPNNAME,U)="SPINAL CORD DYSFUNCTION"
QUIT
+13 ; Entry is illegal and needs to be fixed.
+14 WRITE $CHAR(7)
+15 WRITE !," Entry # 74 in the Health Summary Component file 142.1"
+16 WRITE !," is currently being used by an illegal entry. Please"
+17 WRITE !," contact Customer Support to fix this problem."
+18 WRITE $CHAR(7)
+19 SET XPDQUIT=1
+20 QUIT
End DoDot:1
+21 QUIT
PRE ;Pre init Control point
+1 NEW SPNPRE
+2 SET SPNPRE=$$NEWCP^XPDUTL("PRE01","^SPNLPRE1")
+3 SET SPNPRE=$$NEWCP^XPDUTL("PRE02","EN2^SPNLPRE1")
+4 QUIT
POS ;Post init Control point
+1 NEW SPNPOS
+2 SET SPNPOS=$$NEWCP^XPDUTL("POS01","EN1^SPNLPST1")
+3 QUIT
