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 ---[H[J[2J[HPRCUCV2 290 printed Nov 22, 2024@17:29:35 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
