- 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 Jan 18, 2025@02:58:15 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