| 1 | LEX2050P ;ISL/KER - LEX*2.0*50 Pre/Post Install ;06/06/2007
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**50**;Sep 23, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ; Variables NEWed or KILLed Elsewhere
|
|---|
| 5 | ; None
|
|---|
| 6 | ;
|
|---|
| 7 | ; Global Variables
|
|---|
| 8 | ; ^LEXM
|
|---|
| 9 | ;
|
|---|
| 10 | ; External References
|
|---|
| 11 | ; None
|
|---|
| 12 | ;
|
|---|
| 13 | Q
|
|---|
| 14 | POST ; LEX*2.0*50 Post-Install
|
|---|
| 15 | ;
|
|---|
| 16 | ; From IMP^LEX2050
|
|---|
| 17 | ;
|
|---|
| 18 | ; LEXBUILD Build Name - LEX*2.0*nn
|
|---|
| 19 | ; LEXPTYPE Patch Type - Remedy or Quarterly
|
|---|
| 20 | ; LEXFY Fiscal Year - FYnn
|
|---|
| 21 | ; LEXQTR Quarter - 1st, 2nd, 3rd, or 4th
|
|---|
| 22 | ; LEXIGHF Name of Host File - LEX_2_nn.GBL
|
|---|
| 23 | ; LEXLREV Revision - nn
|
|---|
| 24 | ; LEXREQP Required Builds - build;build;build
|
|---|
| 25 | ;
|
|---|
| 26 | N LEXEDT,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXB,LEXCD,LEXSTR,LEXLAST D IMP^LEX2050
|
|---|
| 27 | S LEXEDT=$G(^LEXM(0,"CREATED")) D CON,LOAD
|
|---|
| 28 | Q
|
|---|
| 29 | LOAD ; Load Data
|
|---|
| 30 | ;
|
|---|
| 31 | ; LEXSHORT Send Short Message
|
|---|
| 32 | ; LEXMSG Flag to send Message
|
|---|
| 33 | ;
|
|---|
| 34 | N LEXSHORT,LEXMSG S LEXSHORT="",LEXMSG=""
|
|---|
| 35 | S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"
|
|---|
| 36 | S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
|
|---|
| 37 | D:LEXB=LEXBUILD EN^LEXXGI
|
|---|
| 38 | LQ ; Load Quit
|
|---|
| 39 | D KLEXM
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | KLEXM ; Subscripted Kill of ^LEXM
|
|---|
| 43 | H 2 N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
|
|---|
| 44 | N LEX S LEX=$G(^LEXM(0,"PRO")) K ^LEXM(0)
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | PRE ; LEX*2.0*50 Pre-Install (N/A for patch 50)
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | CON ; Conversion of data (Remove existing KT/KU Modifiers)
|
|---|
| 51 | 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
|
|---|
| 52 | S DA=0 F S DA=$O(^DIC(81.3,"B","KU",DA)) Q:+DA'>0 D ^DIK
|
|---|
| 53 | K DA,DIK K ^DIC(81.3,-1)
|
|---|
| 54 | Q
|
|---|
