Last change
on this file since 761 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
800 bytes
|
Line | |
---|
1 | VALMW ;MJK/ALB ;02:38 PM 16 Dec 1992;List Manager Utilities
|
---|
2 | ;;1;List Manager;;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_""","
|
---|
5 | 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)
|
---|
6 | D IXALL^DIK
|
---|
7 | A ;
|
---|
8 | W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0 D @+Y G A
|
---|
9 | ;
|
---|
10 | 1 ;;Workbench
|
---|
11 | D EN^VALMWB
|
---|
12 | Q
|
---|
13 | ;
|
---|
14 | 2 ;;Print List Templates
|
---|
15 | Q
|
---|
16 | ;
|
---|
17 | 3 ;;Transport List Templates
|
---|
18 | D EN^VALMW3
|
---|
19 | Q
|
---|
20 | ;
|
---|
21 | 4 ;;Edit Protocol
|
---|
22 | N VALMESC,DA,DIC,DR,DIE
|
---|
23 | S VALMESC=0
|
---|
24 | F D Q:VALMESC
|
---|
25 | .W ! S DIC="^ORD(101,",DIC(0)="AELMQ" D ^DIC
|
---|
26 | .I Y<0 S VALMESC=1 Q
|
---|
27 | .S DA=+Y D EN^DIQ
|
---|
28 | .W ! S DIE="^ORD(101,",DR="[VALM PROTOCOL EDIT]" D ^DIE
|
---|
29 | .K DIE,DIC,DR,DE,DQ,DA
|
---|
30 | Q
|
---|
31 | ;
|
---|
32 | 5 ;;VALM Conversion Analyzer
|
---|
33 | G CONV^VALMW1
|
---|
34 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.