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

VALMWB.m

Go to the documentation of this file.
  1. VALMWB ;MJK/ALB;08:48 PM 17 Jan 1993;List Template Edit
  1. ;;1;List Manager;;Aug 13, 1993
  1. ;
  1. EN ; -- main entry point for edit tool
  1. K VALMEVL,XQORS,^TMP("XQORS",$J)
  1. D EN^VALM("VALM WORKBENCH")
  1. ENQ Q
  1. ;
  1. HDR ; -- no header
  1. S VALMHDR(1)="Template: "_$P($G(^SD(409.61,VALMIFN,0)),U)
  1. Q
  1. ;
  1. INIT ; -- entry code
  1. I '$D(VALMIFN) W @IOF,!,IOINHI,?40," Welcome ",!,?36," to the ",!,?28," List Manager WorkBench ",IOINORM,!
  1. N DIC,Y
  1. S DIC=409.61,DIC(0)="AELMQ" D ^DIC K DIC
  1. I Y<0 S VALMQUIT=1 G INITQ
  1. S VALMIFN=+Y
  1. I $P(Y,U,3) D EN^VALMW4(VALMIFN)
  1. D BLD,HDR
  1. INITQ Q
  1. ;
  1. BLD ; -- list builder
  1. N I,DR,DIC,DIQ,VALME
  1. D CLEAN^VALM10,KILL^VALM10()
  1. F I=1:1:30 D BLANK(.I)
  1. S DA=VALMIFN,DR=".01:107",DIQ(0)="E",DIC="^SD(409.61,",DIQ="VALME"
  1. D EN^DIQ1
  1. D DEMOS,REGION,PRTCL,MISC,CODE,CAP
  1. S:VALMCNT<30 VALMCNT=30
  1. Q
  1. ;
  1. FNL ; -- exit code
  1. K VALMIFN,VALMUMPS
  1. D CLEAN^VALM10
  1. Q
  1. ;
  1. DEMOS ; -- demographics
  1. N OFFSET,START
  1. S OFFSET=2,START=1
  1. D SET(START,OFFSET," Demographics ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET,"Template Name: "_VALME(409.61,VALMIFN,.01,"E"))
  1. D SET(START+2,OFFSET," Entity Name: "_VALME(409.61,VALMIFN,.09,"E"))
  1. D SET(START+3,OFFSET," Screen Title: "_VALME(409.61,VALMIFN,.11,"E"))
  1. Q
  1. ;
  1. REGION ; -- list region
  1. N OFFSET,START
  1. S OFFSET=52,START=1
  1. D SET(START,OFFSET," List Region ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," Top Margin: "_$J(VALME(409.61,VALMIFN,.05,"E"),3))
  1. D SET(START+2,OFFSET,"Bottom "" : "_$J(VALME(409.61,VALMIFN,.06,"E"),3))
  1. D SET(START+3,OFFSET," Right "" : "_$J(VALME(409.61,VALMIFN,.04,"E"),3))
  1. Q
  1. ;
  1. PRTCL ; -- protocol info
  1. N OFFSET,START
  1. S OFFSET=2,START=7
  1. D SET(START,OFFSET," Protocol Information ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," Type of List: "_VALME(409.61,VALMIFN,.02,"E"))
  1. D SET(START+2,OFFSET," Protocol Menu: "_VALME(409.61,VALMIFN,.1,"E"))
  1. D SET(START+3,OFFSET,"Print Protocol: "_VALME(409.61,VALMIFN,1.01,"E"))
  1. D SET(START+4,OFFSET," Hidden Menu: "_VALME(409.61,VALMIFN,1.02,"E"))
  1. Q
  1. ;
  1. CODE ; -- mumps code display
  1. N OFFSET,START
  1. S OFFSET=2,START=16
  1. D SET(START,OFFSET," MUMPS Code Related ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET,"Header: "_VALME(409.61,VALMIFN,100,"E"))
  1. D SET(START+2,OFFSET," Entry: "_VALME(409.61,VALMIFN,106,"E"))
  1. D SET(START+3,OFFSET," Exit: "_VALME(409.61,VALMIFN,105,"E"))
  1. D SET(START+4,OFFSET,"Expand: "_VALME(409.61,VALMIFN,102,"E"))
  1. D SET(START+5,OFFSET," Help: "_VALME(409.61,VALMIFN,103,"E"))
  1. D SET(START+6,OFFSET," Array: "_VALME(409.61,VALMIFN,107,"E"))
  1. Q
  1. ;
  1. CAP ; -- caption display
  1. N OFFSET,START
  1. S OFFSET=2,START=24
  1. D SET(START,OFFSET," Caption Line Information ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET,"Name",IOUON,IOUOFF)
  1. D SET(START+1,OFFSET+10,"Column",IOUON,IOUOFF)
  1. D SET(START+1,OFFSET+20,"Width",IOUON,IOUOFF)
  1. D SET(START+1,OFFSET+30,"Display Text",IOUON,IOUOFF)
  1. D SET(START+1,OFFSET+60,"Video",IOUON,IOUOFF)
  1. D SET(START+1,OFFSET+67,"Scroll Lock",IOUON,IOUOFF)
  1. S CNT=1,I=0
  1. F S I=$O(^SD(409.61,VALMIFN,"COL",I)) Q:'I S X=^(I,0) D
  1. .S CNT=CNT+1
  1. .D SET(START+CNT,OFFSET,$P(X,U))
  1. .D SET(START+CNT,OFFSET+10,$J($P(X,U,2),3))
  1. .D SET(START+CNT,OFFSET+20,$J($P(X,U,3),3))
  1. .D SET(START+CNT,OFFSET+30,$E($P(X,U,4),1,30))
  1. .D SET(START+CNT,OFFSET+60,$P(X,U,5))
  1. .D SET(START+CNT,OFFSET+67,$S($P(X,U,6):"YES",1:"NO"))
  1. S VALMCNT=START+CNT
  1. Q
  1. ;
  1. MISC ; -- other fields
  1. N OFFSET,START
  1. S OFFSET=45,START=7
  1. D SET(START,OFFSET+7," Other Fields ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," OK to Transport?: "_VALME(409.61,VALMIFN,.07,"E"))
  1. D SET(START+2,OFFSET," Use Cursor Control: "_VALME(409.61,VALMIFN,.08,"E"))
  1. D SET(START+3,OFFSET,"Allowable Number of Actions: "_VALME(409.61,VALMIFN,.12,"E"))
  1. D SET(START+4,OFFSET," Date Range Limit: "_VALME(409.61,VALMIFN,.13,"E"))
  1. D SET(START+5,OFFSET," Automatic Defaults: "_VALME(409.61,VALMIFN,.14,"E"))
  1. Q
  1. ;
  1. SET(LINE,COL,TEXT,ON,OFF) ; -- set display info in array
  1. D:'$D(@VALMAR@(LINE,0)) BLANK(.LINE)
  1. D SET^VALM10(.LINE,$$SETSTR^VALM1(.TEXT,@VALMAR@(LINE,0),.COL,$L(TEXT)))
  1. D:$G(ON)]""!($G(OFF)]"") CNTRL^VALM10(.LINE,.COL,$L(TEXT),$G(ON),$G(OFF))
  1. W:'(LINE#5) "."
  1. Q
  1. ;
  1. BLANK(LINE) ; -- build blank line
  1. D SET^VALM10(.LINE,$J("",80))
  1. Q