BCH1I001 ; 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,",11,0)
;;=BCH EDIT RECORD DATA^^^^2941013^^^90002^0^0^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,0)
;;=^.4031I^4^4
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,0)
;;=1^^1,1^^^0
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,1)
;;=CHR RECORD EDIT
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,0)
;;=^.4032PI^31^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,31,0)
;;=BCH EDIT RECORD DATA^1^1,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",1,31)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",31,31)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,0)
;;=1.2^^1,2^^^1^17,77
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,1)
;;=Page 1.2
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,0)
;;=^.4032IP^113^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,113,0)
;;=BCH EDIT TESTS/MSR/RF^1^2,2^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",1,113)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",113,113)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,0)
;;=1.4^^1,1
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,1)
;;=Page 1.4
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,0)
;;=^.4032IP^124^2
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,123,0)
;;=BCH POV HEADER BLOCK^1^1,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,124,0)
;;=BCH POV EDIT BLK^2^7,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,124,2)
;;=6^AD^n^0
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",1,123)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",2,124)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",123,123)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",124,124)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,0)
;;=1.6^^6,1^^^1^10,75
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,1)
;;=Page 1.6
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,0)
;;=^.4032IP^125^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,125,0)
;;=BCH POV PROV NARR^1^1,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",1,125)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",125,125)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1.2,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1.4,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1.6,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","CHR RECORD EDIT",1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1.2",2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1.4",3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1.6",4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,0,0,"N")
;;=15,31^2,31^2,31^15,31^2,31
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31)
;;=0^0^90002^^e^^^^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,2,"D")
;;=2^18^20^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,2,"N")
;;=0^12^3^0^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,3,"D")
;;=2^52^20^.02
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,3,"N")
;;=0^5^12^2^12
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,4,"D")
;;=7^37^20^.06
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,4,"N")
;;=16^6^6^16^6
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,5,"D")
;;=3^52^20^.03
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,5,"N")
;;=3^16^16^12^16
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,6,"D")
;;=8^37^20^.05
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,6,"N")
;;=4^7^7^4^7
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,7,"D")
;;=9^37^20^.07
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,7,"N")
;;=6^9^9^6^9
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,8,"D")
;;=11^37^40^.09
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,8,"N")
;;=9^10^10^9^10
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,9,"D")
;;=10^37^20^.08
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,9,"N")
;;=7^8^8^7^8
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,10,"D")
;;=12^37^6^.11
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,10,"N")
;;=8^13^11^8^11
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,11,"D")
;;=12^57^5^.12
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,11,"N")
;;=8^13^13^10^13
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,12,"D")
;;=3^18^20^1108
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,12,"N")
;;=2^16^5^3^5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,13,"D")
;;=13^37^40^2101
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,13,"N")
;;=10^14^14^11^14
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,14,"D")
;;=14^37^40^2102
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,14,"N")
;;=13^18^17^13^17
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,15,"D")
;;=16^37^1^15,31
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,15,"N")
;;=18^0^0^19^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,16,"D")
;;=5^37^1^16,31
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,16,"N")
;;=12^4^4^5^4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,17,"D")
;;=15^16^1^5101
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,17,"N")
;;=14^15^18^14^18^^^^^^1
BCH1I001 ; 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,",11,0)
+2 ;;=BCH EDIT RECORD DATA^^^^2941013^^^90002^0^0^1
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,40,0)
+4 ;;=^.4031I^4^4
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,0)
+6 ;;=1^^1,1^^^0
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,1)
+8 ;;=CHR RECORD EDIT
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,0)
+10 ;;=^.4032PI^31^1
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,31,0)
+12 ;;=BCH EDIT RECORD DATA^1^1,1^e
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",1,31)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",31,31)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,0)
+18 ;;=1.2^^1,2^^^1^17,77
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,1)
+20 ;;=Page 1.2
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,0)
+22 ;;=^.4032IP^113^1
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,113,0)
+24 ;;=BCH EDIT TESTS/MSR/RF^1^2,2^e
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",1,113)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",113,113)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,0)
+30 ;;=1.4^^1,1
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,1)
+32 ;;=Page 1.4
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,0)
+34 ;;=^.4032IP^124^2
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,123,0)
+36 ;;=BCH POV HEADER BLOCK^1^1,1^e
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,124,0)
+38 ;;=BCH POV EDIT BLK^2^7,1^e
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,124,2)
+40 ;;=6^AD^n^0
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",1,123)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",2,124)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",123,123)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",124,124)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,0)
+50 ;;=1.6^^6,1^^^1^10,75
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,1)
+52 ;;=Page 1.6
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,0)
+54 ;;=^.4032IP^125^1
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,125,0)
+56 ;;=BCH POV PROV NARR^1^1,1^e
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",1,125)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",125,125)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1,1)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1.2,2)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1.4,3)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1.6,4)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","CHR RECORD EDIT",1)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1.2",2)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1.4",3)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1.6",4)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,0,0,"N")
+78 ;;=15,31^2,31^2,31^15,31^2,31
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31)
+80 ;;=0^0^90002^^e^^^^2
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,2,"D")
+82 ;;=2^18^20^.01
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,2,"N")
+84 ;;=0^12^3^0^3
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,3,"D")
+86 ;;=2^52^20^.02
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,3,"N")
+88 ;;=0^5^12^2^12
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,4,"D")
+90 ;;=7^37^20^.06
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,4,"N")
+92 ;;=16^6^6^16^6
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,5,"D")
+94 ;;=3^52^20^.03
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,5,"N")
+96 ;;=3^16^16^12^16
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,6,"D")
+98 ;;=8^37^20^.05
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,6,"N")
+100 ;;=4^7^7^4^7
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,7,"D")
+102 ;;=9^37^20^.07
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,7,"N")
+104 ;;=6^9^9^6^9
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,8,"D")
+106 ;;=11^37^40^.09
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,8,"N")
+108 ;;=9^10^10^9^10
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,9,"D")
+110 ;;=10^37^20^.08
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,9,"N")
+112 ;;=7^8^8^7^8
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,10,"D")
+114 ;;=12^37^6^.11
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,10,"N")
+116 ;;=8^13^11^8^11
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,11,"D")
+118 ;;=12^57^5^.12
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,11,"N")
+120 ;;=8^13^13^10^13
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,12,"D")
+122 ;;=3^18^20^1108
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,12,"N")
+124 ;;=2^16^5^3^5
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,13,"D")
+126 ;;=13^37^40^2101
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,13,"N")
+128 ;;=10^14^14^11^14
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,14,"D")
+130 ;;=14^37^40^2102
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,14,"N")
+132 ;;=13^18^17^13^17
+133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,15,"D")
+134 ;;=16^37^1^15,31
+135 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,15,"N")
+136 ;;=18^0^0^19^0
+137 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,16,"D")
+138 ;;=5^37^1^16,31
+139 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,16,"N")
+140 ;;=12^4^4^5^4
+141 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,17,"D")
+142 ;;=15^16^1^5101
+143 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,31,17,"N")
+144 ;;=14^15^18^14^18^^^^^^1
