DINITPST.m

DINITPST ;SFISC/MKO-POST INIT FOR DINIT ;9:31 AM  23 Mar 1999

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 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

DINITPST  ;SFISC/MKO-POST INIT FOR DINIT ;9:31 AM  23 Mar 1999

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        NEW %,%Y,C,D,D0,DI,DIV,DQ

 +4       ;

 +5       ;Delete ^DIPT("EX") index (also done in patch DI*21*8 in DIPOST)

 +6        KILL ^DIPT("EX")

 +7       ;

 +8       ;Delete test Dialog entries 10001,99000,99001,99002

 +9        NEW DIALOG

 +10       FOR DIALOG=10001,99000,99001,99002

               Begin DoDot:1

 +11               NEW DIK,DA

 +12               IF $DATA(^DI(.84,DIALOG,0))[0

                       QUIT 

 +13               SET DIK="^DI(.84,"

                   SET DA=DIALOG

                   DO ^DIK

               End DoDot:1

 +14      ;

 +15      ;Delete templates .001 and .002

 +16       IF $DATA(^DIE(.001))

               Begin DoDot:1

 +17               NEW DIK,DA

 +18               SET DIK="^DIE("

 +19               FOR DA=.001,.002

                       DO ^DIK

               End DoDot:1

 +20      ;

 +21      ;Recompile all forms

 +22       WRITE !

 +23       SET DDSQUIET=1

           DO DELALL^DDSZ

           KILL DDSQUIET

 +24       DO ALL^DDSZ

 +25       WRITE !!

 +26       QUIT