Routine: LEX2065P

LEX2065P ;ISL/KER - LEX*2.0*65 Pre/Post Install ;06/06/2007

 ;;2.0;LEXICON UTILITY;**65**;Sep 23, 1996;Build 3

 ; Variables NEWed or KILLed Elsewhere

 ;    None

 ; Global Variables

 ;    ^LEXM

 ; External References

 ;    None

POST ; LEX*2.0*65 Post-Install

 ; From IMP^LEX2065

 ;      LEXBUILD   Build Name - LEX*2.0*nn

 ;      LEXPTYPE   Patch Type - Remedy or Quarterly

 ;      LEXFY      Fiscal Year - FYnn

 ;      LEXQTR     Quarter - 1st, 2nd, 3rd, or 4th

 ;      LEXIGHF    Name of Host File - LEX_2_nn.GBL

 ;      LEXLREV    Revision - nn

 ;      LEXREQP    Required Builds - build;build;build

 N LEXEDT,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXB,LEXCD,LEXSTR,LEXLAST D IMP^LEX2065

 S LEXEDT=$G(^LEXM(0,"CREATED")) D LOAD

LOAD ; Load Data

 ;      LEXSHORT   Send Short Message

 ;      LEXMSG     Flag to send Message

 N LEXSHORT,LEXMSG S LEXSHORT="",LEXMSG=""

 S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"

 S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB=""  Q:LEXBUILD=""

 D:LEXB=LEXBUILD EN^LEXXGI

LQ ; Load Quit

 D KLEXM

KLEXM ; Subscripted Kill of ^LEXM

 H 2 N DA S DA=0 F  S DA=$O(^LEXM(DA)) Q:+DA=0  K ^LEXM(DA)

 N LEX S LEX=$G(^LEXM(0,"PRO")) K ^LEXM(0)

PRE ; LEX*2.0*65 Pre-Install   (N/A for patch 65)

CON ; Conversion of data       (N/A for patch 65)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2065P   1606     printed  Feb 18, 2025@23:30:35                                                                                                                                                                                                    Page 2

LEX2065P  ;ISL/KER - LEX*2.0*65 Pre/Post Install ;06/06/2007

 +1       ;;2.0;LEXICON UTILITY;**65**;Sep 23, 1996;Build 3

 +2       ;

 +3       ; Variables NEWed or KILLed Elsewhere

 +4       ;    None

 +5       ;

 +6       ; Global Variables

 +7       ;    ^LEXM

 +8       ;

 +9       ; External References

 +10      ;    None

 +11      ;

 +12       QUIT

POST      ; LEX*2.0*65 Post-Install

 +1       ;

 +2       ; From IMP^LEX2065

 +3       ;

 +4       ;      LEXBUILD   Build Name - LEX*2.0*nn

 +5       ;      LEXPTYPE   Patch Type - Remedy or Quarterly

 +6       ;      LEXFY      Fiscal Year - FYnn

 +7       ;      LEXQTR     Quarter - 1st, 2nd, 3rd, or 4th

 +8       ;      LEXIGHF    Name of Host File - LEX_2_nn.GBL

 +9       ;      LEXLREV    Revision - nn

 +10      ;      LEXREQP    Required Builds - build;build;build

 +11      ;

 +12       NEW LEXEDT,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXB,LEXCD,LEXSTR,LEXLAST

           DO IMP^LEX2065

 +13       SET LEXEDT=$GET(^LEXM(0,"CREATED"))

           DO LOAD

 +14       QUIT

LOAD      ; Load Data

 +1       ;

 +2       ;      LEXSHORT   Send Short Message

 +3       ;      LEXMSG     Flag to send Message

 +4       ;

 +5        NEW LEXSHORT,LEXMSG

           SET LEXSHORT=""

           SET LEXMSG=""

 +6        SET LEXSTR=$GET(LEXPTYPE)

           if $LENGTH($GET(LEXFY))&($LENGTH($GET(LEXQTR)))

               SET LEXSTR=LEXSTR_" for "_$GET(LEXFY)_" "_$GET(LEXQTR)_" Quarter"

 +7        SET U="^"

           SET LEXB=$GET(^LEXM(0,"BUILD"))

           if LEXB=""

               QUIT

           if LEXBUILD=""

               QUIT

 +8        if LEXB=LEXBUILD

               DO EN^LEXXGI

LQ        ; Load Quit

 +1        DO KLEXM

 +2        QUIT

 +3       ;

KLEXM     ; Subscripted Kill of ^LEXM

 +1        HANG 2

           NEW DA

           SET DA=0

FOR

               SET DA=$ORDER(^LEXM(DA))

               if +DA=0

                   QUIT

               KILL ^LEXM(DA)

 +2        NEW LEX

           SET LEX=$GET(^LEXM(0,"PRO"))

           KILL ^LEXM(0)

 +3        QUIT

 +4       ;

PRE       ; LEX*2.0*65 Pre-Install   (N/A for patch 65)

 +1        QUIT

 +2       ;

CON       ; Conversion of data       (N/A for patch 65)

 +1        QUIT

LEX2065P.m