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

LEX2068P.m

Go to the documentation of this file.
  1. LEX2068P ;ISL/KER - LEX*2.0*68 Pre/Post Install ;12/08/2009
  1. ;;2.0;LEXICON UTILITY;**68**;Sep 23, 1996;Build 1
  1. ;
  1. ; Global Variables
  1. ; ^LEXM(
  1. ;
  1. ; External References
  1. ; None
  1. ;
  1. Q
  1. POST ; Post-Install
  1. ;
  1. ; From IMP in the Environment Check
  1. ;
  1. ; LEXBUILD Build Name - LEX*2.0*nn
  1. ; LEXPTYPE Patch Type - Remedy or Quarterly
  1. ; LEXFY Fiscal Year - FYnn
  1. ; LEXQTR Quarter - 1st, 2nd, 3rd, or 4th
  1. ; LEXIGHF Name of Host File - LEX_2_nn.GBL
  1. ; LEXLREV Revision - nn
  1. ; LEXREQP Required Builds - build;build;build
  1. ;
  1. N LEXEDT,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXB,LEXCD,LEXSTR,LEXLAST,LEXOK S LEXOK=0 D IMP
  1. S LEXEDT=$G(^LEXM(0,"CREATED")) D:LEXOK>0 LOAD
  1. Q
  1. LOAD ; Load Data
  1. ;
  1. ; LEXSHORT Send Short Message
  1. ; LEXMSG Flag to send Message
  1. ;
  1. N LEXSHORT,LEXMSG S LEXSHORT="",LEXMSG=""
  1. S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"
  1. S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:$G(LEXBUILD)=""
  1. D:LEXB=LEXBUILD EN^LEXXGI
  1. LQ ; Load Quit
  1. D KLEXM
  1. Q
  1. ;
  1. KLEXM ; Subscripted Kill of ^LEXM
  1. H 2 N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
  1. N LEX S LEX=$G(^LEXM(0,"PRO")) K ^LEXM(0)
  1. Q
  1. ;
  1. PRE ; Pre-Install (N/A for this patch)
  1. Q
  1. ;
  1. CON ; Conversion of data (N/A for this patch)
  1. Q
  1. IMP ; Call IMP in Environment Check
  1. K LEXBUILD,LEXFY,LEXIGHF,LEXLREV,LEXPTYPE,LEXQTR,LEXREQP N LEXF
  1. S LEXF=$P($T(+1)," ",1) S:$E(LEXF,$L(LEXF))="P" LEXF=$E(LEXF,1,($L(LEXF)-1)) Q:'$L(LEXF)
  1. S LEXF="IMP^"_LEXF Q:'$L($T(@LEXF)) D @LEXF S:$L(LEXBUILD) LEXOK=1
  1. Q