ENXIP63 ;WCIOFO/SAB- PATCH INSTALL ROUTINE ;2/7/2000
;;7.0;ENGINEERING;**63**;Aug 17, 1993
;
;Environmental Check
N ENX
S ENX=$$GET1^DID(6914,99,"","LABEL")
I ENX]"",ENX'="REMAIN CAPITALIZED SET BY" D
. W $C(7),!,"WARNING: Unexpected Field #99 found in EQUIPMENT INV (#6914) file."
. W !,"This patch includes a new field REMAIN CAPITALIZED SET BY (#99)"
. W !,"that will be added to the EQUIPMENT INV. (#6914) file."
. W !,"There appears to be a locally added field "_ENX
. W !,"already assigned with field number 99. The definition of"
. W !,"field #99 will be overwritten when this patch is installed."
Q
;
PR ;Pre Install Entry Point
;
;delete screens ENEQ3 and ENEQ3D from file 6910.9 (will be reloaded)
N DA,DIK,ENI
S DIK="^ENG(6910.9,"
F ENI="ENEQ3","ENEQ3D" D
. S DA=0 F S DA=$O(^ENG(6910.9,"B",ENI,DA)) Q:'DA D ^DIK
Q
;
PS ;Post Install Entry Point
N ENI,ENSN
;
; only perform during 1st install
I $$PATCH^XPDUTL("EN*7.0*63") D BMES^XPDUTL(" Skipping post install since patch was previously installed.") Q
I DT>3000430 D BMES^XPDUTL(" Skipping post install since Today is after Apr 30, 2000.") Q
; check if legacy computer system (due to facility consolidation)
; We don't want to generate new FD Documents on the legacy since
; FD Documents are manually entered on Fixed Assets/FMS within
; a month of having the equipment data transferred to the consolidated
; computer system. Any new FD Documents sent from the legacy
; Engineering software would reject in Austin.
S ENI=$O(^DIC(6910,0)) ; ien of entry in file 6910 (should be 1)
S ENSN=$S(ENI:$P($G(^DIC(6910,ENI,0)),U,2),1:"") ; station number
I $$LEGACY(ENSN) D Q
. D BMES^XPDUTL(" Skipping post install because patch is being installed on a legacy system.")
. D MES^XPDUTL(" Any FD Documents generated by a legacy system would reject in Austin.")
;
QTASK ; Queue Task to expense capitalized equipment that does not meet the
; new capitalization threshold ($25,000)
;
S ZTRTN="TASK^ENFACTT"
S ZTDESC="ENG Capitalization Threshold Task"
S ZTDTH="3000427.170000"
S ZTIO=""
S ZTSAVE("ENIO")=XPDQUES("POS1","B")
D ^%ZTLOAD
;
I '$G(ZTSK) D
. D BMES^XPDUTL("ERROR. The one-time task was not successfully queued.")
. D MES^XPDUTL("Please contact National VISTA Support for assistance.")
. ; send mail message to developer and installer
;
I $G(ZTSK) D
. D BMES^XPDUTL(" The one-time task was successfully queued.")
. D MES^XPDUTL(" The task number is "_ZTSK)
. D MES^XPDUTL(" It will start on "_$$HTE^XLFDT(ZTSK("D")))
. D MES^XPDUTL(" After the task completes a summary report will")
. D MES^XPDUTL(" be printed on "_XPDQUES("POS1","B"))
Q
;
LEGACY(ENSN) ; Legacy Station Extrinsic Function
; input ENSN - station number
; returns 1 if legacy station or 0 if not legacy station
; list updated through calendar year 1999 facility consolidations
N ENRET
S ENRET=0
S ENSN=$G(ENSN)
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
Q ENRET
;
;ENXIP63
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENXIP63 3163 printed Dec 13, 2024@01:56:52 Page 2
ENXIP63 ;WCIOFO/SAB- PATCH INSTALL ROUTINE ;2/7/2000
+1 ;;7.0;ENGINEERING;**63**;Aug 17, 1993
+2 ;
+3 ;Environmental Check
+4 NEW ENX
+5 SET ENX=$$GET1^DID(6914,99,"","LABEL")
+6 IF ENX]""
IF ENX'="REMAIN CAPITALIZED SET BY"
Begin DoDot:1
+7 WRITE $CHAR(7),!,"WARNING: Unexpected Field #99 found in EQUIPMENT INV (#6914) file."
+8 WRITE !,"This patch includes a new field REMAIN CAPITALIZED SET BY (#99)"
+9 WRITE !,"that will be added to the EQUIPMENT INV. (#6914) file."
+10 WRITE !,"There appears to be a locally added field "_ENX
+11 WRITE !,"already assigned with field number 99. The definition of"
+12 WRITE !,"field #99 will be overwritten when this patch is installed."
End DoDot:1
+13 QUIT
+14 ;
PR ;Pre Install Entry Point
+1 ;
+2 ;delete screens ENEQ3 and ENEQ3D from file 6910.9 (will be reloaded)
+3 NEW DA,DIK,ENI
+4 SET DIK="^ENG(6910.9,"
+5 FOR ENI="ENEQ3","ENEQ3D"
Begin DoDot:1
+6 SET DA=0
FOR
SET DA=$ORDER(^ENG(6910.9,"B",ENI,DA))
if 'DA
QUIT
DO ^DIK
End DoDot:1
+7 QUIT
+8 ;
PS ;Post Install Entry Point
+1 NEW ENI,ENSN
+2 ;
+3 ; only perform during 1st install
+4 IF $$PATCH^XPDUTL("EN*7.0*63")
DO BMES^XPDUTL(" Skipping post install since patch was previously installed.")
QUIT
+5 IF DT>3000430
DO BMES^XPDUTL(" Skipping post install since Today is after Apr 30, 2000.")
QUIT
+6 ; check if legacy computer system (due to facility consolidation)
+7 ; We don't want to generate new FD Documents on the legacy since
+8 ; FD Documents are manually entered on Fixed Assets/FMS within
+9 ; a month of having the equipment data transferred to the consolidated
+10 ; computer system. Any new FD Documents sent from the legacy
+11 ; Engineering software would reject in Austin.
+12 ; ien of entry in file 6910 (should be 1)
SET ENI=$ORDER(^DIC(6910,0))
+13 ; station number
SET ENSN=$SELECT(ENI:$PIECE($GET(^DIC(6910,ENI,0)),U,2),1:"")
+14 IF $$LEGACY(ENSN)
Begin DoDot:1
+15 DO BMES^XPDUTL(" Skipping post install because patch is being installed on a legacy system.")
+16 DO MES^XPDUTL(" Any FD Documents generated by a legacy system would reject in Austin.")
End DoDot:1
QUIT
+17 ;
QTASK ; Queue Task to expense capitalized equipment that does not meet the
+1 ; new capitalization threshold ($25,000)
+2 ;
+3 SET ZTRTN="TASK^ENFACTT"
+4 SET ZTDESC="ENG Capitalization Threshold Task"
+5 SET ZTDTH="3000427.170000"
+6 SET ZTIO=""
+7 SET ZTSAVE("ENIO")=XPDQUES("POS1","B")
+8 DO ^%ZTLOAD
+9 ;
+10 IF '$GET(ZTSK)
Begin DoDot:1
+11 DO BMES^XPDUTL("ERROR. The one-time task was not successfully queued.")
+12 DO MES^XPDUTL("Please contact National VISTA Support for assistance.")
+13 ; send mail message to developer and installer
End DoDot:1
+14 ;
+15 IF $GET(ZTSK)
Begin DoDot:1
+16 DO BMES^XPDUTL(" The one-time task was successfully queued.")
+17 DO MES^XPDUTL(" The task number is "_ZTSK)
+18 DO MES^XPDUTL(" It will start on "_$$HTE^XLFDT(ZTSK("D")))
+19 DO MES^XPDUTL(" After the task completes a summary report will")
+20 DO MES^XPDUTL(" be printed on "_XPDQUES("POS1","B"))
End DoDot:1
+21 QUIT
+22 ;
LEGACY(ENSN) ; Legacy Station Extrinsic Function
+1 ; input ENSN - station number
+2 ; returns 1 if legacy station or 0 if not legacy station
+3 ; list updated through calendar year 1999 facility consolidations
+4 NEW ENRET
+5 SET ENRET=0
+6 SET ENSN=$GET(ENSN)
+7 IF "^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)
SET ENRET=1
+8 QUIT ENRET
+9 ;
+10 ;ENXIP63
