- 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 Jan 18, 2025@03:11:25 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 ;