XPDIN00O ; ; 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,"AZ","X",15,6,3)
;;=DIR(A):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,7,1)
;;=DIR(A,#):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,9,3)
;;=DIR(B):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,11,3)
;;=DIR(?):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,12,1)
;;=DIR(?,#):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,13,2)
;;=DIR(??):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,15,3)
;;=M Code:
;;^UTILITY(U,$J,"DIST(.404,",45,0)
;;=XPD EDIT BUILD HDR^9.6
;;^UTILITY(U,$J,"DIST(.404,",45,40,0)
;;=^.4044I^4^4
;;^UTILITY(U,$J,"DIST(.404,",45,40,1,0)
;;=1^Edit a Build^1^
;;^UTILITY(U,$J,"DIST(.404,",45,40,1,2)
;;=^^1,28^
;;^UTILITY(U,$J,"DIST(.404,",45,40,2,0)
;;=2^Name^3^
;;^UTILITY(U,$J,"DIST(.404,",45,40,2,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",45,40,2,2)
;;=2,7^30^2,1
;;^UTILITY(U,$J,"DIST(.404,",45,40,2,4)
;;=^^^1
;;^UTILITY(U,$J,"DIST(.404,",45,40,3,0)
;;=3^PAGE OF 4^1^
;;^UTILITY(U,$J,"DIST(.404,",45,40,3,2)
;;=^^1,66^
;;^UTILITY(U,$J,"DIST(.404,",45,40,4,0)
;;=4^!M^1^
;;^UTILITY(U,$J,"DIST(.404,",45,40,4,.1)
;;=S $P(Y,"-",80)=""
;;^UTILITY(U,$J,"DIST(.404,",45,40,4,2)
;;=^^3,1^
;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",4,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","EDIT A BUILD",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","NAME",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","PAGE OF 4",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,0)
;;=XPD EDIT BUILD1^9.6
;;^UTILITY(U,$J,"DIST(.404,",46,12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,0)
;;=^.4044I^13^7
;;^UTILITY(U,$J,"DIST(.404,",46,40,1,0)
;;=2^Name^3^
;;^UTILITY(U,$J,"DIST(.404,",46,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",46,40,1,2)
;;=6,28^50^6,22
;;^UTILITY(U,$J,"DIST(.404,",46,40,5,0)
;;=5^Environment Check Routine^3^
;;^UTILITY(U,$J,"DIST(.404,",46,40,5,1)
;;=913
;;^UTILITY(U,$J,"DIST(.404,",46,40,5,2)
;;=12,28^8^12,1
;;^UTILITY(U,$J,"DIST(.404,",46,40,6,0)
;;=7^Post-Install Routine^3^
;;^UTILITY(U,$J,"DIST(.404,",46,40,6,1)
;;=914
;;^UTILITY(U,$J,"DIST(.404,",46,40,6,2)
;;=16,28^17^16,6
;;^UTILITY(U,$J,"DIST(.404,",46,40,7,0)
;;=6^Pre-Install Routine^3^
;;^UTILITY(U,$J,"DIST(.404,",46,40,7,1)
;;=916
;;^UTILITY(U,$J,"DIST(.404,",46,40,7,2)
;;=14,28^17^14,7
;;^UTILITY(U,$J,"DIST(.404,",46,40,11,0)
;;=4^Description^3^
;;^UTILITY(U,$J,"DIST(.404,",46,40,11,1)
;;=3
;;^UTILITY(U,$J,"DIST(.404,",46,40,11,2)
;;=10,28^1^10,15
;;^UTILITY(U,$J,"DIST(.404,",46,40,12,0)
;;=1^1^1^
;;^UTILITY(U,$J,"DIST(.404,",46,40,12,2)
;;=^^1,71^
;;^UTILITY(U,$J,"DIST(.404,",46,40,13,0)
;;=3^Date Distributed^3
;;^UTILITY(U,$J,"DIST(.404,",46,40,13,1)
;;=.02
;;^UTILITY(U,$J,"DIST(.404,",46,40,13,2)
;;=8,28^11^8,10
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",1,12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",2,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",3,13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",4,11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",5,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",6,7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",7,6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C",1,12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","DATE DISTRIBUTED",13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","DESCRIPTION",11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","ENVIRONMENT CHECK ROUTINE",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","NAME",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","POST-INSTALL ROUTINE",6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","PRE-INSTALL ROUTINE",7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",47,0)
;;=XPD EDIT BUILD2^9.6
;;^UTILITY(U,$J,"DIST(.404,",47,12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",47,40,0)
;;=^.4044I^2^2
;;^UTILITY(U,$J,"DIST(.404,",47,40,1,0)
;;=99^3^1^
;;^UTILITY(U,$J,"DIST(.404,",47,40,1,2)
;;=^^1,71^
;;^UTILITY(U,$J,"DIST(.404,",47,40,2,0)
;;=2^Build Components^1^
;;^UTILITY(U,$J,"DIST(.404,",47,40,2,2)
;;=^^4,28^1
;;^UTILITY(U,$J,"DIST(.404,",47,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",47,40,"B",99,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",47,40,"C",3,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",47,40,"C","BUILD COMPONENTS",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",48,0)
;;=XPD EDIT BUILD3^9.68
;;^UTILITY(U,$J,"DIST(.404,",48,40,0)
;;=^.4044I^2^2
;;^UTILITY(U,$J,"DIST(.404,",48,40,1,0)
;;=1^^3^
;;^UTILITY(U,$J,"DIST(.404,",48,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",48,40,1,2)
;;=1,2^45
;;^UTILITY(U,$J,"DIST(.404,",48,40,2,0)
;;=2^^3
;;^UTILITY(U,$J,"DIST(.404,",48,40,2,1)
;;=.03
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00O 5024 printed Apr 09, 2024@21:06:05 Page 2
XPDIN00O ; ; 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,"AZ","X",15,6,3)
+2 ;;=DIR(A):
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,7,1)
+4 ;;=DIR(A,#):
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,9,3)
+6 ;;=DIR(B):
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,11,3)
+8 ;;=DIR(?):
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,12,1)
+10 ;;=DIR(?,#):
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,13,2)
+12 ;;=DIR(??):
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,15,3)
+14 ;;=M Code:
+15 ;;^UTILITY(U,$J,"DIST(.404,",45,0)
+16 ;;=XPD EDIT BUILD HDR^9.6
+17 ;;^UTILITY(U,$J,"DIST(.404,",45,40,0)
+18 ;;=^.4044I^4^4
+19 ;;^UTILITY(U,$J,"DIST(.404,",45,40,1,0)
+20 ;;=1^Edit a Build^1^
+21 ;;^UTILITY(U,$J,"DIST(.404,",45,40,1,2)
+22 ;;=^^1,28^
+23 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,0)
+24 ;;=2^Name^3^
+25 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,1)
+26 ;;=.01
+27 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,2)
+28 ;;=2,7^30^2,1
+29 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,4)
+30 ;;=^^^1
+31 ;;^UTILITY(U,$J,"DIST(.404,",45,40,3,0)
+32 ;;=3^PAGE OF 4^1^
+33 ;;^UTILITY(U,$J,"DIST(.404,",45,40,3,2)
+34 ;;=^^1,66^
+35 ;;^UTILITY(U,$J,"DIST(.404,",45,40,4,0)
+36 ;;=4^!M^1^
+37 ;;^UTILITY(U,$J,"DIST(.404,",45,40,4,.1)
+38 ;;=S $P(Y,"-",80)=""
+39 ;;^UTILITY(U,$J,"DIST(.404,",45,40,4,2)
+40 ;;=^^3,1^
+41 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",1,1)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",2,2)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",3,3)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",4,4)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","EDIT A BUILD",1)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","NAME",2)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","PAGE OF 4",3)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.404,",46,0)
+56 ;;=XPD EDIT BUILD1^9.6
+57 ;;^UTILITY(U,$J,"DIST(.404,",46,12)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.404,",46,40,0)
+60 ;;=^.4044I^13^7
+61 ;;^UTILITY(U,$J,"DIST(.404,",46,40,1,0)
+62 ;;=2^Name^3^
+63 ;;^UTILITY(U,$J,"DIST(.404,",46,40,1,1)
+64 ;;=.01
+65 ;;^UTILITY(U,$J,"DIST(.404,",46,40,1,2)
+66 ;;=6,28^50^6,22
+67 ;;^UTILITY(U,$J,"DIST(.404,",46,40,5,0)
+68 ;;=5^Environment Check Routine^3^
+69 ;;^UTILITY(U,$J,"DIST(.404,",46,40,5,1)
+70 ;;=913
+71 ;;^UTILITY(U,$J,"DIST(.404,",46,40,5,2)
+72 ;;=12,28^8^12,1
+73 ;;^UTILITY(U,$J,"DIST(.404,",46,40,6,0)
+74 ;;=7^Post-Install Routine^3^
+75 ;;^UTILITY(U,$J,"DIST(.404,",46,40,6,1)
+76 ;;=914
+77 ;;^UTILITY(U,$J,"DIST(.404,",46,40,6,2)
+78 ;;=16,28^17^16,6
+79 ;;^UTILITY(U,$J,"DIST(.404,",46,40,7,0)
+80 ;;=6^Pre-Install Routine^3^
+81 ;;^UTILITY(U,$J,"DIST(.404,",46,40,7,1)
+82 ;;=916
+83 ;;^UTILITY(U,$J,"DIST(.404,",46,40,7,2)
+84 ;;=14,28^17^14,7
+85 ;;^UTILITY(U,$J,"DIST(.404,",46,40,11,0)
+86 ;;=4^Description^3^
+87 ;;^UTILITY(U,$J,"DIST(.404,",46,40,11,1)
+88 ;;=3
+89 ;;^UTILITY(U,$J,"DIST(.404,",46,40,11,2)
+90 ;;=10,28^1^10,15
+91 ;;^UTILITY(U,$J,"DIST(.404,",46,40,12,0)
+92 ;;=1^1^1^
+93 ;;^UTILITY(U,$J,"DIST(.404,",46,40,12,2)
+94 ;;=^^1,71^
+95 ;;^UTILITY(U,$J,"DIST(.404,",46,40,13,0)
+96 ;;=3^Date Distributed^3
+97 ;;^UTILITY(U,$J,"DIST(.404,",46,40,13,1)
+98 ;;=.02
+99 ;;^UTILITY(U,$J,"DIST(.404,",46,40,13,2)
+100 ;;=8,28^11^8,10
+101 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",1,12)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",2,1)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",3,13)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",4,11)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",5,5)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",6,7)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",7,6)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C",1,12)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","DATE DISTRIBUTED",13)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","DESCRIPTION",11)
+120 ;;=
+121 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","ENVIRONMENT CHECK ROUTINE",5)
+122 ;;=
+123 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","NAME",1)
+124 ;;=
+125 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","POST-INSTALL ROUTINE",6)
+126 ;;=
+127 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","PRE-INSTALL ROUTINE",7)
+128 ;;=
+129 ;;^UTILITY(U,$J,"DIST(.404,",47,0)
+130 ;;=XPD EDIT BUILD2^9.6
+131 ;;^UTILITY(U,$J,"DIST(.404,",47,12)
+132 ;;=
+133 ;;^UTILITY(U,$J,"DIST(.404,",47,40,0)
+134 ;;=^.4044I^2^2
+135 ;;^UTILITY(U,$J,"DIST(.404,",47,40,1,0)
+136 ;;=99^3^1^
+137 ;;^UTILITY(U,$J,"DIST(.404,",47,40,1,2)
+138 ;;=^^1,71^
+139 ;;^UTILITY(U,$J,"DIST(.404,",47,40,2,0)
+140 ;;=2^Build Components^1^
+141 ;;^UTILITY(U,$J,"DIST(.404,",47,40,2,2)
+142 ;;=^^4,28^1
+143 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"B",2,2)
+144 ;;=
+145 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"B",99,1)
+146 ;;=
+147 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"C",3,1)
+148 ;;=
+149 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"C","BUILD COMPONENTS",2)
+150 ;;=
+151 ;;^UTILITY(U,$J,"DIST(.404,",48,0)
+152 ;;=XPD EDIT BUILD3^9.68
+153 ;;^UTILITY(U,$J,"DIST(.404,",48,40,0)
+154 ;;=^.4044I^2^2
+155 ;;^UTILITY(U,$J,"DIST(.404,",48,40,1,0)
+156 ;;=1^^3^
+157 ;;^UTILITY(U,$J,"DIST(.404,",48,40,1,1)
+158 ;;=.01
+159 ;;^UTILITY(U,$J,"DIST(.404,",48,40,1,2)
+160 ;;=1,2^45
+161 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,0)
+162 ;;=2^^3
+163 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,1)
+164 ;;=.03
