VALMW.m

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 ---VALMW   834     printed  Apr 09, 2024@21:12:28                                                                                                                                                                                                        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       ;