source: WorldVistAEHR/trunk/r/LIST_MANAGER-VALM/VALMW2.m@ 699

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1VALMW2 ;MJK/ALB - LM workbench (cont.);16 DEC 1992
2 ;;1;List Manager;;Aug 13, 1993
3 ;
4EDIT(VALMTEMP) ; -- call to edit portions of list temp
5 N DA,DR,DIE
6 W ! S DA=VALMIFN,DR="[VALM "_VALMTEMP_"]",DIE="^SD(409.61," D ^DIE
7 I $D(Y)>0 S XQORPOP=1
8 I '$D(VALMALL),$D(^SD(409.61,VALMIFN,0)) D
9 .D BLD^VALMWB
10 .S VALMBCK="R"
11 I '$D(^SD(409.61,VALMIFN,0)) D
12 .D INIT^VALMWB
13 .S:$D(^SD(409.61,VALMIFN,0)) VALMBCK="R" Q
14 Q
15 ;
16RUN(VALMIFN) ; -- call to run list with workbench
17 N VALMNAME
18 G RUNQ:'$D(^SD(409.61,VALMIFN,0)) S VALMNAME=$P(^(0),U)
19 S DIR(0)="409.61,105",DIR("A")="Set-up MUMPS Code"
20 S DIR("B")=$S($D(VALMUMPS):VALMUMPS,1:"Q") D ^DIR K DIR
21 I $D(DIRUT)!($D(DTOUT)) G RUNQ
22 S VALMUMPS=Y X Y
23 D CLEAR^VALM1
24 W !!,">>> Running the '",VALMNAME,"' List Template."
25 W !," Select 'QUIT' action to the workbench...",!!
26 D EN^VALM(VALMNAME)
27RUNQ S VALMBCK="R"
28 Q
29 ;
30EDITOR ; -- routine editor
31 S X=VALMWD X ^%ZOSF("RM") D FULL^VALM1
32 I ^%ZOSF("OS")["VAX DSM" D ^%EDT G EDITORQ
33 I ^%ZOSF("OS")["DTM" D ^%editor G EDITORQ
34 ;I ^%ZOSF("OS")["MSM" X ^%E G EDITORQ
35 S VALMSG="No compatiable editor for operating system."
36EDITORQ S VALMBCK="R",X=0 X ^%ZOSF("RM")
37 Q
Note: See TracBrowser for help on using the repository browser.