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

ENXIP63.m

Go to the documentation of this file. 
  1. ENXIP63 ;WCIOFO/SAB- PATCH INSTALL ROUTINE ;2/7/2000
  1.  ;;7.0;ENGINEERING;**63**;Aug 17, 1993
  1.  ;
  1.  ;Environmental Check
  1.  N ENX
  1.  S ENX=$$GET1^DID(6914,99,"","LABEL")
  1.  I ENX]"",ENX'="REMAIN CAPITALIZED SET BY" D
  1.  . W $C(7),!,"WARNING: Unexpected Field #99 found in EQUIPMENT INV (#6914) file."
  1.  . W !,"This patch includes a new field REMAIN CAPITALIZED SET BY (#99)"
  1.  . W !,"that will be added to the EQUIPMENT INV. (#6914) file."
  1.  . W !,"There appears to be a locally added field "_ENX
  1.  . W !,"already assigned with field number 99.  The definition of"
  1.  . W !,"field #99 will be overwritten when this patch is installed."
  1.  Q
  1.  ;
  1. PR ;Pre Install Entry Point
  1.  ;
  1.  ;delete screens ENEQ3 and ENEQ3D from file 6910.9 (will be reloaded)
  1.  N DA,DIK,ENI
  1.  S DIK="^ENG(6910.9,"
  1.  F ENI="ENEQ3","ENEQ3D" D
  1.  . S DA=0 F  S DA=$O(^ENG(6910.9,"B",ENI,DA)) Q:'DA  D ^DIK
  1.  Q
  1.  ;
  1. PS ;Post Install Entry Point
  1.  N ENI,ENSN
  1.  ;
  1.  ; only perform during 1st install
  1.  I $$PATCH^XPDUTL("EN*7.0*63") D BMES^XPDUTL("  Skipping post install since patch was previously installed.") Q
  1.  I DT>3000430 D BMES^XPDUTL("  Skipping post install since Today is after Apr 30, 2000.") Q
  1.  ; check if legacy computer system (due to facility consolidation)
  1.  ;   We don't want to generate new FD Documents on the legacy since
  1.  ;   FD Documents are manually entered on Fixed Assets/FMS within
  1.  ;   a month of having the equipment data transferred to the consolidated
  1.  ;   computer system. Any new FD Documents sent from the legacy
  1.  ;   Engineering software would reject in Austin.
  1.  S ENI=$O(^DIC(6910,0)) ; ien of entry in file 6910 (should be 1)
  1.  S ENSN=$S(ENI:$P($G(^DIC(6910,ENI,0)),U,2),1:"") ; station number
  1.  I $$LEGACY(ENSN) D  Q
  1.  . D BMES^XPDUTL("  Skipping post install because patch is being installed on a legacy system.")
  1.  . D MES^XPDUTL("  Any FD Documents generated by a legacy system would reject in Austin.")
  1.  ;
  1. QTASK ; Queue Task to expense capitalized equipment that does not meet the
  1.  ; new capitalization threshold ($25,000)
  1.  ;   
  1.  S ZTRTN="TASK^ENFACTT"
  1.  S ZTDESC="ENG Capitalization Threshold Task"
  1.  S ZTDTH="3000427.170000"
  1.  S ZTIO=""
  1.  S ZTSAVE("ENIO")=XPDQUES("POS1","B")
  1.  D ^%ZTLOAD
  1.  ;
  1.  I '$G(ZTSK) D
  1.  . D BMES^XPDUTL("ERROR. The one-time task was not successfully queued.")
  1.  . D MES^XPDUTL("Please contact National VISTA Support for assistance.")
  1.  . ; send mail message to developer and installer
  1.  ;
  1.  I $G(ZTSK) D
  1.  . D BMES^XPDUTL("  The one-time task was successfully queued.")
  1.  . D MES^XPDUTL("  The task number is "_ZTSK)
  1.  . D MES^XPDUTL("  It will start on "_$$HTE^XLFDT(ZTSK("D")))
  1.  . D MES^XPDUTL("  After the task completes a summary report will")
  1.  . D MES^XPDUTL("  be printed on "_XPDQUES("POS1","B"))
  1.  Q
  1.  ;
  1. LEGACY(ENSN) ; Legacy Station Extrinsic Function
  1.  ; input ENSN - station number
  1.  ; returns 1 if legacy station or 0 if not legacy station
  1.  ; list updated through calendar year 1999 facility consolidations
  1.  N ENRET
  1.  S ENRET=0
  1.  S ENSN=$G(ENSN)
  1.  I "^599^505^627^641^566^611^685^591^569^513^579^604^645^535^522^680^752^533^592^574^686^617^665^594^525^532^527^"[(U_ENSN_U) S ENRET=1
  1.  Q ENRET
  1.  ;
  1.  ;ENXIP63