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