21 lines
718 B
Mathematica
21 lines
718 B
Mathematica
VALMPRE ;ALB/MJK - LM Pre-Init ;05:33 PM 15 Dec 1992;
|
|
;;1;List Manager;;Aug 13, 1993
|
|
;
|
|
EN ; -- pre-init
|
|
D PROT
|
|
Q
|
|
;
|
|
PROT ; -- delete old demo protocols
|
|
N VALMX,VALMI,DA,DIK,VALMPRE
|
|
S VALMPRE="VALM DEMO "
|
|
G PROTQ:$E($O(^ORD(101,"B",VALMPRE)),1,$L(VALMPRE))'=VALMPRE
|
|
W !!,">>> Will now delete demo protocols..."
|
|
S VALMX=VALMPRE
|
|
F S VALMX=$O(^ORD(101,"B",VALMX)) Q:VALMX=""!($E(VALMX,1,$L(VALMPRE))'=VALMPRE) D
|
|
.S VALMI=0 F S VALMI=$O(^ORD(101,"B",VALMX,VALMI)) Q:'VALMI D
|
|
..S DA=VALMI,DIK="^ORD(101," D ^DIK
|
|
..W !?10,"o ",VALMX,?45,"...deleted"
|
|
W !!,">>> A new set of demo protocols will be added during the install."
|
|
S DA=$O(^SD(409.61,"B","VALM OPTION DEMO",0)),DIK="^SD(409.61," D ^DIK:DA
|
|
PROTQ Q
|