DIPR7.m

DIPR7 ;SFISC/TKW-PRE INSTALL ROUTINE FOR PATCH DI*22.0*7 ;8/6/99  08:51

 ;;22.0;VA FileMan;**7**;Mar 30, 1999

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

 ;

 ; Change second piece of field 20 DEVELOPER in file 1 FILE

 ; so that LAYGO is not allowed to file 200 NEW PERSON.

 S $P(^DD(1,20,0),"^",2)="P200'"

 Q

DIPR7     ;SFISC/TKW-PRE INSTALL ROUTINE FOR PATCH DI*22.0*7 ;8/6/99  08:51

 +1       ;;22.0;VA FileMan;**7**;Mar 30, 1999

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

 +3       ;

 +4       ; Change second piece of field 20 DEVELOPER in file 1 FILE

 +5       ; so that LAYGO is not allowed to file 200 NEW PERSON.

 +6        SET $PIECE(^DD(1,20,0),"^",2)="P200'"

 +7        QUIT