Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
468 bytes
|
Rev | Line | |
---|
[613] | 1 | PRCFCV ;WISC@ALTOONA/CTB-CONVERT DATA IN FILE 411 TO FREE TEXT POINTER ;10 Sep 89/3:08 PM
|
---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | S ASK=1
|
---|
| 5 | NOASK 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.