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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00H 4985 printed Apr 09, 2024@21:09:22 Page 2
XPDIN00H ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"AC",1,50)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"B",50,50)
+4 ;;=
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,0)
+6 ;;=6^^1,1^^^1^17,79
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,1)
+8 ;;=Install Questions^4,2,2
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,0)
+10 ;;=^.4032PI^52^1
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,52,0)
+12 ;;=XPD EDIT BUILD7^1^2,2^e
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"AC",1,52)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"B",52,52)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,0)
+18 ;;=7^^5,1^^^1^17,78
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,1)
+20 ;;=Entries^
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,0)
+22 ;;=^.4032PI^49^1
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,49,0)
+24 ;;=XPD EDIT BUILD4^2^1,1^e
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"AC",2,49)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"B",49,49)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,0)
+30 ;;=8^^5,2^1^2^1^15,78
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,1)
+32 ;;=Package file
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,11)
+34 ;;=
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,0)
+36 ;;=^.4032PI^67^3
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,0)
+38 ;;=XPD EDIT BUILD6^2^3,2^e
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,1)
+40 ;;=1
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,54,0)
+42 ;;=XPD EDIT BUILD8^3^8,2^e
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,67,0)
+44 ;;=XPD EDIT BUILD60^4^1,2^d
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",2,51)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",3,54)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",4,67)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",51,51)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",54,54)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",67,67)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,0)
+58 ;;=9^^4,3^^^1^16,77
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,1)
+60 ;;=Page 9
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,12)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,0)
+64 ;;=^.4032PI^84^2
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,55,0)
+66 ;;=XPD EDIT BUILD9^1^1,2^e
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,0)
+68 ;;=XPD EDIT BUILD9A^2^8,2^e
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,2)
+70 ;;=4
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",1,55)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",2,84)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",55,55)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",84,84)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,0)
+80 ;;=10^^5,4^^^1^9,76
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,1)
+82 ;;=A/B namespace^4,1,9
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,11)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,12)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,0)
+88 ;;=^.4032PI^85^2
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,56,0)
+90 ;;=XPD EDIT BUILD10^1^1,3^e
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,0)
+92 ;;=XPD EDIT BUILD10A^2^2,2^e
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,2)
+94 ;;=2
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",1,56)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",2,85)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",56,56)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",85,85)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,0)
+104 ;;=11^^6,2^^^1^16,77
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,1)
+106 ;;=Sub DD
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,0)
+108 ;;=^.4032PI^62^2
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,0)
+110 ;;=XPD EDIT BUILD42^1^2,3^e
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,2)
+112 ;;=6^!IEN^n^^
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,62,0)
+114 ;;=XPD EDIT BUILD44^2^1,3^d
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",1,60)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",2,62)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",60,60)
+120 ;;=
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",62,62)
+122 ;;=
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,0)
+124 ;;=12^^7,3^^^1^15,76
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,1)
+126 ;;=Sub Field
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,0)
+128 ;;=^.4032PI^63^2
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,0)
+130 ;;=XPD EDIT BUILD43^1^2,3^e
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,2)
+132 ;;=6^!IEN^n
+133 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,63,0)
+134 ;;=XPD EDIT BUILD45^2^1,2^d
+135 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",1,61)
+136 ;;=
+137 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",2,63)
+138 ;;=
+139 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",61,61)
+140 ;;=
+141 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",63,63)
+142 ;;=
+143 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,0)
+144 ;;=13^^6,2^^^1^16,77
+145 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,1)
+146 ;;=Page 13
+147 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,0)
+148 ;;=^.4032PI^64^1
+149 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,64,0)
+150 ;;=XPD EDIT BUILD46^1^1,1^e