- 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 Apr 23, 2025@18:34:01 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
