source: FOIAVistA/tag/r/LIST_MANAGER-VALM/VALMPRE.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 718 bytes
Line 
1VALMPRE ;ALB/MJK - LM Pre-Init ;05:33 PM 15 Dec 1992;
2 ;;1;List Manager;;Aug 13, 1993
3 ;
4EN ; -- pre-init
5 D PROT
6 Q
7 ;
8PROT ; -- 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
20PROTQ Q
Note: See TracBrowser for help on using the repository browser.