source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXILGD.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.9 KB
RevLine 
[613]1LEXILGD ; ISL Delete Lexicon v 1.0 ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 Q
4DD ; 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
12DF ; 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
15DG ; 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
Note: See TracBrowser for help on using the repository browser.