source: lang-file4mu1and2/DMLAINIT.m@ 1682

Last change on this file since 1682 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: 3.0 KB
Line 
1DMLAINIT ; ; 20-NOV-2012 ; 11/20/12 1:19pm
2 ;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
3 ;
4 K DIF,DIFQ,DIFQR,DIFQN,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DIFROM,DFR,DTN,DIX,DZ,DIRUT,DTOUT,DUOUT
5 S DIOVRD=1,U="^",DIFQ=0,DIFROM="22.2" W !,"This version (#22.2) of 'DMLAINIT' was created on 20-NOV-2012"
6 W !?9,"(at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043)",!
7 I $D(^DD("VERSION")),^("VERSION")'<22 G GO
8 ;W !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...." D N^DINIT
9 I ^DD("VERSION")<22 W !,"but I need version 22 of the VA FileMan!" G Q
10GO ;
11EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
12 S DIFQ=0 K DIRUT,DTOUT,DUOUT
13 F DIFRIR=1:1:1 S DIFRRTN="^DMLAINI"_$E("5",DIFRIR) D @DIFRRTN
14 W:1 !,"I AM GOING TO SET UP THE FOLLOWING FILES:" F I=1:2:2 S DIF(I)=^UTILITY("DIF",$J,I) D 1 G Q:DIFQ!$D(DIRUT) K DIF(I)
15 S DIFROM="22.2" D PKG:'$D(DIFROM(0)),^DMLAINI1 G Q:'$D(DIFQ) S DIK(0)="AB"
16 F DIF=1:2:2 S %=^UTILITY("DIF",$J,DIF),DIK=$P(%,";",5),N=$P(%,";",3),D=$P(%,";",4)_U_N D D K DIFQ(N)
17 K DIFQR D ^DMLAINI2,^DMLAINI3
18 L S DUZ=DIDUZ W:1 !,$C(7),"OK, I'M DONE.",!,"NO"_$P("TE THAT FILE",U,DSEC)_" SECURITY-CODE PROTECTION HAS BEEN MADE"
19 I DIFROM F DIF=1:2:2 S %=^UTILITY("DIF",$J,DIF),N=+$P(%,";",3) I N,$P(%,";",8)="y" S ^DD(N,0,"VR")=DIFROM
20 I DIFROM(0)>0 F %="PRE","INI","INIT" S:$D(DIFROM(%)) $P(^DIC(9.4,DIFROM(0),%),U,2)=DIFROM(%)
21 I $G(DIFQN) S $P(^(0),U,3,4)=$P(DIFQN,U,2)_U_($P(^DIC(0),U,4)+DIFQN) K DIFQN
22 S:DIFROM(0)>0 ^DIC(9.4,DIFROM(0),"VERSION")=DIFROM G Q^DIFROM0
23D S:$D(^DIC(+N,0))[0 ^(0)=D S X=$D(@(DIK_"0)")),^(0)=D_U_$S(X#2:$P(^(0),U,3,9),1:U)
24 S DIFQR=DIFQR(+N) I ^DD("VERSION")>17.5,$D(^DD(+N,0,"DIK"))#2 S X=^("DIK"),Y=+N,DMAX=^DD("ROU") D EN^DIKZ
25 I DIFQR D IXALL^DIK:$O(@(DIK_"0)")) W "."
26 Q
27R G REP^DMLAINI2
28 ;
291 S N=+$P(DIF(I),";",3),DIF=$P(DIF(I),";",4),S=$P(DIF(I),";",5)
30 W !!?3,N,?13,DIF,$P(" (Partial Definition)",U,$P(DIF(I),";",6)),$P(" (including data)",U,$P(DIF(I),";",13)="y") S Z=$S($D(^DIC(N,0))#2:^(0),1:"")
31 I Z="" S DIFQ(N)=1,DIFQN=$G(DIFQN)+1_U_N G S
32 I $L($P(Z,DIF)) W $C(7),!,"*BUT YOU ALREADY HAVE '",$P(Z,U),"' AS FILE #",N,"!" D R Q:DIFQ G S:$D(DIFKEP(N)),1
33 S DIFQ(N)=$P(DIF(I),";",7)'="n"
34 I $L(Z) W $C(7),!,"Note: You already have the '",$P(Z,U),"' File." S DIFQ(0)=1
35 S %=$E(^UTILITY("DIF",$J,I+1),4,245) I %]"" X % S DIFQ(N)=$T W:'$T !,"Screen on this Data Dictionary did not pass--DD will not be installed!" G S
36 I $L(Z),$P(DIF(I),";",10)="y" S DIR("A")="Shall I write over the existing Data Definition",DIR("??")="^D DD^DIFROMH1",DIR("B")="YES",DIR(0)="Y" D ^DIR S DIFQ(N)=Y
37S S DIFQR(N)=0 Q:$P(DIF(I),";",13)'="y"!$D(DIRUT)
38 I $P(DIF(I),";",15)="y",$O(@(S_"0)"))>0 S DIF=$P(DIF(I),";",14)="o",DIR("A")="Want my data "_$P("merged with^to overwrite",U,DIF+1)_" yours",DIR("??")="^D DTA^DIFROMH1",DIR(0)="Y" D ^DIR S DIFQR(N)=$S('Y:Y,1:Y+DIF) Q
39 S %=$P(DIF(I),";",14)="o" W !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine." S DIFQR(N)=%+1
40 Q
41Q W $C(7),!!,"NO UPDATING HAS OCCURRED!" G Q^DIFROM0
42 ;
43PKG S X=$P($T(IXF),";",3),DIC="^DIC(9.4,",DIC(0)="",DIC("S")="I $P(^(0),U,2)="""_$P(X,U,2)_"""",X=$P(X,U) D ^DIC S DIFROM(0)=+Y K DIC
44 Q
45 ;
46IXF ;;;1
Note: See TracBrowser for help on using the repository browser.