BCH1I00C ; 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,",113,40,28,0)
;;=21^Result^3
;;^UTILITY(U,$J,"DIST(.404,",113,40,28,1)
;;=1306
;;^UTILITY(U,$J,"DIST(.404,",113,40,28,2)
;;=10,65^8^10,57
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",2,11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",3,12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",4,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",5,16)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",6,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",7,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",8,17)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",9,18)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",10,19)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",11,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",12,20)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",13,23)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",14,26)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",15,21)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",16,24)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",17,27)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",18,6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",19,22)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",20,25)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",21,28)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",22,7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",23,8)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",24,13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",25,9)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",26,10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",27,14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",28,15)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","** MEASUREMENTS **",11)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","** REPRODUCTIVE FACTORS **",13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","** TESTS **",12)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","******* EDIT MEASUREMENTS/TEST/REPRODUCTIVE FACTORS *******",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","BLOOD SUGAR",17)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","BP",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",18)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",23)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",24)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",25)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","FP METHOD",15)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","HC",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","HCT",21)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","HT",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","LMP",14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","PPD",16)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","PULSE",9)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESP",10)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",19)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",26)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",27)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",28)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","TEMP",8)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","THRT CULT",20)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","UA",22)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","VC",7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","VU",6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","WT",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,0)
;;=BCH POV HEADER BLOCK^90002
;;^UTILITY(U,$J,"DIST(.404,",123,40,0)
;;=^.4044I^6^6
;;^UTILITY(U,$J,"DIST(.404,",123,40,1,0)
;;=1^********* ASSESSMENT - PCC PURPOSE OF VISIT **********^1
;;^UTILITY(U,$J,"DIST(.404,",123,40,1,2)
;;=^^1,9
;;^UTILITY(U,$J,"DIST(.404,",123,40,2,0)
;;=2^Enter/Edit Screen^1
;;^UTILITY(U,$J,"DIST(.404,",123,40,2,2)
;;=^^2,27
;;^UTILITY(U,$J,"DIST(.404,",123,40,3,0)
;;=3^Date of Service^3
;;^UTILITY(U,$J,"DIST(.404,",123,40,3,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",123,40,3,2)
;;=3,18^20^3,1
;;^UTILITY(U,$J,"DIST(.404,",123,40,3,4)
;;=^^^1
;;^UTILITY(U,$J,"DIST(.404,",123,40,4,0)
;;=4^CHR^3
;;^UTILITY(U,$J,"DIST(.404,",123,40,4,1)
;;=.03
;;^UTILITY(U,$J,"DIST(.404,",123,40,4,2)
;;=3,46^25^3,41
;;^UTILITY(U,$J,"DIST(.404,",123,40,4,4)
;;=^^^1
;;^UTILITY(U,$J,"DIST(.404,",123,40,5,0)
;;=5^---------------------------------------------------------------------------^1
;;^UTILITY(U,$J,"DIST(.404,",123,40,5,2)
;;=^^5,1
;;^UTILITY(U,$J,"DIST(.404,",123,40,6,0)
;;=6^<<to edit the narrative/sub related data, hit return at svc mins>>^1
;;^UTILITY(U,$J,"DIST(.404,",123,40,6,2)
;;=^^4,6
;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",2,2)
;;=
BCH1I00C ; 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,",113,40,28,0)
+2 ;;=21^Result^3
+3 ;;^UTILITY(U,$J,"DIST(.404,",113,40,28,1)
+4 ;;=1306
+5 ;;^UTILITY(U,$J,"DIST(.404,",113,40,28,2)
+6 ;;=10,65^8^10,57
+7 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",1,1)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",2,11)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",3,12)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",4,2)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",5,16)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",6,3)
+18 ;;=
+19 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",7,4)
+20 ;;=
+21 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",8,17)
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",9,18)
+24 ;;=
+25 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",10,19)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",11,5)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",12,20)
+30 ;;=
+31 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",13,23)
+32 ;;=
+33 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",14,26)
+34 ;;=
+35 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",15,21)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",16,24)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",17,27)
+40 ;;=
+41 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",18,6)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",19,22)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",20,25)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",21,28)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",22,7)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",23,8)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",24,13)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",25,9)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",26,10)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",27,14)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"B",28,15)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","** MEASUREMENTS **",11)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","** REPRODUCTIVE FACTORS **",13)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","** TESTS **",12)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","******* EDIT MEASUREMENTS/TEST/REPRODUCTIVE FACTORS *******",1)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","BLOOD SUGAR",17)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","BP",2)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",18)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",23)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",24)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","DATE",25)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","FP METHOD",15)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","HC",5)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","HCT",21)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","HT",4)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","LMP",14)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","PPD",16)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","PULSE",9)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESP",10)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",19)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",26)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",27)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","RESULT",28)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","TEMP",8)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","THRT CULT",20)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","UA",22)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","VC",7)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","VU",6)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.404,",113,40,"C","WT",3)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.404,",123,0)
+120 ;;=BCH POV HEADER BLOCK^90002
+121 ;;^UTILITY(U,$J,"DIST(.404,",123,40,0)
+122 ;;=^.4044I^6^6
+123 ;;^UTILITY(U,$J,"DIST(.404,",123,40,1,0)
+124 ;;=1^********* ASSESSMENT - PCC PURPOSE OF VISIT **********^1
+125 ;;^UTILITY(U,$J,"DIST(.404,",123,40,1,2)
+126 ;;=^^1,9
+127 ;;^UTILITY(U,$J,"DIST(.404,",123,40,2,0)
+128 ;;=2^Enter/Edit Screen^1
+129 ;;^UTILITY(U,$J,"DIST(.404,",123,40,2,2)
+130 ;;=^^2,27
+131 ;;^UTILITY(U,$J,"DIST(.404,",123,40,3,0)
+132 ;;=3^Date of Service^3
+133 ;;^UTILITY(U,$J,"DIST(.404,",123,40,3,1)
+134 ;;=.01
+135 ;;^UTILITY(U,$J,"DIST(.404,",123,40,3,2)
+136 ;;=3,18^20^3,1
+137 ;;^UTILITY(U,$J,"DIST(.404,",123,40,3,4)
+138 ;;=^^^1
+139 ;;^UTILITY(U,$J,"DIST(.404,",123,40,4,0)
+140 ;;=4^CHR^3
+141 ;;^UTILITY(U,$J,"DIST(.404,",123,40,4,1)
+142 ;;=.03
+143 ;;^UTILITY(U,$J,"DIST(.404,",123,40,4,2)
+144 ;;=3,46^25^3,41
+145 ;;^UTILITY(U,$J,"DIST(.404,",123,40,4,4)
+146 ;;=^^^1
+147 ;;^UTILITY(U,$J,"DIST(.404,",123,40,5,0)
+148 ;;=5^---------------------------------------------------------------------------^1
+149 ;;^UTILITY(U,$J,"DIST(.404,",123,40,5,2)
+150 ;;=^^5,1
+151 ;;^UTILITY(U,$J,"DIST(.404,",123,40,6,0)
+152 ;;=6^<<to edit the narrative/sub related data, hit return at svc mins>>^1
+153 ;;^UTILITY(U,$J,"DIST(.404,",123,40,6,2)
+154 ;;=^^4,6
+155 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",1,1)
+156 ;;=
+157 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",2,2)
+158 ;;=
