Routine: DINIT0F9

DINIT0F9 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;29JULY2014

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

 ;TAG 'ENTRY+172' CHANGED TO REMEMBER LANGUAGE OF PRINT TEMPLATE HEADER

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

ENTRY ;

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

 ;;=6,23^54^6,15

 ;;^DIST(.404,.00116,40,4,3)

 ;;=!M

 ;;^DIST(.404,.00116,40,4,3.1)

 ;;=S Y=$G(^DD(DICATTA,DICATTF,10))

 ;;^DIST(.404,.00116,40,4,20)

 ;;=DD^^0,10

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

 ;;=.5^ ^4^^MULTIPLE FIELD NUMBER

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

 ;;=1,2^77^1,1^1

 ;;^DIST(.404,.00116,40,5,30)

 ;;=D NUMBER^DICATTD

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

 ;;=DICATTMUL^1

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

 ;;=^.4044I^2^2

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

 ;;=1^SHOULD USER SEE AN "ADDING A NEW ENTRY" MESSAGE^2

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

 ;;=2,52^3^2,3

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

 ;;=!M

 ;;^DIST(.404,.00117,40,1,3.1)

 ;;=D LAYGODEF^DICATTDE

 ;;^DIST(.404,.00117,40,1,20)

 ;;=Y

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

 ;;=2^HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANOTHER^2

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

 ;;=3,72^3^3,3

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

 ;;=!M

 ;;^DIST(.404,.00117,40,2,3.1)

 ;;=S Y=$E("NY",$G(DICATT2)["M"+1)

 ;;^DIST(.404,.00117,40,2,20)

 ;;=Y

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

 ;;=DICATT SCREEN^1

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

 ;;=^.4044I^3^3

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

 ;;=65^SHOULD ENTRIES BE SCREENED^2

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

 ;;=2,31^3^2,3

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

 ;;=!M

 ;;^DIST(.404,.00118,40,1,3.1)

 ;;=S Y=$E("NY",$G(^DD(DICATTA,DICATTF,12.1))]""+1)

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

 ;;=D UNED^DDSUTL(66,,,'X),UNED^DDSUTL(67,,,'X) I 'X D PUT^DDSVALF(66,,,""),PUT^DDSVALF(67,,,"")

 ;;^DIST(.404,.00118,40,1,20)

 ;;=Y

 ;;^DIST(.404,.00118,40,1,21,0)

 ;;=^^2^2^2981215

 ;;^DIST(.404,.00118,40,1,21,1,0)

 ;;=Answer YES if there is a condition which should prohibit

 ;;^DIST(.404,.00118,40,1,21,2,0)

 ;;=the selection of all choices at all times.

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

 ;;=66^MUMPS CODE THAT WILL SET DIC("S")^2

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

 ;;=4,3^72^3,3

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

 ;;=!M

 ;;^DIST(.404,.00118,40,2,3.1)

 ;;=S Y=$G(^DD(DICATTA,DICATTF,12.1))

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

 ;;=D REQ^DDSUTL(67,,,X]"")

 ;;^DIST(.404,.00118,40,2,20)

 ;;=F^U

 ;;^DIST(.404,.00118,40,2,21,0)

 ;;=^^3^3^2981215

 ;;^DIST(.404,.00118,40,2,21,1,0)

 ;;=Enter a MUMPS statement which begins with 'S DIC("S")=' and contains code

 ;;^DIST(.404,.00118,40,2,21,2,0)

 ;;=to set $T.  When the DIC("S") is executed, the variable 'Y' holds internal

 ;;^DIST(.404,.00118,40,2,21,3,0)

 ;;=code being screened.

 ;;^DIST(.404,.00118,40,2,22)

 ;;=D ^DIM

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

 ;;=67^EXPLANATION OF SCREEN^2

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

 ;;=6,3^72^5,3

 ;;^DIST(.404,.00118,40,3,3)

 ;;=!M

 ;;^DIST(.404,.00118,40,3,3.1)

 ;;=S Y=$G(^DD(DICATTA,DICATTF,12))

 ;;^DIST(.404,.00118,40,3,20)

 ;;=F^^1:245

 ;;^DIST(.404,.00118,40,3,22)

 ;;=K:X?.P X

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

 ;;=DIPTED^.4

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

 ;;=^.4044I^14^12

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

 ;;=1^TEMPLATE NAME^3

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

 ;;=.01

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

 ;;=1,16^30^1,1

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

 ;;=3^DATE LAST MODIFIED^3

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

 ;;=2

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

 ;;=4,28^17^4,8

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

 ;;=^^^1

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

 ;;=4^DATE LAST USED^3

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

 ;;=7

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

 ;;=5,28^11^5,12

 ;;^DIST(.404,.10011,40,3,4)

 ;;=^^^1

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

 ;;=6^READ ACCESS^3

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

 ;;=3

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

 ;;=6,28^13^6,15

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

 ;;=7^WRITE ACCESS^3

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

 ;;=6

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

 ;;=7,28^13^7,14

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

 ;;=8^USER #^3

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

 ;;=5

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

 ;;=8,28^9^8,20

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

 ;;=9^DESCRIPTION...^3

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

 ;;=10

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

 ;;=10,28^1^10,13^1

 ;;^DIST(.404,.10011,40,21409,0)

 ;;=9.5^!M^^3

 ;;^DIST(.404,.10011,40,21409,.1)

 ;;=S Y=$J("CANONIC FOR FILE "_$P(^DIPT(DA,0),U,4)_":",40)

 ;;^DIST(.404,.10011,40,21409,1)

 ;;=21409

 ;;^DIST(.404,.10011,40,21409,2)

 ;;=10,71^3^10,30^1

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

 ;;=11^SUB-HEADER SUPPRESSED^3

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

 ;;=707

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

 ;;=14,28^3^14,5

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

 ;;=2^TEMPLATE TYPE^3

 ;;^DIST(.404,.10011,40,10,1)

 ;;=8

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

 ;;=1,71^9^1,56

 ;;^DIST(.404,.10011,40,10,4)

 ;;=^^^1

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

 ;;=10^HEADER^2

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

 ;;=13,4^76^12,4

 ;;^DIST(.404,.10011,40,12,3)

 ;;=!M

 ;;^DIST(.404,.10011,40,12,3.1)

 ;;=S Y=$G(^DIPT(DA,"H"))

 ;;^DIST(.404,.10011,40,12,20)

 ;;=F^^F

 ;;^DIST(.404,.10011,40,12,22)

 ;;=I '$$DHD^DIP3(X,+$P($G(^DIPT(DA,0)),U,4),0) K X

 ;;^DIST(.404,.10011,40,12,23)

 ;;=S ^DIPT(DA,"H")=$S(DDSEXT="":"@",1:DDSEXT) I $G(DUZ("LANG")) S ^("HLANG")=DUZ("LANG")

 ;;^DIST(.404,.10011,40,13,0)

 ;;=5^^4

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

 ;;=2,20^44

 ;;^DIST(.404,.10011,40,13,30)

 ;;=S Y=$G(^DIPT(DA,"ROU")),Y=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")

 ;;^DIST(.404,.10011,40,14,0)

 ;;=12^(Print Fields on Next Page...)^1^^EDIT FIELD

 ;;^DIST(.404,.10011,40,14,2)

 ;;=^^16,20

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

 ;;=DIPTED2^.4

 ;;^DIST(.404,.10012,11)

 ;;=D EDIT^DIPTED(DA)

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

 ;;=^.4044I^1^1

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

 ;;=1^ ^1

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

 ;;=^^1,1

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

 ;;=DIKC EDIT MAIN^.11

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

 ;;=^.4044I^14^11

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

 ;;=1^File^3

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

 ;;=.01

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

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

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

 ;;=D BLDLOG^DIKCFORM(DA)

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

 ;;=D VALFILE^DIKCFORM

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

 ;;=3^Index Name^3

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

 ;;=.02

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

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

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

 ;;=D NAMECHG^DIKCFORM

 ;;^DIST(.404,.110101,40,2,14)

 ;;=D NAMEVAL^DIKCFORM

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

 ;;=5^Short Description^3

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

 ;;=.11

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

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

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

 ;;=6^Description (wp)^3

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

 ;;=.1

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

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

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

 ;;=8^Type^3

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

 ;;=.2

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

 ;;=7,15^8^7,9

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

 ;;=D TYPECHG^DIKCFORM

 ;;^DIST(.404,.110101,40,5,14)

 ;;=D TYPEVAL^DIKCFORM

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

 ;;=10^Execution^3

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

 ;;=.4

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

 ;;=10,15^6^10,4

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

 ;;=9^Activity^3

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

 ;;=.41

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

 ;;=9,15^5^9,5

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

 ;;=11^Use^3

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

 ;;=.42

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

 ;;=12,15^16^12,10

 ;;^DIST(.404,.110101,40,9,14)

 ;;=D USEVAL^DIKCFORM

 ;;^DIST(.404,.110101,40,666,0)

 ;;=666^Do Not ReIndex^3

 ;;^DIST(.404,.110101,40,666,1)

 ;;=666

 ;;^DIST(.404,.110101,40,666,2)

 ;;=14,26^22^14,10

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F9   7766     printed  Feb 19, 2025@00:16:32                                                                                                                                                                                                    Page 2

DINIT0F9  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;29JULY2014

 +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       ;TAG 'ENTRY+172' CHANGED TO REMEMBER LANGUAGE OF PRINT TEMPLATE HEADER

 +8        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               if X=""

                   GOTO ^DINIT0FA

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

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

               SET @X=Y

 +9        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.00116,40,4,2)

 +2       ;;=6,23^54^6,15

 +3       ;;^DIST(.404,.00116,40,4,3)

 +4       ;;=!M

 +5       ;;^DIST(.404,.00116,40,4,3.1)

 +6       ;;=S Y=$G(^DD(DICATTA,DICATTF,10))

 +7       ;;^DIST(.404,.00116,40,4,20)

 +8       ;;=DD^^0,10

 +9       ;;^DIST(.404,.00116,40,5,0)

 +10      ;;=.5^ ^4^^MULTIPLE FIELD NUMBER

 +11      ;;^DIST(.404,.00116,40,5,2)

 +12      ;;=1,2^77^1,1^1

 +13      ;;^DIST(.404,.00116,40,5,30)

 +14      ;;=D NUMBER^DICATTD

 +15      ;;^DIST(.404,.00117,0)

 +16      ;;=DICATTMUL^1

 +17      ;;^DIST(.404,.00117,40,0)

 +18      ;;=^.4044I^2^2

 +19      ;;^DIST(.404,.00117,40,1,0)

 +20      ;;=1^SHOULD USER SEE AN "ADDING A NEW ENTRY" MESSAGE^2

 +21      ;;^DIST(.404,.00117,40,1,2)

 +22      ;;=2,52^3^2,3

 +23      ;;^DIST(.404,.00117,40,1,3)

 +24      ;;=!M

 +25      ;;^DIST(.404,.00117,40,1,3.1)

 +26      ;;=D LAYGODEF^DICATTDE

 +27      ;;^DIST(.404,.00117,40,1,20)

 +28      ;;=Y

 +29      ;;^DIST(.404,.00117,40,2,0)

 +30      ;;=2^HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANOTHER^2

 +31      ;;^DIST(.404,.00117,40,2,2)

 +32      ;;=3,72^3^3,3

 +33      ;;^DIST(.404,.00117,40,2,3)

 +34      ;;=!M

 +35      ;;^DIST(.404,.00117,40,2,3.1)

 +36      ;;=S Y=$E("NY",$G(DICATT2)["M"+1)

 +37      ;;^DIST(.404,.00117,40,2,20)

 +38      ;;=Y

 +39      ;;^DIST(.404,.00118,0)

 +40      ;;=DICATT SCREEN^1

 +41      ;;^DIST(.404,.00118,40,0)

 +42      ;;=^.4044I^3^3

 +43      ;;^DIST(.404,.00118,40,1,0)

 +44      ;;=65^SHOULD ENTRIES BE SCREENED^2

 +45      ;;^DIST(.404,.00118,40,1,2)

 +46      ;;=2,31^3^2,3

 +47      ;;^DIST(.404,.00118,40,1,3)

 +48      ;;=!M

 +49      ;;^DIST(.404,.00118,40,1,3.1)

 +50      ;;=S Y=$E("NY",$G(^DD(DICATTA,DICATTF,12.1))]""+1)

 +51      ;;^DIST(.404,.00118,40,1,12)

 +52      ;;=D UNED^DDSUTL(66,,,'X),UNED^DDSUTL(67,,,'X) I 'X D PUT^DDSVALF(66,,,""),PUT^DDSVALF(67,,,"")

 +53      ;;^DIST(.404,.00118,40,1,20)

 +54      ;;=Y

 +55      ;;^DIST(.404,.00118,40,1,21,0)

 +56      ;;=^^2^2^2981215

 +57      ;;^DIST(.404,.00118,40,1,21,1,0)

 +58      ;;=Answer YES if there is a condition which should prohibit

 +59      ;;^DIST(.404,.00118,40,1,21,2,0)

 +60      ;;=the selection of all choices at all times.

 +61      ;;^DIST(.404,.00118,40,2,0)

 +62      ;;=66^MUMPS CODE THAT WILL SET DIC("S")^2

 +63      ;;^DIST(.404,.00118,40,2,2)

 +64      ;;=4,3^72^3,3

 +65      ;;^DIST(.404,.00118,40,2,3)

 +66      ;;=!M

 +67      ;;^DIST(.404,.00118,40,2,3.1)

 +68      ;;=S Y=$G(^DD(DICATTA,DICATTF,12.1))

 +69      ;;^DIST(.404,.00118,40,2,10)

 +70      ;;=D REQ^DDSUTL(67,,,X]"")

 +71      ;;^DIST(.404,.00118,40,2,20)

 +72      ;;=F^U

 +73      ;;^DIST(.404,.00118,40,2,21,0)

 +74      ;;=^^3^3^2981215

 +75      ;;^DIST(.404,.00118,40,2,21,1,0)

 +76      ;;=Enter a MUMPS statement which begins with 'S DIC("S")=' and contains code

 +77      ;;^DIST(.404,.00118,40,2,21,2,0)

 +78      ;;=to set $T.  When the DIC("S") is executed, the variable 'Y' holds internal

 +79      ;;^DIST(.404,.00118,40,2,21,3,0)

 +80      ;;=code being screened.

 +81      ;;^DIST(.404,.00118,40,2,22)

 +82      ;;=D ^DIM

 +83      ;;^DIST(.404,.00118,40,3,0)

 +84      ;;=67^EXPLANATION OF SCREEN^2

 +85      ;;^DIST(.404,.00118,40,3,2)

 +86      ;;=6,3^72^5,3

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

 +88      ;;=!M

 +89      ;;^DIST(.404,.00118,40,3,3.1)

 +90      ;;=S Y=$G(^DD(DICATTA,DICATTF,12))

 +91      ;;^DIST(.404,.00118,40,3,20)

 +92      ;;=F^^1:245

 +93      ;;^DIST(.404,.00118,40,3,22)

 +94      ;;=K:X?.P X

 +95      ;;^DIST(.404,.10011,0)

 +96      ;;=DIPTED^.4

 +97      ;;^DIST(.404,.10011,40,0)

 +98      ;;=^.4044I^14^12

 +99      ;;^DIST(.404,.10011,40,1,0)

 +100     ;;=1^TEMPLATE NAME^3

 +101     ;;^DIST(.404,.10011,40,1,1)

 +102     ;;=.01

 +103     ;;^DIST(.404,.10011,40,1,2)

 +104     ;;=1,16^30^1,1

 +105     ;;^DIST(.404,.10011,40,2,0)

 +106     ;;=3^DATE LAST MODIFIED^3

 +107     ;;^DIST(.404,.10011,40,2,1)

 +108     ;;=2

 +109     ;;^DIST(.404,.10011,40,2,2)

 +110     ;;=4,28^17^4,8

 +111     ;;^DIST(.404,.10011,40,2,4)

 +112     ;;=^^^1

 +113     ;;^DIST(.404,.10011,40,3,0)

 +114     ;;=4^DATE LAST USED^3

 +115     ;;^DIST(.404,.10011,40,3,1)

 +116     ;;=7

 +117     ;;^DIST(.404,.10011,40,3,2)

 +118     ;;=5,28^11^5,12

 +119     ;;^DIST(.404,.10011,40,3,4)

 +120     ;;=^^^1

 +121     ;;^DIST(.404,.10011,40,4,0)

 +122     ;;=6^READ ACCESS^3

 +123     ;;^DIST(.404,.10011,40,4,1)

 +124     ;;=3

 +125     ;;^DIST(.404,.10011,40,4,2)

 +126     ;;=6,28^13^6,15

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

 +128     ;;=7^WRITE ACCESS^3

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

 +130     ;;=6

 +131     ;;^DIST(.404,.10011,40,5,2)

 +132     ;;=7,28^13^7,14

 +133     ;;^DIST(.404,.10011,40,6,0)

 +134     ;;=8^USER #^3

 +135     ;;^DIST(.404,.10011,40,6,1)

 +136     ;;=5

 +137     ;;^DIST(.404,.10011,40,6,2)

 +138     ;;=8,28^9^8,20

 +139     ;;^DIST(.404,.10011,40,7,0)

 +140     ;;=9^DESCRIPTION...^3

 +141     ;;^DIST(.404,.10011,40,7,1)

 +142     ;;=10

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

 +144     ;;=10,28^1^10,13^1

 +145     ;;^DIST(.404,.10011,40,21409,0)

 +146     ;;=9.5^!M^^3

 +147     ;;^DIST(.404,.10011,40,21409,.1)

 +148     ;;=S Y=$J("CANONIC FOR FILE "_$P(^DIPT(DA,0),U,4)_":",40)

 +149     ;;^DIST(.404,.10011,40,21409,1)

 +150     ;;=21409

 +151     ;;^DIST(.404,.10011,40,21409,2)

 +152     ;;=10,71^3^10,30^1

 +153     ;;^DIST(.404,.10011,40,8,0)

 +154     ;;=11^SUB-HEADER SUPPRESSED^3

 +155     ;;^DIST(.404,.10011,40,8,1)

 +156     ;;=707

 +157     ;;^DIST(.404,.10011,40,8,2)

 +158     ;;=14,28^3^14,5

 +159     ;;^DIST(.404,.10011,40,10,0)

 +160     ;;=2^TEMPLATE TYPE^3

 +161     ;;^DIST(.404,.10011,40,10,1)

 +162     ;;=8

 +163     ;;^DIST(.404,.10011,40,10,2)

 +164     ;;=1,71^9^1,56

 +165     ;;^DIST(.404,.10011,40,10,4)

 +166     ;;=^^^1

 +167     ;;^DIST(.404,.10011,40,12,0)

 +168     ;;=10^HEADER^2

 +169     ;;^DIST(.404,.10011,40,12,2)

 +170     ;;=13,4^76^12,4

 +171     ;;^DIST(.404,.10011,40,12,3)

 +172     ;;=!M

 +173     ;;^DIST(.404,.10011,40,12,3.1)

 +174     ;;=S Y=$G(^DIPT(DA,"H"))

 +175     ;;^DIST(.404,.10011,40,12,20)

 +176     ;;=F^^F

 +177     ;;^DIST(.404,.10011,40,12,22)

 +178     ;;=I '$$DHD^DIP3(X,+$P($G(^DIPT(DA,0)),U,4),0) K X

 +179     ;;^DIST(.404,.10011,40,12,23)

 +180     ;;=S ^DIPT(DA,"H")=$S(DDSEXT="":"@",1:DDSEXT) I $G(DUZ("LANG")) S ^("HLANG")=DUZ("LANG")

 +181     ;;^DIST(.404,.10011,40,13,0)

 +182     ;;=5^^4

 +183     ;;^DIST(.404,.10011,40,13,2)

 +184     ;;=2,20^44

 +185     ;;^DIST(.404,.10011,40,13,30)

 +186     ;;=S Y=$G(^DIPT(DA,"ROU")),Y=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")

 +187     ;;^DIST(.404,.10011,40,14,0)

 +188     ;;=12^(Print Fields on Next Page...)^1^^EDIT FIELD

 +189     ;;^DIST(.404,.10011,40,14,2)

 +190     ;;=^^16,20

 +191     ;;^DIST(.404,.10012,0)

 +192     ;;=DIPTED2^.4

 +193     ;;^DIST(.404,.10012,11)

 +194     ;;=D EDIT^DIPTED(DA)

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

 +196     ;;=^.4044I^1^1

 +197     ;;^DIST(.404,.10012,40,1,0)

 +198     ;;=1^ ^1

 +199     ;;^DIST(.404,.10012,40,1,2)

 +200     ;;=^^1,1

 +201     ;;^DIST(.404,.110101,0)

 +202     ;;=DIKC EDIT MAIN^.11

 +203     ;;^DIST(.404,.110101,40,0)

 +204     ;;=^.4044I^14^11

 +205     ;;^DIST(.404,.110101,40,1,0)

 +206     ;;=1^File^3

 +207     ;;^DIST(.404,.110101,40,1,1)

 +208     ;;=.01

 +209     ;;^DIST(.404,.110101,40,1,2)

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

 +211     ;;^DIST(.404,.110101,40,1,13)

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

 +213     ;;^DIST(.404,.110101,40,1,14)

 +214     ;;=D VALFILE^DIKCFORM

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

 +216     ;;=3^Index Name^3

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

 +218     ;;=.02

 +219     ;;^DIST(.404,.110101,40,2,2)

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

 +221     ;;^DIST(.404,.110101,40,2,13)

 +222     ;;=D NAMECHG^DIKCFORM

 +223     ;;^DIST(.404,.110101,40,2,14)

 +224     ;;=D NAMEVAL^DIKCFORM

 +225     ;;^DIST(.404,.110101,40,3,0)

 +226     ;;=5^Short Description^3

 +227     ;;^DIST(.404,.110101,40,3,1)

 +228     ;;=.11

 +229     ;;^DIST(.404,.110101,40,3,2)

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

 +231     ;;^DIST(.404,.110101,40,4,0)

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

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

 +234     ;;=.1

 +235     ;;^DIST(.404,.110101,40,4,2)

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

 +237     ;;^DIST(.404,.110101,40,5,0)

 +238     ;;=8^Type^3

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

 +240     ;;=.2

 +241     ;;^DIST(.404,.110101,40,5,2)

 +242     ;;=7,15^8^7,9

 +243     ;;^DIST(.404,.110101,40,5,13)

 +244     ;;=D TYPECHG^DIKCFORM

 +245     ;;^DIST(.404,.110101,40,5,14)

 +246     ;;=D TYPEVAL^DIKCFORM

 +247     ;;^DIST(.404,.110101,40,7,0)

 +248     ;;=10^Execution^3

 +249     ;;^DIST(.404,.110101,40,7,1)

 +250     ;;=.4

 +251     ;;^DIST(.404,.110101,40,7,2)

 +252     ;;=10,15^6^10,4

 +253     ;;^DIST(.404,.110101,40,8,0)

 +254     ;;=9^Activity^3

 +255     ;;^DIST(.404,.110101,40,8,1)

 +256     ;;=.41

 +257     ;;^DIST(.404,.110101,40,8,2)

 +258     ;;=9,15^5^9,5

 +259     ;;^DIST(.404,.110101,40,9,0)

 +260     ;;=11^Use^3

 +261     ;;^DIST(.404,.110101,40,9,1)

 +262     ;;=.42

 +263     ;;^DIST(.404,.110101,40,9,2)

 +264     ;;=12,15^16^12,10

 +265     ;;^DIST(.404,.110101,40,9,14)

 +266     ;;=D USEVAL^DIKCFORM

 +267     ;;^DIST(.404,.110101,40,666,0)

 +268     ;;=666^Do Not ReIndex^3

 +269     ;;^DIST(.404,.110101,40,666,1)

 +270     ;;=666

 +271     ;;^DIST(.404,.110101,40,666,2)

 +272     ;;=14,26^22^14,10

DINIT0F9.m