|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
281 bytes
|
| Line | |
|---|
| 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.
