cI29 ;AANPASSEN ZZ-lijn VAN PROGRAMMA'S ;%I29 ; [ 02/21/00  5:39 PM ]
 ;
1 D QQM^cQ6 W !,$P($T(+1),";",2),!
11 K QUIT D ^cRSEL G YZ:$D(QUIT) S PRG="",$ZT="ERR^"_$T(+0),%T=0 W !!!
12 S (VERS,I2)="" F  S I2=$O(^cLOG(0,"VERS",I2)) Q:I2=""  W !,I2,?10,$P(^(I2),"\")
13 W !!,"Choose a module: " R K G 12:K?.E1C.E,YZ:K="-",2:K="",2:'$D(^(K)) S VERS=$P(^(K),"\")
 ;
2 D ^cA105,^cA106 S Z="ZZ ; "_DT_" - "_TD_" * "_VERS W !,"The ZZ-line will be: ",Z
21 W !!,"Ready to clean up these routines <N> : .",$C(8) R K,! G YZ:K="" I $L(K)=1,"yYjJ"[K G 3
23 I $L(K)=1,"-Nn"[K G YZ
24 I K?1"ZZ ; "2N1"."2N1"."2N1" - ".1" "1.2N1" u "2N.1" * ".E S Z=K G 3
25 G 21
 ;
3 K ^HULP(boot,$J+(100/10000))
31 S PRG=$O(^UTILITY($J,PRG)) I PRG="" G 4
32 U 0 X "ZL @PRG ZI Z:ZZ ZR ZZ ZS @PRG"
33 W:'(%T#8) ! W ?%T#8*10,PRG S %T=%T+1 G 31
 ;
4 G YZ:$O(^HULP(boot,$J+(100/10000),0))="" W !!!,"In de global ^HULP(",$J+(100/10000),") vindt U alle programma's waarvoor de omzetting",!,"NIET doorgevoerd werd.",!
41 W !,"[] = ok: .",$C(8) R K,!
42 F  S PRG=$O(^(PRG)) Q:PRG=""  W !,PRG,?10,^(PRG)
 ;
YZ Q  ;K PRG,%T,DD,DJ,DM,DT,TD,K,X,Z Q
 ;
F1 S K="Compiled routine" G FZ
F2 S K="Running at the moment" G FZ
F3 S K="No ZZ-lijn in routine" G FZ
FZ W !,PRG,?10,K,!?10,"Routine not modified... Continuing",! S ^HULP(boot,$J+(100/10000),PRG)=K Q
 ;
ERR S $ZT="ERR^"_$T(+0),%T=0 I $ZE["<PROT" D F1 G 31
ERRA I $ZE["<CLOBR" G 33:$ZN=PRG D F2 G 31
ERRB I $ZE["<NOLINE>" D F3 G 31
ERRZ U 0 W !!,$ZE,!! Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3