PRCUCV2.m

PRCUCV2 ;WISC@ALTOONA/CTB-ESIG CONVERSION ;2/15/93  3:55 PM

V ;;5.0;IFCAP;;4/21/95

SETOFCDS ;display set of codes

 N X,LN,Y

 Q:$P($G(DIR(0)),"^",1)'["S"

 W !,"Select From:",!

 S X=$P(DIR(0),"^",2)

 F LN=1:1 Q:$P(X,";",LN)=""  S Y=$P(X,";",LN) W !?5,$P(Y,":"),?15,$P(Y,":",2)

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCUCV2   290     printed  Apr 09, 2024@21:21:47                                                                                                                                                                                                      Page 2

PRCUCV2   ;WISC@ALTOONA/CTB-ESIG CONVERSION ;2/15/93  3:55 PM

V         ;;5.0;IFCAP;;4/21/95

SETOFCDS  ;display set of codes

 +1        NEW X,LN,Y

 +2        if $PIECE($GET(DIR(0)),"^",1)'["S"

               QUIT 

 +3        WRITE !,"Select From:",!

 +4        SET X=$PIECE(DIR(0),"^",2)

 +5        FOR LN=1:1

               if $PIECE(X,";",LN)=""

                   QUIT 

               SET Y=$PIECE(X,";",LN)

               WRITE !?5,$PIECE(Y,":"),?15,$PIECE(Y,":",2)

 +6        QUIT