ENXVIPS.m

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 ---ENXVIPS   1042     printed  Apr 09, 2024@21:00:41                                                                                                                                                                                                     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