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

AUMAUTFX.m

Go to the documentation of this file. 
  1. AUMAUTFX ;IHS/OIT/ABK - AUM 10 patch 2 AD-HOC LOAD [ 10/10/2010  9:19 AM ]
  1.  ;;11.0;TABLE MAINTENANCE;**5**;Oct 15,2010
  1.  ;Utilites to facilitate AUM/AUTT Fix
  1.  ;
  1.  ;
  1. DOFTG(PATH,FILENAME) ;
  1.  N GBL,GBLZISH,SUCCESS
  1.  K ^TMP("AUMPFIX",$J)
  1.  S GBL="^TMP(""AUMPFIX"",$J)"
  1.  S GBLZISH="^TMP(""AUMPFIX"",$J,1)"
  1.  S GBLZISH=$NA(@GBLZISH)
  1.  S SUCCESS=$$FTG^%ZISH(PATH,FILENAME,GBLZISH,3)
  1.  Q
  1.  ;
  1. DOGTF(PATH,FILENAME) ;
  1.  N GBL,GBLZISH,SUCCESS
  1.  S GBL="^TMP(""AUMPFIX"",$J)"
  1.  S GBLZISH="^TMP(""AUMPFIX"",$J,1)"
  1.  S GBLZISH=$NA(@GBLZISH)
  1.  S SUCCESS=$$GTF^%ZISH(GBLZISH,3,PATH,FILENAME)
  1.  Q
  1.  ;
  1. FIX ;
  1.  N AUMDA,AUMDA1,TOTCNT,AUMERR,TOTUPD,FIXSTR,AUMCNAM,AUMMNE,AUMMJT
  1.  S AUMDA="",TOTCNT=0,AUMERR=0,TOTUPD=0
  1.  F  S AUMDA=$O(^TMP("AUMPFIX",$J,AUMDA)) Q:AUMDA=""  S FIXSTR=^(AUMDA) D
  1.   .S TOTCNT=TOTCNT+1
  1.   .S AUMCNAM=$P(FIXSTR,U,4)_"-"_$P(FIXSTR,U,5),AUMMNE=$P(FIXSTR,U,3),AUMMJT=$P(FIXSTR,U,4)
  1.   .; Do error checking
  1.   .I AUMCNAM="" D BMES^XPDUTL("Name field is null "_AUMCNAM_" not updated - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1 Q
  1.   .I AUMMNE="" D BMES^XPDUTL("Mnemonic field is null "_AUMMNE_" not updated - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1 Q
  1.   .; Ok - past that
  1.   .S AUMDA1=0,AUMDA1=$O(^AUTTEDT("C",AUMMNE,AUMDA1))
  1.   .I AUMDA1'="" D  ; DA NOT NULL,updating
  1.   ..S TOTUPD=TOTUPD+1
  1.   ..S DIE="^AUTTEDT(",DA=AUMDA1 ;,DIC(0)="L"
  1.   ..S DR=".01////"_AUMCNAM_";1////"_AUMMNE_";.06////"_AUMMJT_";.03////@"
  1.   ..D ^DIE D BMES^XPDUTL("Updated - Name = "_AUMCNAM_"    Mnemonic = "_AUMMNE)
  1.   ..D ^XBFMK
  1.   ..Q
  1.   .Q
  1.   D BMES^XPDUTL("Total records processed:   "_TOTCNT)
  1.   D BMES^XPDUTL("Total records in  error:   "_AUMERR)
  1.   D BMES^XPDUTL("Total records   updated:   "_TOTUPD)
  1.  Q
  1.  ;
  1. FIXAUM ;
  1.  N AUMDA,AUMDA1,TOTCNT,AUMERR,TOTUPD,FIXSTR,AUMCNAM,AUMMNE,AUMMJT
  1.  S AUMDA="",TOTCNT=0,AUMERR=0,TOTUPD=0
  1.  F  S AUMDA=$O(^TMP("AUMPFIX",$J,AUMDA)) Q:AUMDA=""  S FIXSTR=^(AUMDA) D
  1.   .S TOTCNT=TOTCNT+1
  1.   .S AUMCNAM=$P(FIXSTR,U,4)_"-"_$P(FIXSTR,U,5),AUMMNE=$P(FIXSTR,U,3),AUMMJT=$P(FIXSTR,U,4)
  1.   .; Do error checking
  1.   .I AUMCNAM="" D BMES^XPDUTL("Name field is null "_AUMCNAM_" not updated - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1 Q
  1.   .I AUMMNE="" D BMES^XPDUTL("Mnemonic field is null "_AUMMNE_" not updated - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1 Q
  1.   .; Ok - past that
  1.   .S AUMDA1=0,AUMDA1=$O(^AUTTEDT("C",AUMMNE,AUMDA1))
  1.   .I $D(^AUMPCLN(AUMMNE)) S XSTR=^(AUMMNE),$P(XSTR,U,2)=AUMCNAM,$P(XSTR,U,4)=AUMMJT,^AUMPCLN(AUMMNE)=XSTR,TOTUPD=TOTUPD+1
  1.   .E  D BMES^XPDUTL("Mnemonic - "_AUMMNE_" does not exist - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1
  1.   .Q
  1.   D BMES^XPDUTL("Total records processed:   "_TOTCNT)
  1.   D BMES^XPDUTL("Total records in  error:   "_AUMERR)
  1.   D BMES^XPDUTL("Total records   updated:   "_TOTUPD)
  1.  Q
  1. UPPER(X) Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1.  ; End of routine
  1. FIXSMT ; Fix Target AUTTEDMT data, translate to upper and remove apostrophes
  1.  N X1,X2,X3,AUMDA
  1.  S AUMDA=0
  1.  F  S AUMDA=$O(^AUTTEDMT(AUMDA)) Q:AUMDA="B"  S X1=^(AUMDA,0),X2=$TR(X1,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),X3=$TR(X2,"'") S ^AUTTEDMT(AUMDA,0)=X3
  1.  Q
  1. FIXEDMT ; Fix AUTTEDMT global, by updating it with new major topics
  1.  N AUMDA,AUMDA1,TOTCNT,AUMERR,TOTNEW,TOTUPD,FIXSTR,AUMMNE,AUMMJT
  1.  S AUMDA="",TOTCNT=0,AUMERR=0,TOTNEW=0,TOTUPD=0
  1.  F  S AUMDA=$O(^AUMPMT(AUMDA)) Q:AUMDA=""  S FIXSTR=^(AUMDA) D
  1.   .S TOTCNT=TOTCNT+1
  1.   .S AUMMNE=$P(FIXSTR,U,1),AUMMJT=$P(FIXSTR,U,2)
  1.   .; Do error checking
  1.   .I AUMMJT="" D BMES^XPDUTL("Topic Name field is null "_AUMMJT_" not updated - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1 Q
  1.   .I AUMMNE="" D BMES^XPDUTL("Mnemonic field is null "_AUMMNE_" not updated - error"),BMES^XPDUTL("Record: "_FIXSTR) S AUMERR=AUMERR+1 Q
  1.   .; Ok - past that
  1.   .S AUMDA1=0,AUMDA1=$O(^AUTTEDMT("B",AUMMNE,AUMDA1))
  1.   .I AUMDA1'="" D  ; DA NOT NULL,updating
  1.   ..S TOTUPD=TOTUPD+1
  1.   ..S DIE="^AUTTEDMT(",DA=AUMDA1 ;,DIC(0)="L"
  1.   ..S DR=".01////"_AUMMJT_";.02////"_AUMMNE
  1.   ..D ^DIE D BMES^XPDUTL("Updated - Name = "_AUMMJT_"    Mnemonic = "_AUMMNE)
  1.   ..D ^XBFMK
  1.   ..Q
  1.   .I AUMDA1="" D  ; DA NULL,RECORD MISSING,SO WE ADD IT
  1.   ..S X=AUMMJT,DIC="^AUTTEDMT(",DIC(0)="L"
  1.   ..S DIC("DR")=".02////"_AUMMNE
  1.   ..D ^DIC
  1.   ..I $P(Y,U,3)=1 D
  1.   ...S TOTNEW=TOTNEW+1
  1.   ...D BMES^XPDUTL("Inserted Topic - Name = "_AUMMJT_"    Mnemonic = "_AUMMNE)
  1.   ...Q
  1.   ..E  D
  1.   ...S AUMERR=AUMERR+1
  1.   ...D BMES^XPDUTL("No Insert Performed - Name = "_AUMMJT_"    Mnemonic = "_AUMMNE)
  1.   ...Q
  1.   ..D ^XBFMK
  1.   ..Q
  1.   .Q
  1.   ;
  1.   D BMES^XPDUTL("Total records       processed:   "_TOTCNT)
  1.   D BMES^XPDUTL("Total records already present:   "_AUMERR)
  1.   D BMES^XPDUTL("Total records         updated:   "_TOTUPD)
  1.   D BMES^XPDUTL("Total records        inserted:   "_TOTNEW)
  1.  Q
  1. KILL ;kill "B" cross-references
  1.  K ^AUTTEDMT("B")
  1.  Q
  1.  ;
  1. POST ;call to ENALL^DIK for .01 and 1
  1.  W !,"Rebuilding Indexes",!
  1.  S DIK="^AUTTEDMT("
  1.  S DIK(1)=".01^B"
  1.  D ENALL^DIK
  1.  S DIK(1)=".02^C"
  1.  D ENALL^DIK
  1.  Q
  1.  ;