Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENXVIPS

ENXVIPS.m

Go to the documentation of this file.
  1. ENXVIPS ;WIRMFO/SAB- POST-INIT ;7/10/97
  1. ;;7.0;ENGINEERING;**39**;Aug 17, 1993
  1. ;
  1. ; Populate new B1 x-ref in CMR file (#6914.1)
  1. S DIK="^ENG(6914.1,",DIK(1)=".01^B1" D ENALL^DIK K DIK
  1. ;
  1. ; only do remaining steps during 1st install
  1. I $$PATCH^XPDUTL("EN*7.0*39") D BMES^XPDUTL(" Skipping FR Documents step since patch was previously installed.") Q
  1. ;
  1. D BMES^XPDUTL(" Sending computed Cost Centers to FAP on FR DOCUMENTs")
  1. ; send FR Documents (with cost center) for all capitalized equipment
  1. K ^TMP($J,"BAD")
  1. S XPDIDTOT=100 ; set total for status bar
  1. ; loop thru national EIL codes
  1. S ENEIL("DA")=0
  1. F S ENEIL("DA")=$O(^ENG(6914.9,ENEIL("DA"))) Q:'ENEIL("DA") D
  1. . S ENEIL=$P($G(^ENG(6914.9,ENEIL("DA"),0)),U)
  1. . Q:$P($G(^ENG(6914.9,ENEIL("DA"),0)),U,2)="" ; no cost center
  1. . S X=$$FREIL^ENFAEIL(ENEIL) ; send FR DOCUMENTs for equipment on EIL
  1. . I '(ENEIL("DA")#10) D UPDATE^XPDID(ENEIL("DA")) ; update status bar
  1. ; report any problems
  1. I $D(^TMP($J,"BAD")) D FRERR^ENFAEIL K ^TMP($J,"BAD")
  1. Q
  1. ;ENXVIPS