| [613] | 1 | DINIT29P ;SFISC/MKO-SCREENMAN POSTINIT ;11:21 AM 2 Oct 1998
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | N B,F
|
|---|
| 5 | ;
|
|---|
| 6 | ;Delete the "AZ" global for each form. Starting in Version 22.0
|
|---|
| 7 | ;compiled data will be stored in ^DIST(.403,form#,"AY") instead of
|
|---|
| 8 | ;^DIST(.403,form#,"AZ")
|
|---|
| 9 | S F=0 F S F=$O(^DIST(.403,F)) Q:F'=+$P(F,"E") K ^DIST(.403,F,"AZ")
|
|---|
| 10 | ;
|
|---|
| 11 | ;Update Field Type field of fields on old blocks.
|
|---|
| 12 | ;Convert 0 or null to 3 (data dictionary field)
|
|---|
| 13 | S B=0 F S B=$O(^DIST(.404,B)) Q:B'=+B D
|
|---|
| 14 | . Q:$P($G(^DIST(.404,B,0)),U)?1"DDGF".E
|
|---|
| 15 | . S F=0 F S F=$O(^DIST(.404,B,40,F)) Q:F'=+F D
|
|---|
| 16 | .. Q:$D(^DIST(.404,B,40,F,0))[0
|
|---|
| 17 | .. S:'$P(^DIST(.404,B,40,F,0),U,3) $P(^(0),U,3)=3
|
|---|
| 18 | ;
|
|---|
| 19 | ;Rename two version 19 options
|
|---|
| 20 | I $P($G(^DIC(19,0)),U)="OPTION" D
|
|---|
| 21 | . D:$D(^DIC(19,"B","DDS CREATE FORM")) RENAME("DDS CREATE FORM","DDS EDIT/CREATE A FORM")
|
|---|
| 22 | . D:$D(^DIC(19,"B","DDS CREATE BLOCK")) RENAME("DDS CREATE BLOCK","DDS RUN A FORM")
|
|---|
| 23 | ;
|
|---|
| 24 | G ^DINIT2A0
|
|---|
| 25 | ;
|
|---|
| 26 | RENAME(DDSOLD,DDSNEW) ;Rename options
|
|---|
| 27 | N DIC,X,Y
|
|---|
| 28 | S DIC="^DIC(19,",DIC(0)="Z",X=DDSOLD
|
|---|
| 29 | D ^DIC Q:Y<0
|
|---|
| 30 | ;
|
|---|
| 31 | N DIE,DA,DR
|
|---|
| 32 | S DIE=DIC,DA=+Y,DR=".01///"_DDSNEW
|
|---|
| 33 | D ^DIE
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | PRE ;ScreenMan pre-init
|
|---|
| 37 | ;Delete old forms and blocks used by FileMan
|
|---|
| 38 | N I
|
|---|
| 39 | S I=0 F S I=$O(^DIST(.403,I)) Q:'I!(I'<1) K ^DIST(.403,I)
|
|---|
| 40 | S I=0 F S I=$O(^DIST(.404,I)) Q:'I!(I'<1) K ^DIST(.404,I)
|
|---|
| 41 | Q
|
|---|
