XPDIN00H ; ; 03-JUL-1995
 ;;8.0;KERNEL;;JUL 10, 1995
 F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"AC",1,50)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"B",50,50)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,0)
 ;;=6^^1,1^^^1^17,79
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,1)
 ;;=Install Questions^4,2,2
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,0)
 ;;=^.4032PI^52^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,52,0)
 ;;=XPD EDIT BUILD7^1^2,2^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"AC",1,52)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"B",52,52)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,0)
 ;;=7^^5,1^^^1^17,78
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,1)
 ;;=Entries^
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,0)
 ;;=^.4032PI^49^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,49,0)
 ;;=XPD EDIT BUILD4^2^1,1^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"AC",2,49)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"B",49,49)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,0)
 ;;=8^^5,2^1^2^1^15,78
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,1)
 ;;=Package file
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,11)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,0)
 ;;=^.4032PI^67^3
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,0)
 ;;=XPD EDIT BUILD6^2^3,2^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,1)
 ;;=1
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,54,0)
 ;;=XPD EDIT BUILD8^3^8,2^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,67,0)
 ;;=XPD EDIT BUILD60^4^1,2^d
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",2,51)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",3,54)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",4,67)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",51,51)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",54,54)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",67,67)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,0)
 ;;=9^^4,3^^^1^16,77
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,1)
 ;;=Page 9
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,12)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,0)
 ;;=^.4032PI^84^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,55,0)
 ;;=XPD EDIT BUILD9^1^1,2^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,0)
 ;;=XPD EDIT BUILD9A^2^8,2^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,2)
 ;;=4
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",1,55)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",2,84)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",55,55)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",84,84)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,0)
 ;;=10^^5,4^^^1^9,76
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,1)
 ;;=A/B namespace^4,1,9
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,11)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,12)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,0)
 ;;=^.4032PI^85^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,56,0)
 ;;=XPD EDIT BUILD10^1^1,3^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,0)
 ;;=XPD EDIT BUILD10A^2^2,2^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,2)
 ;;=2
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",1,56)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",2,85)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",56,56)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",85,85)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,0)
 ;;=11^^6,2^^^1^16,77
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,1)
 ;;=Sub DD
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,0)
 ;;=^.4032PI^62^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,0)
 ;;=XPD EDIT BUILD42^1^2,3^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,2)
 ;;=6^!IEN^n^^
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,62,0)
 ;;=XPD EDIT BUILD44^2^1,3^d
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",1,60)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",2,62)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",60,60)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",62,62)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,0)
 ;;=12^^7,3^^^1^15,76
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,1)
 ;;=Sub Field
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,0)
 ;;=^.4032PI^63^2
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,0)
 ;;=XPD EDIT BUILD43^1^2,3^e
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,2)
 ;;=6^!IEN^n
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,63,0)
 ;;=XPD EDIT BUILD45^2^1,2^d
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",1,61)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",2,63)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",61,61)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",63,63)
 ;;=
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,0)
 ;;=13^^6,2^^^1^16,77
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,1)
 ;;=Page 13
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,0)
 ;;=^.4032PI^64^1
 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,64,0)
 ;;=XPD EDIT BUILD46^1^1,1^e