BCH1I006 ; 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,",12,"AZ",1,32)
;;=0^0^90002^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,2,"D")
;;=1^17^20^.01
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,2,"N")
;;=0^5^3^0^3
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,3,"D")
;;=1^54^20^.02
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,3,"N")
;;=0^5^5^2^5
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,4,"D")
;;=7^15^20^.06
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,4,"N")
;;=16^7^7^16^7
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,5,"D")
;;=2^17^20^.03
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,5,"N")
;;=2^16^16^3^16
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,7,"D")
;;=8^15^8^.07
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,7,"N")
;;=4^9^8^4^8
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,8,"D")
;;=8^42^8^.08
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,8,"N")
;;=4^9^9^7^9
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,9,"D")
;;=9^12^50^.09
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,9,"N")
;;=7^10^10^8^10
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,10,"D")
;;=11^14^4^.11
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,10,"N")
;;=9^17^11^9^11
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,11,"D")
;;=11^32^5^.12
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,11,"N")
;;=9^18^12^10^12
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,12,"D")
;;=11^57^20^1108
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,12,"N")
;;=9^18^17^11^17
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,13,"D")
;;=15^14^60^2101
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,13,"N")
;;=17^14^14^19^14
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,14,"D")
;;=16^9^50^2102
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,14,"N")
;;=13^0^0^13^0
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,16,"D")
;;=5^48^1^16,32
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,16,"N")
;;=5^4^4^5^4
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,17,"D")
;;=13^12^1^5101
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,17,"N")
;;=10^13^18^12^18^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,18,"D")
;;=13^32^1^6101
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,18,"N")
;;=11^13^19^17^19^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,19,"D")
;;=13^58^1^7101
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,19,"N")
;;=12^13^13^18^13^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,"FIRST")
;;=2,32
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,0,0,"N")
;;=1,110^1,110^1,110^1,110^1,110
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,110)
;;=9^14^90002^^e^^^^1
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,110,1,"D")
;;=12^16^30^.05
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,110,1,"N")
;;=0^0^0^0^0
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,"FIRST")
;;=1,110
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,0,0,"N")
;;=1,124^3,123^3,123^3,124^3,123
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123)
;;=0^0^90002^^e^^^^3
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,3,"D")
;;=2^17^20^.01
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,3,"N")
;;=0^1,124^4^0^4
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,4,"D")
;;=2^45^25^.03
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,4,"N")
;;=0^2,124^1,124^3^1,124
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124)
;;=5^0^90002.01^^e^^6^^1^1
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,1,"D")
;;=5^11^18^.01
;;^UTILITY(U,$J,"DIST(.403,",12,"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,",12,"AZ",3,124,2,"D")
;;=5^42^15^.04
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,2,"N")
;;=3,123^0^0^1^0^2,-1^2,+1^3^1^3
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,3,"D")
;;=5^70^4^.05
;;^UTILITY(U,$J,"DIST(.403,",12,"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,",12,"AZ",3,"FIRST")
;;=3,123
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,0,0,"N")
;;=3,125^2,125^2,125^3,125^2,125
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125)
;;=9^1^90002.01^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,2,"D")
;;=10^13^62^.06
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,2,"N")
;;=0^3^3^0^3
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,3,"D")
;;=11^27^3^.07
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,3,"N")
;;=2^0^0^2^0
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,"FIRST")
;;=2,125
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","# SERVED",1,1,32,11)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","ACT LOCATION",1,1,32,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","ASSESSMENT - PCC PURPOSE OF VISIT (HIT R",1,1,32,16)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","CHR",3,3,123,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","CHR PROVIDER",1,1,32,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","DATE OF SERVICE",1,1,32,2)
;;=
BCH1I006 ; 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,",12,"AZ",1,32)
+2 ;;=0^0^90002^^e^^^^2
+3 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,2,"D")
+4 ;;=1^17^20^.01
+5 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,2,"N")
+6 ;;=0^5^3^0^3
+7 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,3,"D")
+8 ;;=1^54^20^.02
+9 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,3,"N")
+10 ;;=0^5^5^2^5
+11 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,4,"D")
+12 ;;=7^15^20^.06
+13 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,4,"N")
+14 ;;=16^7^7^16^7
+15 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,5,"D")
+16 ;;=2^17^20^.03
+17 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,5,"N")
+18 ;;=2^16^16^3^16
+19 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,7,"D")
+20 ;;=8^15^8^.07
+21 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,7,"N")
+22 ;;=4^9^8^4^8
+23 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,8,"D")
+24 ;;=8^42^8^.08
+25 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,8,"N")
+26 ;;=4^9^9^7^9
+27 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,9,"D")
+28 ;;=9^12^50^.09
+29 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,9,"N")
+30 ;;=7^10^10^8^10
+31 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,10,"D")
+32 ;;=11^14^4^.11
+33 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,10,"N")
+34 ;;=9^17^11^9^11
+35 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,11,"D")
+36 ;;=11^32^5^.12
+37 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,11,"N")
+38 ;;=9^18^12^10^12
+39 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,12,"D")
+40 ;;=11^57^20^1108
+41 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,12,"N")
+42 ;;=9^18^17^11^17
+43 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,13,"D")
+44 ;;=15^14^60^2101
+45 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,13,"N")
+46 ;;=17^14^14^19^14
+47 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,14,"D")
+48 ;;=16^9^50^2102
+49 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,14,"N")
+50 ;;=13^0^0^13^0
+51 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,16,"D")
+52 ;;=5^48^1^16,32
+53 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,16,"N")
+54 ;;=5^4^4^5^4
+55 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,17,"D")
+56 ;;=13^12^1^5101
+57 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,17,"N")
+58 ;;=10^13^18^12^18^^^^^^1
+59 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,18,"D")
+60 ;;=13^32^1^6101
+61 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,18,"N")
+62 ;;=11^13^19^17^19^^^^^^1
+63 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,19,"D")
+64 ;;=13^58^1^7101
+65 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,32,19,"N")
+66 ;;=12^13^13^18^13^^^^^^1
+67 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",1,"FIRST")
+68 ;;=2,32
+69 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,0,0,"N")
+70 ;;=1,110^1,110^1,110^1,110^1,110
+71 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,110)
+72 ;;=9^14^90002^^e^^^^1
+73 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,110,1,"D")
+74 ;;=12^16^30^.05
+75 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,110,1,"N")
+76 ;;=0^0^0^0^0
+77 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",2,"FIRST")
+78 ;;=1,110
+79 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,0,0,"N")
+80 ;;=1,124^3,123^3,123^3,124^3,123
+81 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123)
+82 ;;=0^0^90002^^e^^^^3
+83 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,3,"D")
+84 ;;=2^17^20^.01
+85 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,3,"N")
+86 ;;=0^1,124^4^0^4
+87 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,4,"D")
+88 ;;=2^45^25^.03
+89 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,123,4,"N")
+90 ;;=0^2,124^1,124^3^1,124
+91 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124)
+92 ;;=5^0^90002.01^^e^^6^^1^1
+93 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,1,"D")
+94 ;;=5^11^18^.01
+95 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,1,"N")
+96 ;;=3,123^0^0^4,123^0^1,-1^1,+1^2^3,-1^2
+97 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,2,"D")
+98 ;;=5^42^15^.04
+99 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,2,"N")
+100 ;;=3,123^0^0^1^0^2,-1^2,+1^3^1^3
+101 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,3,"D")
+102 ;;=5^70^4^.05
+103 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,124,3,"N")
+104 ;;=4,123^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1
+105 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",3,"FIRST")
+106 ;;=3,123
+107 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,0,0,"N")
+108 ;;=3,125^2,125^2,125^3,125^2,125
+109 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125)
+110 ;;=9^1^90002.01^^e^^^^2
+111 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,2,"D")
+112 ;;=10^13^62^.06
+113 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,2,"N")
+114 ;;=0^3^3^0^3
+115 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,3,"D")
+116 ;;=11^27^3^.07
+117 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,125,3,"N")
+118 ;;=2^0^0^2^0
+119 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ",4,"FIRST")
+120 ;;=2,125
+121 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","# SERVED",1,1,32,11)
+122 ;;=
+123 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","ACT LOCATION",1,1,32,4)
+124 ;;=
+125 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","ASSESSMENT - PCC PURPOSE OF VISIT (HIT R",1,1,32,16)
+126 ;;=
+127 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","CHR",3,3,123,4)
+128 ;;=
+129 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","CHR PROVIDER",1,1,32,5)
+130 ;;=
+131 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","DATE OF SERVICE",1,1,32,2)
+132 ;;=
