Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VALMW2

VALMW2.m

Go to the documentation of this file.
  1. VALMW2 ;MJK/ALB - LM workbench (cont.);16 DEC 1992
  1. ;;1;List Manager;;Aug 13, 1993
  1. ;
  1. EDIT(VALMTEMP) ; -- call to edit portions of list temp
  1. N DA,DR,DIE
  1. W ! S DA=VALMIFN,DR="[VALM "_VALMTEMP_"]",DIE="^SD(409.61," D ^DIE
  1. I $D(Y)>0 S XQORPOP=1
  1. I '$D(VALMALL),$D(^SD(409.61,VALMIFN,0)) D
  1. .D BLD^VALMWB
  1. .S VALMBCK="R"
  1. I '$D(^SD(409.61,VALMIFN,0)) D
  1. .D INIT^VALMWB
  1. .S:$D(^SD(409.61,VALMIFN,0)) VALMBCK="R" Q
  1. Q
  1. ;
  1. RUN(VALMIFN) ; -- call to run list with workbench
  1. N VALMNAME
  1. G RUNQ:'$D(^SD(409.61,VALMIFN,0)) S VALMNAME=$P(^(0),U)
  1. S DIR(0)="409.61,105",DIR("A")="Set-up MUMPS Code"
  1. S DIR("B")=$S($D(VALMUMPS):VALMUMPS,1:"Q") D ^DIR K DIR
  1. I $D(DIRUT)!($D(DTOUT)) G RUNQ
  1. S VALMUMPS=Y X Y
  1. D CLEAR^VALM1
  1. W !!,">>> Running the '",VALMNAME,"' List Template."
  1. W !," Select 'QUIT' action to the workbench...",!!
  1. D EN^VALM(VALMNAME)
  1. RUNQ S VALMBCK="R"
  1. Q
  1. ;
  1. EDITOR ; -- routine editor
  1. S X=VALMWD X ^%ZOSF("RM") D FULL^VALM1
  1. I ^%ZOSF("OS")["VAX DSM" D ^%EDT G EDITORQ
  1. I ^%ZOSF("OS")["DTM" D ^%editor G EDITORQ
  1. ;I ^%ZOSF("OS")["MSM" X ^%E G EDITORQ
  1. S VALMSG="No compatiable editor for operating system."
  1. EDITORQ S VALMBCK="R",X=0 X ^%ZOSF("RM")
  1. Q