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

ENXHIPR.m

Go to the documentation of this file.
  1. ENXHIPR ;WISC/SAB-PRE INIT ;4/1/97
  1. ;;7.0;ENGINEERING;**28**;Aug 17, 1993
  1. N ENDA,ENY
  1. D MES^XPDUTL(" Performing Pre-Init...")
  1. ; This patch renames field #74 from A/E SITE SURVEY to A/E SITE VISITS.
  1. ; It also adds a new field #72.3 called A/E SITE SURVEY.
  1. ; This pre-init routine will move any existing data values from #74
  1. ; to #72.3. This should only be done once so the pre-init checks
  1. ; that field #74 has not yet been renamed before moving data.
  1. I $$GET1^DID(6925,74,"","LABEL")="A/E SITE SURVEY" D
  1. . D MES^XPDUTL(" Moving A/E SITE SURVEY data to new location...")
  1. . S ENDA=0 F S ENDA=$O(^ENG("PROJ",ENDA)) Q:'ENDA D
  1. . . S ENY=$G(^ENG("PROJ",ENDA,5))
  1. . . I $P(ENY,U,5)]"",$P(ENY,U,10)="" D
  1. . . . S $P(ENY,U,10)=$P(ENY,U,5)
  1. . . . S $P(ENY,U,5)=""
  1. . . . S ^ENG("PROJ",ENDA,5)=ENY
  1. . . S ENY=$G(^ENG("PROJ",ENDA,64))
  1. . . I $P(ENY,U,5)]"",$P(ENY,U,10)="" D
  1. . . . S $P(ENY,U,10)=$P(ENY,U,5)
  1. . . . S $P(ENY,U,5)=""
  1. . . . S ^ENG("PROJ",ENDA,64)=ENY
  1. D MES^XPDUTL(" Completed Pre-Init")
  1. Q
  1. ;ENXHIPR