Routine: DINIT0FB

DINIT0FB ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:34 AM  18 Jan 2000

 ;;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.

 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0FC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.404,.110107,40,4,14)

 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Storage.")

 ;;^DIST(.404,.110107,40,5,0)

 ;;=7^Maximum Length^3

 ;;^DIST(.404,.110107,40,5,1)

 ;;=6

 ;;^DIST(.404,.110107,40,5,2)

 ;;=7,18^3^7,2

 ;;^DIST(.404,.110107,40,5,13)

 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1

 ;;^DIST(.404,.110107,40,6,0)

 ;;=8^Collation^3

 ;;^DIST(.404,.110107,40,6,1)

 ;;=7

 ;;^DIST(.404,.110107,40,6,2)

 ;;=7,58^9^7,47

 ;;^DIST(.404,.110107,40,6,3)

 ;;=forwards

 ;;^DIST(.404,.110107,40,7,0)

 ;;=9^Lookup Prompt^3

 ;;^DIST(.404,.110107,40,7,1)

 ;;=8

 ;;^DIST(.404,.110107,40,7,2)

 ;;=8,18^30^8,3

 ;;^DIST(.404,.110107,40,8,0)

 ;;=5^File^3

 ;;^DIST(.404,.110107,40,8,1)

 ;;=2

 ;;^DIST(.404,.110107,40,8,2)

 ;;=4,58^20^4,52

 ;;^DIST(.404,.110107,40,8,3)

 ;;=!M

 ;;^DIST(.404,.110107,40,8,3.1)

 ;;=S Y=$$GET^DDSVAL(.11,DA(1),.51)

 ;;^DIST(.404,.110107,40,8,4)

 ;;=1^^^1

 ;;^DIST(.404,.110107,40,8,14)

 ;;=N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL("This File number must equal the Root File number: "_RF_".")

 ;;^DIST(.404,.110107,40,9,0)

 ;;=4^Field^3^^FIELD

 ;;^DIST(.404,.110107,40,9,1)

 ;;=3

 ;;^DIST(.404,.110107,40,9,2)

 ;;=4,18^20^4,11

 ;;^DIST(.404,.110107,40,9,4)

 ;;=1

 ;;^DIST(.404,.110107,40,9,13)

 ;;=S:X=""!(DDSOLD="") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE["F"!(DIKCTYPE["K"):30,1:""),"","I")

 ;;^DIST(.404,.110107,40,10,0)

 ;;=6^Field Name^4

 ;;^DIST(.404,.110107,40,10,2)

 ;;=5,18^60^5,6

 ;;^DIST(.404,.110107,40,10,30)

 ;;=N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."

 ;;^DIST(.404,.110107,40,11,0)

 ;;=12^Transform for Display^3^^TRANSFORM FOR DISPLAY

 ;;^DIST(.404,.110107,40,11,1)

 ;;=5.5

 ;;^DIST(.404,.110107,40,11,2)

 ;;=11,25^53^11,2

 ;;^DIST(.404,.110107,40,11,14)

 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Display.")

 ;;^DIST(.404,.110107,40,12,0)

 ;;=11^Transform for Lookup^3

 ;;^DIST(.404,.110107,40,12,1)

 ;;=5.3

 ;;^DIST(.404,.110107,40,12,2)

 ;;=10,25^53^10,3

 ;;^DIST(.404,.110107,40,12,14)

 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Lookup.")

 ;;^DIST(.404,.110108,0)

 ;;=DIKC EDIT COMPUTED CRV^.114

 ;;^DIST(.404,.110108,40,0)

 ;;=^.4044I^8^7

 ;;^DIST(.404,.110108,40,1,0)

 ;;=1^ Computed-Type Cross Reference Value ^1

 ;;^DIST(.404,.110108,40,1,2)

 ;;=^^1,21

 ;;^DIST(.404,.110108,40,2,0)

 ;;=2^Order Number^3

 ;;^DIST(.404,.110108,40,2,1)

 ;;=.01

 ;;^DIST(.404,.110108,40,2,2)

 ;;=3,21^3^3,7

 ;;^DIST(.404,.110108,40,2,13)

 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1

 ;;^DIST(.404,.110108,40,3,0)

 ;;=3^Subscript Number^3

 ;;^DIST(.404,.110108,40,3,1)

 ;;=.5

 ;;^DIST(.404,.110108,40,3,2)

 ;;=4,21^3^4,3

 ;;^DIST(.404,.110108,40,3,13)

 ;;=S:X=""!(DDSOLD="") DIKCCRV=1

 ;;^DIST(.404,.110108,40,4,0)

 ;;=5^Maximum Length^3

 ;;^DIST(.404,.110108,40,4,1)

 ;;=6

 ;;^DIST(.404,.110108,40,4,2)

 ;;=5,21^3^5,5

 ;;^DIST(.404,.110108,40,4,13)

 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1

 ;;^DIST(.404,.110108,40,5,0)

 ;;=4^Lookup Prompt^3

 ;;^DIST(.404,.110108,40,5,1)

 ;;=8

 ;;^DIST(.404,.110108,40,5,2)

 ;;=4,48^30^4,33

 ;;^DIST(.404,.110108,40,6,0)

 ;;=6^Collation^3

 ;;^DIST(.404,.110108,40,6,1)

 ;;=7

 ;;^DIST(.404,.110108,40,6,2)

 ;;=5,48^9^5,37

 ;;^DIST(.404,.110108,40,8,0)

 ;;=7^Computed Code^3

 ;;^DIST(.404,.110108,40,8,1)

 ;;=4.5

 ;;^DIST(.404,.110108,40,8,2)

 ;;=7,18^60^7,3

 ;;^DIST(.404,.110108,40,8,4)

 ;;=1

 ;;^DIST(.404,.110108,40,8,14)

 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Computed Code.")

 ;;^DIST(.404,.11021,0)

 ;;=DIKC EDIT UI MAIN^.11

 ;;^DIST(.404,.11021,40,0)

 ;;=^.4044I^9^9

 ;;^DIST(.404,.11021,40,1,0)

 ;;=1^File^3

 ;;^DIST(.404,.11021,40,1,1)

 ;;=.01

 ;;^DIST(.404,.11021,40,1,2)

 ;;=1,15^20^1,9

 ;;^DIST(.404,.11021,40,1,13)

 ;;=D BLDLOG^DIKCFORM(DA)

 ;;^DIST(.404,.11021,40,1,14)

 ;;=D VALFILE^DIKCFORM

 ;;^DIST(.404,.11021,40,2,0)

 ;;=2^Root File^3

 ;;^DIST(.404,.11021,40,2,1)

 ;;=.51

 ;;^DIST(.404,.11021,40,2,2)

 ;;=1,60^20^1,49

 ;;^DIST(.404,.11021,40,2,4)

 ;;=^^^1

 ;;^DIST(.404,.11021,40,3,0)

 ;;=3^Index Name^3

 ;;^DIST(.404,.11021,40,3,1)

 ;;=.02

 ;;^DIST(.404,.11021,40,3,2)

 ;;=2,15^30^2,3

 ;;^DIST(.404,.11021,40,3,13)

 ;;=D NAMECHG^DIKCFORM

 ;;^DIST(.404,.11021,40,3,14)

 ;;=D NAMEVAL^DIKCFORM

 ;;^DIST(.404,.11021,40,4,0)

 ;;=4^Root Type^3

 ;;^DIST(.404,.11021,40,4,1)

 ;;=.5

 ;;^DIST(.404,.11021,40,4,2)

 ;;=2,60^16^2,49

 ;;^DIST(.404,.11021,40,4,4)

 ;;=^^^1

 ;;^DIST(.404,.11021,40,5,0)

 ;;=5^Short Description^3

 ;;^DIST(.404,.11021,40,5,1)

 ;;=.11

 ;;^DIST(.404,.11021,40,5,2)

 ;;=4,20^60^4,1

 ;;^DIST(.404,.11021,40,5,11)

 ;;=D HLP^DDSUTL(X)

 ;;^DIST(.404,.11021,40,6,0)

 ;;=6^Description (wp)^3

 ;;^DIST(.404,.11021,40,6,1)

 ;;=.1

 ;;^DIST(.404,.11021,40,6,2)

 ;;=5,20^1^5,2

 ;;^DIST(.404,.11021,40,7,0)

 ;;=7^!M^1

 ;;^DIST(.404,.11021,40,7,.1)

 ;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,56)_"]",1:"(empty)")

 ;;^DIST(.404,.11021,40,7,2)

 ;;=^^5,23

 ;;^DIST(.404,.11021,40,8,0)

 ;;=8^Set Logic^3

 ;;^DIST(.404,.11021,40,8,1)

 ;;=1.1

 ;;^DIST(.404,.11021,40,8,2)

 ;;=14,13^67^14,2

 ;;^DIST(.404,.11021,40,8,4)

 ;;=^^^2

 ;;^DIST(.404,.11021,40,8,11)

 ;;=D HLP^DDSUTL(X)

 ;;^DIST(.404,.11021,40,9,0)

 ;;=9^Kill Logic^3

 ;;^DIST(.404,.11021,40,9,1)

 ;;=2.1

 ;;^DIST(.404,.11021,40,9,2)

 ;;=15,13^67^15,1

 ;;^DIST(.404,.11021,40,9,4)

 ;;=^^^2

 ;;^DIST(.404,.11021,40,9,11)

 ;;=D HLP^DDSUTL(X)

 ;;^DIST(.404,.11022,0)

 ;;=DIKC EDIT UI HDR^.11

 ;;^DIST(.404,.11022,40,0)

 ;;=^.4044I^4^4

 ;;^DIST(.404,.11022,40,1,0)

 ;;=1^Number^4

 ;;^DIST(.404,.11022,40,1,2)

 ;;=1,9^15^1,1

 ;;^DIST(.404,.11022,40,1,30)

 ;;=S Y=DA

 ;;^DIST(.404,.11022,40,2,0)

 ;;=2^EDIT A UNIQUENESS INDEX^1

 ;;^DIST(.404,.11022,40,2,2)

 ;;=^^1,30

 ;;^DIST(.404,.11022,40,3,0)

 ;;=3^Page 1 of 1^1

 ;;^DIST(.404,.11022,40,3,2)

 ;;=^^1,69

 ;;^DIST(.404,.11022,40,4,0)

 ;;=4^-------------------------------------------------------------------------------^1

 ;;^DIST(.404,.11022,40,4,2)

 ;;=^^2,1

 ;;^DIST(.404,.11023,0)

 ;;=DIKC EDIT UI CRV^.114

 ;;^DIST(.404,.11023,40,0)

 ;;=^.4044I^4^4

 ;;^DIST(.404,.11023,40,1,0)

 ;;=1^^3^^ORDER

 ;;^DIST(.404,.11023,40,1,1)

 ;;=.01

 ;;^DIST(.404,.11023,40,1,2)

 ;;=1,3^3

 ;;^DIST(.404,.11023,40,1,4)

 ;;=^^^2

 ;;^DIST(.404,.11023,40,1,14)

 ;;=I X="" D HLP^DDSUTL($C(7)_"Deletion not allowed.") S DDSERROR=1

 ;;^DIST(.404,.11023,40,2,0)

 ;;=2^^3^^SUBSCRIPT

 ;;^DIST(.404,.11023,40,2,1)

 ;;=.5

 ;;^DIST(.404,.11023,40,2,2)

 ;;=1,12^3

 ;;^DIST(.404,.11023,40,2,4)

 ;;=^^^1

 ;;^DIST(.404,.11023,40,3,0)

 ;;=3^^3^^LENGTH

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FB   7582     printed  Feb 19, 2025@00:16:34                                                                                                                                                                                                    Page 2

DINIT0FB  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:34 AM  18 Jan 2000

 +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        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               if X=""

                   GOTO ^DINIT0FC

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +8        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.110107,40,4,14)

 +2       ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Storage.")

 +3       ;;^DIST(.404,.110107,40,5,0)

 +4       ;;=7^Maximum Length^3

 +5       ;;^DIST(.404,.110107,40,5,1)

 +6       ;;=6

 +7       ;;^DIST(.404,.110107,40,5,2)

 +8       ;;=7,18^3^7,2

 +9       ;;^DIST(.404,.110107,40,5,13)

 +10      ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1

 +11      ;;^DIST(.404,.110107,40,6,0)

 +12      ;;=8^Collation^3

 +13      ;;^DIST(.404,.110107,40,6,1)

 +14      ;;=7

 +15      ;;^DIST(.404,.110107,40,6,2)

 +16      ;;=7,58^9^7,47

 +17      ;;^DIST(.404,.110107,40,6,3)

 +18      ;;=forwards

 +19      ;;^DIST(.404,.110107,40,7,0)

 +20      ;;=9^Lookup Prompt^3

 +21      ;;^DIST(.404,.110107,40,7,1)

 +22      ;;=8

 +23      ;;^DIST(.404,.110107,40,7,2)

 +24      ;;=8,18^30^8,3

 +25      ;;^DIST(.404,.110107,40,8,0)

 +26      ;;=5^File^3

 +27      ;;^DIST(.404,.110107,40,8,1)

 +28      ;;=2

 +29      ;;^DIST(.404,.110107,40,8,2)

 +30      ;;=4,58^20^4,52

 +31      ;;^DIST(.404,.110107,40,8,3)

 +32      ;;=!M

 +33      ;;^DIST(.404,.110107,40,8,3.1)

 +34      ;;=S Y=$$GET^DDSVAL(.11,DA(1),.51)

 +35      ;;^DIST(.404,.110107,40,8,4)

 +36      ;;=1^^^1

 +37      ;;^DIST(.404,.110107,40,8,14)

 +38      ;;=N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL("This File number must equal the Root File number: "_RF_".")

 +39      ;;^DIST(.404,.110107,40,9,0)

 +40      ;;=4^Field^3^^FIELD

 +41      ;;^DIST(.404,.110107,40,9,1)

 +42      ;;=3

 +43      ;;^DIST(.404,.110107,40,9,2)

 +44      ;;=4,18^20^4,11

 +45      ;;^DIST(.404,.110107,40,9,4)

 +46      ;;=1

 +47      ;;^DIST(.404,.110107,40,9,13)

 +48      ;;=S:X=""!(DDSOLD="") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE["F"!(DIKCTYPE["K"):30,1:""),"","I")

 +49      ;;^DIST(.404,.110107,40,10,0)

 +50      ;;=6^Field Name^4

 +51      ;;^DIST(.404,.110107,40,10,2)

 +52      ;;=5,18^60^5,6

 +53      ;;^DIST(.404,.110107,40,10,30)

 +54      ;;=N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."

 +55      ;;^DIST(.404,.110107,40,11,0)

 +56      ;;=12^Transform for Display^3^^TRANSFORM FOR DISPLAY

 +57      ;;^DIST(.404,.110107,40,11,1)

 +58      ;;=5.5

 +59      ;;^DIST(.404,.110107,40,11,2)

 +60      ;;=11,25^53^11,2

 +61      ;;^DIST(.404,.110107,40,11,14)

 +62      ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Display.")

 +63      ;;^DIST(.404,.110107,40,12,0)

 +64      ;;=11^Transform for Lookup^3

 +65      ;;^DIST(.404,.110107,40,12,1)

 +66      ;;=5.3

 +67      ;;^DIST(.404,.110107,40,12,2)

 +68      ;;=10,25^53^10,3

 +69      ;;^DIST(.404,.110107,40,12,14)

 +70      ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Lookup.")

 +71      ;;^DIST(.404,.110108,0)

 +72      ;;=DIKC EDIT COMPUTED CRV^.114

 +73      ;;^DIST(.404,.110108,40,0)

 +74      ;;=^.4044I^8^7

 +75      ;;^DIST(.404,.110108,40,1,0)

 +76      ;;=1^ Computed-Type Cross Reference Value ^1

 +77      ;;^DIST(.404,.110108,40,1,2)

 +78      ;;=^^1,21

 +79      ;;^DIST(.404,.110108,40,2,0)

 +80      ;;=2^Order Number^3

 +81      ;;^DIST(.404,.110108,40,2,1)

 +82      ;;=.01

 +83      ;;^DIST(.404,.110108,40,2,2)

 +84      ;;=3,21^3^3,7

 +85      ;;^DIST(.404,.110108,40,2,13)

 +86      ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1

 +87      ;;^DIST(.404,.110108,40,3,0)

 +88      ;;=3^Subscript Number^3

 +89      ;;^DIST(.404,.110108,40,3,1)

 +90      ;;=.5

 +91      ;;^DIST(.404,.110108,40,3,2)

 +92      ;;=4,21^3^4,3

 +93      ;;^DIST(.404,.110108,40,3,13)

 +94      ;;=S:X=""!(DDSOLD="") DIKCCRV=1

 +95      ;;^DIST(.404,.110108,40,4,0)

 +96      ;;=5^Maximum Length^3

 +97      ;;^DIST(.404,.110108,40,4,1)

 +98      ;;=6

 +99      ;;^DIST(.404,.110108,40,4,2)

 +100     ;;=5,21^3^5,5

 +101     ;;^DIST(.404,.110108,40,4,13)

 +102     ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1

 +103     ;;^DIST(.404,.110108,40,5,0)

 +104     ;;=4^Lookup Prompt^3

 +105     ;;^DIST(.404,.110108,40,5,1)

 +106     ;;=8

 +107     ;;^DIST(.404,.110108,40,5,2)

 +108     ;;=4,48^30^4,33

 +109     ;;^DIST(.404,.110108,40,6,0)

 +110     ;;=6^Collation^3

 +111     ;;^DIST(.404,.110108,40,6,1)

 +112     ;;=7

 +113     ;;^DIST(.404,.110108,40,6,2)

 +114     ;;=5,48^9^5,37

 +115     ;;^DIST(.404,.110108,40,8,0)

 +116     ;;=7^Computed Code^3

 +117     ;;^DIST(.404,.110108,40,8,1)

 +118     ;;=4.5

 +119     ;;^DIST(.404,.110108,40,8,2)

 +120     ;;=7,18^60^7,3

 +121     ;;^DIST(.404,.110108,40,8,4)

 +122     ;;=1

 +123     ;;^DIST(.404,.110108,40,8,14)

 +124     ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Computed Code.")

 +125     ;;^DIST(.404,.11021,0)

 +126     ;;=DIKC EDIT UI MAIN^.11

 +127     ;;^DIST(.404,.11021,40,0)

 +128     ;;=^.4044I^9^9

 +129     ;;^DIST(.404,.11021,40,1,0)

 +130     ;;=1^File^3

 +131     ;;^DIST(.404,.11021,40,1,1)

 +132     ;;=.01

 +133     ;;^DIST(.404,.11021,40,1,2)

 +134     ;;=1,15^20^1,9

 +135     ;;^DIST(.404,.11021,40,1,13)

 +136     ;;=D BLDLOG^DIKCFORM(DA)

 +137     ;;^DIST(.404,.11021,40,1,14)

 +138     ;;=D VALFILE^DIKCFORM

 +139     ;;^DIST(.404,.11021,40,2,0)

 +140     ;;=2^Root File^3

 +141     ;;^DIST(.404,.11021,40,2,1)

 +142     ;;=.51

 +143     ;;^DIST(.404,.11021,40,2,2)

 +144     ;;=1,60^20^1,49

 +145     ;;^DIST(.404,.11021,40,2,4)

 +146     ;;=^^^1

 +147     ;;^DIST(.404,.11021,40,3,0)

 +148     ;;=3^Index Name^3

 +149     ;;^DIST(.404,.11021,40,3,1)

 +150     ;;=.02

 +151     ;;^DIST(.404,.11021,40,3,2)

 +152     ;;=2,15^30^2,3

 +153     ;;^DIST(.404,.11021,40,3,13)

 +154     ;;=D NAMECHG^DIKCFORM

 +155     ;;^DIST(.404,.11021,40,3,14)

 +156     ;;=D NAMEVAL^DIKCFORM

 +157     ;;^DIST(.404,.11021,40,4,0)

 +158     ;;=4^Root Type^3

 +159     ;;^DIST(.404,.11021,40,4,1)

 +160     ;;=.5

 +161     ;;^DIST(.404,.11021,40,4,2)

 +162     ;;=2,60^16^2,49

 +163     ;;^DIST(.404,.11021,40,4,4)

 +164     ;;=^^^1

 +165     ;;^DIST(.404,.11021,40,5,0)

 +166     ;;=5^Short Description^3

 +167     ;;^DIST(.404,.11021,40,5,1)

 +168     ;;=.11

 +169     ;;^DIST(.404,.11021,40,5,2)

 +170     ;;=4,20^60^4,1

 +171     ;;^DIST(.404,.11021,40,5,11)

 +172     ;;=D HLP^DDSUTL(X)

 +173     ;;^DIST(.404,.11021,40,6,0)

 +174     ;;=6^Description (wp)^3

 +175     ;;^DIST(.404,.11021,40,6,1)

 +176     ;;=.1

 +177     ;;^DIST(.404,.11021,40,6,2)

 +178     ;;=5,20^1^5,2

 +179     ;;^DIST(.404,.11021,40,7,0)

 +180     ;;=7^!M^1

 +181     ;;^DIST(.404,.11021,40,7,.1)

 +182     ;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,56)_"]",1:"(empty)")

 +183     ;;^DIST(.404,.11021,40,7,2)

 +184     ;;=^^5,23

 +185     ;;^DIST(.404,.11021,40,8,0)

 +186     ;;=8^Set Logic^3

 +187     ;;^DIST(.404,.11021,40,8,1)

 +188     ;;=1.1

 +189     ;;^DIST(.404,.11021,40,8,2)

 +190     ;;=14,13^67^14,2

 +191     ;;^DIST(.404,.11021,40,8,4)

 +192     ;;=^^^2

 +193     ;;^DIST(.404,.11021,40,8,11)

 +194     ;;=D HLP^DDSUTL(X)

 +195     ;;^DIST(.404,.11021,40,9,0)

 +196     ;;=9^Kill Logic^3

 +197     ;;^DIST(.404,.11021,40,9,1)

 +198     ;;=2.1

 +199     ;;^DIST(.404,.11021,40,9,2)

 +200     ;;=15,13^67^15,1

 +201     ;;^DIST(.404,.11021,40,9,4)

 +202     ;;=^^^2

 +203     ;;^DIST(.404,.11021,40,9,11)

 +204     ;;=D HLP^DDSUTL(X)

 +205     ;;^DIST(.404,.11022,0)

 +206     ;;=DIKC EDIT UI HDR^.11

 +207     ;;^DIST(.404,.11022,40,0)

 +208     ;;=^.4044I^4^4

 +209     ;;^DIST(.404,.11022,40,1,0)

 +210     ;;=1^Number^4

 +211     ;;^DIST(.404,.11022,40,1,2)

 +212     ;;=1,9^15^1,1

 +213     ;;^DIST(.404,.11022,40,1,30)

 +214     ;;=S Y=DA

 +215     ;;^DIST(.404,.11022,40,2,0)

 +216     ;;=2^EDIT A UNIQUENESS INDEX^1

 +217     ;;^DIST(.404,.11022,40,2,2)

 +218     ;;=^^1,30

 +219     ;;^DIST(.404,.11022,40,3,0)

 +220     ;;=3^Page 1 of 1^1

 +221     ;;^DIST(.404,.11022,40,3,2)

 +222     ;;=^^1,69

 +223     ;;^DIST(.404,.11022,40,4,0)

 +224     ;;=4^-------------------------------------------------------------------------------^1

 +225     ;;^DIST(.404,.11022,40,4,2)

 +226     ;;=^^2,1

 +227     ;;^DIST(.404,.11023,0)

 +228     ;;=DIKC EDIT UI CRV^.114

 +229     ;;^DIST(.404,.11023,40,0)

 +230     ;;=^.4044I^4^4

 +231     ;;^DIST(.404,.11023,40,1,0)

 +232     ;;=1^^3^^ORDER

 +233     ;;^DIST(.404,.11023,40,1,1)

 +234     ;;=.01

 +235     ;;^DIST(.404,.11023,40,1,2)

 +236     ;;=1,3^3

 +237     ;;^DIST(.404,.11023,40,1,4)

 +238     ;;=^^^2

 +239     ;;^DIST(.404,.11023,40,1,14)

 +240     ;;=I X="" D HLP^DDSUTL($C(7)_"Deletion not allowed.") S DDSERROR=1

 +241     ;;^DIST(.404,.11023,40,2,0)

 +242     ;;=2^^3^^SUBSCRIPT

 +243     ;;^DIST(.404,.11023,40,2,1)

 +244     ;;=.5

 +245     ;;^DIST(.404,.11023,40,2,2)

 +246     ;;=1,12^3

 +247     ;;^DIST(.404,.11023,40,2,4)

 +248     ;;=^^^1

 +249     ;;^DIST(.404,.11023,40,3,0)

 +250     ;;=3^^3^^LENGTH

DINIT0FB.m