AWCMCPS2.m

AWCMCPS2 ;VISN7/THM-RE-INDEX PARAMETER FILE ; Feb 27, 2004

 ;;7.3;TOOLKIT;**86**;Jan 09, 2004

 ;

 S IOP="HOME" D ^%ZIS K IOP

 ;

EN W @IOF,!!,"Re-index the CPRS Monitor Parameter file (177100.12)",!!

 W !,"Please wait . . . " H 2

 ; re-index .01 field

 K ^AWC(177100.12,"B")

 S DIK="^AWC(177100.12,",DA=1,DIK(1)=".01" D EN^DIK

 W "Finished.",!

 ;

EXIT K %,AWCMTPL,DA,AWCMOPT,DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---AWCMCPS2   395     printed  Apr 09, 2024@21:42:02                                                                                                                                                                                                     Page 2

AWCMCPS2  ;VISN7/THM-RE-INDEX PARAMETER FILE ; Feb 27, 2004

 +1       ;;7.3;TOOLKIT;**86**;Jan 09, 2004

 +2       ;

 +3        SET IOP="HOME"

           DO ^%ZIS

           KILL IOP

 +4       ;

EN         WRITE @IOF,!!,"Re-index the CPRS Monitor Parameter file (177100.12)",!!

 +1        WRITE !,"Please wait . . . "

           HANG 2

 +2       ; re-index .01 field

 +3        KILL ^AWC(177100.12,"B")

 +4        SET DIK="^AWC(177100.12,"

           SET DA=1

           SET DIK(1)=".01"

           DO EN^DIK

 +5        WRITE "Finished.",!

 +6       ;

EXIT       KILL %,AWCMTPL,DA,AWCMOPT,DIK

 +1        QUIT