XPDIN00S ; ; 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,",64,40,2,1)
;;=222.8
;;^UTILITY(U,$J,"DIST(.404,",64,40,2,2)
;;=3,21^15^3,8
;;^UTILITY(U,$J,"DIST(.404,",64,40,2,3)
;;=OVERWRITE
;;^UTILITY(U,$J,"DIST(.404,",64,40,3,0)
;;=5^Data List^3
;;^UTILITY(U,$J,"DIST(.404,",64,40,3,1)
;;=222.6
;;^UTILITY(U,$J,"DIST(.404,",64,40,3,2)
;;=7,21^30^7,10
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,0)
;;=3^Resolve Pointers^3
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,1)
;;=222.5
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,2)
;;=5,21^3^5,3
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,3)
;;=NO
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,0)
;;=4^May User Override Data Update^3
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,1)
;;=222.9
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,2)
;;=5,68^3^5,37
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,3)
;;=NO
;;^UTILITY(U,$J,"DIST(.404,",64,40,7,0)
;;=6^Screen to Select Data^3
;;^UTILITY(U,$J,"DIST(.404,",64,40,7,1)
;;=224
;;^UTILITY(U,$J,"DIST(.404,",64,40,7,2)
;;=10,3^72^9,3^1
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",3,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",4,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",5,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",6,7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C"," DATA EXPORT OPTIONS ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","DATA LIST",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","MAY USER OVERRIDE DATA UPDATE",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","RESOLVE POINTERS",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SCREEN TO SELECT DATA",7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SITE'S DATA",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,0)
;;=XPD EDIT BUILD11^9.6
;;^UTILITY(U,$J,"DIST(.404,",65,40,0)
;;=^.4044I^4^4
;;^UTILITY(U,$J,"DIST(.404,",65,40,1,0)
;;=1^4^1^
;;^UTILITY(U,$J,"DIST(.404,",65,40,1,2)
;;=^^1,71^
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,0)
;;=3^Package File Link...^3
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,1)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,2)
;;=15,27^30^15,5
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,10)
;;=S:X]"" DDSSTACK=8
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,0)
;;=4^Track Package Nationally^3
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,1)
;;=5
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,2)
;;=17,27^3^17,1
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,3)
;;=NO
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,11)
;;=S:$$GET^DDSVAL(DIE,.DA,1)="" DDSBR="^^COM"
;;^UTILITY(U,$J,"DIST(.404,",65,40,4,0)
;;=2^Install Questions^1^
;;^UTILITY(U,$J,"DIST(.404,",65,40,4,2)
;;=^^4,28^1
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",2,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",3,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",4,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C",4,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","INSTALL QUESTIONS",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","PACKAGE FILE LINK...",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","TRACK PACKAGE NATIONALLY",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",66,0)
;;=XPD EDIT BUILD12^9.62
;;^UTILITY(U,$J,"DIST(.404,",66,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,2)
;;=2,3^30
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,10)
;;=S DDSSTACK=15
;;^UTILITY(U,$J,"DIST(.404,",66,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",67,0)
;;=XPD EDIT BUILD60^9.6
;;^UTILITY(U,$J,"DIST(.404,",67,40,0)
;;=^.4044I^3^3
;;^UTILITY(U,$J,"DIST(.404,",67,40,1,0)
;;=1^ Edit PACKAGE File ^1^
;;^UTILITY(U,$J,"DIST(.404,",67,40,1,2)
;;=^^1,26^1
;;^UTILITY(U,$J,"DIST(.404,",67,40,2,0)
;;=2^Name^3
;;^UTILITY(U,$J,"DIST(.404,",67,40,2,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",67,40,2,2)
;;=2,8^30^2,2
;;^UTILITY(U,$J,"DIST(.404,",67,40,3,0)
;;=3^!M^1^
;;^UTILITY(U,$J,"DIST(.404,",67,40,3,.1)
;;=S $P(Y,"-",76)=""
;;^UTILITY(U,$J,"DIST(.404,",67,40,3,2)
;;=^^3,1^
;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",67,40,"C"," EDIT PACKAGE FILE ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",67,40,"C","NAME",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",84,0)
;;=XPD EDIT BUILD9A^9.66
;;^UTILITY(U,$J,"DIST(.404,",84,40,0)
;;=^.4044I^1^1
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,2)
;;=2,2^4
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,10)
;;=S DDSSTACK=10
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00S 5018 printed Apr 09, 2024@21:06:54 Page 2
XPDIN00S ; ; 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,",64,40,2,1)
+2 ;;=222.8
+3 ;;^UTILITY(U,$J,"DIST(.404,",64,40,2,2)
+4 ;;=3,21^15^3,8
+5 ;;^UTILITY(U,$J,"DIST(.404,",64,40,2,3)
+6 ;;=OVERWRITE
+7 ;;^UTILITY(U,$J,"DIST(.404,",64,40,3,0)
+8 ;;=5^Data List^3
+9 ;;^UTILITY(U,$J,"DIST(.404,",64,40,3,1)
+10 ;;=222.6
+11 ;;^UTILITY(U,$J,"DIST(.404,",64,40,3,2)
+12 ;;=7,21^30^7,10
+13 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,0)
+14 ;;=3^Resolve Pointers^3
+15 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,1)
+16 ;;=222.5
+17 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,2)
+18 ;;=5,21^3^5,3
+19 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,3)
+20 ;;=NO
+21 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,0)
+22 ;;=4^May User Override Data Update^3
+23 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,1)
+24 ;;=222.9
+25 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,2)
+26 ;;=5,68^3^5,37
+27 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,3)
+28 ;;=NO
+29 ;;^UTILITY(U,$J,"DIST(.404,",64,40,7,0)
+30 ;;=6^Screen to Select Data^3
+31 ;;^UTILITY(U,$J,"DIST(.404,",64,40,7,1)
+32 ;;=224
+33 ;;^UTILITY(U,$J,"DIST(.404,",64,40,7,2)
+34 ;;=10,3^72^9,3^1
+35 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",1,1)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",2,2)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",3,4)
+40 ;;=
+41 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",4,5)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",5,3)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",6,7)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C"," DATA EXPORT OPTIONS ",1)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","DATA LIST",3)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","MAY USER OVERRIDE DATA UPDATE",5)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","RESOLVE POINTERS",4)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SCREEN TO SELECT DATA",7)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SITE'S DATA",2)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.404,",65,0)
+60 ;;=XPD EDIT BUILD11^9.6
+61 ;;^UTILITY(U,$J,"DIST(.404,",65,40,0)
+62 ;;=^.4044I^4^4
+63 ;;^UTILITY(U,$J,"DIST(.404,",65,40,1,0)
+64 ;;=1^4^1^
+65 ;;^UTILITY(U,$J,"DIST(.404,",65,40,1,2)
+66 ;;=^^1,71^
+67 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,0)
+68 ;;=3^Package File Link...^3
+69 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,1)
+70 ;;=1
+71 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,2)
+72 ;;=15,27^30^15,5
+73 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,10)
+74 ;;=S:X]"" DDSSTACK=8
+75 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,0)
+76 ;;=4^Track Package Nationally^3
+77 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,1)
+78 ;;=5
+79 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,2)
+80 ;;=17,27^3^17,1
+81 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,3)
+82 ;;=NO
+83 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,10)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,11)
+86 ;;=S:$$GET^DDSVAL(DIE,.DA,1)="" DDSBR="^^COM"
+87 ;;^UTILITY(U,$J,"DIST(.404,",65,40,4,0)
+88 ;;=2^Install Questions^1^
+89 ;;^UTILITY(U,$J,"DIST(.404,",65,40,4,2)
+90 ;;=^^4,28^1
+91 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",1,1)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",2,4)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",3,2)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",4,3)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C",4,1)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","INSTALL QUESTIONS",4)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","PACKAGE FILE LINK...",2)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","TRACK PACKAGE NATIONALLY",3)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.404,",66,0)
+108 ;;=XPD EDIT BUILD12^9.62
+109 ;;^UTILITY(U,$J,"DIST(.404,",66,40,0)
+110 ;;=^.4044I^1^1
+111 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,0)
+112 ;;=1^^3
+113 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,1)
+114 ;;=.01
+115 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,2)
+116 ;;=2,3^30
+117 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,10)
+118 ;;=S DDSSTACK=15
+119 ;;^UTILITY(U,$J,"DIST(.404,",66,40,"B",1,1)
+120 ;;=
+121 ;;^UTILITY(U,$J,"DIST(.404,",67,0)
+122 ;;=XPD EDIT BUILD60^9.6
+123 ;;^UTILITY(U,$J,"DIST(.404,",67,40,0)
+124 ;;=^.4044I^3^3
+125 ;;^UTILITY(U,$J,"DIST(.404,",67,40,1,0)
+126 ;;=1^ Edit PACKAGE File ^1^
+127 ;;^UTILITY(U,$J,"DIST(.404,",67,40,1,2)
+128 ;;=^^1,26^1
+129 ;;^UTILITY(U,$J,"DIST(.404,",67,40,2,0)
+130 ;;=2^Name^3
+131 ;;^UTILITY(U,$J,"DIST(.404,",67,40,2,1)
+132 ;;=.01
+133 ;;^UTILITY(U,$J,"DIST(.404,",67,40,2,2)
+134 ;;=2,8^30^2,2
+135 ;;^UTILITY(U,$J,"DIST(.404,",67,40,3,0)
+136 ;;=3^!M^1^
+137 ;;^UTILITY(U,$J,"DIST(.404,",67,40,3,.1)
+138 ;;=S $P(Y,"-",76)=""
+139 ;;^UTILITY(U,$J,"DIST(.404,",67,40,3,2)
+140 ;;=^^3,1^
+141 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",1,1)
+142 ;;=
+143 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",2,2)
+144 ;;=
+145 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",3,3)
+146 ;;=
+147 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"C"," EDIT PACKAGE FILE ",1)
+148 ;;=
+149 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"C","NAME",2)
+150 ;;=
+151 ;;^UTILITY(U,$J,"DIST(.404,",84,0)
+152 ;;=XPD EDIT BUILD9A^9.66
+153 ;;^UTILITY(U,$J,"DIST(.404,",84,40,0)
+154 ;;=^.4044I^1^1
+155 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,0)
+156 ;;=1^^3
+157 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,1)
+158 ;;=.01
+159 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,2)
+160 ;;=2,2^4
+161 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,10)
+162 ;;=S DDSSTACK=10
