- 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 ---[H[J[2J[HAWCMCPS2 395 printed Feb 19, 2025@00:05:16 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