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

VALMW.m

Go to the documentation of this file.
  1. VALMW ;MJK/ALB ;02:38 PM 16 Dec 1992;List Manager Utilities
  1. ;;1;List Manager;;Aug 13, 1993
  1. ;
  1. D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_""","
  1. G:$D(^DOPT($P(X," ;"),5)) A S ^DOPT($P(X," ;"),0)=$P(X,";",4)_"^1N^" F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT($P(X," ;"),I,0)=$P(Y,";",3,99)
  1. D IXALL^DIK
  1. A ;
  1. W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0 D @+Y G A
  1. ;
  1. 1 ;;Workbench
  1. D EN^VALMWB
  1. Q
  1. ;
  1. 2 ;;Print List Templates
  1. Q
  1. ;
  1. 3 ;;Transport List Templates
  1. D EN^VALMW3
  1. Q
  1. ;
  1. 4 ;;Edit Protocol
  1. N VALMESC,DA,DIC,DR,DIE
  1. S VALMESC=0
  1. F D Q:VALMESC
  1. .W ! S DIC="^ORD(101,",DIC(0)="AELMQ" D ^DIC
  1. .I Y<0 S VALMESC=1 Q
  1. .S DA=+Y D EN^DIQ
  1. .W ! S DIE="^ORD(101,",DR="[VALM PROTOCOL EDIT]" D ^DIE
  1. .K DIE,DIC,DR,DE,DQ,DA
  1. Q
  1. ;
  1. 5 ;;VALM Conversion Analyzer
  1. G CONV^VALMW1
  1. ;