ENXVIPS ;WIRMFO/SAB- POST-INIT ;7/10/97
;;7.0;ENGINEERING;**39**;Aug 17, 1993
;
; Populate new B1 x-ref in CMR file (#6914.1)
S DIK="^ENG(6914.1,",DIK(1)=".01^B1" D ENALL^DIK K DIK
;
; only do remaining steps during 1st install
I $$PATCH^XPDUTL("EN*7.0*39") D BMES^XPDUTL(" Skipping FR Documents step since patch was previously installed.") Q
;
D BMES^XPDUTL(" Sending computed Cost Centers to FAP on FR DOCUMENTs")
; send FR Documents (with cost center) for all capitalized equipment
K ^TMP($J,"BAD")
S XPDIDTOT=100 ; set total for status bar
; loop thru national EIL codes
S ENEIL("DA")=0
F S ENEIL("DA")=$O(^ENG(6914.9,ENEIL("DA"))) Q:'ENEIL("DA") D
. S ENEIL=$P($G(^ENG(6914.9,ENEIL("DA"),0)),U)
. Q:$P($G(^ENG(6914.9,ENEIL("DA"),0)),U,2)="" ; no cost center
. S X=$$FREIL^ENFAEIL(ENEIL) ; send FR DOCUMENTs for equipment on EIL
. I '(ENEIL("DA")#10) D UPDATE^XPDID(ENEIL("DA")) ; update status bar
; report any problems
I $D(^TMP($J,"BAD")) D FRERR^ENFAEIL K ^TMP($J,"BAD")
Q
;ENXVIPS
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENXVIPS 1042 printed Dec 13, 2024@01:57:09 Page 2
ENXVIPS ;WIRMFO/SAB- POST-INIT ;7/10/97
+1 ;;7.0;ENGINEERING;**39**;Aug 17, 1993
+2 ;
+3 ; Populate new B1 x-ref in CMR file (#6914.1)
+4 SET DIK="^ENG(6914.1,"
SET DIK(1)=".01^B1"
DO ENALL^DIK
KILL DIK
+5 ;
+6 ; only do remaining steps during 1st install
+7 IF $$PATCH^XPDUTL("EN*7.0*39")
DO BMES^XPDUTL(" Skipping FR Documents step since patch was previously installed.")
QUIT
+8 ;
+9 DO BMES^XPDUTL(" Sending computed Cost Centers to FAP on FR DOCUMENTs")
+10 ; send FR Documents (with cost center) for all capitalized equipment
+11 KILL ^TMP($JOB,"BAD")
+12 ; set total for status bar
SET XPDIDTOT=100
+13 ; loop thru national EIL codes
+14 SET ENEIL("DA")=0
+15 FOR
SET ENEIL("DA")=$ORDER(^ENG(6914.9,ENEIL("DA")))
if 'ENEIL("DA")
QUIT
Begin DoDot:1
+16 SET ENEIL=$PIECE($GET(^ENG(6914.9,ENEIL("DA"),0)),U)
+17 ; no cost center
if $PIECE($GET(^ENG(6914.9,ENEIL("DA"),0)),U,2)=""
QUIT
+18 ; send FR DOCUMENTs for equipment on EIL
SET X=$$FREIL^ENFAEIL(ENEIL)
+19 ; update status bar
IF '(ENEIL("DA")#10)
DO UPDATE^XPDID(ENEIL("DA"))
End DoDot:1
+20 ; report any problems
+21 IF $DATA(^TMP($JOB,"BAD"))
DO FRERR^ENFAEIL
KILL ^TMP($JOB,"BAD")
+22 QUIT
+23 ;ENXVIPS
