DINIT0FA.m

DINIT0FA ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:28 AM  18 Jan 2000 [ 04/02/2003   8:25 AM ]

 ;;22.0;VA FileMan;**1001**;APR 1, 2003

 ;;22.0;VA FileMan;**20**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

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

 Q

ENTRY ;

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

 ;;=2^Root File^3

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

 ;;=.51

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

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

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

 ;;=^^^1

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

 ;;=4^Root Type^3

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

 ;;=.5

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

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

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

 ;;=^^^1

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

 ;;=7^!M^1

 ;;^DIST(.404,.110101,40,14,.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,.110101,40,14,2)

 ;;=^^5,23

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

 ;;=DIKC EDIT HDR 1^.11

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

 ;;=^.4044I^4^4

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

 ;;=1^EDIT AN INDEX^1

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

 ;;=^^1,34

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

 ;;=2^Number^4

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

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

 ;;^DIST(.404,.110102,40,2,30)

 ;;=S Y=DA

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

 ;;=3^Page 1 of 2^1

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

 ;;=^^1,69

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

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

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

 ;;=^^2,1

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

 ;;=DIKC EDIT LOGIC^.11

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

 ;;=^.4044I^28^5

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

 ;;=1^Set Logic^3

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

 ;;=1.1

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

 ;;=3,13^67^3,2

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

 ;;=D VALLOG^DIKCFORM

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

 ;;=2^Kill Logic^3

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

 ;;=2.1

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

 ;;=4,13^67^4,1

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

 ;;=D VALLOG^DIKCFORM

 ;;^DIST(.404,.110103,40,18,0)

 ;;=3^Whole Kill^3

 ;;^DIST(.404,.110103,40,18,1)

 ;;=2.5

 ;;^DIST(.404,.110103,40,18,2)

 ;;=5,13^67^5,1

 ;;^DIST(.404,.110103,40,18,14)

 ;;=D VALLOG^DIKCFORM

 ;;^DIST(.404,.110103,40,27,0)

 ;;=8^Set Condition^3

 ;;^DIST(.404,.110103,40,27,1)

 ;;=1.4

 ;;^DIST(.404,.110103,40,27,2)

 ;;=7,17^63^7,2

 ;;^DIST(.404,.110103,40,27,14)

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

 ;;^DIST(.404,.110103,40,28,0)

 ;;=9^Kill Condition^3

 ;;^DIST(.404,.110103,40,28,1)

 ;;=2.4

 ;;^DIST(.404,.110103,40,28,2)

 ;;=8,17^63^8,1

 ;;^DIST(.404,.110103,40,28,14)

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

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

 ;;=DIKC EDIT CRV^.114

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

 ;;=^.4044I^5^5

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

 ;;=1^^3^^ORDER

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

 ;;=.01

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

 ;;=1,3^3

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

 ;;=S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)="F":2.1,1:2.2)

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

 ;;=D:DDSOLD'="" BLDLOG^DIKCFORM(DA(1))

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

 ;;=2^^3

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

 ;;=.5

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

 ;;=1,12^3

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

 ;;=D BLDLOG^DIKCFORM(DA(1))

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

 ;;=3^^3

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

 ;;=1

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

 ;;=1,19^8

 ;;^DIST(.404,.110104,40,3,10)

 ;;=S:X'=DDSOLD DDSSTACK=$S(X="F":2.1,1:2.2)

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

 ;;=D CRVTYPE^DIKCFORM

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

 ;;=5^^4

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

 ;;=1,36^43

 ;;^DIST(.404,.110104,40,4,30)

 ;;=N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP="F" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"",$P($G(^DD(FIL,FLD,0)),U)="":"",1:$P(^(0),U)_" (#"_FLD_")") S:TYP="C" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_"..."

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

 ;;=4^^3

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

 ;;=6

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

 ;;=1,29^3

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

 ;;=D:$$GET^DDSVAL(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))

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

 ;;=DIKC EDIT CRV HDR^.11

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

 ;;=^.4044I^12^11

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

 ;;=1^CROSS-REFERENCE VALUES:^1

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

 ;;=^^1,1

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

 ;;=2^Order...^1

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

 ;;=^^2,2

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

 ;;=7^--------^1

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

 ;;=^^3,2

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

 ;;=3^Subscr^1

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

 ;;=^^2,12

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

 ;;=8^------^1

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

 ;;=^^3,12

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

 ;;=4^Type^1

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

 ;;=^^2,20

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

 ;;=9^----^1

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

 ;;=^^3,20

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

 ;;=6^Field or Computed Expression^1

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

 ;;=^^2,37

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

 ;;=11^-------------------------------------^1

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

 ;;=^^3,37

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

 ;;=5^Length^1

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

 ;;=^^2,29

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

 ;;=10^------^1

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

 ;;=^^3,29

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

 ;;=DIKC EDIT HDR 2^.11

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

 ;;=^.4044I^4^4

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

 ;;=1^Number^4

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

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

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

 ;;=S Y=DA

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

 ;;=2^EDIT AN INDEX^1

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

 ;;=^^1,34

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

 ;;=3^Page 2 of 2^1

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

 ;;=^^1,69

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

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

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

 ;;=^^2,1

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

 ;;=DIKC EDIT FIELD CRV^.114

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

 ;;=^.4044I^12^12

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

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

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

 ;;=^^1,23

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

 ;;=2^Order Number^3

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

 ;;=.01

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

 ;;=3,18^3^3,4

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

 ;;=I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="" S DDSBR="FIELD" K DIKCPG21

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

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

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

 ;;=3^Subscript Number^3

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

 ;;=.5

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

 ;;=3,58^3^3,40

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

 ;;=!M

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

 ;;=S Y=$S($$GET^DDSVAL(.11,DA(1),.2)="R":$$GET^DDSVAL(.114,.DA,.01),1:"")

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

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

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

 ;;=10^Transform for Storage^3

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

 ;;=5

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

 ;;=9,25^53^9,2

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

 ;;=D TRANS^DIKCFORM

DINIT0FA  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:28 AM  18 Jan 2000 [ 04/02/2003   8:25 AM ]

 +1       ;;22.0;VA FileMan;**1001**;APR 1, 2003

 +2       ;;22.0;VA FileMan;**20**;Mar 30, 1999

 +3       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +4        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT0FB

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

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

               SET @X=Y

 +5        QUIT 

ENTRY     ;

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

 +2       ;;=2^Root File^3

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

 +4       ;;=.51

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

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

 +7       ;;^DIST(.404,.110101,40,10,4)

 +8       ;;=^^^1

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

 +10      ;;=4^Root Type^3

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

 +12      ;;=.5

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

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

 +15      ;;^DIST(.404,.110101,40,11,4)

 +16      ;;=^^^1

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

 +18      ;;=7^!M^1

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

 +20      ;;=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)")

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

 +22      ;;=^^5,23

 +23      ;;^DIST(.404,.110102,0)

 +24      ;;=DIKC EDIT HDR 1^.11

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

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

 +27      ;;^DIST(.404,.110102,40,1,0)

 +28      ;;=1^EDIT AN INDEX^1

 +29      ;;^DIST(.404,.110102,40,1,2)

 +30      ;;=^^1,34

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

 +32      ;;=2^Number^4

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

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

 +35      ;;^DIST(.404,.110102,40,2,30)

 +36      ;;=S Y=DA

 +37      ;;^DIST(.404,.110102,40,3,0)

 +38      ;;=3^Page 1 of 2^1

 +39      ;;^DIST(.404,.110102,40,3,2)

 +40      ;;=^^1,69

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

 +42      ;;=4^-------------------------------------------------------------------------------^1

 +43      ;;^DIST(.404,.110102,40,4,2)

 +44      ;;=^^2,1

 +45      ;;^DIST(.404,.110103,0)

 +46      ;;=DIKC EDIT LOGIC^.11

 +47      ;;^DIST(.404,.110103,40,0)

 +48      ;;=^.4044I^28^5

 +49      ;;^DIST(.404,.110103,40,1,0)

 +50      ;;=1^Set Logic^3

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

 +52      ;;=1.1

 +53      ;;^DIST(.404,.110103,40,1,2)

 +54      ;;=3,13^67^3,2

 +55      ;;^DIST(.404,.110103,40,1,14)

 +56      ;;=D VALLOG^DIKCFORM

 +57      ;;^DIST(.404,.110103,40,2,0)

 +58      ;;=2^Kill Logic^3

 +59      ;;^DIST(.404,.110103,40,2,1)

 +60      ;;=2.1

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

 +62      ;;=4,13^67^4,1

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

 +64      ;;=D VALLOG^DIKCFORM

 +65      ;;^DIST(.404,.110103,40,18,0)

 +66      ;;=3^Whole Kill^3

 +67      ;;^DIST(.404,.110103,40,18,1)

 +68      ;;=2.5

 +69      ;;^DIST(.404,.110103,40,18,2)

 +70      ;;=5,13^67^5,1

 +71      ;;^DIST(.404,.110103,40,18,14)

 +72      ;;=D VALLOG^DIKCFORM

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

 +74      ;;=8^Set Condition^3

 +75      ;;^DIST(.404,.110103,40,27,1)

 +76      ;;=1.4

 +77      ;;^DIST(.404,.110103,40,27,2)

 +78      ;;=7,17^63^7,2

 +79      ;;^DIST(.404,.110103,40,27,14)

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

 +81      ;;^DIST(.404,.110103,40,28,0)

 +82      ;;=9^Kill Condition^3

 +83      ;;^DIST(.404,.110103,40,28,1)

 +84      ;;=2.4

 +85      ;;^DIST(.404,.110103,40,28,2)

 +86      ;;=8,17^63^8,1

 +87      ;;^DIST(.404,.110103,40,28,14)

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

 +89      ;;^DIST(.404,.110104,0)

 +90      ;;=DIKC EDIT CRV^.114

 +91      ;;^DIST(.404,.110104,40,0)

 +92      ;;=^.4044I^5^5

 +93      ;;^DIST(.404,.110104,40,1,0)

 +94      ;;=1^^3^^ORDER

 +95      ;;^DIST(.404,.110104,40,1,1)

 +96      ;;=.01

 +97      ;;^DIST(.404,.110104,40,1,2)

 +98      ;;=1,3^3

 +99      ;;^DIST(.404,.110104,40,1,10)

 +100     ;;=S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)="F":2.1,1:2.2)

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

 +102     ;;=D:DDSOLD'="" BLDLOG^DIKCFORM(DA(1))

 +103     ;;^DIST(.404,.110104,40,2,0)

 +104     ;;=2^^3

 +105     ;;^DIST(.404,.110104,40,2,1)

 +106     ;;=.5

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

 +108     ;;=1,12^3

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

 +110     ;;=D BLDLOG^DIKCFORM(DA(1))

 +111     ;;^DIST(.404,.110104,40,3,0)

 +112     ;;=3^^3

 +113     ;;^DIST(.404,.110104,40,3,1)

 +114     ;;=1

 +115     ;;^DIST(.404,.110104,40,3,2)

 +116     ;;=1,19^8

 +117     ;;^DIST(.404,.110104,40,3,10)

 +118     ;;=S:X'=DDSOLD DDSSTACK=$S(X="F":2.1,1:2.2)

 +119     ;;^DIST(.404,.110104,40,3,13)

 +120     ;;=D CRVTYPE^DIKCFORM

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

 +122     ;;=5^^4

 +123     ;;^DIST(.404,.110104,40,4,2)

 +124     ;;=1,36^43

 +125     ;;^DIST(.404,.110104,40,4,30)

 +126     ;;=N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP="F" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"",$P($G(^DD(FIL,FLD,0)),U)="":"",1:$P(^(0),U)_" (#"_FLD_")") S:TYP="C" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_"..."

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

 +128     ;;=4^^3

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

 +130     ;;=6

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

 +132     ;;=1,29^3

 +133     ;;^DIST(.404,.110104,40,5,13)

 +134     ;;=D:$$GET^DDSVAL(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))

 +135     ;;^DIST(.404,.110105,0)

 +136     ;;=DIKC EDIT CRV HDR^.11

 +137     ;;^DIST(.404,.110105,40,0)

 +138     ;;=^.4044I^12^11

 +139     ;;^DIST(.404,.110105,40,1,0)

 +140     ;;=1^CROSS-REFERENCE VALUES:^1

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

 +142     ;;=^^1,1

 +143     ;;^DIST(.404,.110105,40,3,0)

 +144     ;;=2^Order...^1

 +145     ;;^DIST(.404,.110105,40,3,2)

 +146     ;;=^^2,2

 +147     ;;^DIST(.404,.110105,40,4,0)

 +148     ;;=7^--------^1

 +149     ;;^DIST(.404,.110105,40,4,2)

 +150     ;;=^^3,2

 +151     ;;^DIST(.404,.110105,40,5,0)

 +152     ;;=3^Subscr^1

 +153     ;;^DIST(.404,.110105,40,5,2)

 +154     ;;=^^2,12

 +155     ;;^DIST(.404,.110105,40,6,0)

 +156     ;;=8^------^1

 +157     ;;^DIST(.404,.110105,40,6,2)

 +158     ;;=^^3,12

 +159     ;;^DIST(.404,.110105,40,7,0)

 +160     ;;=4^Type^1

 +161     ;;^DIST(.404,.110105,40,7,2)

 +162     ;;=^^2,20

 +163     ;;^DIST(.404,.110105,40,8,0)

 +164     ;;=9^----^1

 +165     ;;^DIST(.404,.110105,40,8,2)

 +166     ;;=^^3,20

 +167     ;;^DIST(.404,.110105,40,9,0)

 +168     ;;=6^Field or Computed Expression^1

 +169     ;;^DIST(.404,.110105,40,9,2)

 +170     ;;=^^2,37

 +171     ;;^DIST(.404,.110105,40,10,0)

 +172     ;;=11^-------------------------------------^1

 +173     ;;^DIST(.404,.110105,40,10,2)

 +174     ;;=^^3,37

 +175     ;;^DIST(.404,.110105,40,11,0)

 +176     ;;=5^Length^1

 +177     ;;^DIST(.404,.110105,40,11,2)

 +178     ;;=^^2,29

 +179     ;;^DIST(.404,.110105,40,12,0)

 +180     ;;=10^------^1

 +181     ;;^DIST(.404,.110105,40,12,2)

 +182     ;;=^^3,29

 +183     ;;^DIST(.404,.110106,0)

 +184     ;;=DIKC EDIT HDR 2^.11

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

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

 +187     ;;^DIST(.404,.110106,40,1,0)

 +188     ;;=1^Number^4

 +189     ;;^DIST(.404,.110106,40,1,2)

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

 +191     ;;^DIST(.404,.110106,40,1,30)

 +192     ;;=S Y=DA

 +193     ;;^DIST(.404,.110106,40,2,0)

 +194     ;;=2^EDIT AN INDEX^1

 +195     ;;^DIST(.404,.110106,40,2,2)

 +196     ;;=^^1,34

 +197     ;;^DIST(.404,.110106,40,3,0)

 +198     ;;=3^Page 2 of 2^1

 +199     ;;^DIST(.404,.110106,40,3,2)

 +200     ;;=^^1,69

 +201     ;;^DIST(.404,.110106,40,4,0)

 +202     ;;=4^-------------------------------------------------------------------------------^1

 +203     ;;^DIST(.404,.110106,40,4,2)

 +204     ;;=^^2,1

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

 +206     ;;=DIKC EDIT FIELD CRV^.114

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

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

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

 +210     ;;=1^ Field-Type Cross Reference Value ^1

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

 +212     ;;=^^1,23

 +213     ;;^DIST(.404,.110107,40,2,0)

 +214     ;;=2^Order Number^3

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

 +216     ;;=.01

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

 +218     ;;=3,18^3^3,4

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

 +220     ;;=I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="" S DDSBR="FIELD" K DIKCPG21

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

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

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

 +224     ;;=3^Subscript Number^3

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

 +226     ;;=.5

 +227     ;;^DIST(.404,.110107,40,3,2)

 +228     ;;=3,58^3^3,40

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

 +230     ;;=!M

 +231     ;;^DIST(.404,.110107,40,3,3.1)

 +232     ;;=S Y=$S($$GET^DDSVAL(.11,DA(1),.2)="R":$$GET^DDSVAL(.114,.DA,.01),1:"")

 +233     ;;^DIST(.404,.110107,40,3,13)

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

 +235     ;;^DIST(.404,.110107,40,4,0)

 +236     ;;=10^Transform for Storage^3

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

 +238     ;;=5

 +239     ;;^DIST(.404,.110107,40,4,2)

 +240     ;;=9,25^53^9,2

 +241     ;;^DIST(.404,.110107,40,4,13)

 +242     ;;=D TRANS^DIKCFORM