source: lang-file4mu1and2/DMLAINI2.m@ 1751

Last change on this file since 1751 was 1598, checked in by Sam Habiel, 12 years ago

Updated Language files INIT to be in DMLA rather than DILA per Mr. Timson's request.

File size: 1.6 KB
Line 
1DMLAINI2 ; ; 20-NOV-2012
2 ;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
3 ;
4 ;
5 K ^UTILITY("DIFROM",$J),DIC S DIDUZ=0 S:$D(DUZ)#2 DIDUZ=DUZ S DUZ=.5
6 I $D(^DIC(9.2,0))#2,^(0)?1"HEL".E S (DIC,DLAYGO)=9.2,N="HEL",DIC(0)="LX" G ADD
7 Q
8 ;
9ADD F R=0:0 S R=$O(^UTILITY(U,$J,N,R)) Q:R'>0 S X=$P(^(R,0),U,1) W "." K DA D ^DIC I Y>0,'$D(DIFQ(N))!$P(Y,U,3) S ^UTILITY("DIFROM",$J,N,X)=+Y K ^DIC(9.2,+Y,1),^(2),^(3),^(10) S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y D %XY^%RCR
10 S DIK=DIC
11HELP S R=$O(^UTILITY("DIFROM",$J,N,R)) Q:R="" W !,"'"_R_"' Help Frame filed." S DA=^(R)
12 F X=0:0 S X=$O(^DIC(9.2,DA,2,X)) Q:'X S I=$S($D(^(X,0)):^(0),1:0),Y=$P(I,U,2) S:Y]"" Y=$O(^DIC(9.2,"B",Y,0)) S ^(0)=$P(^DIC(9.2,DA,2,X,0),U,1)_U_$S(Y>0:Y,1:"")_U_$P(^(0),U,3,99)
13 S I=0 F X=0:0 S X=$O(^DIC(9.2,DA,10,X)) Q:'X I $D(^(X,0)) S Y=$P(^(0),U),Y=$S(Y]"":$O(^MAG("B",Y,0)),1:0) S:Y $P(^DIC(9.2,DA,10,X,0),U)=Y,I=I+1,%=X I 'Y K ^DIC(9.2,DA,10,X,0)
14 I I S $P(^DIC(9.2,DA,10,0),U,3,4)=%_U_I
15IX D IX1^DIK G HELP
16 ;
17U I $D(DIRUT) S DIFQ=1
18 W ! Q
19REP S DIR(0)="Y",DIR("A")="Shall I change the NAME of the file to "_DIF
20 S DIR("??")="^D REP^DIFROMH1",DIR("B")="NO" D ^DIR G U:$D(DIRUT)
21 I Y S DIE=1,DIFQ=0,DA=N,DR=".01////"_DIF D ^DIE Q
22 S DIR("A")="Shall I replace your file with mine"
23 S DIR("??")="^D AG^DIFROMH1" D ^DIR G U:$D(DIRUT)!'Y
24 S DIU(0)="E",DIR("A")="Do you want to keep the Data"
25 S DIR("??")="^D CHG^DIFROMH1" D ^DIR G U:$D(DIRUT)
26 S:'Y DIU(0)=DIU(0)_"D"
27 S DIR("A")="Do you want to keep the Templates"
28 S DIR("??")="^D TEMP^DIFROMH1" D ^DIR G U:$D(DIRUT) S:'Y DIU(0)=DIU(0)_"T"
29 S DIFQ(N)=1,DIFKEP(N)=DIU(0) W !?15," (",DIF,") " Q
Note: See TracBrowser for help on using the repository browser.