Routine: BCH1I001

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

BCH1I001.m