Changeset 636 for FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXII.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/LEXXII.m (modified) (7 diffs)

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

@@ -1 @@
-LEXXII ;ISL/KER - Lexicon Status (Install Info) ;06/06/2007
- ;;2.0;LEXICON UTILITY;**32,46,49,50,41**;Sep 23, 1996;Build 34
- ;              
- ; Variables NEWed or KILLed Elsewhere
- ;   LEXACCT  NEWed by LEXXFI sending message
- ;   LEXID    NEWed by LEXXFI sending message
- ;   LEXCRE   NEWed by LEXXGI loading data
- ;   LEXIGHF  NEWed by Post Install routine LEX20nnP
- ;   XPDA     NEWed by KIDS during Install
- ;              
+LEXXII ; ISL/KER - Lexicon Status (Install Info) ; 01/01/2007
+ ;;2.0;LEXICON UTILITY;**32,46,49**;Sep 23, 1996;Build 3
+ ;             
  ; Global Variables
  ;   DBIA 10096  ^%ZOSF("PROD"
@@ -14 +7 @@
  ;   DBIA 10060  ^VA(200
  ;   ^LEXM(0
- ;   ^TMP("LEX*",$J    SACC 2.3.2.5.1
- ;              
+ ;   ^TMP("LEX*",$J    SACC 2.3.2.5.1 
+ ;             
  ; External References
  ;   DBIA 10103  $$FMTE^XLFDT
@@ -23 +16 @@
  ;   DBIA  2051  FIND^DIC
  ;   DBIA  2056  GETS^DIQ
- ;              
+ ;             
+ ; LEXCRE   Newed in LEXXGI
+ ; LEXID    Newed in LEXXFI
+ ; LEXIGHF  Newed in Post-Install LEX20nnP
+ ;            
 EN ; Main Entry
  N LEXSUB S LEXSUB=$G(LEXID) S:LEXSUB="" LEXSUB="LEXXII" K ^TMP(LEXSUB,$J) D II
@@ -29 +26 @@
  ;                               
 II ; Install Information
- N LEXT,LEXA,LEXACT,LEXB,LEXD,LEXE,LEXL,LEXU,LEXN,LEXP,LEXPROF,LEXDA H 2
- S LEXA="",LEXACT=$G(LEXACCT),LEXPRO=$G(LEXPRO),LEXPRON=$G(LEXPRON)
- S:'$L(LEXPRON) LEXPRON="LEXICAL SERVICES UPDATE" S:'$L(LEXPRO) LEXPRO=$G(^LEXM(0,"PRO")) S:+LEXPRO>0 LEXPRO=$$ED(LEXPRO)
+ N LEXT,LEXA,LEXACT,LEXB,LEXD,LEXE,LEXL,LEXU,LEXN,LEXP,LEXPRO,LEXPRON,LEXPROF,LEXDA H 2
+ S LEXA="",LEXACT=$G(LEXACCT),LEXPRON="LEXICAL SERVICES UPDATE",LEXPRO=$G(^LEXM(0,"PRO")) S:+LEXPRO>0 LEXPRO=$$ED(LEXPRO),LEXPROF=1
  S LEXT="Lexicon/ICD/CPT Installation" D TL(LEXT)
  S LEXT="============================" D TL(LEXT),BL
@@ -52 +48 @@
  S:'$L(LEXT)&($L($G(LEXCRE)))&($P($G(LEXCRE),".",1)?7N) LEXT="  Created:     "_$$ED($G(LEXCRE))
  D:$L(LEXT) TL(LEXT)
- S LEXT="" I $L($G(LEXPRO))&($L($G(LEXPRON))) D
+ S LEXT="" I $L($G(LEXPRO))&($L($G(LEXPRON)))&(+($G(LEXPROF))>0) D
  . S LEXT="  Protocol:    "_LEXPRON D BL,TL(LEXT)
  . S LEXT="  Invoked:     "_LEXPRO D TL(LEXT)
- . K LEXPRO,LEXPRON,^LEXM(0,"PRO")
  S LEXB=$$SS($G(LEXBUILD)),LEXE=$P(LEXB,"^",2),LEXL=$P(LEXB,"^",3),LEXB=$P(LEXB,"^",1)
  I $P(LEXB,".",1)?7N!($P(LEXB,".",2)?7N)!($P(LEXB,".",3)[":") D
@@ -87 +82 @@
  . D GETS^DIQ(9.7,LEXIENS,"11;17","I","LEXOUT")
  . S LEXL=0,LEXB=$G(LEXOUT(9.7,LEXIENS,11,"I"))
- . S LEXE=$$NOW^XLFDT
+ . S LEXE=$G(LEXOUT(9.7,LEXIENS,17,"I"))
+ . S:+LEXE'>0 LEXE=$$NOW^XLFDT
  . S:+LEXB>0&(+LEXE>0) LEXL=$$EP(LEXB,LEXE)
  . S LEX=LEXB_"^"_LEXE S:$L(LEXL) $P(LEX,"^",3)=LEXL
@@ -93 +89 @@
  . S LEX="" S LEXDA=+($G(LEXD)) Q:+LEXDA'>0
  . S LEXL="",LEXB=$P($G(LEXD),"^",2) Q:$P(LEXB,".",1)'?7N
- . S LEXE=$$NOW^XLFDT
+ . S LEXE=$P($G(LEXD),"^",3) Q:$P(LEXE,".",1)'?7N
  . S:+LEXB>0&(+LEXE>0) LEXL=$$EP(LEXB,LEXE)
  . S LEX=LEXB_"^"_LEXE S:$L(LEXL) $P(LEX,"^",3)=LEXL