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

DINITPST.m

Go to the documentation of this file.
DINITPST ;SFISC/MKO-POST INIT FOR DINIT ;9:31 AM  23 Mar 1999
 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
 ;;Per VA Directive 6402, this routine should not be modified.
 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
 ;;Licensed under the terms of the Apache License, Version 2.0.
 ;
 N %,%Y,C,D,D0,DI,DIV,DQ
 ;
 ;Delete ^DIPT("EX") index (also done in patch DI*21*8 in DIPOST)
 K ^DIPT("EX")
 ;
 ;Delete test Dialog entries 10001,99000,99001,99002
 N DIALOG
 F DIALOG=10001,99000,99001,99002 D
 . N DIK,DA
 . Q:$D(^DI(.84,DIALOG,0))[0
 . S DIK="^DI(.84,",DA=DIALOG D ^DIK
 ;
 ;Delete templates .001 and .002
 I $D(^DIE(.001)) D
 . N DIK,DA
 . S DIK="^DIE("
 . F DA=.001,.002 D ^DIK
 ;
 ;Recompile all forms
 W !
 S DDSQUIET=1 D DELALL^DDSZ K DDSQUIET
 D ALL^DDSZ
 W !!
 Q