LEX2026P ; ISL/KER - Pre/Post Install; 10/15/2003
;;2.0;LEXICON UTILITY;**26**;Sep 23, 1996
;
; External References
; DBIA 10086 HOME^%ZIS
; DBIA 2052 $$GET1^DID
; DBIA 2055 PRD^DILFD
; DBIA 10014 EN^DIU2
; DBIA 10141 BMES^XPDUTL
; DBIA 10141 MES^XPDUTL
;
Q
;
POST ; LEX*2.0*26 Post-Install
N LEXEDT S LEXEDT=$G(^LEXM(0,"CREATED")) D LOAD,MSG
Q
LOAD ; Load data
N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2026
S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
S LEXCD=0 S LEXCD=+($$CPD^LEX2026)
I LEXCD,LEXB=LEXBUILD D G RV
. S X="Data for patch "_LEXBUILD_" has already been installed"
. W:'$D(XPDNM) !!,X D:$D(XPDNM) BMES^XPDUTL(X)
. S X="" W:'$D(XPDNM) ! D:$D(XPDNM) MES^XPDUTL(X)
I 'LEXCD,LEXB=LEXBUILD D EN^LEXXGI
RV ; Revision Numbers
N LEXRV F LEXRV=757,757.001,757.01,757.02,757.1,757.9,757.901,757.902,757.903,757.91 D
. Q:'$D(^LEX(LEXRV,0))&('$D(^LEXT(LEXRV,0)))&('$D(^LEXC(LEXRV,0)))
. Q:'$L($$GET1^DID(+LEXRV,.01,,"LABEL"))
. D PRD^DILFD(LEXRV,"26^3031001")
F LEXRV=80,80.1 D
. Q:'$D(^DD(LEXRV,0)) Q:'$L($$GET1^DID(+LEXRV,.01,,"LABEL"))
. D PRD^DILFD(LEXRV,"8^3031001")
LOADQ ; Quit Load
D KLEXM
Q
MSG ; Send Installation Message
Q:+($G(DUZ))=0!($$NOTDEF^LEX2026($G(DUZ)))
D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
D IMP^LEX2026,SEND^LEXXST Q
;
PRE ; LEX*2.0*26 Pre-Install
D KDD,KCH Q
KDD ; Kill previous copies of DDs - Only for Patch LEX*2.0*26
N DIU S DIU=757.91 I $L($$GET1^DID(+DIU,.01,,"LABEL")) S DIU(0)="" D EN^DIU2
Q
KCH ; Kill previous changes - Only for Patch LEX*2.0*26
N X,Y X ^%ZOSF("UCI") Q:$P(Y,",",1)="LEXCSV"
N DA,DIK S DIK="^LEXC(757.903,",DA=0 F S DA=$O(^LEXC(757.903,DA)) Q:+DA=0 D ^DIK
K ^LEXC(757.903,"AB"),^LEXC(757.903,"ADF"),^LEXC(757.903,"AFD"),^LEXC(757.903,"B"),^LEXC(757.903,"C"),^LEXC(757.903,"SF")
N DA,DIK S DIK="^LEXC(757.91,",DA=0 F S DA=$O(^LEXC(757.91,DA)) Q:+DA=0 D ^DIK
K ^LEXC(757.91,"ACHG"),^LEXC(757.91,"ACT"),^LEXC(757.91,"AIN"),^LEXC(757.91,"B"),^LEXC(757.91,"BA")
N DA,DIK S DIK="^LEXC(757.9,",DA=0 F S DA=$O(^LEXC(757.9,DA)) Q:+DA=0 D ^DIK
K ^LEXC(757.9,"B"),^LEXC(757.9,"C"),^LEXC(757.9,"D")
Q
;
KLEXM ; Subscripted Kill of ^LEXM
N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
K ^LEXM(0)
Q
CON ; Conversion of data (N/A for patch 26)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2026P 2483 printed Sep 15, 2024@21:27:55 Page 2
LEX2026P ; ISL/KER - Pre/Post Install; 10/15/2003
+1 ;;2.0;LEXICON UTILITY;**26**;Sep 23, 1996
+2 ;
+3 ; External References
+4 ; DBIA 10086 HOME^%ZIS
+5 ; DBIA 2052 $$GET1^DID
+6 ; DBIA 2055 PRD^DILFD
+7 ; DBIA 10014 EN^DIU2
+8 ; DBIA 10141 BMES^XPDUTL
+9 ; DBIA 10141 MES^XPDUTL
+10 ;
+11 QUIT
+12 ;
POST ; LEX*2.0*26 Post-Install
+1 NEW LEXEDT
SET LEXEDT=$GET(^LEXM(0,"CREATED"))
DO LOAD
DO MSG
+2 QUIT
LOAD ; Load data
+1 NEW LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV
DO IMP^LEX2026
+2 SET U="^"
SET LEXB=$GET(^LEXM(0,"BUILD"))
if LEXB=""
QUIT
if LEXBUILD=""
QUIT
+3 SET LEXCD=0
SET LEXCD=+($$CPD^LEX2026)
+4 IF LEXCD
IF LEXB=LEXBUILD
Begin DoDot:1
+5 SET X="Data for patch "_LEXBUILD_" has already been installed"
+6 if '$DATA(XPDNM)
WRITE !!,X
if $DATA(XPDNM)
DO BMES^XPDUTL(X)
+7 SET X=""
if '$DATA(XPDNM)
WRITE !
if $DATA(XPDNM)
DO MES^XPDUTL(X)
End DoDot:1
GOTO RV
+8 IF 'LEXCD
IF LEXB=LEXBUILD
DO EN^LEXXGI
RV ; Revision Numbers
+1 NEW LEXRV
FOR LEXRV=757,757.001,757.01,757.02,757.1,757.9,757.901,757.902,757.903,757.91
Begin DoDot:1
+2 if '$DATA(^LEX(LEXRV,0))&('$DATA(^LEXT(LEXRV,0)))&('$DATA(^LEXC(LEXRV,0)))
QUIT
+3 if '$LENGTH($$GET1^DID(+LEXRV,.01,,"LABEL"))
QUIT
+4 DO PRD^DILFD(LEXRV,"26^3031001")
End DoDot:1
+5 FOR LEXRV=80,80.1
Begin DoDot:1
+6 if '$DATA(^DD(LEXRV,0))
QUIT
if '$LENGTH($$GET1^DID(+LEXRV,.01,,"LABEL"))
QUIT
+7 DO PRD^DILFD(LEXRV,"8^3031001")
End DoDot:1
LOADQ ; Quit Load
+1 DO KLEXM
+2 QUIT
MSG ; Send Installation Message
+1 if +($GET(DUZ))=0!($$NOTDEF^LEX2026($GET(DUZ)))
QUIT
+2 DO HOME^%ZIS
NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
+3 DO IMP^LEX2026
DO SEND^LEXXST
QUIT
+4 ;
PRE ; LEX*2.0*26 Pre-Install
+1 DO KDD
DO KCH
QUIT
KDD ; Kill previous copies of DDs - Only for Patch LEX*2.0*26
+1 NEW DIU
SET DIU=757.91
IF $LENGTH($$GET1^DID(+DIU,.01,,"LABEL"))
SET DIU(0)=""
DO EN^DIU2
+2 QUIT
KCH ; Kill previous changes - Only for Patch LEX*2.0*26
+1 NEW X,Y
XECUTE ^%ZOSF("UCI")
if $PIECE(Y,",",1)="LEXCSV"
QUIT
+2 NEW DA,DIK
SET DIK="^LEXC(757.903,"
SET DA=0
FOR
SET DA=$ORDER(^LEXC(757.903,DA))
if +DA=0
QUIT
DO ^DIK
+3 KILL ^LEXC(757.903,"AB"),^LEXC(757.903,"ADF"),^LEXC(757.903,"AFD"),^LEXC(757.903,"B"),^LEXC(757.903,"C"),^LEXC(757.903,"SF")
+4 NEW DA,DIK
SET DIK="^LEXC(757.91,"
SET DA=0
FOR
SET DA=$ORDER(^LEXC(757.91,DA))
if +DA=0
QUIT
DO ^DIK
+5 KILL ^LEXC(757.91,"ACHG"),^LEXC(757.91,"ACT"),^LEXC(757.91,"AIN"),^LEXC(757.91,"B"),^LEXC(757.91,"BA")
+6 NEW DA,DIK
SET DIK="^LEXC(757.9,"
SET DA=0
FOR
SET DA=$ORDER(^LEXC(757.9,DA))
if +DA=0
QUIT
DO ^DIK
+7 KILL ^LEXC(757.9,"B"),^LEXC(757.9,"C"),^LEXC(757.9,"D")
+8 QUIT
+9 ;
KLEXM ; Subscripted Kill of ^LEXM
+1 NEW DA
SET DA=0
FOR
SET DA=$ORDER(^LEXM(DA))
if +DA=0
QUIT
KILL ^LEXM(DA)
+2 KILL ^LEXM(0)
+3 QUIT
CON ; Conversion of data (N/A for patch 26)
+1 QUIT
