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