BCH1I00B ; 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,",110,40,1,2)
;;=4,3^30
;;^UTILITY(U,$J,"DIST(.404,",110,40,2,0)
;;=2^Enter the Hospital or Clinic Name^1
;;^UTILITY(U,$J,"DIST(.404,",110,40,2,2)
;;=^^2,3
;;^UTILITY(U,$J,"DIST(.404,",110,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",110,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",110,40,"C","ENTER THE HOSPITAL OR CLINIC NAME",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,0)
;;=BCH EDIT TESTS/MSR/RF^90002
;;^UTILITY(U,$J,"DIST(.404,",113,40,0)
;;=^.4044I^28^28
;;^UTILITY(U,$J,"DIST(.404,",113,40,1,0)
;;=1^******* EDIT MEASUREMENTS/TEST/REPRODUCTIVE FACTORS *******^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,1,2)
;;=^^1,9
;;^UTILITY(U,$J,"DIST(.404,",113,40,2,0)
;;=4^BP^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,2,1)
;;=1201
;;^UTILITY(U,$J,"DIST(.404,",113,40,2,2)
;;=5,9^10^5,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,3,0)
;;=6^WT^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,3,1)
;;=1202
;;^UTILITY(U,$J,"DIST(.404,",113,40,3,2)
;;=6,9^10^6,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,4,0)
;;=7^HT^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,4,1)
;;=1203
;;^UTILITY(U,$J,"DIST(.404,",113,40,4,2)
;;=7,9^10^7,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,5,0)
;;=11^HC^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,5,1)
;;=1204
;;^UTILITY(U,$J,"DIST(.404,",113,40,5,2)
;;=8,9^10^8,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,6,0)
;;=18^VU^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,6,1)
;;=1205
;;^UTILITY(U,$J,"DIST(.404,",113,40,6,2)
;;=10,9^10^10,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,7,0)
;;=22^VC^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,7,1)
;;=1206
;;^UTILITY(U,$J,"DIST(.404,",113,40,7,2)
;;=11,9^10^11,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,8,0)
;;=23^TEMP^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,8,1)
;;=1207
;;^UTILITY(U,$J,"DIST(.404,",113,40,8,2)
;;=13,9^10^13,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,9,0)
;;=25^PULSE^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,9,1)
;;=1208
;;^UTILITY(U,$J,"DIST(.404,",113,40,9,2)
;;=14,9^10^14,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,10,0)
;;=26^RESP^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,10,1)
;;=1209
;;^UTILITY(U,$J,"DIST(.404,",113,40,10,2)
;;=15,9^10^15,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,11,0)
;;=2^** MEASUREMENTS **^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,11,2)
;;=^^3,2
;;^UTILITY(U,$J,"DIST(.404,",113,40,12,0)
;;=3^** TESTS **^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,12,2)
;;=^^3,39
;;^UTILITY(U,$J,"DIST(.404,",113,40,13,0)
;;=24^** REPRODUCTIVE FACTORS **^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,13,2)
;;=^^13,33
;;^UTILITY(U,$J,"DIST(.404,",113,40,14,0)
;;=27^LMP^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,14,1)
;;=.13
;;^UTILITY(U,$J,"DIST(.404,",113,40,14,2)
;;=15,33^11^15,28
;;^UTILITY(U,$J,"DIST(.404,",113,40,15,0)
;;=28^FP METHOD^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,15,1)
;;=.14
;;^UTILITY(U,$J,"DIST(.404,",113,40,15,2)
;;=15,58^5^15,47
;;^UTILITY(U,$J,"DIST(.404,",113,40,16,0)
;;=5^PPD^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,16,1)
;;=1210
;;^UTILITY(U,$J,"DIST(.404,",113,40,16,2)
;;=5,30^11^5,25
;;^UTILITY(U,$J,"DIST(.404,",113,40,17,0)
;;=8^BLOOD SUGAR^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,17,2)
;;=^^7,25
;;^UTILITY(U,$J,"DIST(.404,",113,40,18,0)
;;=9^Date^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,18,1)
;;=1301
;;^UTILITY(U,$J,"DIST(.404,",113,40,18,2)
;;=7,44^11^7,38
;;^UTILITY(U,$J,"DIST(.404,",113,40,19,0)
;;=10^Result^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,19,1)
;;=1302
;;^UTILITY(U,$J,"DIST(.404,",113,40,19,2)
;;=7,65^8^7,57
;;^UTILITY(U,$J,"DIST(.404,",113,40,20,0)
;;=12^THRT CULT^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,20,2)
;;=^^8,25
;;^UTILITY(U,$J,"DIST(.404,",113,40,21,0)
;;=15^HCT^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,21,2)
;;=^^9,25
;;^UTILITY(U,$J,"DIST(.404,",113,40,22,0)
;;=19^UA^1
;;^UTILITY(U,$J,"DIST(.404,",113,40,22,2)
;;=^^10,25
;;^UTILITY(U,$J,"DIST(.404,",113,40,23,0)
;;=13^Date^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,23,1)
;;=1303
;;^UTILITY(U,$J,"DIST(.404,",113,40,23,2)
;;=8,44^11^8,38
;;^UTILITY(U,$J,"DIST(.404,",113,40,24,0)
;;=16^Date^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,24,1)
;;=1307
;;^UTILITY(U,$J,"DIST(.404,",113,40,24,2)
;;=9,44^11^9,38
;;^UTILITY(U,$J,"DIST(.404,",113,40,25,0)
;;=20^Date^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,25,1)
;;=1305
;;^UTILITY(U,$J,"DIST(.404,",113,40,25,2)
;;=10,44^11^10,38
;;^UTILITY(U,$J,"DIST(.404,",113,40,26,0)
;;=14^Result^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,26,1)
;;=1304
;;^UTILITY(U,$J,"DIST(.404,",113,40,26,2)
;;=8,65^8^8,57
;;^UTILITY(U,$J,"DIST(.404,",113,40,27,0)
;;=17^Result^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,27,1)
;;=1308
;;^UTILITY(U,$J,"DIST(.404,",113,40,27,2)
;;=9,65^8^9,57
BCH1I00B ; 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,",110,40,1,2)
+2 ;;=4,3^30
+3 ;;^UTILITY(U,$J,"DIST(.404,",110,40,2,0)
+4 ;;=2^Enter the Hospital or Clinic Name^1
+5 ;;^UTILITY(U,$J,"DIST(.404,",110,40,2,2)
+6 ;;=^^2,3
+7 ;;^UTILITY(U,$J,"DIST(.404,",110,40,"B",1,1)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.404,",110,40,"B",2,2)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.404,",110,40,"C","ENTER THE HOSPITAL OR CLINIC NAME",2)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.404,",113,0)
+14 ;;=BCH EDIT TESTS/MSR/RF^90002
+15 ;;^UTILITY(U,$J,"DIST(.404,",113,40,0)
+16 ;;=^.4044I^28^28
+17 ;;^UTILITY(U,$J,"DIST(.404,",113,40,1,0)
+18 ;;=1^******* EDIT MEASUREMENTS/TEST/REPRODUCTIVE FACTORS *******^1
+19 ;;^UTILITY(U,$J,"DIST(.404,",113,40,1,2)
+20 ;;=^^1,9
+21 ;;^UTILITY(U,$J,"DIST(.404,",113,40,2,0)
+22 ;;=4^BP^3
+23 ;;^UTILITY(U,$J,"DIST(.404,",113,40,2,1)
+24 ;;=1201
+25 ;;^UTILITY(U,$J,"DIST(.404,",113,40,2,2)
+26 ;;=5,9^10^5,2
+27 ;;^UTILITY(U,$J,"DIST(.404,",113,40,3,0)
+28 ;;=6^WT^3
+29 ;;^UTILITY(U,$J,"DIST(.404,",113,40,3,1)
+30 ;;=1202
+31 ;;^UTILITY(U,$J,"DIST(.404,",113,40,3,2)
+32 ;;=6,9^10^6,2
+33 ;;^UTILITY(U,$J,"DIST(.404,",113,40,4,0)
+34 ;;=7^HT^3
+35 ;;^UTILITY(U,$J,"DIST(.404,",113,40,4,1)
+36 ;;=1203
+37 ;;^UTILITY(U,$J,"DIST(.404,",113,40,4,2)
+38 ;;=7,9^10^7,2
+39 ;;^UTILITY(U,$J,"DIST(.404,",113,40,5,0)
+40 ;;=11^HC^3
+41 ;;^UTILITY(U,$J,"DIST(.404,",113,40,5,1)
+42 ;;=1204
+43 ;;^UTILITY(U,$J,"DIST(.404,",113,40,5,2)
+44 ;;=8,9^10^8,2
+45 ;;^UTILITY(U,$J,"DIST(.404,",113,40,6,0)
+46 ;;=18^VU^3
+47 ;;^UTILITY(U,$J,"DIST(.404,",113,40,6,1)
+48 ;;=1205
+49 ;;^UTILITY(U,$J,"DIST(.404,",113,40,6,2)
+50 ;;=10,9^10^10,2
+51 ;;^UTILITY(U,$J,"DIST(.404,",113,40,7,0)
+52 ;;=22^VC^3
+53 ;;^UTILITY(U,$J,"DIST(.404,",113,40,7,1)
+54 ;;=1206
+55 ;;^UTILITY(U,$J,"DIST(.404,",113,40,7,2)
+56 ;;=11,9^10^11,2
+57 ;;^UTILITY(U,$J,"DIST(.404,",113,40,8,0)
+58 ;;=23^TEMP^3
+59 ;;^UTILITY(U,$J,"DIST(.404,",113,40,8,1)
+60 ;;=1207
+61 ;;^UTILITY(U,$J,"DIST(.404,",113,40,8,2)
+62 ;;=13,9^10^13,2
+63 ;;^UTILITY(U,$J,"DIST(.404,",113,40,9,0)
+64 ;;=25^PULSE^3
+65 ;;^UTILITY(U,$J,"DIST(.404,",113,40,9,1)
+66 ;;=1208
+67 ;;^UTILITY(U,$J,"DIST(.404,",113,40,9,2)
+68 ;;=14,9^10^14,2
+69 ;;^UTILITY(U,$J,"DIST(.404,",113,40,10,0)
+70 ;;=26^RESP^3
+71 ;;^UTILITY(U,$J,"DIST(.404,",113,40,10,1)
+72 ;;=1209
+73 ;;^UTILITY(U,$J,"DIST(.404,",113,40,10,2)
+74 ;;=15,9^10^15,2
+75 ;;^UTILITY(U,$J,"DIST(.404,",113,40,11,0)
+76 ;;=2^** MEASUREMENTS **^1
+77 ;;^UTILITY(U,$J,"DIST(.404,",113,40,11,2)
+78 ;;=^^3,2
+79 ;;^UTILITY(U,$J,"DIST(.404,",113,40,12,0)
+80 ;;=3^** TESTS **^1
+81 ;;^UTILITY(U,$J,"DIST(.404,",113,40,12,2)
+82 ;;=^^3,39
+83 ;;^UTILITY(U,$J,"DIST(.404,",113,40,13,0)
+84 ;;=24^** REPRODUCTIVE FACTORS **^1
+85 ;;^UTILITY(U,$J,"DIST(.404,",113,40,13,2)
+86 ;;=^^13,33
+87 ;;^UTILITY(U,$J,"DIST(.404,",113,40,14,0)
+88 ;;=27^LMP^3
+89 ;;^UTILITY(U,$J,"DIST(.404,",113,40,14,1)
+90 ;;=.13
+91 ;;^UTILITY(U,$J,"DIST(.404,",113,40,14,2)
+92 ;;=15,33^11^15,28
+93 ;;^UTILITY(U,$J,"DIST(.404,",113,40,15,0)
+94 ;;=28^FP METHOD^3
+95 ;;^UTILITY(U,$J,"DIST(.404,",113,40,15,1)
+96 ;;=.14
+97 ;;^UTILITY(U,$J,"DIST(.404,",113,40,15,2)
+98 ;;=15,58^5^15,47
+99 ;;^UTILITY(U,$J,"DIST(.404,",113,40,16,0)
+100 ;;=5^PPD^3
+101 ;;^UTILITY(U,$J,"DIST(.404,",113,40,16,1)
+102 ;;=1210
+103 ;;^UTILITY(U,$J,"DIST(.404,",113,40,16,2)
+104 ;;=5,30^11^5,25
+105 ;;^UTILITY(U,$J,"DIST(.404,",113,40,17,0)
+106 ;;=8^BLOOD SUGAR^1
+107 ;;^UTILITY(U,$J,"DIST(.404,",113,40,17,2)
+108 ;;=^^7,25
+109 ;;^UTILITY(U,$J,"DIST(.404,",113,40,18,0)
+110 ;;=9^Date^3
+111 ;;^UTILITY(U,$J,"DIST(.404,",113,40,18,1)
+112 ;;=1301
+113 ;;^UTILITY(U,$J,"DIST(.404,",113,40,18,2)
+114 ;;=7,44^11^7,38
+115 ;;^UTILITY(U,$J,"DIST(.404,",113,40,19,0)
+116 ;;=10^Result^3
+117 ;;^UTILITY(U,$J,"DIST(.404,",113,40,19,1)
+118 ;;=1302
+119 ;;^UTILITY(U,$J,"DIST(.404,",113,40,19,2)
+120 ;;=7,65^8^7,57
+121 ;;^UTILITY(U,$J,"DIST(.404,",113,40,20,0)
+122 ;;=12^THRT CULT^1
+123 ;;^UTILITY(U,$J,"DIST(.404,",113,40,20,2)
+124 ;;=^^8,25
+125 ;;^UTILITY(U,$J,"DIST(.404,",113,40,21,0)
+126 ;;=15^HCT^1
+127 ;;^UTILITY(U,$J,"DIST(.404,",113,40,21,2)
+128 ;;=^^9,25
+129 ;;^UTILITY(U,$J,"DIST(.404,",113,40,22,0)
+130 ;;=19^UA^1
+131 ;;^UTILITY(U,$J,"DIST(.404,",113,40,22,2)
+132 ;;=^^10,25
+133 ;;^UTILITY(U,$J,"DIST(.404,",113,40,23,0)
+134 ;;=13^Date^3
+135 ;;^UTILITY(U,$J,"DIST(.404,",113,40,23,1)
+136 ;;=1303
+137 ;;^UTILITY(U,$J,"DIST(.404,",113,40,23,2)
+138 ;;=8,44^11^8,38
+139 ;;^UTILITY(U,$J,"DIST(.404,",113,40,24,0)
+140 ;;=16^Date^3
+141 ;;^UTILITY(U,$J,"DIST(.404,",113,40,24,1)
+142 ;;=1307
+143 ;;^UTILITY(U,$J,"DIST(.404,",113,40,24,2)
+144 ;;=9,44^11^9,38
+145 ;;^UTILITY(U,$J,"DIST(.404,",113,40,25,0)
+146 ;;=20^Date^3
+147 ;;^UTILITY(U,$J,"DIST(.404,",113,40,25,1)
+148 ;;=1305
+149 ;;^UTILITY(U,$J,"DIST(.404,",113,40,25,2)
+150 ;;=10,44^11^10,38
+151 ;;^UTILITY(U,$J,"DIST(.404,",113,40,26,0)
+152 ;;=14^Result^3
+153 ;;^UTILITY(U,$J,"DIST(.404,",113,40,26,1)
+154 ;;=1304
+155 ;;^UTILITY(U,$J,"DIST(.404,",113,40,26,2)
+156 ;;=8,65^8^8,57
+157 ;;^UTILITY(U,$J,"DIST(.404,",113,40,27,0)
+158 ;;=17^Result^3
+159 ;;^UTILITY(U,$J,"DIST(.404,",113,40,27,1)
+160 ;;=1308
+161 ;;^UTILITY(U,$J,"DIST(.404,",113,40,27,2)
+162 ;;=9,65^8^9,57
