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
Q
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 Apr 09, 2024@21:53:45 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
