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

SPNLENV.m

Go to the documentation of this file.
  1. SPNLENV ;HIRMFO-WAA; ENVIRONMENT CHECK ROUTINE
  1. ;;2.0;Spinal Cord Dysfunction;;01/02/1997
  1. ;;
  1. ;ENV
  1. ; This routine is to check to see that the correct version of
  1. ; SCD is installed or that this is a virgin install.
  1. ;
  1. ENV ;Environment Check
  1. N SPNENV,SPNNAME
  1. S SPNENV=+$$VERSION^XPDUTL("SCD")
  1. I SPNENV=1 D
  1. . W $C(7)
  1. . W !," You are trying to install Version 2.0 of"
  1. . W !," SCD over version 1.0. Please first install"
  1. . W $C(7),!," SCD version 1.5 then install SCD Version 2.0"
  1. . S XPDQUIT=1
  1. . Q
  1. S SPNNAME=$G(^GMT(142.1,74,0))
  1. I SPNNAME'="" D ; If entry #74 is not empty.
  1. . I $P(SPNNAME,U)="SPINAL CORD DYSFUNCTION" Q ; Entry Already exists.
  1. . ; Entry is illegal and needs to be fixed.
  1. . W $C(7)
  1. . W !," Entry # 74 in the Health Summary Component file 142.1"
  1. . W !," is currently being used by an illegal entry. Please"
  1. . W !," contact Customer Support to fix this problem."
  1. . W $C(7)
  1. . S XPDQUIT=1
  1. .Q
  1. Q
  1. PRE ;Pre init Control point
  1. N SPNPRE
  1. S SPNPRE=$$NEWCP^XPDUTL("PRE01","^SPNLPRE1")
  1. S SPNPRE=$$NEWCP^XPDUTL("PRE02","EN2^SPNLPRE1")
  1. Q
  1. POS ;Post init Control point
  1. N SPNPOS
  1. S SPNPOS=$$NEWCP^XPDUTL("POS01","EN1^SPNLPST1")
  1. Q