ENXIP71 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;5/31/2002
;;7.0;ENGINEERING;**71**;Aug 17, 1993
;-------------------------------------------------------------------
;This routine is a modified copy of ENXIP63 from EN*7*63.
;
;-------------------------------------------------------------------
PRE ;PRE Install Entry Point.
;
I $$PATCH^XPDUTL("EN*7.0*71") D BMES^XPDUTL(" Skipping pre install since patch was previously installed.") Q
;
;Check for field #99 entries in 6914 set by EN*7*63.
;If $P1 of "RC" node has a value, set it to null
N ENIEN,ENCNT,ENMSG S (ENIEN,ENCNT)=0
;
S ENMSG=" * Checking for field #99 entries in file 6914."
D BMES^XPDUTL(ENMSG)
F S ENIEN=$O(^ENG(6915.2,"B",ENIEN)) Q:'ENIEN D
. QUIT:'$D(^ENG(6914,ENIEN,"RC"))
. ;
. I $P(^ENG(6914,ENIEN,"RC"),U)'="" D
. . S $P(^ENG(6914,ENIEN,"RC"),U)=""
. . S ENCNT=ENCNT+1
;
S ENMSG=" * "_ENCNT_" field #99 entries were removed in file 6914."
D MES^XPDUTL(" * Check for field #99 entries in file 6914 completed.")
I ENCNT>0 D MES^XPDUTL(ENMSG)
E D MES^XPDUTL(" * NO field #99 entries found in file 6914.")
;
;-------------------- D A T A V A L I D A T I O N ------------------
;
;Validate data in 6914. If there is a problem, inform the user and
;save problem records in a temp file.
;
K ^XTMP("ENXIP71",0)
;
S (ENIEN,ENCNT)=0,ENMSG=""
S ^XTMP("ENXIP71",0)=$$FMADD^XLFDT(DT,21)_U_DT
;
S ENMSG=" * Checking for problem records in file 6914."
D BMES^XPDUTL(ENMSG)
F S ENIEN=$O(^ENG(6915.2,"B",ENIEN)) Q:'ENIEN D
. ;
. Q:+$$CHKFA^ENFAUTL(ENIEN)'>0 ;Not currently reported to FA
. ;
. ;Data vaildation - No entry in the Equipment File
. I '$D(^ENG(6914,ENIEN)) D Q
. . S ENCNT=ENCNT+1
. . S ENMSG=" "_ENCNT_". NO ENTRY IN FILE 6914 for IEN "_ENIEN
. . S ^XTMP("ENXIP71",ENIEN)=ENMSG
. . D MES^XPDUTL(ENMSG)
. ;
. K ENEQ
. F I=2,8,9 S ENEQ(I)=$G(^ENG(6914,ENIEN,I)) ;Check data from 6914
. ;
. ;Data vaildation - Check for missing nodes
. ; 1. Node 2 has the Total Asset Value
. ; 2. Node 8 has the Standard General Ledger
. ; 3. Node 9 has Station no. and Fund no.
. ;
. I ENEQ(2)="" D
. . S ENCNT=ENCNT+1
. . S ENMSG=" "_ENCNT_". NODE 2 MISSING IN 6914 for IEN "_ENIEN
. . S ^XTMP("ENXIP71",ENIEN)=ENMSG
. . D MES^XPDUTL(ENMSG)
. . ;
. I ENEQ(8)="" D
. . S ENCNT=ENCNT+1
. . S ENMSG=" "_ENCNT_". NODE 8 MISSING IN 6914 for IEN "_ENIEN
. . S ^XTMP("ENXIP71",ENIEN)=ENMSG
. . D MES^XPDUTL(ENMSG)
. . ;
. I ENEQ(9)="" D
. . S ENCNT=ENCNT+1
. . S ENMSG=" "_ENCNT_". NODE 9 MISSING IN 6914 for IEN "_ENIEN
. . S ^XTMP("ENXIP71",ENIEN)=ENMSG
. . D MES^XPDUTL(ENMSG)
;
S ENMSG=" * These problem records will not process with the "
S ENMSG=ENMSG_"one-time job!"
D MES^XPDUTL(" * Check for problem records in file 6914 completed.")
;
I ENCNT>0 D MES^XPDUTL(ENMSG) Q
D MES^XPDUTL(" * NO problem records were found in file 6914.")
;
Q
;---------------------------------------------------------------------
POST ;Post Install Entry Point
N ENI,ENSN
;
; only perform during 1st install
I $$PATCH^XPDUTL("EN*7.0*71") D BMES^XPDUTL(" Skipping post install since patch was previously installed.") Q
I DT>3020724 D BMES^XPDUTL(" Skipping post install since Today is after July 24, 2002.") 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 ($100,000)
;
S ZTRTN="TASK^ENFACTT"
S ZTDESC="ENG Capitalization Threshold Task"
S ZTDTH="3020724.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(" 1. The task number is "_ZTSK)
. D MES^XPDUTL(" 2. It will start on "_$$HTE^XLFDT(ZTSK("D")))
. D MES^XPDUTL(" 3. After the task completes a summary report will be printed on device:")
. D MES^XPDUTL(" "_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
;
; Most up to date listing received 5/16/02. Added additional stations
; with information supplied by NDBI
;
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
;
;New Legacy for EN*7&71
I "^647^543^609^677^567^452^555^514^670^500^622^597^584^"[(U_ENSN_U) S ENRET=1
;
Q ENRET
;
;ENXIP71
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENXIP71 5701 printed Nov 22, 2024@17:07:04 Page 2
ENXIP71 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;5/31/2002
+1 ;;7.0;ENGINEERING;**71**;Aug 17, 1993
+2 ;-------------------------------------------------------------------
+3 ;This routine is a modified copy of ENXIP63 from EN*7*63.
+4 ;
+5 ;-------------------------------------------------------------------
PRE ;PRE Install Entry Point.
+1 ;
+2 IF $$PATCH^XPDUTL("EN*7.0*71")
DO BMES^XPDUTL(" Skipping pre install since patch was previously installed.")
QUIT
+3 ;
+4 ;Check for field #99 entries in 6914 set by EN*7*63.
+5 ;If $P1 of "RC" node has a value, set it to null
+6 NEW ENIEN,ENCNT,ENMSG
SET (ENIEN,ENCNT)=0
+7 ;
+8 SET ENMSG=" * Checking for field #99 entries in file 6914."
+9 DO BMES^XPDUTL(ENMSG)
+10 FOR
SET ENIEN=$ORDER(^ENG(6915.2,"B",ENIEN))
if 'ENIEN
QUIT
Begin DoDot:1
+11 if '$DATA(^ENG(6914,ENIEN,"RC"))
QUIT
+12 ;
+13 IF $PIECE(^ENG(6914,ENIEN,"RC"),U)'=""
Begin DoDot:2
+14 SET $PIECE(^ENG(6914,ENIEN,"RC"),U)=""
+15 SET ENCNT=ENCNT+1
End DoDot:2
End DoDot:1
+16 ;
+17 SET ENMSG=" * "_ENCNT_" field #99 entries were removed in file 6914."
+18 DO MES^XPDUTL(" * Check for field #99 entries in file 6914 completed.")
+19 IF ENCNT>0
DO MES^XPDUTL(ENMSG)
+20 IF '$TEST
DO MES^XPDUTL(" * NO field #99 entries found in file 6914.")
+21 ;
+22 ;-------------------- D A T A V A L I D A T I O N ------------------
+23 ;
+24 ;Validate data in 6914. If there is a problem, inform the user and
+25 ;save problem records in a temp file.
+26 ;
+27 KILL ^XTMP("ENXIP71",0)
+28 ;
+29 SET (ENIEN,ENCNT)=0
SET ENMSG=""
+30 SET ^XTMP("ENXIP71",0)=$$FMADD^XLFDT(DT,21)_U_DT
+31 ;
+32 SET ENMSG=" * Checking for problem records in file 6914."
+33 DO BMES^XPDUTL(ENMSG)
+34 FOR
SET ENIEN=$ORDER(^ENG(6915.2,"B",ENIEN))
if 'ENIEN
QUIT
Begin DoDot:1
+35 ;
+36 ;Not currently reported to FA
if +$$CHKFA^ENFAUTL(ENIEN)'>0
QUIT
+37 ;
+38 ;Data vaildation - No entry in the Equipment File
+39 IF '$DATA(^ENG(6914,ENIEN))
Begin DoDot:2
+40 SET ENCNT=ENCNT+1
+41 SET ENMSG=" "_ENCNT_". NO ENTRY IN FILE 6914 for IEN "_ENIEN
+42 SET ^XTMP("ENXIP71",ENIEN)=ENMSG
+43 DO MES^XPDUTL(ENMSG)
End DoDot:2
QUIT
+44 ;
+45 KILL ENEQ
+46 ;Check data from 6914
FOR I=2,8,9
SET ENEQ(I)=$GET(^ENG(6914,ENIEN,I))
+47 ;
+48 ;Data vaildation - Check for missing nodes
+49 ; 1. Node 2 has the Total Asset Value
+50 ; 2. Node 8 has the Standard General Ledger
+51 ; 3. Node 9 has Station no. and Fund no.
+52 ;
+53 IF ENEQ(2)=""
Begin DoDot:2
+54 SET ENCNT=ENCNT+1
+55 SET ENMSG=" "_ENCNT_". NODE 2 MISSING IN 6914 for IEN "_ENIEN
+56 SET ^XTMP("ENXIP71",ENIEN)=ENMSG
+57 DO MES^XPDUTL(ENMSG)
+58 ;
End DoDot:2
+59 IF ENEQ(8)=""
Begin DoDot:2
+60 SET ENCNT=ENCNT+1
+61 SET ENMSG=" "_ENCNT_". NODE 8 MISSING IN 6914 for IEN "_ENIEN
+62 SET ^XTMP("ENXIP71",ENIEN)=ENMSG
+63 DO MES^XPDUTL(ENMSG)
+64 ;
End DoDot:2
+65 IF ENEQ(9)=""
Begin DoDot:2
+66 SET ENCNT=ENCNT+1
+67 SET ENMSG=" "_ENCNT_". NODE 9 MISSING IN 6914 for IEN "_ENIEN
+68 SET ^XTMP("ENXIP71",ENIEN)=ENMSG
+69 DO MES^XPDUTL(ENMSG)
End DoDot:2
End DoDot:1
+70 ;
+71 SET ENMSG=" * These problem records will not process with the "
+72 SET ENMSG=ENMSG_"one-time job!"
+73 DO MES^XPDUTL(" * Check for problem records in file 6914 completed.")
+74 ;
+75 IF ENCNT>0
DO MES^XPDUTL(ENMSG)
QUIT
+76 DO MES^XPDUTL(" * NO problem records were found in file 6914.")
+77 ;
+78 QUIT
+79 ;---------------------------------------------------------------------
POST ;Post Install Entry Point
+1 NEW ENI,ENSN
+2 ;
+3 ; only perform during 1st install
+4 IF $$PATCH^XPDUTL("EN*7.0*71")
DO BMES^XPDUTL(" Skipping post install since patch was previously installed.")
QUIT
+5 IF DT>3020724
DO BMES^XPDUTL(" Skipping post install since Today is after July 24, 2002.")
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 ;
+13 ; ien of entry in file 6910 (should be 1)
SET ENI=$ORDER(^DIC(6910,0))
+14 ; station number
SET ENSN=$SELECT(ENI:$PIECE($GET(^DIC(6910,ENI,0)),U,2),1:"")
+15 IF $$LEGACY(ENSN)
Begin DoDot:1
+16 DO BMES^XPDUTL(" Skipping post install because patch is being installed on a legacy system.")
+17 DO MES^XPDUTL(" Any FD Documents generated by a legacy system would reject in Austin.")
End DoDot:1
QUIT
+18 ;
QTASK ; Queue Task to expense capitalized equipment that does not meet the
+1 ; new capitalization threshold ($100,000)
+2 ;
+3 SET ZTRTN="TASK^ENFACTT"
+4 SET ZTDESC="ENG Capitalization Threshold Task"
+5 SET ZTDTH="3020724.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(" 1. The task number is "_ZTSK)
+18 DO MES^XPDUTL(" 2. It will start on "_$$HTE^XLFDT(ZTSK("D")))
+19 DO MES^XPDUTL(" 3. After the task completes a summary report will be printed on device:")
+20 DO MES^XPDUTL(" "_XPDQUES("POS1","B"))
End DoDot:1
+21 ;
+22 QUIT
+23 ;----------------------------------------------------------------------
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 ;
+5 ; Most up to date listing received 5/16/02. Added additional stations
+6 ; with information supplied by NDBI
+7 ;
+8 NEW ENRET
+9 SET ENRET=0
+10 SET ENSN=$GET(ENSN)
+11 ;
+12 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
+13 ;
+14 ;New Legacy for EN*7&71
+15 IF "^647^543^609^677^567^452^555^514^670^500^622^597^584^"[(U_ENSN_U)
SET ENRET=1
+16 ;
+17 QUIT ENRET
+18 ;
+19 ;ENXIP71
