BCH1I008 ; 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","X",3,2,0,"A")
;;=1;15;U^41;43;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,3,5)
;;=<<to edit the narrative/sub related data, hit return at svc mins>>
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,4,0)
;;=---------------------------------------------------------------------------
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,5,0)
;;=HLTH PROB: SVC CODE: SVC MINS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,5,0,"A")
;;=1;9;U^33;40;U^61;68;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,6,0)
;;=HLTH PROB: SVC CODE: SVC MINS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,6,0,"A")
;;=1;9;U^33;40;U^61;68;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,7,0)
;;=HLTH PROB: SVC CODE: SVC MINS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,7,0,"A")
;;=1;9;U^33;40;U^61;68;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,8,0)
;;=HLTH PROB: SVC CODE: SVC MINS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,8,0,"A")
;;=1;9;U^33;40;U^61;68;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,9,0)
;;=HLTH PROB: SVC CODE: SVC MINS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,9,0,"A")
;;=1;9;U^33;40;U^61;68;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,10,0)
;;=HLTH PROB: SVC CODE: SVC MINS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,10,0,"A")
;;=1;9;U^33;40;U^61;68;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",4,10,2)
;;=NARRATIVE:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",4,11,2)
;;=SUBSTANCE RELATED (Y/N):
;;^UTILITY(U,$J,"DIST(.404,",31,0)
;;=BCH EDIT RECORD DATA^90002
;;^UTILITY(U,$J,"DIST(.404,",31,40,0)
;;=^.4044I^19^19
;;^UTILITY(U,$J,"DIST(.404,",31,40,1,0)
;;=1^********** 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,1,2)
;;=^^1,7
;;^UTILITY(U,$J,"DIST(.404,",31,40,2,0)
;;=2^Date of Service^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,2,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",31,40,2,2)
;;=3,19^20^3,1
;;^UTILITY(U,$J,"DIST(.404,",31,40,3,0)
;;=3^Program^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,3,1)
;;=.02
;;^UTILITY(U,$J,"DIST(.404,",31,40,3,2)
;;=3,53^20^3,42
;;^UTILITY(U,$J,"DIST(.404,",31,40,4,0)
;;=7^Activity Location^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,4,1)
;;=.06
;;^UTILITY(U,$J,"DIST(.404,",31,40,4,2)
;;=8,38^20^8,18
;;^UTILITY(U,$J,"DIST(.404,",31,40,4,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",31,40,5,0)
;;=5^Provider^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,5,1)
;;=.03
;;^UTILITY(U,$J,"DIST(.404,",31,40,5,2)
;;=4,53^20^4,42
;;^UTILITY(U,$J,"DIST(.404,",31,40,6,0)
;;=8^Hospital/Clinic Name^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,6,1)
;;=.05
;;^UTILITY(U,$J,"DIST(.404,",31,40,6,2)
;;=9,38^20^9,15
;;^UTILITY(U,$J,"DIST(.404,",31,40,6,4)
;;=0
;;^UTILITY(U,$J,"DIST(.404,",31,40,7,0)
;;=9^Referred to CHR by^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,7,1)
;;=.07
;;^UTILITY(U,$J,"DIST(.404,",31,40,7,2)
;;=10,38^20^10,17
;;^UTILITY(U,$J,"DIST(.404,",31,40,8,0)
;;=11^Evaluation^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,8,1)
;;=.09
;;^UTILITY(U,$J,"DIST(.404,",31,40,8,2)
;;=12,38^40^12,25
;;^UTILITY(U,$J,"DIST(.404,",31,40,9,0)
;;=10^Referred by CHR to^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,9,1)
;;=.08
;;^UTILITY(U,$J,"DIST(.404,",31,40,9,2)
;;=11,38^20^11,17
;;^UTILITY(U,$J,"DIST(.404,",31,40,10,0)
;;=12^Travel Time^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,10,1)
;;=.11
;;^UTILITY(U,$J,"DIST(.404,",31,40,10,2)
;;=13,38^6^13,24
;;^UTILITY(U,$J,"DIST(.404,",31,40,11,0)
;;=13^# Served^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,11,1)
;;=.12
;;^UTILITY(U,$J,"DIST(.404,",31,40,11,2)
;;=13,58^5^13,47
;;^UTILITY(U,$J,"DIST(.404,",31,40,11,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",31,40,12,0)
;;=4^Temp Residence^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,12,1)
;;=1108
;;^UTILITY(U,$J,"DIST(.404,",31,40,12,2)
;;=4,19^20^4,2
;;^UTILITY(U,$J,"DIST(.404,",31,40,13,0)
;;=14^Purpose of Referral^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,13,1)
;;=2101
;;^UTILITY(U,$J,"DIST(.404,",31,40,13,2)
;;=14,38^40^14,16
;;^UTILITY(U,$J,"DIST(.404,",31,40,14,0)
;;=15^Insurer^3
;;^UTILITY(U,$J,"DIST(.404,",31,40,14,1)
;;=2102
;;^UTILITY(U,$J,"DIST(.404,",31,40,14,2)
;;=15,38^40^15,28
;;^UTILITY(U,$J,"DIST(.404,",31,40,15,0)
;;=19^Edit Measurements/Tests/Reprod?^2
;;^UTILITY(U,$J,"DIST(.404,",31,40,15,2)
;;=17,38^1^17,4
;;^UTILITY(U,$J,"DIST(.404,",31,40,15,3)
;;=N
;;^UTILITY(U,$J,"DIST(.404,",31,40,15,10)
;;=I X="Y" S DDSSTACK="Page 1.2"
BCH1I008 ; 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","X",3,2,0,"A")
+2 ;;=1;15;U^41;43;U
+3 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,3,5)
+4 ;;=<<to edit the narrative/sub related data, hit return at svc mins>>
+5 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,4,0)
+6 ;;=---------------------------------------------------------------------------
+7 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,5,0)
+8 ;;=HLTH PROB: SVC CODE: SVC MINS:
+9 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,5,0,"A")
+10 ;;=1;9;U^33;40;U^61;68;U
+11 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,6,0)
+12 ;;=HLTH PROB: SVC CODE: SVC MINS:
+13 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,6,0,"A")
+14 ;;=1;9;U^33;40;U^61;68;U
+15 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,7,0)
+16 ;;=HLTH PROB: SVC CODE: SVC MINS:
+17 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,7,0,"A")
+18 ;;=1;9;U^33;40;U^61;68;U
+19 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,8,0)
+20 ;;=HLTH PROB: SVC CODE: SVC MINS:
+21 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,8,0,"A")
+22 ;;=1;9;U^33;40;U^61;68;U
+23 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,9,0)
+24 ;;=HLTH PROB: SVC CODE: SVC MINS:
+25 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,9,0,"A")
+26 ;;=1;9;U^33;40;U^61;68;U
+27 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,10,0)
+28 ;;=HLTH PROB: SVC CODE: SVC MINS:
+29 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,10,0,"A")
+30 ;;=1;9;U^33;40;U^61;68;U
+31 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",4,10,2)
+32 ;;=NARRATIVE:
+33 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",4,11,2)
+34 ;;=SUBSTANCE RELATED (Y/N):
+35 ;;^UTILITY(U,$J,"DIST(.404,",31,0)
+36 ;;=BCH EDIT RECORD DATA^90002
+37 ;;^UTILITY(U,$J,"DIST(.404,",31,40,0)
+38 ;;=^.4044I^19^19
+39 ;;^UTILITY(U,$J,"DIST(.404,",31,40,1,0)
+40 ;;=1^********** E D I T C H R R E C O R D D A T A **********^1^
+41 ;;^UTILITY(U,$J,"DIST(.404,",31,40,1,2)
+42 ;;=^^1,7
+43 ;;^UTILITY(U,$J,"DIST(.404,",31,40,2,0)
+44 ;;=2^Date of Service^3
+45 ;;^UTILITY(U,$J,"DIST(.404,",31,40,2,1)
+46 ;;=.01
+47 ;;^UTILITY(U,$J,"DIST(.404,",31,40,2,2)
+48 ;;=3,19^20^3,1
+49 ;;^UTILITY(U,$J,"DIST(.404,",31,40,3,0)
+50 ;;=3^Program^3
+51 ;;^UTILITY(U,$J,"DIST(.404,",31,40,3,1)
+52 ;;=.02
+53 ;;^UTILITY(U,$J,"DIST(.404,",31,40,3,2)
+54 ;;=3,53^20^3,42
+55 ;;^UTILITY(U,$J,"DIST(.404,",31,40,4,0)
+56 ;;=7^Activity Location^3
+57 ;;^UTILITY(U,$J,"DIST(.404,",31,40,4,1)
+58 ;;=.06
+59 ;;^UTILITY(U,$J,"DIST(.404,",31,40,4,2)
+60 ;;=8,38^20^8,18
+61 ;;^UTILITY(U,$J,"DIST(.404,",31,40,4,4)
+62 ;;=1
+63 ;;^UTILITY(U,$J,"DIST(.404,",31,40,5,0)
+64 ;;=5^Provider^3
+65 ;;^UTILITY(U,$J,"DIST(.404,",31,40,5,1)
+66 ;;=.03
+67 ;;^UTILITY(U,$J,"DIST(.404,",31,40,5,2)
+68 ;;=4,53^20^4,42
+69 ;;^UTILITY(U,$J,"DIST(.404,",31,40,6,0)
+70 ;;=8^Hospital/Clinic Name^3
+71 ;;^UTILITY(U,$J,"DIST(.404,",31,40,6,1)
+72 ;;=.05
+73 ;;^UTILITY(U,$J,"DIST(.404,",31,40,6,2)
+74 ;;=9,38^20^9,15
+75 ;;^UTILITY(U,$J,"DIST(.404,",31,40,6,4)
+76 ;;=0
+77 ;;^UTILITY(U,$J,"DIST(.404,",31,40,7,0)
+78 ;;=9^Referred to CHR by^3
+79 ;;^UTILITY(U,$J,"DIST(.404,",31,40,7,1)
+80 ;;=.07
+81 ;;^UTILITY(U,$J,"DIST(.404,",31,40,7,2)
+82 ;;=10,38^20^10,17
+83 ;;^UTILITY(U,$J,"DIST(.404,",31,40,8,0)
+84 ;;=11^Evaluation^3
+85 ;;^UTILITY(U,$J,"DIST(.404,",31,40,8,1)
+86 ;;=.09
+87 ;;^UTILITY(U,$J,"DIST(.404,",31,40,8,2)
+88 ;;=12,38^40^12,25
+89 ;;^UTILITY(U,$J,"DIST(.404,",31,40,9,0)
+90 ;;=10^Referred by CHR to^3
+91 ;;^UTILITY(U,$J,"DIST(.404,",31,40,9,1)
+92 ;;=.08
+93 ;;^UTILITY(U,$J,"DIST(.404,",31,40,9,2)
+94 ;;=11,38^20^11,17
+95 ;;^UTILITY(U,$J,"DIST(.404,",31,40,10,0)
+96 ;;=12^Travel Time^3
+97 ;;^UTILITY(U,$J,"DIST(.404,",31,40,10,1)
+98 ;;=.11
+99 ;;^UTILITY(U,$J,"DIST(.404,",31,40,10,2)
+100 ;;=13,38^6^13,24
+101 ;;^UTILITY(U,$J,"DIST(.404,",31,40,11,0)
+102 ;;=13^# Served^3
+103 ;;^UTILITY(U,$J,"DIST(.404,",31,40,11,1)
+104 ;;=.12
+105 ;;^UTILITY(U,$J,"DIST(.404,",31,40,11,2)
+106 ;;=13,58^5^13,47
+107 ;;^UTILITY(U,$J,"DIST(.404,",31,40,11,4)
+108 ;;=1
+109 ;;^UTILITY(U,$J,"DIST(.404,",31,40,12,0)
+110 ;;=4^Temp Residence^3
+111 ;;^UTILITY(U,$J,"DIST(.404,",31,40,12,1)
+112 ;;=1108
+113 ;;^UTILITY(U,$J,"DIST(.404,",31,40,12,2)
+114 ;;=4,19^20^4,2
+115 ;;^UTILITY(U,$J,"DIST(.404,",31,40,13,0)
+116 ;;=14^Purpose of Referral^3
+117 ;;^UTILITY(U,$J,"DIST(.404,",31,40,13,1)
+118 ;;=2101
+119 ;;^UTILITY(U,$J,"DIST(.404,",31,40,13,2)
+120 ;;=14,38^40^14,16
+121 ;;^UTILITY(U,$J,"DIST(.404,",31,40,14,0)
+122 ;;=15^Insurer^3
+123 ;;^UTILITY(U,$J,"DIST(.404,",31,40,14,1)
+124 ;;=2102
+125 ;;^UTILITY(U,$J,"DIST(.404,",31,40,14,2)
+126 ;;=15,38^40^15,28
+127 ;;^UTILITY(U,$J,"DIST(.404,",31,40,15,0)
+128 ;;=19^Edit Measurements/Tests/Reprod?^2
+129 ;;^UTILITY(U,$J,"DIST(.404,",31,40,15,2)
+130 ;;=17,38^1^17,4
+131 ;;^UTILITY(U,$J,"DIST(.404,",31,40,15,3)
+132 ;;=N
+133 ;;^UTILITY(U,$J,"DIST(.404,",31,40,15,10)
+134 ;;=I X="Y" S DDSSTACK="Page 1.2"
