- 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 Jan 18, 2025@03:39:01 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