LEX2054P ;ISL/KER - LEX*2.0*54 Pre/Post Install ;06/06/2007
;;2.0;LEXICON UTILITY;**54**;Sep 23, 1996;Build 1
;
; Variables NEWed or KILLed Elsewhere
; None
;
; Global Variables
; ^LEXM
;
; External References
; None
;
Q
POST ; LEX*2.0*54 Post-Install
;
; From IMP^LEX2054
;
; 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^LEX2054
S LEXEDT=$G(^LEXM(0,"CREATED")) D CON,LOAD
Q
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
Q
;
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)
Q
;
PRE ; LEX*2.0*54 Pre-Install (N/A for patch 54)
Q
;
CON ; Conversion of data (Remove existing KT/KU Modifiers)
N DA,DIK S DIK="^DIC(81.3," S DA=0 F S DA=$O(^DIC(81.3,"B","KT",DA)) Q:+DA'>0 D ^DIK
S DA=0 F S DA=$O(^DIC(81.3,"B","KU",DA)) Q:+DA'>0 D ^DIK
K DA,DIK K ^DIC(81.3,-1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2054P 1802 printed Oct 16, 2024@18:05:09 Page 2
LEX2054P ;ISL/KER - LEX*2.0*54 Pre/Post Install ;06/06/2007
+1 ;;2.0;LEXICON UTILITY;**54**;Sep 23, 1996;Build 1
+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*54 Post-Install
+1 ;
+2 ; From IMP^LEX2054
+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^LEX2054
+13 SET LEXEDT=$GET(^LEXM(0,"CREATED"))
DO CON
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*54 Pre-Install (N/A for patch 54)
+1 QUIT
+2 ;
CON ; Conversion of data (Remove existing KT/KU Modifiers)
+1 NEW DA,DIK
SET DIK="^DIC(81.3,"
SET DA=0
FOR
SET DA=$ORDER(^DIC(81.3,"B","KT",DA))
if +DA'>0
QUIT
DO ^DIK
+2 SET DA=0
FOR
SET DA=$ORDER(^DIC(81.3,"B","KU",DA))
if +DA'>0
QUIT
DO ^DIK
+3 KILL DA,DIK
KILL ^DIC(81.3,-1)
+4 QUIT
