| 1 | LEXILGD ; ISL Delete Lexicon v 1.0 ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
|---|
| 3 | Q
|
|---|
| 4 | DD ; Remove Lexicon Version 1.0 Files (DD only)
|
|---|
| 5 | N CNT,FI,GL,DIC,DIK,DIU S CNT=0
|
|---|
| 6 | F FI=757,757.01,757.014,757.02,757.03,757.04,757.041,757.05,757.06,757.1,757.11,757.12,757.2,757.21,757.3 D
|
|---|
| 7 | . S GL=$G(^DIC(FI,0,"GL")) Q:GL="" Q:GL'["GMP" S CNT=CNT+1
|
|---|
| 8 | I +($G(CNT))>10 W !,"This might take quite a while, I've got ",+CNT," Data Dictionaries to Delete.",!
|
|---|
| 9 | F FI=757,757.01,757.014,757.02,757.03,757.04,757.041,757.05,757.06,757.1,757.11,757.12,757.2,757.21,757.3 D
|
|---|
| 10 | . S GL=$G(^DIC(FI,0,"GL")) Q:GL="" Q:GL'["GMP" D DF W ?4,$P(GL,",",1),") DD " W:'$D(^DD(FI)) "Deleted"
|
|---|
| 11 | K FI,DIC,DIK,DIU,%,%H,B,DFL,DKP,DMRG,V,W,X,Y Q
|
|---|
| 12 | DF ; Delete Lexicon Version 1.0 Files (Data Dictionary/Data)
|
|---|
| 13 | Q:'$D(FI) Q:'$D(^DD(FI)) N DIU S (DIC,DIK)=$G(^DIC(FI,0,"GL")) Q:DIC="" Q:DIC'["GMP" S DIU=FI,DIU(0)="T" D EN^DIU2 Q
|
|---|
| 14 | Q
|
|---|
| 15 | DG ; Remind user to manually delete the Lexicon v 1.0 globals
|
|---|
| 16 | N LEXFI S LEXFI=756.9999
|
|---|
| 17 | F S LEXFI=$O(^DIC(LEXFI)) Q:$E(LEXFI,1,3)'="757" D
|
|---|
| 18 | . N LEXSC F LEXSC="AUDIT","DD","DEL","LAYGO","RD","WR" D
|
|---|
| 19 | . . Q:$D(^DIC(LEXFI,0,LEXSC)) S ^DIC(LEXFI,0,LEXSC)="@"
|
|---|
| 20 | N OK,FI,GL S OK=1
|
|---|
| 21 | F FI=757,757.01,757.014,757.02,757.03,757.04,757.041,757.05,757.06,757.1,757.11,757.12,757.2,757.21,757.3 D
|
|---|
| 22 | . S GL=$G(^DIC(FI,0,"GL")) S:$D(^GMP(FI)) OK=0 S:$D(^GMPT(FI)) OK=0
|
|---|
| 23 | . Q:FI'=757.2&(GL'["^LEX(") Q:FI=757.2&(GL'["^LEXT(")
|
|---|
| 24 | . I GL["^GMP" S OK=0
|
|---|
| 25 | I 'OK D H 2 Q
|
|---|
| 26 | . W:$D(^GMP) !,?4,"^GMP Global Found" W:$D(^GMPT) !,?4,"^GMPT Global Found" W:$D(^GMP)!($D(^GMPT)) !
|
|---|
| 27 | . W !,?4,"Don't forget to delete the ^GMP and ^GMPT globals"
|
|---|
| 28 | . W !,?4,"used by the Clinical Lexicon Utility, version 1.0",!
|
|---|
| 29 | I OK D H 2 Q
|
|---|
| 30 | . W:'$D(^GMP) !,?4,"^GMP" W:'$D(^GMPT) " and ^GMPT" W:'$D(^GMP)!('$D(^GMPT)) " Global" W:'$D(^GMP)&('$D(^GMPT)) "s" W:'$D(^GMP)!('$D(^GMPT)) " were not found"
|
|---|
| 31 | . W !!,?4,"^GMP and ^GMPT were used exclusive by the Clinical"
|
|---|
| 32 | . W !,?4,"Lexicon Utility, version 1.0",!
|
|---|
| 33 | Q
|
|---|
