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