Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
800 bytes
|
Rev | Line | |
---|
[613] | 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.