Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DIPR7

DIPR7.m

Go to the documentation of this file.

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'"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR7   341     printed  Sep 23, 2025@20:29:29                                                                                                                                                                                                        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