VALMW2.m

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 ---VALMW2   1197     printed  Apr 09, 2024@21:12:41                                                                                                                                                                                                      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