VALMW2 ;MJK/ALB - LM workbench (cont.);16 DEC 1992
;;1;List Manager;;Aug 13, 1993
;
EDIT(VALMTEMP) ; -- call to edit portions of list temp
N DA,DR,DIE
W ! S DA=VALMIFN,DR="[VALM "_VALMTEMP_"]",DIE="^SD(409.61," D ^DIE
I $D(Y)>0 S XQORPOP=1
I '$D(VALMALL),$D(^SD(409.61,VALMIFN,0)) D
.D BLD^VALMWB
.S VALMBCK="R"
I '$D(^SD(409.61,VALMIFN,0)) D
.D INIT^VALMWB
.S:$D(^SD(409.61,VALMIFN,0)) VALMBCK="R" Q
Q
;
RUN(VALMIFN) ; -- call to run list with workbench
N VALMNAME
G RUNQ:'$D(^SD(409.61,VALMIFN,0)) S VALMNAME=$P(^(0),U)
S DIR(0)="409.61,105",DIR("A")="Set-up MUMPS Code"
S DIR("B")=$S($D(VALMUMPS):VALMUMPS,1:"Q") D ^DIR K DIR
I $D(DIRUT)!($D(DTOUT)) G RUNQ
S VALMUMPS=Y X Y
D CLEAR^VALM1
W !!,">>> Running the '",VALMNAME,"' List Template."
W !," Select 'QUIT' action to the workbench...",!!
D EN^VALM(VALMNAME)
RUNQ S VALMBCK="R"
Q
;
EDITOR ; -- routine editor
S X=VALMWD X ^%ZOSF("RM") D FULL^VALM1
I ^%ZOSF("OS")["VAX DSM" D ^%EDT G EDITORQ
I ^%ZOSF("OS")["DTM" D ^%editor G EDITORQ
;I ^%ZOSF("OS")["MSM" X ^%E G EDITORQ
S VALMSG="No compatiable editor for operating system."
EDITORQ S VALMBCK="R",X=0 X ^%ZOSF("RM")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVALMW2 1197 printed Oct 16, 2024@18:11 Page 2
VALMW2 ;MJK/ALB - LM workbench (cont.);16 DEC 1992
+1 ;;1;List Manager;;Aug 13, 1993
+2 ;
EDIT(VALMTEMP) ; -- call to edit portions of list temp
+1 NEW DA,DR,DIE
+2 WRITE !
SET DA=VALMIFN
SET DR="[VALM "_VALMTEMP_"]"
SET DIE="^SD(409.61,"
DO ^DIE
+3 IF $DATA(Y)>0
SET XQORPOP=1
+4 IF '$DATA(VALMALL)
IF $DATA(^SD(409.61,VALMIFN,0))
Begin DoDot:1
+5 DO BLD^VALMWB
+6 SET VALMBCK="R"
End DoDot:1
+7 IF '$DATA(^SD(409.61,VALMIFN,0))
Begin DoDot:1
+8 DO INIT^VALMWB
+9 if $DATA(^SD(409.61,VALMIFN,0))
SET VALMBCK="R"
QUIT
End DoDot:1
+10 QUIT
+11 ;
RUN(VALMIFN) ; -- call to run list with workbench
+1 NEW VALMNAME
+2 if '$DATA(^SD(409.61,VALMIFN,0))
GOTO RUNQ
SET VALMNAME=$PIECE(^(0),U)
+3 SET DIR(0)="409.61,105"
SET DIR("A")="Set-up MUMPS Code"
+4 SET DIR("B")=$SELECT($DATA(VALMUMPS):VALMUMPS,1:"Q")
DO ^DIR
KILL DIR
+5 IF $DATA(DIRUT)!($DATA(DTOUT))
GOTO RUNQ
+6 SET VALMUMPS=Y
XECUTE Y
+7 DO CLEAR^VALM1
+8 WRITE !!,">>> Running the '",VALMNAME,"' List Template."
+9 WRITE !," Select 'QUIT' action to the workbench...",!!
+10 DO EN^VALM(VALMNAME)
RUNQ SET VALMBCK="R"
+1 QUIT
+2 ;
EDITOR ; -- routine editor
+1 SET X=VALMWD
XECUTE ^%ZOSF("RM")
DO FULL^VALM1
+2 IF ^%ZOSF("OS")["VAX DSM"
DO ^%EDT
GOTO EDITORQ
+3 IF ^%ZOSF("OS")["DTM"
DO ^%editor
GOTO EDITORQ
+4 ;I ^%ZOSF("OS")["MSM" X ^%E G EDITORQ
+5 SET VALMSG="No compatiable editor for operating system."
EDITORQ SET VALMBCK="R"
SET X=0
XECUTE ^%ZOSF("RM")
+1 QUIT
