PRC157P.m

PRC157P ;VMP/RB - ADD WARNING TO FILE DESCRIPTIONS #410, #442, #443.6 ;08/01/11

 ;;5.1;IFCAP;**157**;Jul 1, 2011;Build 2

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;;

 ;

 ; Post install to add warning '*********DO NOT RE-INDEX THIS FILE

 ; *********' to file description for file#: 410, 442, and 443.6.

 ;

 Q

SET ;set files

 S TMP("WP",1)="    *********DO NOT RE-INDEX THIS FILE**********"

 D WP^DIE(1,"410,",4,"A","TMP(""WP"")")

 D WP^DIE(1,"442,",4,"A","TMP(""WP"")")

 D WP^DIE(1,"443.6,",4,"A","TMP(""WP"")")

EXIT ;

 W !!,"FILE 410, 442 AND 443.6 SET WITH 'DO NOT RE-INDEX' WARNING IN FILE DESCRIPTION",!!

 K TMP,DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRC157P   667     printed  Apr 23, 2025@18:13:51                                                                                                                                                                                                      Page 2

PRC157P   ;VMP/RB - ADD WARNING TO FILE DESCRIPTIONS #410, #442, #443.6 ;08/01/11

 +1       ;;5.1;IFCAP;**157**;Jul 1, 2011;Build 2

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;;

 +4       ;

 +5       ; Post install to add warning '*********DO NOT RE-INDEX THIS FILE

 +6       ; *********' to file description for file#: 410, 442, and 443.6.

 +7       ;

 +8        QUIT 

SET       ;set files

 +1        SET TMP("WP",1)="    *********DO NOT RE-INDEX THIS FILE**********"

 +2        DO WP^DIE(1,"410,",4,"A","TMP(""WP"")")

 +3        DO WP^DIE(1,"442,",4,"A","TMP(""WP"")")

 +4        DO WP^DIE(1,"443.6,",4,"A","TMP(""WP"")")

EXIT      ;

 +1        WRITE !!,"FILE 410, 442 AND 443.6 SET WITH 'DO NOT RE-INDEX' WARNING IN FILE DESCRIPTION",!!

 +2        KILL TMP,DIE

 +3        QUIT