- 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 Mar 13, 2025@21:08:17 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
