source:
WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUCV2.m@
893
| Last change on this file since 893 was 613, checked in by , 16 years ago | |
|---|---|
| File size: 281 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | PRCUCV2 ;WISC@ALTOONA/CTB-ESIG CONVERSION ;2/15/93 3:55 PM |
| 2 | V ;;5.0;IFCAP;;4/21/95 | |
| 3 | SETOFCDS ;display set of codes | |
| 4 | N X,LN,Y | |
| 5 | Q:$P($G(DIR(0)),"^",1)'["S" | |
| 6 | W !,"Select From:",! | |
| 7 | S X=$P(DIR(0),"^",2) | |
| 8 | F LN=1:1 Q:$P(X,";",LN)="" S Y=$P(X,";",LN) W !?5,$P(Y,":"),?15,$P(Y,":",2) | |
| 9 | QUIT |
Note:
See TracBrowser
for help on using the repository browser.
