PRCFCV.m

PRCFCV ;WISC@ALTOONA/CTB-CONVERT DATA IN FILE 411 TO FREE TEXT POINTER ;10 Sep 89/3:08 PM

V ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 S ASK=1

NOASK W !,"I will now convert your IFCAP site parameter file to support the new data structure."

 I $D(ASK) S %A="OK to Continue",%B="",%=1 D ^PRCFYN Q:%'=1

 W !!

 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)=""

 W !,"DONE",!!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFCV   477     printed  Sep 23, 2025@19:38:45                                                                                                                                                                                                       Page 2

PRCFCV    ;WISC@ALTOONA/CTB-CONVERT DATA IN FILE 411 TO FREE TEXT POINTER ;10 Sep 89/3:08 PM

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2        SET ASK=1

NOASK      WRITE !,"I will now convert your IFCAP site parameter file to support the new data structure."

 +1        IF $DATA(ASK)

               SET %A="OK to Continue"

               SET %B=""

               SET %=1

               DO ^PRCFYN

               if %'=1

                   QUIT 

 +2        WRITE !!

 +3        SET N=0

           FOR I=1:1

               SET N=$ORDER(^PRC(411,N))

               if 'N

                   QUIT 

               IF $DATA(^(N,0))

                   SET $PIECE(^(0),"^",10)=N

                   SET ^PRC(411,"C",N,N)=""

 +4        WRITE !,"DONE",!!