- 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 Jan 18, 2025@03:11:27 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