XPDIN00Q ; ; 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,",51,40,2,10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",51,40,5,0)
;;=1^Primary Help Frame^3
;;^UTILITY(U,$J,"DIST(.404,",51,40,5,1)
;;=12
;;^UTILITY(U,$J,"DIST(.404,",51,40,5,2)
;;=3,31^30^3,11
;;^UTILITY(U,$J,"DIST(.404,",51,40,"B",1,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",51,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",51,40,"C","AFFECTS RECORD MERGE",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",51,40,"C","PRIMARY HELP FRAME",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,0)
;;=XPD EDIT BUILD7^9.62
;;^UTILITY(U,$J,"DIST(.404,",52,40,0)
;;=^.4044I^10^10
;;^UTILITY(U,$J,"DIST(.404,",52,40,1,0)
;;=2^Name^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",52,40,1,2)
;;=2,12^30^2,6
;;^UTILITY(U,$J,"DIST(.404,",52,40,2,0)
;;=3^DIR(0)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,2,1)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",52,40,2,2)
;;=4,12^65^4,4
;;^UTILITY(U,$J,"DIST(.404,",52,40,3,0)
;;=4^DIR(A)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,3,1)
;;=2
;;^UTILITY(U,$J,"DIST(.404,",52,40,3,2)
;;=6,12^65^6,4
;;^UTILITY(U,$J,"DIST(.404,",52,40,4,0)
;;=5^DIR(A,#)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,4,1)
;;=3
;;^UTILITY(U,$J,"DIST(.404,",52,40,4,2)
;;=7,12^1^7,2
;;^UTILITY(U,$J,"DIST(.404,",52,40,5,0)
;;=6^DIR(B)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,5,1)
;;=4
;;^UTILITY(U,$J,"DIST(.404,",52,40,5,2)
;;=9,12^65^9,4
;;^UTILITY(U,$J,"DIST(.404,",52,40,6,0)
;;=7^DIR(?)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,6,1)
;;=5
;;^UTILITY(U,$J,"DIST(.404,",52,40,6,2)
;;=11,12^65^11,4
;;^UTILITY(U,$J,"DIST(.404,",52,40,7,0)
;;=8^DIR(?,#)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,7,1)
;;=6
;;^UTILITY(U,$J,"DIST(.404,",52,40,7,2)
;;=12,12^1^12,2
;;^UTILITY(U,$J,"DIST(.404,",52,40,8,0)
;;=9^DIR(??)^3^
;;^UTILITY(U,$J,"DIST(.404,",52,40,8,1)
;;=7
;;^UTILITY(U,$J,"DIST(.404,",52,40,8,2)
;;=13,12^64^13,3
;;^UTILITY(U,$J,"DIST(.404,",52,40,9,0)
;;=10^M Code^3
;;^UTILITY(U,$J,"DIST(.404,",52,40,9,1)
;;=10
;;^UTILITY(U,$J,"DIST(.404,",52,40,9,2)
;;=15,12^65^15,4
;;^UTILITY(U,$J,"DIST(.404,",52,40,10,0)
;;=1^ Install Questions ^1^
;;^UTILITY(U,$J,"DIST(.404,",52,40,10,2)
;;=^^1,27^1
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",1,10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",2,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",3,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",4,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",5,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",6,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",7,6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",8,7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",9,8)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",10,9)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C"," INSTALL QUESTIONS ",10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(0)",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(?)",6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(?,#)",7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(??)",8)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(A)",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(A,#)",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(B)",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","M CODE",9)
;;=
;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","NAME",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",53,0)
;;=XPD EDIT BUILD31^9.67
;;^UTILITY(U,$J,"DIST(.404,",53,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",53,40,1,0)
;;=1^!M^1^
;;^UTILITY(U,$J,"DIST(.404,",53,40,1,.1)
;;=S Y=" "_$P($G(^DIC(D1,0)),U)_" "
;;^UTILITY(U,$J,"DIST(.404,",53,40,1,2)
;;=^^1,27^
;;^UTILITY(U,$J,"DIST(.404,",53,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",54,0)
;;=XPD EDIT BUILD8^9.6
;;^UTILITY(U,$J,"DIST(.404,",54,11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",54,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",54,40,1,0)
;;=1^Alpha/Beta Testing...^3
;;^UTILITY(U,$J,"DIST(.404,",54,40,1,1)
;;=20
;;^UTILITY(U,$J,"DIST(.404,",54,40,1,2)
;;=2,31^3^2,8
;;^UTILITY(U,$J,"DIST(.404,",54,40,1,3)
;;=NO
;;^UTILITY(U,$J,"DIST(.404,",54,40,1,10)
;;=S:X="y" DDSSTACK="9"
;;^UTILITY(U,$J,"DIST(.404,",54,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",54,40,"C","ALPHA/BETA TESTING...",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,0)
;;=XPD EDIT BUILD9^9.6
;;^UTILITY(U,$J,"DIST(.404,",55,40,0)
;;=^.4044I^5^4
;;^UTILITY(U,$J,"DIST(.404,",55,40,1,0)
;;=2^Installation Message^3
;;^UTILITY(U,$J,"DIST(.404,",55,40,1,1)
;;=21
;;^UTILITY(U,$J,"DIST(.404,",55,40,1,2)
;;=3,30^3^3,8
;;^UTILITY(U,$J,"DIST(.404,",55,40,1,3)
;;=NO
;;^UTILITY(U,$J,"DIST(.404,",55,40,2,0)
;;=3^Address for Usage Reporting^3
;;^UTILITY(U,$J,"DIST(.404,",55,40,2,1)
;;=22
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00Q 5023 printed Apr 09, 2024@21:14:02 Page 2
XPDIN00Q ; ; 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(.404,",51,40,2,10)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.404,",51,40,5,0)
+4 ;;=1^Primary Help Frame^3
+5 ;;^UTILITY(U,$J,"DIST(.404,",51,40,5,1)
+6 ;;=12
+7 ;;^UTILITY(U,$J,"DIST(.404,",51,40,5,2)
+8 ;;=3,31^30^3,11
+9 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"B",1,5)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"B",2,2)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"C","AFFECTS RECORD MERGE",2)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"C","PRIMARY HELP FRAME",5)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.404,",52,0)
+18 ;;=XPD EDIT BUILD7^9.62
+19 ;;^UTILITY(U,$J,"DIST(.404,",52,40,0)
+20 ;;=^.4044I^10^10
+21 ;;^UTILITY(U,$J,"DIST(.404,",52,40,1,0)
+22 ;;=2^Name^3^
+23 ;;^UTILITY(U,$J,"DIST(.404,",52,40,1,1)
+24 ;;=.01
+25 ;;^UTILITY(U,$J,"DIST(.404,",52,40,1,2)
+26 ;;=2,12^30^2,6
+27 ;;^UTILITY(U,$J,"DIST(.404,",52,40,2,0)
+28 ;;=3^DIR(0)^3^
+29 ;;^UTILITY(U,$J,"DIST(.404,",52,40,2,1)
+30 ;;=1
+31 ;;^UTILITY(U,$J,"DIST(.404,",52,40,2,2)
+32 ;;=4,12^65^4,4
+33 ;;^UTILITY(U,$J,"DIST(.404,",52,40,3,0)
+34 ;;=4^DIR(A)^3^
+35 ;;^UTILITY(U,$J,"DIST(.404,",52,40,3,1)
+36 ;;=2
+37 ;;^UTILITY(U,$J,"DIST(.404,",52,40,3,2)
+38 ;;=6,12^65^6,4
+39 ;;^UTILITY(U,$J,"DIST(.404,",52,40,4,0)
+40 ;;=5^DIR(A,#)^3^
+41 ;;^UTILITY(U,$J,"DIST(.404,",52,40,4,1)
+42 ;;=3
+43 ;;^UTILITY(U,$J,"DIST(.404,",52,40,4,2)
+44 ;;=7,12^1^7,2
+45 ;;^UTILITY(U,$J,"DIST(.404,",52,40,5,0)
+46 ;;=6^DIR(B)^3^
+47 ;;^UTILITY(U,$J,"DIST(.404,",52,40,5,1)
+48 ;;=4
+49 ;;^UTILITY(U,$J,"DIST(.404,",52,40,5,2)
+50 ;;=9,12^65^9,4
+51 ;;^UTILITY(U,$J,"DIST(.404,",52,40,6,0)
+52 ;;=7^DIR(?)^3^
+53 ;;^UTILITY(U,$J,"DIST(.404,",52,40,6,1)
+54 ;;=5
+55 ;;^UTILITY(U,$J,"DIST(.404,",52,40,6,2)
+56 ;;=11,12^65^11,4
+57 ;;^UTILITY(U,$J,"DIST(.404,",52,40,7,0)
+58 ;;=8^DIR(?,#)^3^
+59 ;;^UTILITY(U,$J,"DIST(.404,",52,40,7,1)
+60 ;;=6
+61 ;;^UTILITY(U,$J,"DIST(.404,",52,40,7,2)
+62 ;;=12,12^1^12,2
+63 ;;^UTILITY(U,$J,"DIST(.404,",52,40,8,0)
+64 ;;=9^DIR(??)^3^
+65 ;;^UTILITY(U,$J,"DIST(.404,",52,40,8,1)
+66 ;;=7
+67 ;;^UTILITY(U,$J,"DIST(.404,",52,40,8,2)
+68 ;;=13,12^64^13,3
+69 ;;^UTILITY(U,$J,"DIST(.404,",52,40,9,0)
+70 ;;=10^M Code^3
+71 ;;^UTILITY(U,$J,"DIST(.404,",52,40,9,1)
+72 ;;=10
+73 ;;^UTILITY(U,$J,"DIST(.404,",52,40,9,2)
+74 ;;=15,12^65^15,4
+75 ;;^UTILITY(U,$J,"DIST(.404,",52,40,10,0)
+76 ;;=1^ Install Questions ^1^
+77 ;;^UTILITY(U,$J,"DIST(.404,",52,40,10,2)
+78 ;;=^^1,27^1
+79 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",1,10)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",2,1)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",3,2)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",4,3)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",5,4)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",6,5)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",7,6)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",8,7)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",9,8)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",10,9)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C"," INSTALL QUESTIONS ",10)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(0)",2)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(?)",6)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(?,#)",7)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(??)",8)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(A)",3)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(A,#)",4)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(B)",5)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","M CODE",9)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","NAME",1)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.404,",53,0)
+120 ;;=XPD EDIT BUILD31^9.67
+121 ;;^UTILITY(U,$J,"DIST(.404,",53,40,0)
+122 ;;=^.4044I^1^1
+123 ;;^UTILITY(U,$J,"DIST(.404,",53,40,1,0)
+124 ;;=1^!M^1^
+125 ;;^UTILITY(U,$J,"DIST(.404,",53,40,1,.1)
+126 ;;=S Y=" "_$P($G(^DIC(D1,0)),U)_" "
+127 ;;^UTILITY(U,$J,"DIST(.404,",53,40,1,2)
+128 ;;=^^1,27^
+129 ;;^UTILITY(U,$J,"DIST(.404,",53,40,"B",1,1)
+130 ;;=
+131 ;;^UTILITY(U,$J,"DIST(.404,",54,0)
+132 ;;=XPD EDIT BUILD8^9.6
+133 ;;^UTILITY(U,$J,"DIST(.404,",54,11)
+134 ;;=
+135 ;;^UTILITY(U,$J,"DIST(.404,",54,40,0)
+136 ;;=^.4044I^1^1
+137 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,0)
+138 ;;=1^Alpha/Beta Testing...^3
+139 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,1)
+140 ;;=20
+141 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,2)
+142 ;;=2,31^3^2,8
+143 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,3)
+144 ;;=NO
+145 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,10)
+146 ;;=S:X="y" DDSSTACK="9"
+147 ;;^UTILITY(U,$J,"DIST(.404,",54,40,"B",1,1)
+148 ;;=
+149 ;;^UTILITY(U,$J,"DIST(.404,",54,40,"C","ALPHA/BETA TESTING...",1)
+150 ;;=
+151 ;;^UTILITY(U,$J,"DIST(.404,",55,0)
+152 ;;=XPD EDIT BUILD9^9.6
+153 ;;^UTILITY(U,$J,"DIST(.404,",55,40,0)
+154 ;;=^.4044I^5^4
+155 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,0)
+156 ;;=2^Installation Message^3
+157 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,1)
+158 ;;=21
+159 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,2)
+160 ;;=3,30^3^3,8
+161 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,3)
+162 ;;=NO
+163 ;;^UTILITY(U,$J,"DIST(.404,",55,40,2,0)
+164 ;;=3^Address for Usage Reporting^3
+165 ;;^UTILITY(U,$J,"DIST(.404,",55,40,2,1)
+166 ;;=22
