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