DINITPST.m

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 ---DINITPST   886     printed  Apr 23, 2025@19:06:23                                                                                                                                                                                                     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