XPDIN00R ; ; 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,",55,40,2,2)
;;=5,30^44^5,1
;;^UTILITY(U,$J,"DIST(.404,",55,40,4,0)
;;=1^ Alpha/Beta Testing ^1^
;;^UTILITY(U,$J,"DIST(.404,",55,40,4,2)
;;=^^1,26^1
;;^UTILITY(U,$J,"DIST(.404,",55,40,5,0)
;;=4^Package Namespace or Prefix:^1
;;^UTILITY(U,$J,"DIST(.404,",55,40,5,2)
;;=^^7,1
;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",1,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",2,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",3,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",4,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"C"," ALPHA/BETA TESTING ",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","ADDRESS FOR USAGE REPORTING",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","INSTALLATION MESSAGE",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","PACKAGE NAMESPACE OR PREFIX:",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",56,0)
;;=XPD EDIT BUILD10^9.66
;;^UTILITY(U,$J,"DIST(.404,",56,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",56,40,1,0)
;;=1^ Exclude Namespace or Prefix ^1
;;^UTILITY(U,$J,"DIST(.404,",56,40,1,2)
;;=^^1,20^1
;;^UTILITY(U,$J,"DIST(.404,",56,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",56,40,"C"," EXCLUDE NAMESPACE OR PREFIX ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",57,0)
;;=XPD EDIT BUILD30^9.67
;;^UTILITY(U,$J,"DIST(.404,",57,40,0)
;;=^.4044I^2^2
;;^UTILITY(U,$J,"DIST(.404,",57,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",57,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",57,40,1,2)
;;=2,1^24
;;^UTILITY(U,$J,"DIST(.404,",57,40,1,4)
;;=^^^2
;;^UTILITY(U,$J,"DIST(.404,",57,40,1,10)
;;=S DDSSTACK=3
;;^UTILITY(U,$J,"DIST(.404,",57,40,1,14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",57,40,2,0)
;;=2^^4
;;^UTILITY(U,$J,"DIST(.404,",57,40,2,2)
;;=2,27^5
;;^UTILITY(U,$J,"DIST(.404,",57,40,2,4)
;;=^^1
;;^UTILITY(U,$J,"DIST(.404,",57,40,2,30)
;;=S Y="("_+$P($G(^XPD(9.6,DA(1),"KRN",DA,"NM",0)),U,4)_")"
;;^UTILITY(U,$J,"DIST(.404,",57,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",57,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",58,0)
;;=XPD EDIT BUILD40^9.64
;;^UTILITY(U,$J,"DIST(.404,",58,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",58,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",58,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",58,40,1,2)
;;=2,7^45
;;^UTILITY(U,$J,"DIST(.404,",58,40,1,10)
;;=S DDSSTACK=7
;;^UTILITY(U,$J,"DIST(.404,",58,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",59,0)
;;=XPD EDIT BUILD41^9.6
;;^UTILITY(U,$J,"DIST(.404,",59,40,0)
;;=^.4044I^3^2
;;^UTILITY(U,$J,"DIST(.404,",59,40,1,0)
;;=1^2^1^
;;^UTILITY(U,$J,"DIST(.404,",59,40,1,2)
;;=^^1,71^
;;^UTILITY(U,$J,"DIST(.404,",59,40,3,0)
;;=2^File List (Name or Number)^1
;;^UTILITY(U,$J,"DIST(.404,",59,40,3,2)
;;=^^4,28^1
;;^UTILITY(U,$J,"DIST(.404,",59,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",59,40,"B",2,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",59,40,"C",2,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",59,40,"C","FILE LIST (NAME OR NUMBER)",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",60,0)
;;=XPD EDIT BUILD42^9.641
;;^UTILITY(U,$J,"DIST(.404,",60,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",60,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",60,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",60,40,1,2)
;;=1,1^45
;;^UTILITY(U,$J,"DIST(.404,",60,40,1,10)
;;=S DDSSTACK=12
;;^UTILITY(U,$J,"DIST(.404,",60,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",61,0)
;;=XPD EDIT BUILD43^9.6411
;;^UTILITY(U,$J,"DIST(.404,",61,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",61,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",61,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",61,40,1,2)
;;=1,1^45
;;^UTILITY(U,$J,"DIST(.404,",61,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",62,0)
;;=XPD EDIT BUILD44^9.64
;;^UTILITY(U,$J,"DIST(.404,",62,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",62,40,1,0)
;;=1^ Data Dictionary Number ^1^
;;^UTILITY(U,$J,"DIST(.404,",62,40,1,2)
;;=^^1,24^1
;;^UTILITY(U,$J,"DIST(.404,",62,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",62,40,"C"," DATA DICTIONARY NUMBER ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",63,0)
;;=XPD EDIT BUILD45^9.641
;;^UTILITY(U,$J,"DIST(.404,",63,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",63,40,1,0)
;;=1^ Field Number ^1^
;;^UTILITY(U,$J,"DIST(.404,",63,40,1,2)
;;=^^1,24^1
;;^UTILITY(U,$J,"DIST(.404,",63,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",63,40,"C"," FIELD NUMBER ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,0)
;;=XPD EDIT BUILD46^9.64
;;^UTILITY(U,$J,"DIST(.404,",64,40,0)
;;=^.4044I^7^6
;;^UTILITY(U,$J,"DIST(.404,",64,40,1,0)
;;=1^ Data Export Options ^1^
;;^UTILITY(U,$J,"DIST(.404,",64,40,1,2)
;;=^^1,29^1
;;^UTILITY(U,$J,"DIST(.404,",64,40,2,0)
;;=2^Site's Data^3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00R 5030 printed Apr 09, 2024@21:08:37 Page 2
XPDIN00R ; ; 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,",55,40,2,2)
+2 ;;=5,30^44^5,1
+3 ;;^UTILITY(U,$J,"DIST(.404,",55,40,4,0)
+4 ;;=1^ Alpha/Beta Testing ^1^
+5 ;;^UTILITY(U,$J,"DIST(.404,",55,40,4,2)
+6 ;;=^^1,26^1
+7 ;;^UTILITY(U,$J,"DIST(.404,",55,40,5,0)
+8 ;;=4^Package Namespace or Prefix:^1
+9 ;;^UTILITY(U,$J,"DIST(.404,",55,40,5,2)
+10 ;;=^^7,1
+11 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",1,4)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",2,1)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",3,2)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",4,5)
+18 ;;=
+19 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C"," ALPHA/BETA TESTING ",4)
+20 ;;=
+21 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","ADDRESS FOR USAGE REPORTING",2)
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","INSTALLATION MESSAGE",1)
+24 ;;=
+25 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","PACKAGE NAMESPACE OR PREFIX:",5)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.404,",56,0)
+28 ;;=XPD EDIT BUILD10^9.66
+29 ;;^UTILITY(U,$J,"DIST(.404,",56,40,0)
+30 ;;=^.4044I^1^1
+31 ;;^UTILITY(U,$J,"DIST(.404,",56,40,1,0)
+32 ;;=1^ Exclude Namespace or Prefix ^1
+33 ;;^UTILITY(U,$J,"DIST(.404,",56,40,1,2)
+34 ;;=^^1,20^1
+35 ;;^UTILITY(U,$J,"DIST(.404,",56,40,"B",1,1)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.404,",56,40,"C"," EXCLUDE NAMESPACE OR PREFIX ",1)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.404,",57,0)
+40 ;;=XPD EDIT BUILD30^9.67
+41 ;;^UTILITY(U,$J,"DIST(.404,",57,40,0)
+42 ;;=^.4044I^2^2
+43 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,0)
+44 ;;=1^^3
+45 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,1)
+46 ;;=.01
+47 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,2)
+48 ;;=2,1^24
+49 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,4)
+50 ;;=^^^2
+51 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,10)
+52 ;;=S DDSSTACK=3
+53 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,14)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,0)
+56 ;;=2^^4
+57 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,2)
+58 ;;=2,27^5
+59 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,4)
+60 ;;=^^1
+61 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,30)
+62 ;;=S Y="("_+$P($G(^XPD(9.6,DA(1),"KRN",DA,"NM",0)),U,4)_")"
+63 ;;^UTILITY(U,$J,"DIST(.404,",57,40,"B",1,1)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.404,",57,40,"B",2,2)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.404,",58,0)
+68 ;;=XPD EDIT BUILD40^9.64
+69 ;;^UTILITY(U,$J,"DIST(.404,",58,40,0)
+70 ;;=^.4044I^1^1
+71 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,0)
+72 ;;=1^^3
+73 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,1)
+74 ;;=.01
+75 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,2)
+76 ;;=2,7^45
+77 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,10)
+78 ;;=S DDSSTACK=7
+79 ;;^UTILITY(U,$J,"DIST(.404,",58,40,"B",1,1)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.404,",59,0)
+82 ;;=XPD EDIT BUILD41^9.6
+83 ;;^UTILITY(U,$J,"DIST(.404,",59,40,0)
+84 ;;=^.4044I^3^2
+85 ;;^UTILITY(U,$J,"DIST(.404,",59,40,1,0)
+86 ;;=1^2^1^
+87 ;;^UTILITY(U,$J,"DIST(.404,",59,40,1,2)
+88 ;;=^^1,71^
+89 ;;^UTILITY(U,$J,"DIST(.404,",59,40,3,0)
+90 ;;=2^File List (Name or Number)^1
+91 ;;^UTILITY(U,$J,"DIST(.404,",59,40,3,2)
+92 ;;=^^4,28^1
+93 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"B",1,1)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"B",2,3)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"C",2,1)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"C","FILE LIST (NAME OR NUMBER)",3)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.404,",60,0)
+102 ;;=XPD EDIT BUILD42^9.641
+103 ;;^UTILITY(U,$J,"DIST(.404,",60,40,0)
+104 ;;=^.4044I^1^1
+105 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,0)
+106 ;;=1^^3
+107 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,1)
+108 ;;=.01
+109 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,2)
+110 ;;=1,1^45
+111 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,10)
+112 ;;=S DDSSTACK=12
+113 ;;^UTILITY(U,$J,"DIST(.404,",60,40,"B",1,1)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.404,",61,0)
+116 ;;=XPD EDIT BUILD43^9.6411
+117 ;;^UTILITY(U,$J,"DIST(.404,",61,40,0)
+118 ;;=^.4044I^1^1
+119 ;;^UTILITY(U,$J,"DIST(.404,",61,40,1,0)
+120 ;;=1^^3
+121 ;;^UTILITY(U,$J,"DIST(.404,",61,40,1,1)
+122 ;;=.01
+123 ;;^UTILITY(U,$J,"DIST(.404,",61,40,1,2)
+124 ;;=1,1^45
+125 ;;^UTILITY(U,$J,"DIST(.404,",61,40,"B",1,1)
+126 ;;=
+127 ;;^UTILITY(U,$J,"DIST(.404,",62,0)
+128 ;;=XPD EDIT BUILD44^9.64
+129 ;;^UTILITY(U,$J,"DIST(.404,",62,40,0)
+130 ;;=^.4044I^1^1
+131 ;;^UTILITY(U,$J,"DIST(.404,",62,40,1,0)
+132 ;;=1^ Data Dictionary Number ^1^
+133 ;;^UTILITY(U,$J,"DIST(.404,",62,40,1,2)
+134 ;;=^^1,24^1
+135 ;;^UTILITY(U,$J,"DIST(.404,",62,40,"B",1,1)
+136 ;;=
+137 ;;^UTILITY(U,$J,"DIST(.404,",62,40,"C"," DATA DICTIONARY NUMBER ",1)
+138 ;;=
+139 ;;^UTILITY(U,$J,"DIST(.404,",63,0)
+140 ;;=XPD EDIT BUILD45^9.641
+141 ;;^UTILITY(U,$J,"DIST(.404,",63,40,0)
+142 ;;=^.4044I^1^1
+143 ;;^UTILITY(U,$J,"DIST(.404,",63,40,1,0)
+144 ;;=1^ Field Number ^1^
+145 ;;^UTILITY(U,$J,"DIST(.404,",63,40,1,2)
+146 ;;=^^1,24^1
+147 ;;^UTILITY(U,$J,"DIST(.404,",63,40,"B",1,1)
+148 ;;=
+149 ;;^UTILITY(U,$J,"DIST(.404,",63,40,"C"," FIELD NUMBER ",1)
+150 ;;=
+151 ;;^UTILITY(U,$J,"DIST(.404,",64,0)
+152 ;;=XPD EDIT BUILD46^9.64
+153 ;;^UTILITY(U,$J,"DIST(.404,",64,40,0)
+154 ;;=^.4044I^7^6
+155 ;;^UTILITY(U,$J,"DIST(.404,",64,40,1,0)
+156 ;;=1^ Data Export Options ^1^
+157 ;;^UTILITY(U,$J,"DIST(.404,",64,40,1,2)
+158 ;;=^^1,29^1
+159 ;;^UTILITY(U,$J,"DIST(.404,",64,40,2,0)
+160 ;;=2^Site's Data^3
