| 1 | LEX2053P ;ISL/KER - LEX*2.0*53 Pre/Post Install ;06/06/2007
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**53**;Sep 23, 1996;Build 18
|
|---|
| 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*53 Post-Install
|
|---|
| 15 | ;
|
|---|
| 16 | ; From IMP^LEX2053
|
|---|
| 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,LEXRTN,LEXSTR,LEXSUBJ,LEXLAST D IMP^LEX2053
|
|---|
| 27 | S LEXEDT=$G(^LEXM(0,"CREATED")) D CON,LOAD
|
|---|
| 28 | I $D(^%ZOSF("DEL")) S LEXRTN="LEX2053A" D
|
|---|
| 29 | . N EXC,X,Y I +($$ROK(LEXRTN))>0 S (EXC,X)=$G(^%ZOSF("DEL")) D ^DIM I $D(X) S X=LEXRTN X EXC
|
|---|
| 30 | Q
|
|---|
| 31 | LOAD ; Load Data from export global ^LEXM
|
|---|
| 32 | ;
|
|---|
| 33 | ; LEXSHORT Send Short Message
|
|---|
| 34 | ; LEXMSG Flag to send Message
|
|---|
| 35 | ;
|
|---|
| 36 | N LEXSHORT,LEXMSG S LEXSHORT="",LEXMSG=""
|
|---|
| 37 | S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"
|
|---|
| 38 | S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
|
|---|
| 39 | D:LEXB=LEXBUILD EN^LEXXGI
|
|---|
| 40 | LQ ; Load Quit
|
|---|
| 41 | D KLEXM
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | KLEXM ; Subscripted Kill of ^LEXM
|
|---|
| 45 | N I S I="" F S I=$O(^LEXM(I)) Q:'$L(I) K ^LEXM(I)
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | PRE ; LEX*2.0*53 Pre-Install (N/A for patch 53)
|
|---|
| 49 | Q
|
|---|
| 50 | RX ; Re-Index
|
|---|
| 51 | N Y,ZTSK,ZTDESC,ZTDTH,ZTIO,ZTSAVE,ZTRTN,ZTREQ,ZTQUEUED
|
|---|
| 52 | S ZTRTN="RXT^LEX2053P",ZTDESC="Re-Index CPT Modifier file 81.3",ZTIO="",ZTDTH=$H D ^%ZTLOAD
|
|---|
| 53 | D:+($G(ZTSK))>0 BMES^XPDUTL((" Re-Indexing CPT Modified file 81.3 (Task #"_+($G(ZTSK))_")"))
|
|---|
| 54 | D HOME^%ZIS K Y,ZTSK,ZTDESC,ZTDTH,ZTIO,ZTSAVE,ZTRTN
|
|---|
| 55 | Q
|
|---|
| 56 | RXT ; Re-Index (tasked)
|
|---|
| 57 | S:$D(ZTQUEUED) ZTREQ="@" N MIEN,DA,DIK S MIEN=0 F S MIEN=$O(^DIC(81.3,MIEN)) Q:+MIEN'>0 D
|
|---|
| 58 | . K ^DIC(81.3,MIEN,10,"B"),^DIC(81.3,MIEN,"M")
|
|---|
| 59 | . N RIEN S RIEN=0 F S RIEN=$O(^DIC(81.3,MIEN,10,RIEN)) Q:+RIEN'>0 D
|
|---|
| 60 | . . N DA,DIK S DA(1)=MIEN,DA=RIEN,DIK="^DIC(81.3,"_DA(1)_",10," D IX1^DIK
|
|---|
| 61 | . K DA S DA=MIEN,DIK="^DIC(81.3," D IX1^DIK
|
|---|
| 62 | F DA=3,11,46,47 S DIK="^DIC(81.3," D IX1^DIK
|
|---|
| 63 | F DA=643,644,645,646,647 S DIK="^DIC(81.3," D IX1^DIK
|
|---|
| 64 | Q
|
|---|
| 65 | ROK(X) ; Routine OK
|
|---|
| 66 | S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0 X ^%ZOSF("TEST") Q:$T 1
|
|---|
| 67 | Q 0
|
|---|
| 68 | CON ; Conversion of data
|
|---|
| 69 | D EN^LEX2053A
|
|---|
| 70 | Q
|
|---|
