Changeset 636 for FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXGI.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• LEXICON_UTILITY-LEX-GMPT/LEXXGI.m (modified) (6 diffs)

FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXGI.m

@@ -1 @@
-LEXXGI ;ISL/KER/FJF - Global Import (Needs ^LEXM) ;04/22/2008
- ;;2.0;LEXICON UTILITY;**4,25,26,27,28,29,46,49,50,41**;Sep 23, 1996;Build 34
+LEXXGI ; ISL/KER - Global Import (Needs ^LEXM) ; 02/22/2007
+ ;;2.0;LEXICON UTILITY;**4,25,26,27,28,29,46,49**;Sep 23, 1996;Build 3
  ;              
- ; NEWed by Lexicon Environment Check routine LEX20nn
- ;    LEXBUILD
- ;    LEXFY
- ;    LEXIGHF
- ;    LEXLREV
- ;    LEXPTYPE
- ;    LEXQTR
- ;    LEXREQP
+ ; NEWed or KILLed Elsewhere
  ;              
- ; NEWed by KIDS during the Install of a patch/build
- ;    XPDNM
+ ;    LEXBUILD, LEXFY, LEXIGHF, LEXLREV, LEXPTYPE
+ ;    LEXQTR, LEXREQP, LEXSHORT, XPDNM
  ;              
  ; Global Variables
@@ -18 +11 @@
  ;              
  ; External References
- ;    DBIA 10086  HOME^%ZIS
- ;    DBIA 10016  ^DIM
- ;    DBIA  2056  $$GET1^DIQ (file 200)
- ;    DBIA 10103  $$DT^XLFDT
- ;    DBIA 10103  $$FMTE^XLFDT
- ;    DBIA 10141  BMES^XPDUTL 
- ;    DBIA 10141  MES^XPDUTL
+ ;    HOME^%ZIS
+ ;    ^DIM     
+ ;    $$GET1^DIQ
+ ;    $$DT^XLFDT
+ ;    $$FMTE^XLFDT
+ ;    BMES^XPDUTL 
+ ;    MES^XPDUTL  
  ;              
 EN ; Main Entry Point for Installing LEXM in Post-Installs
@@ -70 +63 @@
  ;   LEXCRE   - Import Global Creation Date
  ;                
- D IMPORT D KALL^LEXXGI2
- Q
-TASK ; Queue Lexicon Update with Taskman
- N Y,ZTRTN,ZTDESC,ZTIO,ZTDTH,ZTSK,ZTSAVE,ZTQUEUED
- S:$D(LEXBUILD) ZTSAVE("LEXBUILD")=""
- S:$D(LEXMSG) ZTSAVE("LEXMSG")=""
- S:$D(LEXSHORT) ZTSAVE("LEXSHORT")=""
- S:$D(LEXPTYPE) ZTSAVE("LEXPTYPE")=""
- S:$D(LEXLREV) ZTSAVE("LEXLREV")=""
- S:$D(LEXREQP) ZTSAVE("LEXREQP")=""
- S:$D(LEXIGHF) ZTSAVE("LEXIGHF")=""
- S:$D(LEXFY) ZTSAVE("LEXFY")=""
- S:$D(LEXQTR) ZTSAVE("LEXQTR")=""
- S:$D(LEXCRE) ZTSAVE("LEXCRE")=""
- S ZTRTN="EN^LEXXGI",ZTDESC="Importing Updated Lexicon Data"
- S ZTIO="",ZTDTH=$H
- D ^%ZTLOAD,HOME^%ZIS
+ D IMPORT,KALL^LEXXGI2
  Q
 IMPORT ; Import Data during a Patch Installation
@@ -109 +86 @@
  . S:$D(LEXSCHG("C","CPT"))!($D(LEXSCHG("C","ICD"))) LEXSCHG("D","PRO")="",LEXCHG=1,LEXSCHG(0)=1
  . D LOAD,NOTIFY^LEXXGI2 I +($G(DUZ))>0,$L($$GET1^DIQ(200,(+($G(DUZ))_","),.01)) D
- . . D HOME^%ZIS N DIFROM,LEXPRO,LEXPRON,LEXLAST S LEXPRON="LEXICAL SERVICES UPDATE",LEXPRO=$G(^LEXM(0,"PRO")) D:$D(LEXMSG) POST^LEXXFI
+ . . D HOME^%ZIS N DIFROM,LEXPRO,LEXPRON,LEXLAST D:$D(LEXMSG) POST^LEXXFI
  Q
 LOAD ; Load Data from ^LEXM into IC*/LEX Files
@@ -142 +119 @@
  . N LEXB,LEXFID,LEXNM,LEXVR,LEXRV,LEXDT,LEXL1,LEXL2 S (LEXL1,LEXL2)="",LEXFID=$P(LEXFI,".",1)
  . Q:+LEXFID'>0  Q:$D(LEXHDRS(+LEXFID))  S LEXHDRS(LEXFID)="" S:+LEXFI=81!(+LEXFI=81.3) LEXHDRS(81)="",LEXHDRS(81.3)=""
- . S:LEXFID=80 LEXNM="ICD-9-CM" S:LEXFID=81 LEXNM="CPT-4/HCPCS" S:LEXFID=757 LEXNM="Lexicon" S LEXB=$G(^LEXM(LEXFI,0,"BUILD"))
+ . S:LEXFID=80 LEXNM="ICD-9-CM" S:LEXFID=81 LEXNM="CPT-4/HCPSC" S:LEXFID=757 LEXNM="Lexicon" S LEXB=$G(^LEXM(LEXFI,0,"BUILD"))
  . S LEXVR=$G(^LEXM(LEXFI,0,"VR")),LEXRV=$G(^LEXM(LEXFI,0,"VRRV")),LEXDT=$$MIX^LEXXGI2($$FMTE^XLFDT($P(LEXRV,"^",2))),LEXRV=$P(LEXRV,"^",1)
  . S LEXL1="Updating "_LEXNM S:$L(LEXB) LEXL1=LEXL1_" with patch/build "_LEXB S:$L(LEXVR) LEXL2=" To version "_LEXVR
@@ -190 +167 @@
  K ZTDESC,ZTDTH,ZTIO,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,ZTSK
  Q
-CHECKSUM ; Check ^LEXM Checksum
- D CS^LEXXGI2
- Q