[613] | 1 | VALMPRE ;ALB/MJK - LM Pre-Init ;05:33 PM 15 Dec 1992;
|
---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
---|
| 3 | ;
|
---|
| 4 | EN ; -- pre-init
|
---|
| 5 | D PROT
|
---|
| 6 | Q
|
---|
| 7 | ;
|
---|
| 8 | PROT ; -- delete old demo protocols
|
---|
| 9 | N VALMX,VALMI,DA,DIK,VALMPRE
|
---|
| 10 | S VALMPRE="VALM DEMO "
|
---|
| 11 | G PROTQ:$E($O(^ORD(101,"B",VALMPRE)),1,$L(VALMPRE))'=VALMPRE
|
---|
| 12 | W !!,">>> Will now delete demo protocols..."
|
---|
| 13 | S VALMX=VALMPRE
|
---|
| 14 | F S VALMX=$O(^ORD(101,"B",VALMX)) Q:VALMX=""!($E(VALMX,1,$L(VALMPRE))'=VALMPRE) D
|
---|
| 15 | .S VALMI=0 F S VALMI=$O(^ORD(101,"B",VALMX,VALMI)) Q:'VALMI D
|
---|
| 16 | ..S DA=VALMI,DIK="^ORD(101," D ^DIK
|
---|
| 17 | ..W !?10,"o ",VALMX,?45,"...deleted"
|
---|
| 18 | W !!,">>> A new set of demo protocols will be added during the install."
|
---|
| 19 | S DA=$O(^SD(409.61,"B","VALM OPTION DEMO",0)),DIK="^SD(409.61," D ^DIK:DA
|
---|
| 20 | PROTQ Q
|
---|