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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR7 341 printed Oct 16, 2024@18:53:55 Page 2
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