source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUCV2.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 281 bytes
Line 
1PRCUCV2 ;WISC@ALTOONA/CTB-ESIG CONVERSION ;2/15/93 3:55 PM
2V ;;5.0;IFCAP;;4/21/95
3SETOFCDS ;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.