| 1 | VALMW2 ;MJK/ALB - LM workbench (cont.);16 DEC 1992
|
|---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EDIT(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 | ;
|
|---|
| 16 | RUN(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)
|
|---|
| 27 | RUNQ S VALMBCK="R"
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | EDITOR ; -- 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."
|
|---|
| 36 | EDITORQ S VALMBCK="R",X=0 X ^%ZOSF("RM")
|
|---|
| 37 | Q
|
|---|
