source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFCV.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: 468 bytes
Line 
1PRCFCV ;WISC@ALTOONA/CTB-CONVERT DATA IN FILE 411 TO FREE TEXT POINTER ;10 Sep 89/3:08 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 S ASK=1
5NOASK W !,"I will now convert your IFCAP site parameter file to support the new data structure."
6 I $D(ASK) S %A="OK to Continue",%B="",%=1 D ^PRCFYN Q:%'=1
7 W !!
8 S N=0 F I=1:1 S N=$O(^PRC(411,N)) Q:'N I $D(^(N,0)) S $P(^(0),"^",10)=N,^PRC(411,"C",N,N)=""
9 W !,"DONE",!!
Note: See TracBrowser for help on using the repository browser.