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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINITPST 886 printed Nov 22, 2024@18:02:01 Page 2
DINITPST ;SFISC/MKO-POST INIT FOR DINIT ;9:31 AM 23 Mar 1999
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 NEW %,%Y,C,D,D0,DI,DIV,DQ
+8 ;
+9 ;Delete ^DIPT("EX") index (also done in patch DI*21*8 in DIPOST)
+10 KILL ^DIPT("EX")
+11 ;
+12 ;Delete test Dialog entries 10001,99000,99001,99002
+13 NEW DIALOG
+14 FOR DIALOG=10001,99000,99001,99002
Begin DoDot:1
+15 NEW DIK,DA
+16 if $DATA(^DI(.84,DIALOG,0))[0
QUIT
+17 SET DIK="^DI(.84,"
SET DA=DIALOG
DO ^DIK
End DoDot:1
+18 ;
+19 ;Delete templates .001 and .002
+20 IF $DATA(^DIE(.001))
Begin DoDot:1
+21 NEW DIK,DA
+22 SET DIK="^DIE("
+23 FOR DA=.001,.002
DO ^DIK
End DoDot:1
+24 ;
+25 ;Recompile all forms
+26 WRITE !
+27 SET DDSQUIET=1
DO DELALL^DDSZ
KILL DDSQUIET
+28 DO ALL^DDSZ
+29 WRITE !!
+30 QUIT
