DINIT0F1 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;2:11 PM 11 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="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.403,.001,40,18,0)
;;=8^^10,3^^^1^17,77
;;^DIST(.403,.001,40,18,1)
;;=Page 8
;;^DIST(.403,.001,40,18,11)
;;=D PRE8^DICATTD8
;;^DIST(.403,.001,40,18,12)
;;=D POST8^DICATTD8
;;^DIST(.403,.001,40,18,40,0)
;;=^.4032IP^.00115^1
;;^DIST(.403,.001,40,18,40,.00115,0)
;;=.00115^1^2,3^e
;;^DIST(.403,.001,40,19,0)
;;=10^^1,1
;;^DIST(.403,.001,40,19,1)
;;=Page 10
;;^DIST(.403,.001,40,19,40,0)
;;=^.4032IP^.00116^1
;;^DIST(.403,.001,40,19,40,.00116,0)
;;=.00116^1^1,1^e
;;^DIST(.403,.001,40,20,0)
;;=5^^14,1^^^1^17,78
;;^DIST(.403,.001,40,20,1)
;;=Page 5
;;^DIST(.403,.001,40,20,12)
;;=I DICATT4="",DUZ(0)="@" S DDSSTACK=4
;;^DIST(.403,.001,40,20,40,0)
;;=^.4032IP^.00117^1
;;^DIST(.403,.001,40,20,40,.00117,0)
;;=.00117^1^1,1^e
;;^DIST(.403,.001,40,21,0)
;;=6^^7,3^^^1^13,77
;;^DIST(.403,.001,40,21,1)
;;=Page 6
;;^DIST(.403,.001,40,21,40,0)
;;=^.4032IP^.00118^1
;;^DIST(.403,.001,40,21,40,.00118,0)
;;=.00118^1^1,1^e
;;^DIST(.403,.1001,0)
;;=DIPTED^@^^^2980611.1708^2990303.0831^^.4^0^0^1
;;^DIST(.403,.1001,14)
;;=D SAVEFLDS^DIPTED(DA)
;;^DIST(.403,.1001,40,0)
;;=^.4031I^2^2
;;^DIST(.403,.1001,40,1,0)
;;=1^^1,1^2
;;^DIST(.403,.1001,40,1,1)
;;=Page 1
;;^DIST(.403,.1001,40,1,40,0)
;;=^.4032IP^.10011^1
;;^DIST(.403,.1001,40,1,40,.10011,0)
;;=.10011^1^1,1^e
;;^DIST(.403,.1001,40,2,0)
;;=2^^1,1^^1
;;^DIST(.403,.1001,40,2,1)
;;=Page 2
;;^DIST(.403,.1001,40,2,40,0)
;;=^.4032IP^.10012^1
;;^DIST(.403,.1001,40,2,40,.10012,0)
;;=.10012^1^1,1^e
;;^DIST(.403,.1101,0)
;;=DIKC EDIT^^^^2970612.1058^3000110.1335^^.11^0^0^1
;;^DIST(.403,.1101,14)
;;=D POSTSV^DIKCFORM
;;^DIST(.403,.1101,20)
;;=D FORMDV^DIKCFORM
;;^DIST(.403,.1101,40,0)
;;=^.4031I^2^4
;;^DIST(.403,.1101,40,1,0)
;;=1^^1,1^2^2
;;^DIST(.403,.1101,40,1,1)
;;=Page 1
;;^DIST(.403,.1101,40,1,40,0)
;;=^.4032IP^.110101^2
;;^DIST(.403,.1101,40,1,40,.110101,0)
;;=.110101^2^4,1^e
;;^DIST(.403,.1101,40,1,40,.110102,0)
;;=.110102^1^1,1^d
;;^DIST(.403,.1101,40,2,0)
;;=2^^1,1^1^1
;;^DIST(.403,.1101,40,2,1)
;;=Page 2
;;^DIST(.403,.1101,40,2,40,0)
;;=^.4032IP^.110103^4
;;^DIST(.403,.1101,40,2,40,.110103,0)
;;=.110103^4^10,1^e
;;^DIST(.403,.1101,40,2,40,.110104,0)
;;=.110104^3^6,2^e
;;^DIST(.403,.1101,40,2,40,.110104,2)
;;=5^^f
;;^DIST(.403,.1101,40,2,40,.110105,0)
;;=.110105^2^3,1^d
;;^DIST(.403,.1101,40,2,40,.110106,0)
;;=.110106^1^1,1^d
;;^DIST(.403,.1101,40,3,0)
;;=2.1^^6,1^^^1^17,79
;;^DIST(.403,.1101,40,3,1)
;;=Page 2.1
;;^DIST(.403,.1101,40,3,11)
;;=S DIKCPG21=1
;;^DIST(.403,.1101,40,3,12)
;;=K DIKCPG21
;;^DIST(.403,.1101,40,3,40,0)
;;=^.4032IP^.110107^1
;;^DIST(.403,.1101,40,3,40,.110107,0)
;;=.110107^1^1,1^e
;;^DIST(.403,.1101,40,3,40,.110107,11)
;;=K DIKCCRV D BKPRE21^DIKCFORM
;;^DIST(.403,.1101,40,3,40,.110107,12)
;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
;;^DIST(.403,.1101,40,4,0)
;;=2.2^^10,1^^^1^17,79
;;^DIST(.403,.1101,40,4,1)
;;=Page 2.2
;;^DIST(.403,.1101,40,4,40,0)
;;=^.4032IP^.110108^1
;;^DIST(.403,.1101,40,4,40,.110108,0)
;;=.110108^1^1,1^e
;;^DIST(.403,.1101,40,4,40,.110108,11)
;;=K DIKCCRV
;;^DIST(.403,.1101,40,4,40,.110108,12)
;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
;;^DIST(.403,.1102,0)
;;=DIKC EDIT UI^^^^2970612.1058^2981229.1134^^.11^0^0^1
;;^DIST(.403,.1102,14)
;;=D POSTSV^DIKCFORM
;;^DIST(.403,.1102,40,0)
;;=^.4031I^2^2
;;^DIST(.403,.1102,40,1,0)
;;=1^^1,1
;;^DIST(.403,.1102,40,1,1)
;;=Page 1
;;^DIST(.403,.1102,40,1,40,0)
;;=^.4032IP^.11021^2
;;^DIST(.403,.1102,40,1,40,.11021,0)
;;=.11021^2^3,1^e
;;^DIST(.403,.1102,40,1,40,.11022,0)
;;=.11022^1^1,1^d
;;^DIST(.403,.1102,40,1,40,.11023,0)
;;=.11023^4^11,3^e
;;^DIST(.403,.1102,40,1,40,.11023,2)
;;=4^^f^1
;;^DIST(.403,.1102,40,1,40,.11024,0)
;;=.11024^3^9,2^e
;;^DIST(.403,.1102,40,2,0)
;;=1.1^^7,1^^^1^15,79
;;^DIST(.403,.1102,40,2,1)
;;=Page 1.1^ORDER,4,1
;;^DIST(.403,.1102,40,2,40,0)
;;=^.4032IP^.11025^1
;;^DIST(.403,.1102,40,2,40,.11025,0)
;;=.11025^1^1,1^e
;;^DIST(.403,.3101,0)
;;=DIKK EDIT^^^^2970721.144^2990311.1203^^.31^0^0^1
;;^DIST(.403,.3101,20)
;;=D FORMDV^DIKKFORM
;;^DIST(.403,.3101,40,0)
;;=^.4031I^3^3
;;^DIST(.403,.3101,40,1,0)
;;=1^^1,1^2
;;^DIST(.403,.3101,40,1,1)
;;=Page 1
;;^DIST(.403,.3101,40,1,40,0)
;;=^.4032IP^.310101^6
;;^DIST(.403,.3101,40,1,40,.310101,0)
;;=.310101^1^1,1^d
;;^DIST(.403,.3101,40,1,40,.310102,0)
;;=.310102^2^3,1^e
;;^DIST(.403,.3101,40,1,40,.310103,0)
;;=.310103^3^5,3^d
;;^DIST(.403,.3101,40,1,40,.310104,0)
;;=.310104^4^9,3^e
;;^DIST(.403,.3101,40,1,40,.310104,2)
;;=5
;;^DIST(.403,.3101,40,1,40,.310105,0)
;;=.310105^5^15,1^d
;;^DIST(.403,.3101,40,1,40,.310105,1)
;;=UNIQUENESS INDEX
;;^DIST(.403,.3101,40,1,40,.310106,0)
;;=.310106^6^15,1^e
;;^DIST(.403,.3101,40,2,0)
;;=1.1^^1,1^^^1^17,79
;;^DIST(.403,.3101,40,2,1)
;;=Page 1.1^DETAILS,DIKK EDIT UNIQUENESS INDEX,1
;;^DIST(.403,.3101,40,2,40,0)
;;=^.4032IP^.310107^4
;;^DIST(.403,.3101,40,2,40,.310107,0)
;;=.310107^1^1,1^d
;;^DIST(.403,.3101,40,2,40,.310107,1)
;;=UNIQUENESS INDEX
;;^DIST(.403,.3101,40,2,40,.310108,0)
;;=.310108^2^2,3^e
;;^DIST(.403,.3101,40,2,40,.310108,1)
;;=UNIQUENESS INDEX
;;^DIST(.403,.3101,40,2,40,.310109,0)
;;=.310109^3^8,3^d
;;^DIST(.403,.3101,40,2,40,.31011,0)
;;=.31011^4^10,3^e
;;^DIST(.403,.3101,40,2,40,.31011,1)
;;=UNIQUENESS INDEX
;;^DIST(.403,.3101,40,2,40,.31011,2)
;;=4^^f^1
;;^DIST(.403,.3101,40,3,0)
;;=1.2^^8,2^^^1^16,78
;;^DIST(.403,.3101,40,3,1)
;;=Page 1.2^ORDER,DIKK EDIT UI FIELD REP,1.1
;;^DIST(.403,.3101,40,3,40,0)
;;=^.4032IP^.310111^1
;;^DIST(.403,.3101,40,3,40,.310111,0)
;;=.310111^1^1,1^e
;;^DIST(.403,.3101,40,3,40,.310111,11)
;;=K DIKKCRV
;;^DIST(.403,.3101,40,3,40,.310111,12)
;;=I $D(DIKKCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKKCRV
;;^DIST(.403,.40001,0)
;;=DIBTED^@^^^2980904.1357^2990130.0900^^.401^0^0^1
;;^DIST(.403,.40001,12)
;;=D SAVEFLDS^DIBTED(DA)
;;^DIST(.403,.40001,40,0)
;;=^.4031I^2^2
;;^DIST(.403,.40001,40,1,0)
;;=1^^1,1^2
;;^DIST(.403,.40001,40,1,1)
;;=Page 1
;;^DIST(.403,.40001,40,1,40,0)
;;=^.4032IP^.400011^1
;;^DIST(.403,.40001,40,1,40,.400011,0)
;;=.400011^1^1,1^e
;;^DIST(.403,.40001,40,2,0)
;;=2^^1,1^^1
;;^DIST(.403,.40001,40,2,1)
;;=Page 2
;;^DIST(.403,.40001,40,2,40,0)
;;=^.4032IP^.400012^1
;;^DIST(.403,.40001,40,2,40,.400012,0)
;;=.400012^1^1,1^e
;;^DIST(.403,.40101,0)
;;=DIETED^@^^^2980801.074^2990303.0830^^.402^0^0^1
;;^DIST(.403,.40101,14)
;;=D SAVEFLDS^DIETED(DA)
;;^DIST(.403,.40101,40,0)
;;=^.4031I^2^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F1 7249 printed Sep 23, 2025@20:26:16 Page 2
DINIT0F1 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;2:11 PM 11 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 ^DINIT0F2
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.403,.001,40,18,0)
+2 ;;=8^^10,3^^^1^17,77
+3 ;;^DIST(.403,.001,40,18,1)
+4 ;;=Page 8
+5 ;;^DIST(.403,.001,40,18,11)
+6 ;;=D PRE8^DICATTD8
+7 ;;^DIST(.403,.001,40,18,12)
+8 ;;=D POST8^DICATTD8
+9 ;;^DIST(.403,.001,40,18,40,0)
+10 ;;=^.4032IP^.00115^1
+11 ;;^DIST(.403,.001,40,18,40,.00115,0)
+12 ;;=.00115^1^2,3^e
+13 ;;^DIST(.403,.001,40,19,0)
+14 ;;=10^^1,1
+15 ;;^DIST(.403,.001,40,19,1)
+16 ;;=Page 10
+17 ;;^DIST(.403,.001,40,19,40,0)
+18 ;;=^.4032IP^.00116^1
+19 ;;^DIST(.403,.001,40,19,40,.00116,0)
+20 ;;=.00116^1^1,1^e
+21 ;;^DIST(.403,.001,40,20,0)
+22 ;;=5^^14,1^^^1^17,78
+23 ;;^DIST(.403,.001,40,20,1)
+24 ;;=Page 5
+25 ;;^DIST(.403,.001,40,20,12)
+26 ;;=I DICATT4="",DUZ(0)="@" S DDSSTACK=4
+27 ;;^DIST(.403,.001,40,20,40,0)
+28 ;;=^.4032IP^.00117^1
+29 ;;^DIST(.403,.001,40,20,40,.00117,0)
+30 ;;=.00117^1^1,1^e
+31 ;;^DIST(.403,.001,40,21,0)
+32 ;;=6^^7,3^^^1^13,77
+33 ;;^DIST(.403,.001,40,21,1)
+34 ;;=Page 6
+35 ;;^DIST(.403,.001,40,21,40,0)
+36 ;;=^.4032IP^.00118^1
+37 ;;^DIST(.403,.001,40,21,40,.00118,0)
+38 ;;=.00118^1^1,1^e
+39 ;;^DIST(.403,.1001,0)
+40 ;;=DIPTED^@^^^2980611.1708^2990303.0831^^.4^0^0^1
+41 ;;^DIST(.403,.1001,14)
+42 ;;=D SAVEFLDS^DIPTED(DA)
+43 ;;^DIST(.403,.1001,40,0)
+44 ;;=^.4031I^2^2
+45 ;;^DIST(.403,.1001,40,1,0)
+46 ;;=1^^1,1^2
+47 ;;^DIST(.403,.1001,40,1,1)
+48 ;;=Page 1
+49 ;;^DIST(.403,.1001,40,1,40,0)
+50 ;;=^.4032IP^.10011^1
+51 ;;^DIST(.403,.1001,40,1,40,.10011,0)
+52 ;;=.10011^1^1,1^e
+53 ;;^DIST(.403,.1001,40,2,0)
+54 ;;=2^^1,1^^1
+55 ;;^DIST(.403,.1001,40,2,1)
+56 ;;=Page 2
+57 ;;^DIST(.403,.1001,40,2,40,0)
+58 ;;=^.4032IP^.10012^1
+59 ;;^DIST(.403,.1001,40,2,40,.10012,0)
+60 ;;=.10012^1^1,1^e
+61 ;;^DIST(.403,.1101,0)
+62 ;;=DIKC EDIT^^^^2970612.1058^3000110.1335^^.11^0^0^1
+63 ;;^DIST(.403,.1101,14)
+64 ;;=D POSTSV^DIKCFORM
+65 ;;^DIST(.403,.1101,20)
+66 ;;=D FORMDV^DIKCFORM
+67 ;;^DIST(.403,.1101,40,0)
+68 ;;=^.4031I^2^4
+69 ;;^DIST(.403,.1101,40,1,0)
+70 ;;=1^^1,1^2^2
+71 ;;^DIST(.403,.1101,40,1,1)
+72 ;;=Page 1
+73 ;;^DIST(.403,.1101,40,1,40,0)
+74 ;;=^.4032IP^.110101^2
+75 ;;^DIST(.403,.1101,40,1,40,.110101,0)
+76 ;;=.110101^2^4,1^e
+77 ;;^DIST(.403,.1101,40,1,40,.110102,0)
+78 ;;=.110102^1^1,1^d
+79 ;;^DIST(.403,.1101,40,2,0)
+80 ;;=2^^1,1^1^1
+81 ;;^DIST(.403,.1101,40,2,1)
+82 ;;=Page 2
+83 ;;^DIST(.403,.1101,40,2,40,0)
+84 ;;=^.4032IP^.110103^4
+85 ;;^DIST(.403,.1101,40,2,40,.110103,0)
+86 ;;=.110103^4^10,1^e
+87 ;;^DIST(.403,.1101,40,2,40,.110104,0)
+88 ;;=.110104^3^6,2^e
+89 ;;^DIST(.403,.1101,40,2,40,.110104,2)
+90 ;;=5^^f
+91 ;;^DIST(.403,.1101,40,2,40,.110105,0)
+92 ;;=.110105^2^3,1^d
+93 ;;^DIST(.403,.1101,40,2,40,.110106,0)
+94 ;;=.110106^1^1,1^d
+95 ;;^DIST(.403,.1101,40,3,0)
+96 ;;=2.1^^6,1^^^1^17,79
+97 ;;^DIST(.403,.1101,40,3,1)
+98 ;;=Page 2.1
+99 ;;^DIST(.403,.1101,40,3,11)
+100 ;;=S DIKCPG21=1
+101 ;;^DIST(.403,.1101,40,3,12)
+102 ;;=K DIKCPG21
+103 ;;^DIST(.403,.1101,40,3,40,0)
+104 ;;=^.4032IP^.110107^1
+105 ;;^DIST(.403,.1101,40,3,40,.110107,0)
+106 ;;=.110107^1^1,1^e
+107 ;;^DIST(.403,.1101,40,3,40,.110107,11)
+108 ;;=K DIKCCRV D BKPRE21^DIKCFORM
+109 ;;^DIST(.403,.1101,40,3,40,.110107,12)
+110 ;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
+111 ;;^DIST(.403,.1101,40,4,0)
+112 ;;=2.2^^10,1^^^1^17,79
+113 ;;^DIST(.403,.1101,40,4,1)
+114 ;;=Page 2.2
+115 ;;^DIST(.403,.1101,40,4,40,0)
+116 ;;=^.4032IP^.110108^1
+117 ;;^DIST(.403,.1101,40,4,40,.110108,0)
+118 ;;=.110108^1^1,1^e
+119 ;;^DIST(.403,.1101,40,4,40,.110108,11)
+120 ;;=K DIKCCRV
+121 ;;^DIST(.403,.1101,40,4,40,.110108,12)
+122 ;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
+123 ;;^DIST(.403,.1102,0)
+124 ;;=DIKC EDIT UI^^^^2970612.1058^2981229.1134^^.11^0^0^1
+125 ;;^DIST(.403,.1102,14)
+126 ;;=D POSTSV^DIKCFORM
+127 ;;^DIST(.403,.1102,40,0)
+128 ;;=^.4031I^2^2
+129 ;;^DIST(.403,.1102,40,1,0)
+130 ;;=1^^1,1
+131 ;;^DIST(.403,.1102,40,1,1)
+132 ;;=Page 1
+133 ;;^DIST(.403,.1102,40,1,40,0)
+134 ;;=^.4032IP^.11021^2
+135 ;;^DIST(.403,.1102,40,1,40,.11021,0)
+136 ;;=.11021^2^3,1^e
+137 ;;^DIST(.403,.1102,40,1,40,.11022,0)
+138 ;;=.11022^1^1,1^d
+139 ;;^DIST(.403,.1102,40,1,40,.11023,0)
+140 ;;=.11023^4^11,3^e
+141 ;;^DIST(.403,.1102,40,1,40,.11023,2)
+142 ;;=4^^f^1
+143 ;;^DIST(.403,.1102,40,1,40,.11024,0)
+144 ;;=.11024^3^9,2^e
+145 ;;^DIST(.403,.1102,40,2,0)
+146 ;;=1.1^^7,1^^^1^15,79
+147 ;;^DIST(.403,.1102,40,2,1)
+148 ;;=Page 1.1^ORDER,4,1
+149 ;;^DIST(.403,.1102,40,2,40,0)
+150 ;;=^.4032IP^.11025^1
+151 ;;^DIST(.403,.1102,40,2,40,.11025,0)
+152 ;;=.11025^1^1,1^e
+153 ;;^DIST(.403,.3101,0)
+154 ;;=DIKK EDIT^^^^2970721.144^2990311.1203^^.31^0^0^1
+155 ;;^DIST(.403,.3101,20)
+156 ;;=D FORMDV^DIKKFORM
+157 ;;^DIST(.403,.3101,40,0)
+158 ;;=^.4031I^3^3
+159 ;;^DIST(.403,.3101,40,1,0)
+160 ;;=1^^1,1^2
+161 ;;^DIST(.403,.3101,40,1,1)
+162 ;;=Page 1
+163 ;;^DIST(.403,.3101,40,1,40,0)
+164 ;;=^.4032IP^.310101^6
+165 ;;^DIST(.403,.3101,40,1,40,.310101,0)
+166 ;;=.310101^1^1,1^d
+167 ;;^DIST(.403,.3101,40,1,40,.310102,0)
+168 ;;=.310102^2^3,1^e
+169 ;;^DIST(.403,.3101,40,1,40,.310103,0)
+170 ;;=.310103^3^5,3^d
+171 ;;^DIST(.403,.3101,40,1,40,.310104,0)
+172 ;;=.310104^4^9,3^e
+173 ;;^DIST(.403,.3101,40,1,40,.310104,2)
+174 ;;=5
+175 ;;^DIST(.403,.3101,40,1,40,.310105,0)
+176 ;;=.310105^5^15,1^d
+177 ;;^DIST(.403,.3101,40,1,40,.310105,1)
+178 ;;=UNIQUENESS INDEX
+179 ;;^DIST(.403,.3101,40,1,40,.310106,0)
+180 ;;=.310106^6^15,1^e
+181 ;;^DIST(.403,.3101,40,2,0)
+182 ;;=1.1^^1,1^^^1^17,79
+183 ;;^DIST(.403,.3101,40,2,1)
+184 ;;=Page 1.1^DETAILS,DIKK EDIT UNIQUENESS INDEX,1
+185 ;;^DIST(.403,.3101,40,2,40,0)
+186 ;;=^.4032IP^.310107^4
+187 ;;^DIST(.403,.3101,40,2,40,.310107,0)
+188 ;;=.310107^1^1,1^d
+189 ;;^DIST(.403,.3101,40,2,40,.310107,1)
+190 ;;=UNIQUENESS INDEX
+191 ;;^DIST(.403,.3101,40,2,40,.310108,0)
+192 ;;=.310108^2^2,3^e
+193 ;;^DIST(.403,.3101,40,2,40,.310108,1)
+194 ;;=UNIQUENESS INDEX
+195 ;;^DIST(.403,.3101,40,2,40,.310109,0)
+196 ;;=.310109^3^8,3^d
+197 ;;^DIST(.403,.3101,40,2,40,.31011,0)
+198 ;;=.31011^4^10,3^e
+199 ;;^DIST(.403,.3101,40,2,40,.31011,1)
+200 ;;=UNIQUENESS INDEX
+201 ;;^DIST(.403,.3101,40,2,40,.31011,2)
+202 ;;=4^^f^1
+203 ;;^DIST(.403,.3101,40,3,0)
+204 ;;=1.2^^8,2^^^1^16,78
+205 ;;^DIST(.403,.3101,40,3,1)
+206 ;;=Page 1.2^ORDER,DIKK EDIT UI FIELD REP,1.1
+207 ;;^DIST(.403,.3101,40,3,40,0)
+208 ;;=^.4032IP^.310111^1
+209 ;;^DIST(.403,.3101,40,3,40,.310111,0)
+210 ;;=.310111^1^1,1^e
+211 ;;^DIST(.403,.3101,40,3,40,.310111,11)
+212 ;;=K DIKKCRV
+213 ;;^DIST(.403,.3101,40,3,40,.310111,12)
+214 ;;=I $D(DIKKCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKKCRV
+215 ;;^DIST(.403,.40001,0)
+216 ;;=DIBTED^@^^^2980904.1357^2990130.0900^^.401^0^0^1
+217 ;;^DIST(.403,.40001,12)
+218 ;;=D SAVEFLDS^DIBTED(DA)
+219 ;;^DIST(.403,.40001,40,0)
+220 ;;=^.4031I^2^2
+221 ;;^DIST(.403,.40001,40,1,0)
+222 ;;=1^^1,1^2
+223 ;;^DIST(.403,.40001,40,1,1)
+224 ;;=Page 1
+225 ;;^DIST(.403,.40001,40,1,40,0)
+226 ;;=^.4032IP^.400011^1
+227 ;;^DIST(.403,.40001,40,1,40,.400011,0)
+228 ;;=.400011^1^1,1^e
+229 ;;^DIST(.403,.40001,40,2,0)
+230 ;;=2^^1,1^^1
+231 ;;^DIST(.403,.40001,40,2,1)
+232 ;;=Page 2
+233 ;;^DIST(.403,.40001,40,2,40,0)
+234 ;;=^.4032IP^.400012^1
+235 ;;^DIST(.403,.40001,40,2,40,.400012,0)
+236 ;;=.400012^1^1,1^e
+237 ;;^DIST(.403,.40101,0)
+238 ;;=DIETED^@^^^2980801.074^2990303.0830^^.402^0^0^1
+239 ;;^DIST(.403,.40101,14)
+240 ;;=D SAVEFLDS^DIETED(DA)
+241 ;;^DIST(.403,.40101,40,0)
+242 ;;=^.4031I^2^2
