- 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 Jan 18, 2025@03:51:08 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