source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENARY11.m@ 619

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1ENARX11 ;(WASH ISC)/SAW/DH-WORK ORDER ARCHIVE ;3-28-93
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3 S DIFQ=0 W "THIS VERSION OF 'ENARX11' WAS CREATED ON JAN 25,1991",! D VERSION^DINIT I VERSION<17 W "BUT I NEED VERSION 17 OF THE VA FILEMAN!" G Q
4 W ?9,"(","AT AEMS Development"," BY VA FileMan V.17.32)",!,"TO SET UP FOR YOU THE FOLLOWING FILE:",! F I=1:1:1 D 1
5 G Q:DIFQ I $D(^DD("VERSION")),^("VERSION")'<17 G GO:$O(^("VERSION",17))="" W !,"BUT I'M OBSOLETE!!" G Q
6 W !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...." D N^DINIT
7GO D ^ENARX12 G Q:'$D(DIFQ) S DIK(0)="B"
8 F DIF=1:1:1 S %=$T(IXF+DIF),DIK=$P(%,";",6),N=$P(%,";",3),D=$P(%,";",4)_U_N 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) I '$D(DIFQ(+N)),$P(%,";",5)!'X D IXALL^DIK:$O(^(0))>0 W "."
9 S DIFROM=0 D ^ENARX13,^ENARX14
10 L W !,*7,"OK, I'M DONE.",!,"NO"_$P("TE THAT FILE",U,DSEC)_" SECURITY-CODE PROTECTION HAS BEEN MADE" S:$D(DIFROM(0)) ^DIC(9.4,DIFROM(0),"VERSION")=DIFROM G Q^DIFROM0
11 ;
121 S X=$T(IXF+I),N=+$P(X,";",3),N(N)=$P(X,";",4),D=$P(X,";",5),S=$P(X,";",6),U="^" W !?3,N,?13,N(N),$P(" (PARTIAL DEFINITION)",U,$P(X,";",7)),$P(" (INCLUDING DATA)",I,D)
13 S Z=$S($D(^DIC(N,0))#2:^(0),1:"") I $L($P(Z,N(N),1)) W *7,!,"***BUT YOU'VE ALREADY GOT '",$P(Z,"^",1),"' AS FILE #",N,"!***" S DIFQ=1 Q
14 S %=$P(S,"(",1),DW=0 S:$D(@%)#2 DW=@% S @%=DW
15 I $L(Z) W *7,!,"NOTE -- YOU ALREADY HAVE '",$P(Z,"^",1),"' FILE" S DIFQ(0)=1
16 I D,@("$O("_S_"0))>0") W " WITH DATA",!?9,"WANT MY DATA ADDED IN TO YOURS" S %=1 D YN^DICN S:%=2 DIFQ(N)=1 D OV:D-1&(%=1) I %<1 S DIFQ=1 Q
17 W ! Q
18OV W !?9,*7,"I WILL **REPLACE** YOUR DATA WITH MINE, OK" D YN^DICN S:%=1 DIFQR(N)=1 Q
19Q W *7,!!,"NO UPDATING HAS OCCURRED!"
20 ;
21IXF ;;ENARX1
22 ;;6919.1;WO ARCHIVE;0;^ENAR(6919.1,;
Note: See TracBrowser for help on using the repository browser.