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 ---[H[J[2J[HPRC157P 667 printed Oct 16, 2024@18:00:09 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
