XPDIN00T ; ; 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(.404,",84,40,"B",1,1) ;;= ;;^UTILITY(U,$J,"DIST(.404,",85,0) ;;=XPD EDIT BUILD10A^9.661 ;;^UTILITY(U,$J,"DIST(.404,",85,40,0) ;;=^.4044I^1^1 ;;^UTILITY(U,$J,"DIST(.404,",85,40,1,0) ;;=1^^3 ;;^UTILITY(U,$J,"DIST(.404,",85,40,1,1) ;;=.01 ;;^UTILITY(U,$J,"DIST(.404,",85,40,1,2) ;;=1,2^4 ;;^UTILITY(U,$J,"DIST(.404,",85,40,"B",1,1) ;;= ;;^UTILITY(U,$J,"PKG",12,0) ;;=KIDS^XPD^Kernel Installation & Distribution System ;;^UTILITY(U,$J,"PKG",12,1,0) ;;=^^3^3^2940705^^ ;;^UTILITY(U,$J,"PKG",12,1,1,0) ;;=Kernel Installation and Distribution System first time install. This ;;^UTILITY(U,$J,"PKG",12,1,2,0) ;;=package is used to install Kernel for the first time. It will install ;;^UTILITY(U,$J,"PKG",12,1,3,0) ;;=a part of KIDS that will then allow you to use KIDS to install Kernel. ;;^UTILITY(U,$J,"PKG",12,4,0) ;;=^9.44PA^3^2 ;;^UTILITY(U,$J,"PKG",12,4,2,0) ;;=9.7 ;;^UTILITY(U,$J,"PKG",12,4,2,222) ;;=y^y^^n^^^n ;;^UTILITY(U,$J,"PKG",12,4,2,223) ;;= ;;^UTILITY(U,$J,"PKG",12,4,3,0) ;;=9.6 ;;^UTILITY(U,$J,"PKG",12,4,3,222) ;;=y^y^^n^^^n ;;^UTILITY(U,$J,"PKG",12,4,"B",9.6,3) ;;= ;;^UTILITY(U,$J,"PKG",12,4,"B",9.7,2) ;;= ;;^UTILITY(U,$J,"PKG",12,22,0) ;;=^9.49I^6^6 ;;^UTILITY(U,$J,"PKG",12,22,1,0) ;;=1^2940603^2931015 ;;^UTILITY(U,$J,"PKG",12,22,2,0) ;;=8.0^2950703 ;;^UTILITY(U,$J,"PKG",12,22,3,0) ;;=8.0T17^2941024 ;;^UTILITY(U,$J,"PKG",12,22,4,0) ;;=8.0T18^2950112 ;;^UTILITY(U,$J,"PKG",12,22,5,0) ;;=8.0T19^2950214 ;;^UTILITY(U,$J,"PKG",12,22,6,0) ;;=8.0T20^2950412^2950410 ;;^UTILITY(U,$J,"PKG",12,22,"B",1,1) ;;= ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0",2) ;;= ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T17",3) ;;= ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T18",4) ;;= ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T19",5) ;;= ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T20",6) ;;= ;;^UTILITY(U,$J,"PKG",12,"DIST",0) ;;=^9.485^^0 ;;^UTILITY(U,$J,"PKG",12,"INI") ;;=^ ;;^UTILITY(U,$J,"PKG",12,"INIT") ;;=^ ;;^UTILITY(U,$J,"PKG",12,"PRE") ;;=^ ;;^UTILITY(U,$J,"SBF",9.6,9.6) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.61) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.62) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.623) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.626) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.63) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.64) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.641) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.6411) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.65) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.66) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.661) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.67) ;;= ;;^UTILITY(U,$J,"SBF",9.6,9.68) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.7) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.701) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.702) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.703) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.704) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.713) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.714) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.715) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.716) ;;= ;;^UTILITY(U,$J,"SBF",9.7,9.718) ;;=