BCH1I002 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;
;;1.0;IHS RPMS CHR SYSTEM;**2**;OCT 28, 1996
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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,18,"D")
;;=15^35^1^6101
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,18,"N")
;;=14^15^19^17^19^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,19,"D")
;;=15^60^1^7101
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,19,"N")
;;=14^15^15^18^15^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,"FIRST")
;;=2,31
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,0,0,"N")
;;=10,113^2,113^2,113^15,113^2,113
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113)
;;=1^2^90002^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,2,"D")
;;=5^10^10^1201
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,2,"N")
;;=0^3^16^0^16
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,3,"D")
;;=6^10^10^1202
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,3,"N")
;;=2^4^4^16^4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,4,"D")
;;=7^10^10^1203
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,4,"N")
;;=3^5^18^3^18
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,5,"D")
;;=8^10^10^1204
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,5,"N")
;;=4^24^23^19^23
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,6,"D")
;;=10^10^10^1205
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,6,"N")
;;=24^7^25^27^25
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,7,"D")
;;=11^10^10^1206
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,7,"N")
;;=6^8^8^28^8
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,8,"D")
;;=13^10^10^1207
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,8,"N")
;;=7^9^9^7^9
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,9,"D")
;;=14^10^10^1208
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,9,"N")
;;=8^10^10^8^10
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,10,"D")
;;=15^10^10^1209
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,10,"N")
;;=9^0^14^9^14
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,14,"D")
;;=15^34^11^.13
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,14,"N")
;;=9^0^15^10^15
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,15,"D")
;;=15^59^5^.14
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,15,"N")
;;=9^0^0^14^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,16,"D")
;;=5^31^11^1210
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,16,"N")
;;=0^3^3^2^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,18,"D")
;;=7^45^11^1301
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,18,"N")
;;=3^23^19^4^19
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,19,"D")
;;=7^66^8^1302
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,19,"N")
;;=3^26^5^18^5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,23,"D")
;;=8^45^11^1303
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,23,"N")
;;=18^24^26^5^26
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,24,"D")
;;=9^45^11^1307
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,24,"N")
;;=23^25^27^26^27
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,25,"D")
;;=10^45^11^1305
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,25,"N")
;;=24^7^28^6^28
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,26,"D")
;;=8^66^8^1304
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,26,"N")
;;=19^27^24^23^24
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,27,"D")
;;=9^66^8^1308
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,27,"N")
;;=26^28^6^24^6
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,28,"D")
;;=10^66^8^1306
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,28,"N")
;;=27^7^7^25^7
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,"FIRST")
;;=2,113
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,0,0,"N")
;;=1,124^3,123^3,123^3,124^3,123
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123)
;;=0^0^90002^^e^^^^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,3,"D")
;;=2^17^20^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,3,"N")
;;=0^1,124^4^0^4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,4,"D")
;;=2^45^25^.03
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,4,"N")
;;=0^2,124^1,124^3^1,124
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124)
;;=6^0^90002.01^^e^^6^^1^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,1,"D")
;;=6^11^18^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,1,"N")
;;=3,123^0^0^4,123^0^1,-1^1,+1^2^3,-1^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,2,"D")
;;=6^42^15^.04
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,2,"N")
;;=3,123^0^0^1^0^2,-1^2,+1^3^1^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,3,"D")
;;=6^70^4^.05
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,3,"N")
;;=4,123^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,"FIRST")
;;=3,123
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,0,0,"N")
;;=3,125^2,125^2,125^3,125^2,125
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,125)
;;=5^0^90002.01^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,125,2,"D")
;;=6^12^62^.06
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,125,2,"N")
;;=0^3^3^0^3
BCH1I002 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;
+1 ;;1.0;IHS RPMS CHR SYSTEM;**2**;OCT 28, 1996
+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,999)
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",1,31,18,"D")
+2 ;;=15^35^1^6101
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,18,"N")
+4 ;;=14^15^19^17^19^^^^^^1
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,19,"D")
+6 ;;=15^60^1^7101
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,19,"N")
+8 ;;=14^15^15^18^15^^^^^^1
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,"FIRST")
+10 ;;=2,31
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,0,0,"N")
+12 ;;=10,113^2,113^2,113^15,113^2,113
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113)
+14 ;;=1^2^90002^^e^^^^2
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,2,"D")
+16 ;;=5^10^10^1201
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,2,"N")
+18 ;;=0^3^16^0^16
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,3,"D")
+20 ;;=6^10^10^1202
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,3,"N")
+22 ;;=2^4^4^16^4
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,4,"D")
+24 ;;=7^10^10^1203
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,4,"N")
+26 ;;=3^5^18^3^18
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,5,"D")
+28 ;;=8^10^10^1204
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,5,"N")
+30 ;;=4^24^23^19^23
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,6,"D")
+32 ;;=10^10^10^1205
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,6,"N")
+34 ;;=24^7^25^27^25
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,7,"D")
+36 ;;=11^10^10^1206
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,7,"N")
+38 ;;=6^8^8^28^8
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,8,"D")
+40 ;;=13^10^10^1207
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,8,"N")
+42 ;;=7^9^9^7^9
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,9,"D")
+44 ;;=14^10^10^1208
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,9,"N")
+46 ;;=8^10^10^8^10
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,10,"D")
+48 ;;=15^10^10^1209
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,10,"N")
+50 ;;=9^0^14^9^14
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,14,"D")
+52 ;;=15^34^11^.13
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,14,"N")
+54 ;;=9^0^15^10^15
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,15,"D")
+56 ;;=15^59^5^.14
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,15,"N")
+58 ;;=9^0^0^14^0
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,16,"D")
+60 ;;=5^31^11^1210
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,16,"N")
+62 ;;=0^3^3^2^3
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,18,"D")
+64 ;;=7^45^11^1301
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,18,"N")
+66 ;;=3^23^19^4^19
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,19,"D")
+68 ;;=7^66^8^1302
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,19,"N")
+70 ;;=3^26^5^18^5
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,23,"D")
+72 ;;=8^45^11^1303
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,23,"N")
+74 ;;=18^24^26^5^26
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,24,"D")
+76 ;;=9^45^11^1307
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,24,"N")
+78 ;;=23^25^27^26^27
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,25,"D")
+80 ;;=10^45^11^1305
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,25,"N")
+82 ;;=24^7^28^6^28
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,26,"D")
+84 ;;=8^66^8^1304
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,26,"N")
+86 ;;=19^27^24^23^24
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,27,"D")
+88 ;;=9^66^8^1308
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,27,"N")
+90 ;;=26^28^6^24^6
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,28,"D")
+92 ;;=10^66^8^1306
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,113,28,"N")
+94 ;;=27^7^7^25^7
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,"FIRST")
+96 ;;=2,113
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,0,0,"N")
+98 ;;=1,124^3,123^3,123^3,124^3,123
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123)
+100 ;;=0^0^90002^^e^^^^3
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,3,"D")
+102 ;;=2^17^20^.01
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,3,"N")
+104 ;;=0^1,124^4^0^4
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,4,"D")
+106 ;;=2^45^25^.03
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,123,4,"N")
+108 ;;=0^2,124^1,124^3^1,124
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124)
+110 ;;=6^0^90002.01^^e^^6^^1^1
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,1,"D")
+112 ;;=6^11^18^.01
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,1,"N")
+114 ;;=3,123^0^0^4,123^0^1,-1^1,+1^2^3,-1^2
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,2,"D")
+116 ;;=6^42^15^.04
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,2,"N")
+118 ;;=3,123^0^0^1^0^2,-1^2,+1^3^1^3
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,3,"D")
+120 ;;=6^70^4^.05
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,124,3,"N")
+122 ;;=4,123^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,"FIRST")
+124 ;;=3,123
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,0,0,"N")
+126 ;;=3,125^2,125^2,125^3,125^2,125
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,125)
+128 ;;=5^0^90002.01^^e^^^^2
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,125,2,"D")
+130 ;;=6^12^62^.06
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,125,2,"N")
+132 ;;=0^3^3^0^3