BCH1I00A ; 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(.404,",32,40,8,1)
;;=.08
;;^UTILITY(U,$J,"DIST(.404,",32,40,8,2)
;;=9,43^8^9,28
;;^UTILITY(U,$J,"DIST(.404,",32,40,9,0)
;;=10^EVALUATION^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,9,1)
;;=.09
;;^UTILITY(U,$J,"DIST(.404,",32,40,9,2)
;;=10,13^50^10,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,10,0)
;;=11^TRAVEL TIME^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,10,1)
;;=.11
;;^UTILITY(U,$J,"DIST(.404,",32,40,10,2)
;;=12,15^4^12,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,11,0)
;;=12^# SERVED^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,11,1)
;;=.12
;;^UTILITY(U,$J,"DIST(.404,",32,40,11,2)
;;=12,33^5^12,22
;;^UTILITY(U,$J,"DIST(.404,",32,40,11,3)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",32,40,11,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",32,40,12,0)
;;=13^TEMP RESIDENCE^3^
;;^UTILITY(U,$J,"DIST(.404,",32,40,12,1)
;;=1108
;;^UTILITY(U,$J,"DIST(.404,",32,40,12,2)
;;=12,58^20^12,41
;;^UTILITY(U,$J,"DIST(.404,",32,40,13,0)
;;=17^PURPOSE REF^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,13,1)
;;=2101
;;^UTILITY(U,$J,"DIST(.404,",32,40,13,2)
;;=16,15^60^16,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,14,0)
;;=18^INSURER^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,14,1)
;;=2102
;;^UTILITY(U,$J,"DIST(.404,",32,40,14,2)
;;=17,10^50^17,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,15,0)
;;=5^-------------------------------------------------------------------------------^1
;;^UTILITY(U,$J,"DIST(.404,",32,40,15,2)
;;=^^4,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,16,0)
;;=6^ASSESSMENT - PCC PURPOSE OF VISIT (hit return)^2
;;^UTILITY(U,$J,"DIST(.404,",32,40,16,2)
;;=6,49^1^6,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,16,10)
;;=S DDSSTACK="Page 1.4"
;;^UTILITY(U,$J,"DIST(.404,",32,40,16,20)
;;=F^^1:1
;;^UTILITY(U,$J,"DIST(.404,",32,40,17,0)
;;=14^SUBJECTIVE^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,17,1)
;;=5101
;;^UTILITY(U,$J,"DIST(.404,",32,40,17,2)
;;=14,13^1^14,1
;;^UTILITY(U,$J,"DIST(.404,",32,40,18,0)
;;=15^OBJECTIVE^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,18,1)
;;=6101
;;^UTILITY(U,$J,"DIST(.404,",32,40,18,2)
;;=14,33^1^14,22
;;^UTILITY(U,$J,"DIST(.404,",32,40,19,0)
;;=16^PLANS/TREATMENTS^3
;;^UTILITY(U,$J,"DIST(.404,",32,40,19,1)
;;=7101
;;^UTILITY(U,$J,"DIST(.404,",32,40,19,2)
;;=14,59^1^14,41
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",4,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",5,15)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",6,16)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",7,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",8,7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",9,8)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",10,9)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",11,10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",12,11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",13,12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",14,17)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",15,18)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",16,19)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",17,13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",18,14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","# SERVED",11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","********** E N T E R C H R R E C O R D D A T A **********",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","---------------------------------------------------------------",15)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","ACT LOCATION",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","ASSESSMENT - PCC PURPOSE OF VISIT (HIT RETURN)",16)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","CHR PROVIDER",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","DATE OF SERVICE",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","EVALUATION",9)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","INSURER",14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","OBJECTIVE",18)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","PLANS/TREATMENTS",19)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","PROGRAM",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","PURPOSE REF",13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","REF BY CHR TO",8)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","REF TO CHR BY",7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","SUBJECTIVE",17)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","TEMP RESIDENCE",12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","TRAVEL TIME",10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",110,0)
;;=BCH HOSP NAME^90002
;;^UTILITY(U,$J,"DIST(.404,",110,40,0)
;;=^.4044I^2^2
;;^UTILITY(U,$J,"DIST(.404,",110,40,1,0)
;;=1^^3
;;^UTILITY(U,$J,"DIST(.404,",110,40,1,1)
;;=.05
BCH1I00A ; 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(.404,",32,40,8,1)
+2 ;;=.08
+3 ;;^UTILITY(U,$J,"DIST(.404,",32,40,8,2)
+4 ;;=9,43^8^9,28
+5 ;;^UTILITY(U,$J,"DIST(.404,",32,40,9,0)
+6 ;;=10^EVALUATION^3
+7 ;;^UTILITY(U,$J,"DIST(.404,",32,40,9,1)
+8 ;;=.09
+9 ;;^UTILITY(U,$J,"DIST(.404,",32,40,9,2)
+10 ;;=10,13^50^10,1
+11 ;;^UTILITY(U,$J,"DIST(.404,",32,40,10,0)
+12 ;;=11^TRAVEL TIME^3
+13 ;;^UTILITY(U,$J,"DIST(.404,",32,40,10,1)
+14 ;;=.11
+15 ;;^UTILITY(U,$J,"DIST(.404,",32,40,10,2)
+16 ;;=12,15^4^12,1
+17 ;;^UTILITY(U,$J,"DIST(.404,",32,40,11,0)
+18 ;;=12^# SERVED^3
+19 ;;^UTILITY(U,$J,"DIST(.404,",32,40,11,1)
+20 ;;=.12
+21 ;;^UTILITY(U,$J,"DIST(.404,",32,40,11,2)
+22 ;;=12,33^5^12,22
+23 ;;^UTILITY(U,$J,"DIST(.404,",32,40,11,3)
+24 ;;=1
+25 ;;^UTILITY(U,$J,"DIST(.404,",32,40,11,4)
+26 ;;=1
+27 ;;^UTILITY(U,$J,"DIST(.404,",32,40,12,0)
+28 ;;=13^TEMP RESIDENCE^3^
+29 ;;^UTILITY(U,$J,"DIST(.404,",32,40,12,1)
+30 ;;=1108
+31 ;;^UTILITY(U,$J,"DIST(.404,",32,40,12,2)
+32 ;;=12,58^20^12,41
+33 ;;^UTILITY(U,$J,"DIST(.404,",32,40,13,0)
+34 ;;=17^PURPOSE REF^3
+35 ;;^UTILITY(U,$J,"DIST(.404,",32,40,13,1)
+36 ;;=2101
+37 ;;^UTILITY(U,$J,"DIST(.404,",32,40,13,2)
+38 ;;=16,15^60^16,1
+39 ;;^UTILITY(U,$J,"DIST(.404,",32,40,14,0)
+40 ;;=18^INSURER^3
+41 ;;^UTILITY(U,$J,"DIST(.404,",32,40,14,1)
+42 ;;=2102
+43 ;;^UTILITY(U,$J,"DIST(.404,",32,40,14,2)
+44 ;;=17,10^50^17,1
+45 ;;^UTILITY(U,$J,"DIST(.404,",32,40,15,0)
+46 ;;=5^-------------------------------------------------------------------------------^1
+47 ;;^UTILITY(U,$J,"DIST(.404,",32,40,15,2)
+48 ;;=^^4,1
+49 ;;^UTILITY(U,$J,"DIST(.404,",32,40,16,0)
+50 ;;=6^ASSESSMENT - PCC PURPOSE OF VISIT (hit return)^2
+51 ;;^UTILITY(U,$J,"DIST(.404,",32,40,16,2)
+52 ;;=6,49^1^6,1
+53 ;;^UTILITY(U,$J,"DIST(.404,",32,40,16,10)
+54 ;;=S DDSSTACK="Page 1.4"
+55 ;;^UTILITY(U,$J,"DIST(.404,",32,40,16,20)
+56 ;;=F^^1:1
+57 ;;^UTILITY(U,$J,"DIST(.404,",32,40,17,0)
+58 ;;=14^SUBJECTIVE^3
+59 ;;^UTILITY(U,$J,"DIST(.404,",32,40,17,1)
+60 ;;=5101
+61 ;;^UTILITY(U,$J,"DIST(.404,",32,40,17,2)
+62 ;;=14,13^1^14,1
+63 ;;^UTILITY(U,$J,"DIST(.404,",32,40,18,0)
+64 ;;=15^OBJECTIVE^3
+65 ;;^UTILITY(U,$J,"DIST(.404,",32,40,18,1)
+66 ;;=6101
+67 ;;^UTILITY(U,$J,"DIST(.404,",32,40,18,2)
+68 ;;=14,33^1^14,22
+69 ;;^UTILITY(U,$J,"DIST(.404,",32,40,19,0)
+70 ;;=16^PLANS/TREATMENTS^3
+71 ;;^UTILITY(U,$J,"DIST(.404,",32,40,19,1)
+72 ;;=7101
+73 ;;^UTILITY(U,$J,"DIST(.404,",32,40,19,2)
+74 ;;=14,59^1^14,41
+75 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",1,1)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",2,2)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",3,3)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",4,5)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",5,15)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",6,16)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",7,4)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",8,7)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",9,8)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",10,9)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",11,10)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",12,11)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",13,12)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",14,17)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",15,18)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",16,19)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",17,13)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"B",18,14)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","# SERVED",11)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","********** E N T E R C H R R E C O R D D A T A **********",1)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","---------------------------------------------------------------",15)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","ACT LOCATION",4)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","ASSESSMENT - PCC PURPOSE OF VISIT (HIT RETURN)",16)
+120 ;;=
+121 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","CHR PROVIDER",5)
+122 ;;=
+123 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","DATE OF SERVICE",2)
+124 ;;=
+125 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","EVALUATION",9)
+126 ;;=
+127 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","INSURER",14)
+128 ;;=
+129 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","OBJECTIVE",18)
+130 ;;=
+131 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","PLANS/TREATMENTS",19)
+132 ;;=
+133 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","PROGRAM",3)
+134 ;;=
+135 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","PURPOSE REF",13)
+136 ;;=
+137 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","REF BY CHR TO",8)
+138 ;;=
+139 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","REF TO CHR BY",7)
+140 ;;=
+141 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","SUBJECTIVE",17)
+142 ;;=
+143 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","TEMP RESIDENCE",12)
+144 ;;=
+145 ;;^UTILITY(U,$J,"DIST(.404,",32,40,"C","TRAVEL TIME",10)
+146 ;;=
+147 ;;^UTILITY(U,$J,"DIST(.404,",110,0)
+148 ;;=BCH HOSP NAME^90002
+149 ;;^UTILITY(U,$J,"DIST(.404,",110,40,0)
+150 ;;=^.4044I^2^2
+151 ;;^UTILITY(U,$J,"DIST(.404,",110,40,1,0)
+152 ;;=1^^3
+153 ;;^UTILITY(U,$J,"DIST(.404,",110,40,1,1)
+154 ;;=.05
