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

ENXPIPR.m

Go to the documentation of this file.
  1. ENXPIPR ;WIRMFO/SAB-PRE-INIT ;4.11.97
  1. ;;7.0;ENGINEERING;**35**;AUG 17,1993
  1. ;
  1. N DA,DIK,ENFDA,ENI
  1. ;
  1. ; *** test site only section - remove for national release
  1. ;K DA S DIK="^DD(6914,",DA=5,DA(1)=6914 D ^DIK K DA,DIK
  1. ; *** end test site only section
  1. ;
  1. DSCR ; delete DJ edit screens
  1. S DIK="^ENG(6910.9,"
  1. F ENI="ENEQ1","ENEQ1D","ENEQ1E","ENEQ1S","ENEQ2","ENEQ2D","ENEQ2E","ENEQ2S","ENEQ3","ENEQ3D","ENEQ3S","ENEQNX1","ENEQNX2","ENEQNX3" D
  1. . S DA=$O(^ENG(6910.9,"B",ENI,0))
  1. . D:DA>0 ^DIK
  1. K DIK
  1. ;
  1. WOMFG ; Delete Manufacturer (#21.9) field to remove obsolete trigger x-ref
  1. K DA S DIK="^DD(6920,",DA=21.9,DA(1)=6920 D ^DIK K DA,DIK
  1. ;
  1. Q:$$PATCH^XPDUTL("EN*7.0*35") ; only do remaining stuff the 1st time
  1. ;
  1. ENSO ; Delete PM DEVICE TYPE IDENTIFIER from Engineering Software Options
  1. ; EQUIPMENT CATEGORY & MANUFACTURER EQUIPMENT NAME will now be printed
  1. S DA=$O(^ENG(6910.2,"B","PM DEVICE TYPE IDENTIFIER",0))
  1. I DA>0 S DIK="^ENG(6910.2," D ^DIK K DIK
  1. ;
  1. BULL ; Remove mail group EN NEW EQUIPMENT from bulletin EN NEW EQUIPMENT
  1. S ENI=$$FIND1^DIC(3.6,"","X","EN NEW EQUIPMENT","B")
  1. I ENI S ENI(1)=$$FIND1^DIC(3.62,","_ENI_",","X","EN NEW EQUIPMENT","B")
  1. I ENI,ENI(1) D
  1. . K ENFDA S ENFDA(3.62,ENI(1)_","_ENI_",",.01)="@"
  1. . D FILE^DIE("","ENFDA") D MSG^DIALOG()
  1. ;
  1. TEMPL ; Delete Local Input Templates
  1. ; Only done during initial install
  1. I '$$PATCH^XPDUTL("EN*7.0*35") D
  1. . N ENY
  1. . D LINPT^ENXPIEN
  1. . I $D(ENY) D
  1. . . N DA,DIK,ENX
  1. . . D MES^XPDUTL(" Deleting local versions of patched input templates")
  1. . . S DIK="^DIE("
  1. . . S ENX("L")="" F S ENX("L")=$O(ENY("INP",ENX("L"))) Q:ENX("L")="" D
  1. . . . S DA=$P(ENY("INP",ENX("L")),U) D ^DIK
  1. . . . D MES^XPDUTL(" "_ENX("L")_" deleted.")
  1. ;
  1. PM I $G(XPDQUES("PREPM")) D
  1. . S X="T+1@2300",%DT="T" D ^%DT S ZTDTH=Y
  1. . S ZTRTN="PM^ENPAT35",ZTIO=""
  1. . S ZTDESC="Delete old incomplete PM Work Orders"
  1. . D ^%ZTLOAD
  1. Q
  1. ;ENXPIPR