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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVALMW 834 printed Dec 13, 2024@02:10:12 Page 2
VALMW ;MJK/ALB ;02:38 PM 16 Dec 1992;List Manager Utilities
+1 ;;1;List Manager;;Aug 13, 1993
+2 ;
+3 DO DT^DICRW
SET X=$TEXT(+1)
SET DIK="^DOPT("""_$PIECE(X," ;",1)_""","
+4 if $DATA(^DOPT($PIECE(X," ;"),5))
GOTO A
SET ^DOPT($PIECE(X," ;"),0)=$PIECE(X,";",4)_"^1N^"
FOR I=1:1
SET Y=$TEXT(@I)
if Y=""
QUIT
SET ^DOPT($PIECE(X," ;"),I,0)=$PIECE(Y,";",3,99)
+5 DO IXALL^DIK
A ;
+1 WRITE !!
SET DIC="^DOPT("""_$PIECE($TEXT(+1)," ;")_""","
SET DIC(0)="IQEAM"
DO ^DIC
if Y<0
QUIT
DO @+Y
GOTO A
+2 ;
1 ;;Workbench
+1 DO EN^VALMWB
+2 QUIT
+3 ;
2 ;;Print List Templates
+1 QUIT
+2 ;
3 ;;Transport List Templates
+1 DO EN^VALMW3
+2 QUIT
+3 ;
4 ;;Edit Protocol
+1 NEW VALMESC,DA,DIC,DR,DIE
+2 SET VALMESC=0
+3 FOR
Begin DoDot:1
+4 WRITE !
SET DIC="^ORD(101,"
SET DIC(0)="AELMQ"
DO ^DIC
+5 IF Y<0
SET VALMESC=1
QUIT
+6 SET DA=+Y
DO EN^DIQ
+7 WRITE !
SET DIE="^ORD(101,"
SET DR="[VALM PROTOCOL EDIT]"
DO ^DIE
+8 KILL DIE,DIC,DR,DE,DQ,DA
End DoDot:1
if VALMESC
QUIT
+9 QUIT
+10 ;
5 ;;VALM Conversion Analyzer
+1 GOTO CONV^VALMW1
+2 ;
