IBY432PR ;ALB/WCJ - Pre-Installation for IB patch 432 ;3-Oct-2010
;;2.0;INTEGRATED BILLING;**432**;21-MAR-94;Build 192
;
; delete all output formatter (O.F.) data elements included in build
D DELOF,DELFLD,RIT
Q
DELFLD ; removed fields marked for deletion May 2007 #'s 450,451,452,& 456
N DA,DIK
S DIK="^DD(399,",DA(1)=399 F DA=450,451,452,456 D ^DIK
Q
RIT ; recompile billing screen templates
N X,Y,DMAX,IBN
D MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")
F IBN=1:1:8,"10","102","10H" D
.S X="IBXS"_$S(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN),Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B"),DMAX=$$ROUSIZE^DILF
.I Y D EN^DIEZ
D MES^XPDUTL(" Done.")
Q
INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
; FILE=5,6,7 indicating file 364.x
; Y=ien to file
NEW OK,LN,TAG,DATA
S OK=0
F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
Q OK
DELOF ; Delete included OF entries
NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y
F FILE=5,6,7 S DIK="^IBA(364."_FILE_"," F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" D
.F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA("364."_FILE,DA,0)) D ^DIK
.Q
; Also delete entries which are not going to be re-added later. These are non-functioning entries in file 364.6.
S DIK="^IBA(364.6,"
F LN=2:1 S TAG="DEL6"_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" D
.F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA("364.6",DA,0)) D ^DIK
; Also delete entries not to be re-added later. non-functioning entries in file 364.7.
S DIK="^IBA(364.7,"
F LN=2:1 S TAG="DEL7"_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" D
.F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA("364.7",DA,0)) D ^DIK
Q
INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
; Y - ien to file
N DATA,ENTRY,LN,OK,TAG
S OK=0,ENTRY=U_$P($G(^IBE(350.8,Y,0)),U,3)_U
F LN=2:1 S TAG="ENT3508+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,ENTRY) S OK=1 Q
Q OK
;-----------------------------------------------------------------------
; 364.5 entries modified:
ENT5 ; OF entries in file 364.5 to be included
;
;;^195^254^259^269^324^325^
;;^326^327^328^329^330^331^332^333^334^335^336^337^338^339^340^341^342^
;;^343^344^345^346^347^348^349^350^351^352^353^354^357^358^359^360^361^362^
;;^363^364^365^366^367^368^369^370^371^372^373^374^375^
;
;-----------------------------------------------------------------------
; 364.6 entries modified:
;55 CL1-15
;57 CL1-17
;87 PC1-4
;88 VC1-2
;93 DC1-3
;114 PRF-5
;130 INS-9
;195 OI1-12
;804 OI1-13
;806 OI1-15
;891 COB1-10
;935 OPR-16
;941 OPR-2
;942 OPR-3
;943 OPR-4
;944 OPR-5
;951 OPR-17
;957 CI3-9
;962 COB1-12
;973 OPR1-4
;974 PRF-21
;985 OPR1-2
;986 OPR1-3
;990 OPR1-7
;991 OPR1-5
;992 OPR1-6
;993 OPR1-8
;999 CI3-11
;1000 CI3-10
;1007 OPR1-10
;1047 OPR1-11
;1181 OP9-3
;1182 OP9-4
;1183 OP9-5
;1184 OP9-6
;1185 OP9-7
;1186 OP9-8
;1187 OP9-9
;1188 OP9-10
;1224 OPR2-2
;1225 OPR2-3
;1226 OPR2-4
;1227 OPR2-5
;1228 OPR2-6
;1229 OPR2-7
;1230 OPR2-8
;1231 OPR2-9
;1232 OPR2-10
;1233 OPR2-11
;1487 CMS-1500 BOX24F
;1917 CL1A-17
;1919 CL1A-19
;1921 CL1A-21
;1935 CL1A-15
;1937 AMB-1 (SEQ 104.8)
;1938 AMB-2 (SEQ 104.8)
;1939 AMB-1 (SEQ 104.9)
;1940 AMB-3 (SEQ 104.8)
;1941 AMB-4 (SEQ 104.8)
;1942 AMB-5 (SEQ 104.8)
;1943 AMB-6 (SEQ 104.8)
;1944 AMB-7 (SEQ 104.8)
;1945 AMB-2 (SEQ 104.9)
;1946 AMB-3 (SEQ 104.9)
;1947 AMB-4 (SEQ 104.9)
;1948 AMB-5 (SEQ 104.9)
;1949 AMB-6 (SEQ 104.9)
;1950 AMB-7 (SEQ 104.9)
;1951 AMB-8 (SEQ 104.9)
;1952 PRV-9
;1953 PRV-12
;1954 CL1A-29
;1955 CL1A-30
;1956 CL1A-23
;1957 CL1A-22.8
;1958 CL1A-22.9
;1959 CL1A-24
;1960 CL1A-25
;1961 CL1A-26
;1962 CL1A-27
;1963 CL1A-28
;1964 PRV-13
;1965 PRV-14
;1966 CI3-13
;1967 CI3-14
;1968 CI3-15
;1969 CL1B-1
;1970 CL1B-2
;1971 CL1B-3
;1972 CL1B-4
;1973 CL1B-5
;1974 PT2-5
;1975 PT2-6
;1976 PT2-7
;1977 PT2-8
;1978 PT2-9
;1979 PT2-10
;1980 PT2-11
;1981 PT2-12
;1982 SPC-1
;1983 SPC-2
;1984 SPC-3
;1985 SPC-4
;1986 SPC-5
;1988 SUB2-5
;1991 OPR9-1
;1992 OPR9-1.5
;1993 OPR9-2
;1994 OPR9-3
;1995 OPR9-4
;1996 OPR9-5
;1997 OPR9-6
;1998 OPR9-7
;1999 OPR9-8
;2000 OPR9-9
;2001 OPR9-10
;2002 OPR9-11
;2003 OPRA-1
;2004 OPRA-2
;2005 OPRA-3
;2006 OPRA-4
;2007 OPRA-5
;2008 OPRA-6
;2009 OPRA-7
;2010 OPRA-8
;2011 OPRA-9
;2012 OP1A-1
;2013 OP1A-2
;2014 OP1A-3
;2015 OP1A-4
;2016 OP1A-5
;2017 OP1A-6
;2018 OP1A-7
;2019 OP1A-8
;2020 OP1A-9
;2021 OP1A-10
;2022 RX1-11
;2023 RX1-12
;2024 OI4-11
;2025 OI4-12
;2026 OI4-8
;2027 OI4-9
;2028 OI4-10
;2029 SUB2-17
;2030 SUB2-18
;2031 SUB2-19
;2032 SUB2-20
;2033 SUB2-21
;2034 SUB2-22
;2050 LDAT-1
;2051 LDAT-2
;2052 LDAT-1.9
;2053 LDAT-3
;2054 LDAT-4
;2055 LDAT-5
;2056 LDAT-6
;2057 LDAT-7
;2058 LDAT-8
;2059 LDAT-9
;2060 LDAT-10
;2061 LDAT-11
;2062 LDAT-12
;2063 LDAT-13
;2064 LDAT-14
;2065 LDAT-99.9
;2066 LOPE-1
;2067 LOPE-1.9
;2068 LOPE-2
;2069 LOPE-3
;2070 LOPE-4
;2071 LOPE-5
;2072 LOPE-6
;2073 LOPE-7
;2074 LOPE-8
;2075 LOPE-9
;2076 LOPE-10
;2077 LOPE-11
;2078 LOPE-12
;2079 LOPE-13
;2080 LOPE-14
;2081 LOPE-15
;2084 LOPE-99.9
;2085 LOP1-1
;2086 LOP1-2
;2087 LOP1-1.9
;2088 LOP1-3
;2089 LOP1-4
;2090 LOP1-5
;2091 LOP1-6
;2092 LOP1-7
;2093 LOP1-8
;2094 LOP1-9
;2095 LOP1-10
;2096 LOP1-11
;2097 LOP1-12
;2098 LOP1-13
;2099 LOP1-14
;2100 LOP1-15
;2103 LOP1-99.9
;2104 LREN-1
;2105 LREN-1.9
;2106 LREN-2
;2107 LREN-3
;2108 LREN-4
;2109 LREN-5
;2110 LREN-6
;2111 LREN-7
;2112 LREN-8
;2113 LREN-9
;2114 LREN-10
;2115 LREN-11
;2116 LREN-12
;2117 LREN-13
;2118 LREN-14
;2119 LREN-15
;2122 LREN-99.9
;2123 LREN-17
;2124 LREN-18
;2125 LPUR-1
;2126 LPUR-1.9
;2127 LPUR-2
;2128 LPUR-3
;2129 LPUR-4
;2130 LPUR-5
;2131 LPUR-6
;2132 LPUR-7
;2133 LPUR-99.9
;2134 LSUP-1
;2135 LSUP-1.9
;2136 LSUP-2
;2137 LSUP-3
;2138 LSUP-4
;2139 LSUP-5
;2140 LSUP-6
;2141 LSUP-7
;2142 LSUP-8
;2143 LSUP-9
;2144 LSUP-10
;2145 LSUP-11
;2146 LSUP-12
;2147 LSUP-13
;2148 LSUP-14
;2149 LSUP-15
;2152 LSUP-99.9
;2153 LREF-1
;2154 LREF-1.9
;2155 LREF-2
;2156 LREF-3
;2157 LREF-4
;2158 LREF-5
;2159 LREF-6
;2160 LREF-7
;2161 LREF-8
;2162 LREF-9
;2163 LREF-10
;2164 LREF-11
;2165 LREF-12
;2166 LREF-13
;2167 LREF-14
;2168 LREF-15
;2169 LREF-99.9
;2170 SUB2-99
;2171 CI1A-1.5
;2172 CI1A-99
;2173 OPR-1.5
;2174 OPR-99.5
;2175 OPR1-1.5
;2176 OPR1-99.5
;2177 OPR2-1.5
;2178 OPR2-99.5
;2179 OPR3-1.5
;2180 OPR3-99.5
;2181 OPR4-1.5
;2182 OPR4-99.5
;2183 OPR5-1.5
;2184 OPR5-99.5
;2185 OPR7-99.5
;2186 OPR8-1.5
;2187 OPR8-99.5
;2188 OPR9-99.5
;2189 OPRA-1.5
;2190 OPRA-99.5
;2191 OP1-1.5
;2192 OP1-99.5
;2193 OP1A-1.5
;2194 OP1A-99.5
;2195 OP2-1.5
;2196 OP2-99.5
;2197 OP4-1.5
;2198 OP4-99.5
;2199 OP8-1.5
;2200 OP9-1.5
;2201 OP9-99.5
;2202 OI6-99.9
;2203 OI4-7.9
;2204 OI1-19
;2205 OI1-20
;2206 LCOB-18
;2207 LCAS-22
;2208 PRV1-12
;
ENT6 ; O.F. entries in file 364.6 to be included
;
;;^55^57^87^88^93^114^130^195^804^806^891^935^941^942^943^944^951^957^962^973^974^985^986^990^
;;^991^992^993^999^1000^1007^1045^1047^1181^1182^1183^1184^1185^1186^1187^
;;^1188^1224^1225^1226^1227^1228^1229^1230^1231^1232^1233^1487^1917^1919^1921^
;;^1935^1937^1938^1939^1940^1941^1942^1943^1944^1945^1946^1947^1948^1949^
;;^1950^1951^1952^1953^1954^1955^1956^1957^1958^1959^1960^1961^1962^1963^
;;^1964^1965^1966^1967^1968^1969^1970^1971^1972^1973^1974^1975^1976^1977^
;;^1978^1979^1980^1981^1982^1983^1984^1985^1986^1988^1991^1992^1993^1994^
;;^1995^1996^1997^1998^1999^2000^2001^2002^2003^2004^2005^2006^2007^2008^
;;^2009^2010^2011^2012^2013^2014^2015^2016^2017^2018^2019^2020^2021^2022^
;;^2023^2024^2025^2026^2027^2028^2029^2030^2031^2032^2033^2034^2050^2051^
;;^2052^2053^2054^2055^2056^2057^2058^2059^2060^2061^2062^2063^2064^2065^
;;^2066^2067^2068^2069^2070^2071^2072^2073^2074^2075^2076^2077^2078^2079^
;;^2080^2081^2084^2085^2086^2087^2088^2089^2090^2091^2092^2093^
;;^2094^2095^2096^2097^2098^2099^2100^2103^2104^2105^2106^2107^
;;^2108^2109^2110^2111^2112^2113^2114^2115^2116^2117^2118^2119^
;;^2122^2123^2124^2125^2126^2127^2128^2129^2130^2131^2132^2133^2134^2135^
;;^2136^2137^2138^2139^2140^2141^2142^2143^2144^2145^2146^2147^2148^2149^
;;^2152^2153^2154^2155^2156^2157^2158^2159^2160^2161^2162^2163^
;;^2164^2165^2166^2167^2168^2169^2170^2171^2172^2173^2174^2175^2176^2177^
;;^2178^2179^2180^2181^2182^2183^2184^2185^2186^2187^2188^2189^2190^2191^
;;^2192^2193^2194^2195^2196^2197^2198^2199^2200^2201^2202^2203^2204^2205^
;;^2206^2207^2208^
;
;-----------------------------------------------------------------------
; 364.7 entries modified:
;12 CI1A-6
;40 PC1-4
;53 OPR-6
;68 CL1-7
;103 CL1-23
;106 VC1-1.9
;131 UB-2
;188 OI1-12
;209 SUB2-4.5
;212 OPR1-11
;213 OPR1-12
;226 CI1A-2
;246 OPR7-6
;247 OPR7-7
;375 CI1A-7
;376 CI1A-8
;377 CI1A-9
;385 CI1A-17
;388 CI1A-5
;389 CI1A-4
;413 SUB2-16
;420 OPR2-2
;421 OPR2-3
;422 OPR2-4
;423 OPR2-5
;424 OPR2-6
;425 OPR2-7
;426 OPR2-8
;427 OPR2-9
;428 OPR2-10
;429 OPR2-11
;430 OPR3-2
;431 OPR3-3
;432 OPR3-4
;433 OPR3-5
;434 OPR3-6
;435 OPR3-7
;436 OPR3-8
;437 OPR3-9
;438 OPR3-10
;439 OPR3-11
;440 OPR4-3
;535 OP9-4
;537 OP1-3
;538 OP1-8
;540 OP1-10
;541 OP1-4
;542 OP1-6
;543 OP1-5
;544 OP1-7
;545 OP2-4
;546 OP2-5
;547 OP2-7
;548 OP2-9
;549 OP2-6
;550 OP2-10
;551 OP2-3
;558 OP3-10
;560 OP4-4
;561 OP4-3
;562 OP4-5
;563 OP4-7
;564 OP4-9
;565 OP4-6
;566 OP4-8
;567 OP4-10
;589 OP7-10
;600 OP9-5
;601 OP9-7
;602 OP9-9
;603 OP9-6
;604 OP9-8
;605 OP9-10
;640 OP9-3
;644 OPR5-2
;645 OPR5-3
;646 OPR5-4
;647 OPR5-5
;648 OPR5-6
;649 OPR5-7
;650 OPR5-8
;651 OPR5-9
;652 OPR5-10
;653 OPR5-11
;654 OPR4-5
;655 OPR4-7
;656 OPR4-9
;657 OPR4-11
;658 OPR4-2
;659 OPR4-4
;660 OPR4-6
;661 OPR4-8
;662 OPR4-19
;663 OP1-9
;664 OP2-8
;798 OPR-4
;804 COB1-2
;814 MOA1-2
;815 MIA1-2
;816 MIA2-2
;817 CCAS-2
;893 OPR-15
;894 OPR-13
;896 OPR-9
;897 OPR-11
;900 OI1-13
;902 OI1-15
;914 OPR-2
;915 OPR-3
;916 OPR-7
;917 OPR-10
;918 OPR-14
;919 OPR-8
;921 OPR-5
;922 OPR-16
;923 OPR-17
;951 COB1-10
;952 PRF-21
;983 COB1-12
;985 LCOB-1.9
;987 OPR1-2
;988 OPR1-3
;992 OPR1-8
;993 OPR1-5
;994 OPR1-6
;995 OPR1-9
;1001 CI3-10
;1008 OPR1=10
;1015 GEN-7
;1018 OP8-2
;1019 OP1-2
;1021 OP4-2
;1024 OP9-2
;1025 OP2-2
;1034 OPR1-4
;1035 OPR1-14
;1036 OPR1-15
;1037 OPR1-7
;1039 CI4-14
;1162 REF PROV OTH ID QUAL (17A/1)
;1163 REF PROV OTH ID# (BX 17A/2)
;1164 REFERRING PROV NAME (BX 17)
;1165 REFERRING PROV NPI# (BX 17B)
;1190 ID QUALIFER (BX-24I)
;1191 RENDERING PROVIDER ID (BX-24J)
;1203 BLOCK 31 CHR 1-21 (BX-31/LN1)
;1205 IBXSAVE CLEAN-UP BX 33
;1208 BLOCK 31 CHR 22-42 (BX-31/LN2)
;1430 ATTENDING NAME (FL-76/2/1)
;1431 ATTENDING NAME (FL-76/2/2)
;1432 OPERATING NAME (FL-77/2/1)
;1433 OPERATING NAME (FL-77/2/2)
;1436 OTHER NAME (FL-78/2/1)
;1437 OTHER NAME (FL-78/2/2)
;1439 OTHER NAME (FL-79/2/2)
;1525 CI5-7
;1526 CI5-8
;1527 CI5-9
;1539 OI6-9
;1540 OI6-10
;1611 PRV-99
;1617 CL1A-17
;1618 CL1A-18
;1619 CL1A-19
;1621 CL1A-21
;1628 PRV1-5
;1629 PRV1-6
;1634 PRV-11
;1637 AMB-1 (SEQ 104.8)
;1638 AMB-2 (SEQ 104.8)
;1639 AMB-1 (SEQ 104.9)
;1640 AMB-3 (SEQ 104.8)
;1641 AMB-4 (SEQ 104.8)
;1642 AMB-5 (SEQ 104.8)
;1643 AMB-6 (SEQ 104.8)
;1644 AMB-7 (SEQ 104.8)
;1645 AMB-2 (SEQ 104.9)
;1646 AMB-3 (SEQ 104.9)
;1647 AMB-4 (SEQ 104.9)
;1648 AMB-5 (SEQ 104.9)
;1649 AMB-6 (SEQ 104.9)
;1650 AMB-7 (SEQ 104.9)
;1651 AMB-8 (SEQ 104.9)
;1652 PRV-9
;1653 PRV-12
;1654 CL1A-29
;1655 CL1A-30
;1656 CL1A-23
;1657 CL1A-22.8
;1658 CL1A-22.9
;1659 CL1A-24
;1660 CL1A-25
;1661 CL1A-26
;1662 CL1A-27
;1663 CL1A-28
;1664 PRV-13
;1665 PRV-14
;1666 CI3-13
;1667 CI3-14
;1668 CI3-15
;1669 CL1B-1
;1670 CL1B-2
;1671 CL1B-3
;1672 CL1B-4
;1673 CLIB-5
;1674 PT2-5
;1675 PT2-6
;1676 PT2-7
;1677 PT2-8
;1678 PT2-9
;1679 PT2-10
;1680 PT2-11
;1681 PT2-12
;1682 SPC-1
;1683 SPC-2
;1684 SPC-3
;1685 SPC-4
;1686 SPC-5
;1687 SUB2-5
;1690 OPR9-1
;1691 OPR9-1.5
;1692 OPR9-2
;1693 OPR9-3
;1694 OPR9-4
;1695 OPR9-5
;1696 OPR9-6
;1697 OPR9-7
;1698 OPR9-8
;1699 OPR9-9
;1700 OPR9-10
;1701 OPR9-11
;1702 OPRA-1
;1703 OPRA-2
;1704 OPRA-3
;1705 OPRA-4
;1706 OPRA-5
;1707 OPRA-6
;1708 OPRA-7
;1709 OPRA-8
;1710 OPRA-9
;1711 OP1A-1
;1712 OP1A-2
;1713 OP1A-3
;1714 OP1A-4
;1715 OP1A-5
;1716 OP1A-6
;1717 OP1A-7
;1718 OP1A-8
;1719 OP1A-9
;1720 OP1A-10
;1721 RX1-11
;1722 RX1-12
;1723 OI4-11
;1724 OI4-12
;1725 OI4-8
;1726 OI4-9
;1727 OI4-10
;1728 SUB2-17
;1729 SUB2-18
;1730 SUB2-19
;1731 SUB2-20
;1732 SUB2-21
;1733 SUB2-22
;1750 LDAT-1
;1751 LDAT-2
;1752 LDAT-1.9
;1753 LDAT-3
;1754 LDAT-4
;1755 LDAT-5
;1756 LDAT-6
;1757 LDAT-7
;1758 LDAT-8
;1759 LDAT-9
;1760 LDAT-10
;1761 LDAT-11
;1762 LDAT-12
;1763 LDAT-13
;1764 LDAT-14
;1765 LDAT-99.9
;1766 LOPE-1
;1767 LOPE-1.9
;1768 LOPE-2
;1769 LOPE-3
;1770 LOPE-4
;1771 LOPE-5
;1772 LOPE-6
;1773 LOPE-7
;1774 LOPE-8
;1775 LOPE-9
;1776 LOPE-10
;1777 LOPE-11
;1778 LOPE-12
;1779 LOPE-13
;1780 LOPE-14
;1781 LOPE-15
;1784 LOPE-99.9
;1785 LOP1-1
;1786 LOP1-2
;1787 LOP1-1.9
;1788 LOP1-3
;1789 LOP1-4
;1790 LOP1-5
;1791 LOP1-6
;1792 LOP1-7
;1793 LOP1-8
;1794 LOP1-9
;1795 LOP1-10
;1796 LOP1-11
;1797 LOP1-12
;1798 LOP1-13
;1799 LOP1-14
;1800 LOP1-15
;1803 LOP1-99.9
;1804 LREN-1
;1805 LREN-1.9
;1806 LREN-2
;1807 LREN-3
;1808 LREN-4
;1809 LREN-5
;1810 LREN-6
;1811 LREN-7
;1812 LREN-8
;1813 LREN-9
;1814 LREN-10
;1815 LREN-11
;1816 LREN-12
;1817 LREN-13
;1818 LREN-14
;1819 LREN-15
;1822 LREN-99.9
;1823 LREN-16
;1824 LREN-17
;1825 LPUR-1
;1826 LPUR-1.9
;1827 LPUR-2
;1828 LPUR-3
;1829 LPUR-4
;1830 LPUR-5
;1831 LPUR-6
;1832 LPUR-7
;1833 LPUR-99.9
;1834 LSUP-1
;1835 LSUP-1.9
;1836 LSUP-2
;1837 LSUP-3
;1838 LSUP-4
;1839 LSUP-5
;1840 LSUP-6
;1841 LSUP-7
;1842 LSUP-8
;1843 LSUP-9
;1844 LSUP-10
;1845 LSUP-11
;1846 LSUP-12
;1847 LSUP-13
;1848 LSUP-14
;1849 LSUP-15
;1852 LSUP-99.9
;1853 LREF-1
;1854 LREF-1.9
;1855 LREF-2
;1856 LREF-3
;1857 LREF-4
;1858 LREF-5
;1859 LREF-6
;1860 LREF-7
;1861 LREF-8
;1862 LREF-9
;1863 LREF-10
;1864 LREF-11
;1865 LREF-12
;1866 LREF-13
;1867 LREF-14
;1868 LREF-15
;1869 LREF-99.9
;1870 SUB2-99
;1871 CI1A-1.5
;1872 CI1A-99
;1873 OPR-1.5
;1874 OPR-99.5
;1875 OPR1-1.5
;1876 OPR1-99.5
;1877 OPR2-1.5
;1878 OPR2-99.5
;1879 OPR3-1.5
;1880 OPR3-99.5
;1881 OPR4-1.5
;1882 OPR4-99.5
;1883 OPR5-1.5
;1884 OPR5-99.5
;1885 OPR7-99.5
;1886 OPR8-1.5
;1887 OPR8-99.5
;1888 OPR9-99.5
;1889 OPRA-1.5
;1890 OPRA-99.5
;1891 OP1-1.5
;1892 OP1-99.5
;1893 OP1A-1.5
;1894 OP1A-99.5
;1895 OP2-1.5
;1896 OP2-99.5
;1897 OP4-1.5
;1898 OP4-99.5
;1899 OP8-1.5
;1900 OP9-1.5
;1901 OP9-99.5
;1902 OI6-99.9
;1903 OI4-7.9
;1904 OI1-19
;1905 OI1-20
;1906 LCOB-18
;1907 LCAS-22
;1908 PRV1-12
;
ENT7 ; O.F. entries in file 364.7 to be included
;
;;^12^40^53^68^103^106^131^188^205^209^212^213^226^229^230^232^244^245^246^247^375^376^377^
;;^385^388^389^413^420^421^422^423^424^425^426^427^428^429^430^431^432^433^434^435^
;;^436^437^438^439^440^443^444^445^446^447^448^449^450^451^452^535^537^538^540^541^
;;^542^543^544^545^546^547^548^549^550^551^558^560^561^562^563^564^565^566^567^588^589^
;;^600^601^602^603^604^605^640^644^645^646^647^648^649^650^651^652^653^654^655^656^
;;^657^658^659^660^661^662^663^664^798^804^814^815^816^817^893^894^896^897^900^902^
;;^914^915^916^917^918^919^921^922^923^951^952^962^983^985^987^988^992^993^994^995^
;;^1001^1008^1015^1018^1019^1021^1024^1034^1035^1036^1037^1039^1162^1163^1164^1165^
;;^1179^1190^1191^1203^1205^1208^1366^1430^1431^1432^1433^1436^1437^1438^1439^1440^
;;^1441^1442^1443^1444^1445^1446^1447^1448^1451^1452^1453^1525^1526^1527^1539^1540^
;;^1611^1617^1618^1619^1621^1628^1629^1634^1637^1638^1639^1640^1641^1642^1643^1644^1645^1646^
;;^1647^1648^1649^1650^1651^1652^1653^1654^1655^1656^1657^1658^1659^1660^1661^1662^
;;^1663^1664^1665^1666^1667^1668^1669^1670^1671^1672^1673^1674^1675^1676^1677^1678^
;;^1679^1680^1681^1682^1683^1684^1685^1686^1687^1690^1691^1692^1693^1694^1695^1696^
;;^1697^1698^1699^1700^1701^1702^1703^1704^1705^1706^1707^1708^1709^1710^1711^1712^
;;^1713^1714^1715^1716^1717^1718^1719^1720^1721^1722^1723^1724^1725^1726^1727^1728^
;;^1729^1730^1731^1732^1733^1750^1751^1752^1753^1754^1755^1756^1757^1758^1759^1760^
;;^1761^1762^1763^1764^1765^1766^1767^1768^1769^1770^1771^1772^1773^1774^1775^1776^
;;^1777^1778^1779^1780^1781^1784^1785^1786^1787^1788^1789^1790^1791^1792^1793^1794^
;;^1795^1796^1797^1798^1799^1800^1803^1804^1805^1806^1807^1808^1809^1810^1811^1812^
;;^1813^1814^1815^1816^1817^1818^1819^1822^1823^1824^1825^1826^1827^1828^1829^1830^
;;^1831^1832^1833^1834^1835^1836^1837^1838^1839^1840^1841^1842^1843^1844^1845^1846^
;;^1847^1848^1849^1852^1853^1854^1855^1856^1857^1858^1859^1860^1861^1862^1863^1864^
;;^1865^1866^1867^1868^1869^1870^1871^1872^1873^1874^1875^1876^1877^1878^1879^1880^
;;^1881^1882^1883^1884^1885^1886^1887^1888^1889^1890^1891^1892^1893^1894^1895^1896^
;;^1897^1898^1899^1900^1901^1902^1903^1904^1905^1906^1907^1908^
;;
;-----------------------------------------------------------------------
DEL6 ; remove O.F. entries in file 364.6 (not re-added)
;
;;^182^1040^1153^1154^1155^1156^1157^1158^1159^1160^1161^1197^1198^1199^
;;^1200^1201^1202^1203^1204^1205^1206^1308^1323^1324^1325^1326^1327^1328^
;;^1329^1330^1331^1332^1333^1334^1335^1336^1337^1338^1339^1914^1989^1990^
;;^2082^2083^2101^2102^2120^2121^2150^2151^
;;
;-----------------------------------------------------------------------
DEL7 ; remove O.F. entries in file 364.7 (not re-added)
;
;;^150^204^394^395^396^397^398^399^400^401^402^403^470^576^577^578^579^580^
;;^581^582^1022^1041^1042^1043^1044^1045^1046^1047^1048^1049^1050^1051^
;;^1052^1053^1054^1055^1056^1057^1614^1688^1689^1782^1783^1801^1802^1820^1821^
;;^1850^1851^
;;
Q
ENT3508 ; entries in file 350.8 to be included
;
;;^IB090^IB105^IB122^IB141^IB142^IB143^IB144^IB145^IB149^IB161^IB162^IB163^
;;^IB312^IB329^IB330^IB331^IB332^IB333^IB334^IB337^IB338^IB339^IB340^IB341^IB342^IB343^
;;^IB800^IB801^IB802^IB803^IB804^IB805^IB806^IB807^IB808^IB809^IB810^IB811^IB812^IB813^IB814^
;;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY432PR 19439 printed Apr 09, 2024@21:16:48 Page 2
IBY432PR ;ALB/WCJ - Pre-Installation for IB patch 432 ;3-Oct-2010
+1 ;;2.0;INTEGRATED BILLING;**432**;21-MAR-94;Build 192
+2 ;
+3 ; delete all output formatter (O.F.) data elements included in build
+4 DO DELOF
DO DELFLD
DO RIT
+5 QUIT
DELFLD ; removed fields marked for deletion May 2007 #'s 450,451,452,& 456
+1 NEW DA,DIK
+2 SET DIK="^DD(399,"
SET DA(1)=399
FOR DA=450,451,452,456
DO ^DIK
+3 QUIT
RIT ; recompile billing screen templates
+1 NEW X,Y,DMAX,IBN
+2 DO MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")
+3 FOR IBN=1:1:8,"10","102","10H"
Begin DoDot:1
+4 SET X="IBXS"_$SELECT(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN)
SET Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B")
SET DMAX=$$ROUSIZE^DILF
+5 IF Y
DO EN^DIEZ
End DoDot:1
+6 DO MES^XPDUTL(" Done.")
+7 QUIT
INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
+1 ; FILE=5,6,7 indicating file 364.x
+2 ; Y=ien to file
+3 NEW OK,LN,TAG,DATA
+4 SET OK=0
+5 FOR LN=2:1
SET TAG="ENT"_FILE_"+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
IF $FIND(DATA,U_Y_U)
SET OK=1
QUIT
+6 QUIT OK
DELOF ; Delete included OF entries
+1 NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y
+2 FOR FILE=5,6,7
SET DIK="^IBA(364."_FILE_","
FOR LN=2:1
SET TAG="ENT"_FILE_"+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
Begin DoDot:1
+3 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
IF $DATA(^IBA("364."_FILE,DA,0))
DO ^DIK
+4 QUIT
End DoDot:1
+5 ; Also delete entries which are not going to be re-added later. These are non-functioning entries in file 364.6.
+6 SET DIK="^IBA(364.6,"
+7 FOR LN=2:1
SET TAG="DEL6"_"+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
Begin DoDot:1
+8 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
IF $DATA(^IBA("364.6",DA,0))
DO ^DIK
End DoDot:1
+9 ; Also delete entries not to be re-added later. non-functioning entries in file 364.7.
+10 SET DIK="^IBA(364.7,"
+11 FOR LN=2:1
SET TAG="DEL7"_"+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
Begin DoDot:1
+12 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
IF $DATA(^IBA("364.7",DA,0))
DO ^DIK
End DoDot:1
+13 QUIT
INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
+1 ; Y - ien to file
+2 NEW DATA,ENTRY,LN,OK,TAG
+3 SET OK=0
SET ENTRY=U_$PIECE($GET(^IBE(350.8,Y,0)),U,3)_U
+4 FOR LN=2:1
SET TAG="ENT3508+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
IF $FIND(DATA,ENTRY)
SET OK=1
QUIT
+5 QUIT OK
+6 ;-----------------------------------------------------------------------
+7 ; 364.5 entries modified:
ENT5 ; OF entries in file 364.5 to be included
+1 ;
+2 ;;^195^254^259^269^324^325^
+3 ;;^326^327^328^329^330^331^332^333^334^335^336^337^338^339^340^341^342^
+4 ;;^343^344^345^346^347^348^349^350^351^352^353^354^357^358^359^360^361^362^
+5 ;;^363^364^365^366^367^368^369^370^371^372^373^374^375^
+6 ;
+7 ;-----------------------------------------------------------------------
+8 ; 364.6 entries modified:
+9 ;55 CL1-15
+10 ;57 CL1-17
+11 ;87 PC1-4
+12 ;88 VC1-2
+13 ;93 DC1-3
+14 ;114 PRF-5
+15 ;130 INS-9
+16 ;195 OI1-12
+17 ;804 OI1-13
+18 ;806 OI1-15
+19 ;891 COB1-10
+20 ;935 OPR-16
+21 ;941 OPR-2
+22 ;942 OPR-3
+23 ;943 OPR-4
+24 ;944 OPR-5
+25 ;951 OPR-17
+26 ;957 CI3-9
+27 ;962 COB1-12
+28 ;973 OPR1-4
+29 ;974 PRF-21
+30 ;985 OPR1-2
+31 ;986 OPR1-3
+32 ;990 OPR1-7
+33 ;991 OPR1-5
+34 ;992 OPR1-6
+35 ;993 OPR1-8
+36 ;999 CI3-11
+37 ;1000 CI3-10
+38 ;1007 OPR1-10
+39 ;1047 OPR1-11
+40 ;1181 OP9-3
+41 ;1182 OP9-4
+42 ;1183 OP9-5
+43 ;1184 OP9-6
+44 ;1185 OP9-7
+45 ;1186 OP9-8
+46 ;1187 OP9-9
+47 ;1188 OP9-10
+48 ;1224 OPR2-2
+49 ;1225 OPR2-3
+50 ;1226 OPR2-4
+51 ;1227 OPR2-5
+52 ;1228 OPR2-6
+53 ;1229 OPR2-7
+54 ;1230 OPR2-8
+55 ;1231 OPR2-9
+56 ;1232 OPR2-10
+57 ;1233 OPR2-11
+58 ;1487 CMS-1500 BOX24F
+59 ;1917 CL1A-17
+60 ;1919 CL1A-19
+61 ;1921 CL1A-21
+62 ;1935 CL1A-15
+63 ;1937 AMB-1 (SEQ 104.8)
+64 ;1938 AMB-2 (SEQ 104.8)
+65 ;1939 AMB-1 (SEQ 104.9)
+66 ;1940 AMB-3 (SEQ 104.8)
+67 ;1941 AMB-4 (SEQ 104.8)
+68 ;1942 AMB-5 (SEQ 104.8)
+69 ;1943 AMB-6 (SEQ 104.8)
+70 ;1944 AMB-7 (SEQ 104.8)
+71 ;1945 AMB-2 (SEQ 104.9)
+72 ;1946 AMB-3 (SEQ 104.9)
+73 ;1947 AMB-4 (SEQ 104.9)
+74 ;1948 AMB-5 (SEQ 104.9)
+75 ;1949 AMB-6 (SEQ 104.9)
+76 ;1950 AMB-7 (SEQ 104.9)
+77 ;1951 AMB-8 (SEQ 104.9)
+78 ;1952 PRV-9
+79 ;1953 PRV-12
+80 ;1954 CL1A-29
+81 ;1955 CL1A-30
+82 ;1956 CL1A-23
+83 ;1957 CL1A-22.8
+84 ;1958 CL1A-22.9
+85 ;1959 CL1A-24
+86 ;1960 CL1A-25
+87 ;1961 CL1A-26
+88 ;1962 CL1A-27
+89 ;1963 CL1A-28
+90 ;1964 PRV-13
+91 ;1965 PRV-14
+92 ;1966 CI3-13
+93 ;1967 CI3-14
+94 ;1968 CI3-15
+95 ;1969 CL1B-1
+96 ;1970 CL1B-2
+97 ;1971 CL1B-3
+98 ;1972 CL1B-4
+99 ;1973 CL1B-5
+100 ;1974 PT2-5
+101 ;1975 PT2-6
+102 ;1976 PT2-7
+103 ;1977 PT2-8
+104 ;1978 PT2-9
+105 ;1979 PT2-10
+106 ;1980 PT2-11
+107 ;1981 PT2-12
+108 ;1982 SPC-1
+109 ;1983 SPC-2
+110 ;1984 SPC-3
+111 ;1985 SPC-4
+112 ;1986 SPC-5
+113 ;1988 SUB2-5
+114 ;1991 OPR9-1
+115 ;1992 OPR9-1.5
+116 ;1993 OPR9-2
+117 ;1994 OPR9-3
+118 ;1995 OPR9-4
+119 ;1996 OPR9-5
+120 ;1997 OPR9-6
+121 ;1998 OPR9-7
+122 ;1999 OPR9-8
+123 ;2000 OPR9-9
+124 ;2001 OPR9-10
+125 ;2002 OPR9-11
+126 ;2003 OPRA-1
+127 ;2004 OPRA-2
+128 ;2005 OPRA-3
+129 ;2006 OPRA-4
+130 ;2007 OPRA-5
+131 ;2008 OPRA-6
+132 ;2009 OPRA-7
+133 ;2010 OPRA-8
+134 ;2011 OPRA-9
+135 ;2012 OP1A-1
+136 ;2013 OP1A-2
+137 ;2014 OP1A-3
+138 ;2015 OP1A-4
+139 ;2016 OP1A-5
+140 ;2017 OP1A-6
+141 ;2018 OP1A-7
+142 ;2019 OP1A-8
+143 ;2020 OP1A-9
+144 ;2021 OP1A-10
+145 ;2022 RX1-11
+146 ;2023 RX1-12
+147 ;2024 OI4-11
+148 ;2025 OI4-12
+149 ;2026 OI4-8
+150 ;2027 OI4-9
+151 ;2028 OI4-10
+152 ;2029 SUB2-17
+153 ;2030 SUB2-18
+154 ;2031 SUB2-19
+155 ;2032 SUB2-20
+156 ;2033 SUB2-21
+157 ;2034 SUB2-22
+158 ;2050 LDAT-1
+159 ;2051 LDAT-2
+160 ;2052 LDAT-1.9
+161 ;2053 LDAT-3
+162 ;2054 LDAT-4
+163 ;2055 LDAT-5
+164 ;2056 LDAT-6
+165 ;2057 LDAT-7
+166 ;2058 LDAT-8
+167 ;2059 LDAT-9
+168 ;2060 LDAT-10
+169 ;2061 LDAT-11
+170 ;2062 LDAT-12
+171 ;2063 LDAT-13
+172 ;2064 LDAT-14
+173 ;2065 LDAT-99.9
+174 ;2066 LOPE-1
+175 ;2067 LOPE-1.9
+176 ;2068 LOPE-2
+177 ;2069 LOPE-3
+178 ;2070 LOPE-4
+179 ;2071 LOPE-5
+180 ;2072 LOPE-6
+181 ;2073 LOPE-7
+182 ;2074 LOPE-8
+183 ;2075 LOPE-9
+184 ;2076 LOPE-10
+185 ;2077 LOPE-11
+186 ;2078 LOPE-12
+187 ;2079 LOPE-13
+188 ;2080 LOPE-14
+189 ;2081 LOPE-15
+190 ;2084 LOPE-99.9
+191 ;2085 LOP1-1
+192 ;2086 LOP1-2
+193 ;2087 LOP1-1.9
+194 ;2088 LOP1-3
+195 ;2089 LOP1-4
+196 ;2090 LOP1-5
+197 ;2091 LOP1-6
+198 ;2092 LOP1-7
+199 ;2093 LOP1-8
+200 ;2094 LOP1-9
+201 ;2095 LOP1-10
+202 ;2096 LOP1-11
+203 ;2097 LOP1-12
+204 ;2098 LOP1-13
+205 ;2099 LOP1-14
+206 ;2100 LOP1-15
+207 ;2103 LOP1-99.9
+208 ;2104 LREN-1
+209 ;2105 LREN-1.9
+210 ;2106 LREN-2
+211 ;2107 LREN-3
+212 ;2108 LREN-4
+213 ;2109 LREN-5
+214 ;2110 LREN-6
+215 ;2111 LREN-7
+216 ;2112 LREN-8
+217 ;2113 LREN-9
+218 ;2114 LREN-10
+219 ;2115 LREN-11
+220 ;2116 LREN-12
+221 ;2117 LREN-13
+222 ;2118 LREN-14
+223 ;2119 LREN-15
+224 ;2122 LREN-99.9
+225 ;2123 LREN-17
+226 ;2124 LREN-18
+227 ;2125 LPUR-1
+228 ;2126 LPUR-1.9
+229 ;2127 LPUR-2
+230 ;2128 LPUR-3
+231 ;2129 LPUR-4
+232 ;2130 LPUR-5
+233 ;2131 LPUR-6
+234 ;2132 LPUR-7
+235 ;2133 LPUR-99.9
+236 ;2134 LSUP-1
+237 ;2135 LSUP-1.9
+238 ;2136 LSUP-2
+239 ;2137 LSUP-3
+240 ;2138 LSUP-4
+241 ;2139 LSUP-5
+242 ;2140 LSUP-6
+243 ;2141 LSUP-7
+244 ;2142 LSUP-8
+245 ;2143 LSUP-9
+246 ;2144 LSUP-10
+247 ;2145 LSUP-11
+248 ;2146 LSUP-12
+249 ;2147 LSUP-13
+250 ;2148 LSUP-14
+251 ;2149 LSUP-15
+252 ;2152 LSUP-99.9
+253 ;2153 LREF-1
+254 ;2154 LREF-1.9
+255 ;2155 LREF-2
+256 ;2156 LREF-3
+257 ;2157 LREF-4
+258 ;2158 LREF-5
+259 ;2159 LREF-6
+260 ;2160 LREF-7
+261 ;2161 LREF-8
+262 ;2162 LREF-9
+263 ;2163 LREF-10
+264 ;2164 LREF-11
+265 ;2165 LREF-12
+266 ;2166 LREF-13
+267 ;2167 LREF-14
+268 ;2168 LREF-15
+269 ;2169 LREF-99.9
+270 ;2170 SUB2-99
+271 ;2171 CI1A-1.5
+272 ;2172 CI1A-99
+273 ;2173 OPR-1.5
+274 ;2174 OPR-99.5
+275 ;2175 OPR1-1.5
+276 ;2176 OPR1-99.5
+277 ;2177 OPR2-1.5
+278 ;2178 OPR2-99.5
+279 ;2179 OPR3-1.5
+280 ;2180 OPR3-99.5
+281 ;2181 OPR4-1.5
+282 ;2182 OPR4-99.5
+283 ;2183 OPR5-1.5
+284 ;2184 OPR5-99.5
+285 ;2185 OPR7-99.5
+286 ;2186 OPR8-1.5
+287 ;2187 OPR8-99.5
+288 ;2188 OPR9-99.5
+289 ;2189 OPRA-1.5
+290 ;2190 OPRA-99.5
+291 ;2191 OP1-1.5
+292 ;2192 OP1-99.5
+293 ;2193 OP1A-1.5
+294 ;2194 OP1A-99.5
+295 ;2195 OP2-1.5
+296 ;2196 OP2-99.5
+297 ;2197 OP4-1.5
+298 ;2198 OP4-99.5
+299 ;2199 OP8-1.5
+300 ;2200 OP9-1.5
+301 ;2201 OP9-99.5
+302 ;2202 OI6-99.9
+303 ;2203 OI4-7.9
+304 ;2204 OI1-19
+305 ;2205 OI1-20
+306 ;2206 LCOB-18
+307 ;2207 LCAS-22
+308 ;2208 PRV1-12
+309 ;
ENT6 ; O.F. entries in file 364.6 to be included
+1 ;
+2 ;;^55^57^87^88^93^114^130^195^804^806^891^935^941^942^943^944^951^957^962^973^974^985^986^990^
+3 ;;^991^992^993^999^1000^1007^1045^1047^1181^1182^1183^1184^1185^1186^1187^
+4 ;;^1188^1224^1225^1226^1227^1228^1229^1230^1231^1232^1233^1487^1917^1919^1921^
+5 ;;^1935^1937^1938^1939^1940^1941^1942^1943^1944^1945^1946^1947^1948^1949^
+6 ;;^1950^1951^1952^1953^1954^1955^1956^1957^1958^1959^1960^1961^1962^1963^
+7 ;;^1964^1965^1966^1967^1968^1969^1970^1971^1972^1973^1974^1975^1976^1977^
+8 ;;^1978^1979^1980^1981^1982^1983^1984^1985^1986^1988^1991^1992^1993^1994^
+9 ;;^1995^1996^1997^1998^1999^2000^2001^2002^2003^2004^2005^2006^2007^2008^
+10 ;;^2009^2010^2011^2012^2013^2014^2015^2016^2017^2018^2019^2020^2021^2022^
+11 ;;^2023^2024^2025^2026^2027^2028^2029^2030^2031^2032^2033^2034^2050^2051^
+12 ;;^2052^2053^2054^2055^2056^2057^2058^2059^2060^2061^2062^2063^2064^2065^
+13 ;;^2066^2067^2068^2069^2070^2071^2072^2073^2074^2075^2076^2077^2078^2079^
+14 ;;^2080^2081^2084^2085^2086^2087^2088^2089^2090^2091^2092^2093^
+15 ;;^2094^2095^2096^2097^2098^2099^2100^2103^2104^2105^2106^2107^
+16 ;;^2108^2109^2110^2111^2112^2113^2114^2115^2116^2117^2118^2119^
+17 ;;^2122^2123^2124^2125^2126^2127^2128^2129^2130^2131^2132^2133^2134^2135^
+18 ;;^2136^2137^2138^2139^2140^2141^2142^2143^2144^2145^2146^2147^2148^2149^
+19 ;;^2152^2153^2154^2155^2156^2157^2158^2159^2160^2161^2162^2163^
+20 ;;^2164^2165^2166^2167^2168^2169^2170^2171^2172^2173^2174^2175^2176^2177^
+21 ;;^2178^2179^2180^2181^2182^2183^2184^2185^2186^2187^2188^2189^2190^2191^
+22 ;;^2192^2193^2194^2195^2196^2197^2198^2199^2200^2201^2202^2203^2204^2205^
+23 ;;^2206^2207^2208^
+24 ;
+25 ;-----------------------------------------------------------------------
+26 ; 364.7 entries modified:
+27 ;12 CI1A-6
+28 ;40 PC1-4
+29 ;53 OPR-6
+30 ;68 CL1-7
+31 ;103 CL1-23
+32 ;106 VC1-1.9
+33 ;131 UB-2
+34 ;188 OI1-12
+35 ;209 SUB2-4.5
+36 ;212 OPR1-11
+37 ;213 OPR1-12
+38 ;226 CI1A-2
+39 ;246 OPR7-6
+40 ;247 OPR7-7
+41 ;375 CI1A-7
+42 ;376 CI1A-8
+43 ;377 CI1A-9
+44 ;385 CI1A-17
+45 ;388 CI1A-5
+46 ;389 CI1A-4
+47 ;413 SUB2-16
+48 ;420 OPR2-2
+49 ;421 OPR2-3
+50 ;422 OPR2-4
+51 ;423 OPR2-5
+52 ;424 OPR2-6
+53 ;425 OPR2-7
+54 ;426 OPR2-8
+55 ;427 OPR2-9
+56 ;428 OPR2-10
+57 ;429 OPR2-11
+58 ;430 OPR3-2
+59 ;431 OPR3-3
+60 ;432 OPR3-4
+61 ;433 OPR3-5
+62 ;434 OPR3-6
+63 ;435 OPR3-7
+64 ;436 OPR3-8
+65 ;437 OPR3-9
+66 ;438 OPR3-10
+67 ;439 OPR3-11
+68 ;440 OPR4-3
+69 ;535 OP9-4
+70 ;537 OP1-3
+71 ;538 OP1-8
+72 ;540 OP1-10
+73 ;541 OP1-4
+74 ;542 OP1-6
+75 ;543 OP1-5
+76 ;544 OP1-7
+77 ;545 OP2-4
+78 ;546 OP2-5
+79 ;547 OP2-7
+80 ;548 OP2-9
+81 ;549 OP2-6
+82 ;550 OP2-10
+83 ;551 OP2-3
+84 ;558 OP3-10
+85 ;560 OP4-4
+86 ;561 OP4-3
+87 ;562 OP4-5
+88 ;563 OP4-7
+89 ;564 OP4-9
+90 ;565 OP4-6
+91 ;566 OP4-8
+92 ;567 OP4-10
+93 ;589 OP7-10
+94 ;600 OP9-5
+95 ;601 OP9-7
+96 ;602 OP9-9
+97 ;603 OP9-6
+98 ;604 OP9-8
+99 ;605 OP9-10
+100 ;640 OP9-3
+101 ;644 OPR5-2
+102 ;645 OPR5-3
+103 ;646 OPR5-4
+104 ;647 OPR5-5
+105 ;648 OPR5-6
+106 ;649 OPR5-7
+107 ;650 OPR5-8
+108 ;651 OPR5-9
+109 ;652 OPR5-10
+110 ;653 OPR5-11
+111 ;654 OPR4-5
+112 ;655 OPR4-7
+113 ;656 OPR4-9
+114 ;657 OPR4-11
+115 ;658 OPR4-2
+116 ;659 OPR4-4
+117 ;660 OPR4-6
+118 ;661 OPR4-8
+119 ;662 OPR4-19
+120 ;663 OP1-9
+121 ;664 OP2-8
+122 ;798 OPR-4
+123 ;804 COB1-2
+124 ;814 MOA1-2
+125 ;815 MIA1-2
+126 ;816 MIA2-2
+127 ;817 CCAS-2
+128 ;893 OPR-15
+129 ;894 OPR-13
+130 ;896 OPR-9
+131 ;897 OPR-11
+132 ;900 OI1-13
+133 ;902 OI1-15
+134 ;914 OPR-2
+135 ;915 OPR-3
+136 ;916 OPR-7
+137 ;917 OPR-10
+138 ;918 OPR-14
+139 ;919 OPR-8
+140 ;921 OPR-5
+141 ;922 OPR-16
+142 ;923 OPR-17
+143 ;951 COB1-10
+144 ;952 PRF-21
+145 ;983 COB1-12
+146 ;985 LCOB-1.9
+147 ;987 OPR1-2
+148 ;988 OPR1-3
+149 ;992 OPR1-8
+150 ;993 OPR1-5
+151 ;994 OPR1-6
+152 ;995 OPR1-9
+153 ;1001 CI3-10
+154 ;1008 OPR1=10
+155 ;1015 GEN-7
+156 ;1018 OP8-2
+157 ;1019 OP1-2
+158 ;1021 OP4-2
+159 ;1024 OP9-2
+160 ;1025 OP2-2
+161 ;1034 OPR1-4
+162 ;1035 OPR1-14
+163 ;1036 OPR1-15
+164 ;1037 OPR1-7
+165 ;1039 CI4-14
+166 ;1162 REF PROV OTH ID QUAL (17A/1)
+167 ;1163 REF PROV OTH ID# (BX 17A/2)
+168 ;1164 REFERRING PROV NAME (BX 17)
+169 ;1165 REFERRING PROV NPI# (BX 17B)
+170 ;1190 ID QUALIFER (BX-24I)
+171 ;1191 RENDERING PROVIDER ID (BX-24J)
+172 ;1203 BLOCK 31 CHR 1-21 (BX-31/LN1)
+173 ;1205 IBXSAVE CLEAN-UP BX 33
+174 ;1208 BLOCK 31 CHR 22-42 (BX-31/LN2)
+175 ;1430 ATTENDING NAME (FL-76/2/1)
+176 ;1431 ATTENDING NAME (FL-76/2/2)
+177 ;1432 OPERATING NAME (FL-77/2/1)
+178 ;1433 OPERATING NAME (FL-77/2/2)
+179 ;1436 OTHER NAME (FL-78/2/1)
+180 ;1437 OTHER NAME (FL-78/2/2)
+181 ;1439 OTHER NAME (FL-79/2/2)
+182 ;1525 CI5-7
+183 ;1526 CI5-8
+184 ;1527 CI5-9
+185 ;1539 OI6-9
+186 ;1540 OI6-10
+187 ;1611 PRV-99
+188 ;1617 CL1A-17
+189 ;1618 CL1A-18
+190 ;1619 CL1A-19
+191 ;1621 CL1A-21
+192 ;1628 PRV1-5
+193 ;1629 PRV1-6
+194 ;1634 PRV-11
+195 ;1637 AMB-1 (SEQ 104.8)
+196 ;1638 AMB-2 (SEQ 104.8)
+197 ;1639 AMB-1 (SEQ 104.9)
+198 ;1640 AMB-3 (SEQ 104.8)
+199 ;1641 AMB-4 (SEQ 104.8)
+200 ;1642 AMB-5 (SEQ 104.8)
+201 ;1643 AMB-6 (SEQ 104.8)
+202 ;1644 AMB-7 (SEQ 104.8)
+203 ;1645 AMB-2 (SEQ 104.9)
+204 ;1646 AMB-3 (SEQ 104.9)
+205 ;1647 AMB-4 (SEQ 104.9)
+206 ;1648 AMB-5 (SEQ 104.9)
+207 ;1649 AMB-6 (SEQ 104.9)
+208 ;1650 AMB-7 (SEQ 104.9)
+209 ;1651 AMB-8 (SEQ 104.9)
+210 ;1652 PRV-9
+211 ;1653 PRV-12
+212 ;1654 CL1A-29
+213 ;1655 CL1A-30
+214 ;1656 CL1A-23
+215 ;1657 CL1A-22.8
+216 ;1658 CL1A-22.9
+217 ;1659 CL1A-24
+218 ;1660 CL1A-25
+219 ;1661 CL1A-26
+220 ;1662 CL1A-27
+221 ;1663 CL1A-28
+222 ;1664 PRV-13
+223 ;1665 PRV-14
+224 ;1666 CI3-13
+225 ;1667 CI3-14
+226 ;1668 CI3-15
+227 ;1669 CL1B-1
+228 ;1670 CL1B-2
+229 ;1671 CL1B-3
+230 ;1672 CL1B-4
+231 ;1673 CLIB-5
+232 ;1674 PT2-5
+233 ;1675 PT2-6
+234 ;1676 PT2-7
+235 ;1677 PT2-8
+236 ;1678 PT2-9
+237 ;1679 PT2-10
+238 ;1680 PT2-11
+239 ;1681 PT2-12
+240 ;1682 SPC-1
+241 ;1683 SPC-2
+242 ;1684 SPC-3
+243 ;1685 SPC-4
+244 ;1686 SPC-5
+245 ;1687 SUB2-5
+246 ;1690 OPR9-1
+247 ;1691 OPR9-1.5
+248 ;1692 OPR9-2
+249 ;1693 OPR9-3
+250 ;1694 OPR9-4
+251 ;1695 OPR9-5
+252 ;1696 OPR9-6
+253 ;1697 OPR9-7
+254 ;1698 OPR9-8
+255 ;1699 OPR9-9
+256 ;1700 OPR9-10
+257 ;1701 OPR9-11
+258 ;1702 OPRA-1
+259 ;1703 OPRA-2
+260 ;1704 OPRA-3
+261 ;1705 OPRA-4
+262 ;1706 OPRA-5
+263 ;1707 OPRA-6
+264 ;1708 OPRA-7
+265 ;1709 OPRA-8
+266 ;1710 OPRA-9
+267 ;1711 OP1A-1
+268 ;1712 OP1A-2
+269 ;1713 OP1A-3
+270 ;1714 OP1A-4
+271 ;1715 OP1A-5
+272 ;1716 OP1A-6
+273 ;1717 OP1A-7
+274 ;1718 OP1A-8
+275 ;1719 OP1A-9
+276 ;1720 OP1A-10
+277 ;1721 RX1-11
+278 ;1722 RX1-12
+279 ;1723 OI4-11
+280 ;1724 OI4-12
+281 ;1725 OI4-8
+282 ;1726 OI4-9
+283 ;1727 OI4-10
+284 ;1728 SUB2-17
+285 ;1729 SUB2-18
+286 ;1730 SUB2-19
+287 ;1731 SUB2-20
+288 ;1732 SUB2-21
+289 ;1733 SUB2-22
+290 ;1750 LDAT-1
+291 ;1751 LDAT-2
+292 ;1752 LDAT-1.9
+293 ;1753 LDAT-3
+294 ;1754 LDAT-4
+295 ;1755 LDAT-5
+296 ;1756 LDAT-6
+297 ;1757 LDAT-7
+298 ;1758 LDAT-8
+299 ;1759 LDAT-9
+300 ;1760 LDAT-10
+301 ;1761 LDAT-11
+302 ;1762 LDAT-12
+303 ;1763 LDAT-13
+304 ;1764 LDAT-14
+305 ;1765 LDAT-99.9
+306 ;1766 LOPE-1
+307 ;1767 LOPE-1.9
+308 ;1768 LOPE-2
+309 ;1769 LOPE-3
+310 ;1770 LOPE-4
+311 ;1771 LOPE-5
+312 ;1772 LOPE-6
+313 ;1773 LOPE-7
+314 ;1774 LOPE-8
+315 ;1775 LOPE-9
+316 ;1776 LOPE-10
+317 ;1777 LOPE-11
+318 ;1778 LOPE-12
+319 ;1779 LOPE-13
+320 ;1780 LOPE-14
+321 ;1781 LOPE-15
+322 ;1784 LOPE-99.9
+323 ;1785 LOP1-1
+324 ;1786 LOP1-2
+325 ;1787 LOP1-1.9
+326 ;1788 LOP1-3
+327 ;1789 LOP1-4
+328 ;1790 LOP1-5
+329 ;1791 LOP1-6
+330 ;1792 LOP1-7
+331 ;1793 LOP1-8
+332 ;1794 LOP1-9
+333 ;1795 LOP1-10
+334 ;1796 LOP1-11
+335 ;1797 LOP1-12
+336 ;1798 LOP1-13
+337 ;1799 LOP1-14
+338 ;1800 LOP1-15
+339 ;1803 LOP1-99.9
+340 ;1804 LREN-1
+341 ;1805 LREN-1.9
+342 ;1806 LREN-2
+343 ;1807 LREN-3
+344 ;1808 LREN-4
+345 ;1809 LREN-5
+346 ;1810 LREN-6
+347 ;1811 LREN-7
+348 ;1812 LREN-8
+349 ;1813 LREN-9
+350 ;1814 LREN-10
+351 ;1815 LREN-11
+352 ;1816 LREN-12
+353 ;1817 LREN-13
+354 ;1818 LREN-14
+355 ;1819 LREN-15
+356 ;1822 LREN-99.9
+357 ;1823 LREN-16
+358 ;1824 LREN-17
+359 ;1825 LPUR-1
+360 ;1826 LPUR-1.9
+361 ;1827 LPUR-2
+362 ;1828 LPUR-3
+363 ;1829 LPUR-4
+364 ;1830 LPUR-5
+365 ;1831 LPUR-6
+366 ;1832 LPUR-7
+367 ;1833 LPUR-99.9
+368 ;1834 LSUP-1
+369 ;1835 LSUP-1.9
+370 ;1836 LSUP-2
+371 ;1837 LSUP-3
+372 ;1838 LSUP-4
+373 ;1839 LSUP-5
+374 ;1840 LSUP-6
+375 ;1841 LSUP-7
+376 ;1842 LSUP-8
+377 ;1843 LSUP-9
+378 ;1844 LSUP-10
+379 ;1845 LSUP-11
+380 ;1846 LSUP-12
+381 ;1847 LSUP-13
+382 ;1848 LSUP-14
+383 ;1849 LSUP-15
+384 ;1852 LSUP-99.9
+385 ;1853 LREF-1
+386 ;1854 LREF-1.9
+387 ;1855 LREF-2
+388 ;1856 LREF-3
+389 ;1857 LREF-4
+390 ;1858 LREF-5
+391 ;1859 LREF-6
+392 ;1860 LREF-7
+393 ;1861 LREF-8
+394 ;1862 LREF-9
+395 ;1863 LREF-10
+396 ;1864 LREF-11
+397 ;1865 LREF-12
+398 ;1866 LREF-13
+399 ;1867 LREF-14
+400 ;1868 LREF-15
+401 ;1869 LREF-99.9
+402 ;1870 SUB2-99
+403 ;1871 CI1A-1.5
+404 ;1872 CI1A-99
+405 ;1873 OPR-1.5
+406 ;1874 OPR-99.5
+407 ;1875 OPR1-1.5
+408 ;1876 OPR1-99.5
+409 ;1877 OPR2-1.5
+410 ;1878 OPR2-99.5
+411 ;1879 OPR3-1.5
+412 ;1880 OPR3-99.5
+413 ;1881 OPR4-1.5
+414 ;1882 OPR4-99.5
+415 ;1883 OPR5-1.5
+416 ;1884 OPR5-99.5
+417 ;1885 OPR7-99.5
+418 ;1886 OPR8-1.5
+419 ;1887 OPR8-99.5
+420 ;1888 OPR9-99.5
+421 ;1889 OPRA-1.5
+422 ;1890 OPRA-99.5
+423 ;1891 OP1-1.5
+424 ;1892 OP1-99.5
+425 ;1893 OP1A-1.5
+426 ;1894 OP1A-99.5
+427 ;1895 OP2-1.5
+428 ;1896 OP2-99.5
+429 ;1897 OP4-1.5
+430 ;1898 OP4-99.5
+431 ;1899 OP8-1.5
+432 ;1900 OP9-1.5
+433 ;1901 OP9-99.5
+434 ;1902 OI6-99.9
+435 ;1903 OI4-7.9
+436 ;1904 OI1-19
+437 ;1905 OI1-20
+438 ;1906 LCOB-18
+439 ;1907 LCAS-22
+440 ;1908 PRV1-12
+441 ;
ENT7 ; O.F. entries in file 364.7 to be included
+1 ;
+2 ;;^12^40^53^68^103^106^131^188^205^209^212^213^226^229^230^232^244^245^246^247^375^376^377^
+3 ;;^385^388^389^413^420^421^422^423^424^425^426^427^428^429^430^431^432^433^434^435^
+4 ;;^436^437^438^439^440^443^444^445^446^447^448^449^450^451^452^535^537^538^540^541^
+5 ;;^542^543^544^545^546^547^548^549^550^551^558^560^561^562^563^564^565^566^567^588^589^
+6 ;;^600^601^602^603^604^605^640^644^645^646^647^648^649^650^651^652^653^654^655^656^
+7 ;;^657^658^659^660^661^662^663^664^798^804^814^815^816^817^893^894^896^897^900^902^
+8 ;;^914^915^916^917^918^919^921^922^923^951^952^962^983^985^987^988^992^993^994^995^
+9 ;;^1001^1008^1015^1018^1019^1021^1024^1034^1035^1036^1037^1039^1162^1163^1164^1165^
+10 ;;^1179^1190^1191^1203^1205^1208^1366^1430^1431^1432^1433^1436^1437^1438^1439^1440^
+11 ;;^1441^1442^1443^1444^1445^1446^1447^1448^1451^1452^1453^1525^1526^1527^1539^1540^
+12 ;;^1611^1617^1618^1619^1621^1628^1629^1634^1637^1638^1639^1640^1641^1642^1643^1644^1645^1646^
+13 ;;^1647^1648^1649^1650^1651^1652^1653^1654^1655^1656^1657^1658^1659^1660^1661^1662^
+14 ;;^1663^1664^1665^1666^1667^1668^1669^1670^1671^1672^1673^1674^1675^1676^1677^1678^
+15 ;;^1679^1680^1681^1682^1683^1684^1685^1686^1687^1690^1691^1692^1693^1694^1695^1696^
+16 ;;^1697^1698^1699^1700^1701^1702^1703^1704^1705^1706^1707^1708^1709^1710^1711^1712^
+17 ;;^1713^1714^1715^1716^1717^1718^1719^1720^1721^1722^1723^1724^1725^1726^1727^1728^
+18 ;;^1729^1730^1731^1732^1733^1750^1751^1752^1753^1754^1755^1756^1757^1758^1759^1760^
+19 ;;^1761^1762^1763^1764^1765^1766^1767^1768^1769^1770^1771^1772^1773^1774^1775^1776^
+20 ;;^1777^1778^1779^1780^1781^1784^1785^1786^1787^1788^1789^1790^1791^1792^1793^1794^
+21 ;;^1795^1796^1797^1798^1799^1800^1803^1804^1805^1806^1807^1808^1809^1810^1811^1812^
+22 ;;^1813^1814^1815^1816^1817^1818^1819^1822^1823^1824^1825^1826^1827^1828^1829^1830^
+23 ;;^1831^1832^1833^1834^1835^1836^1837^1838^1839^1840^1841^1842^1843^1844^1845^1846^
+24 ;;^1847^1848^1849^1852^1853^1854^1855^1856^1857^1858^1859^1860^1861^1862^1863^1864^
+25 ;;^1865^1866^1867^1868^1869^1870^1871^1872^1873^1874^1875^1876^1877^1878^1879^1880^
+26 ;;^1881^1882^1883^1884^1885^1886^1887^1888^1889^1890^1891^1892^1893^1894^1895^1896^
+27 ;;^1897^1898^1899^1900^1901^1902^1903^1904^1905^1906^1907^1908^
+28 ;;
+29 ;-----------------------------------------------------------------------
DEL6 ; remove O.F. entries in file 364.6 (not re-added)
+1 ;
+2 ;;^182^1040^1153^1154^1155^1156^1157^1158^1159^1160^1161^1197^1198^1199^
+3 ;;^1200^1201^1202^1203^1204^1205^1206^1308^1323^1324^1325^1326^1327^1328^
+4 ;;^1329^1330^1331^1332^1333^1334^1335^1336^1337^1338^1339^1914^1989^1990^
+5 ;;^2082^2083^2101^2102^2120^2121^2150^2151^
+6 ;;
+7 ;-----------------------------------------------------------------------
DEL7 ; remove O.F. entries in file 364.7 (not re-added)
+1 ;
+2 ;;^150^204^394^395^396^397^398^399^400^401^402^403^470^576^577^578^579^580^
+3 ;;^581^582^1022^1041^1042^1043^1044^1045^1046^1047^1048^1049^1050^1051^
+4 ;;^1052^1053^1054^1055^1056^1057^1614^1688^1689^1782^1783^1801^1802^1820^1821^
+5 ;;^1850^1851^
+6 ;;
+7 QUIT
ENT3508 ; entries in file 350.8 to be included
+1 ;
+2 ;;^IB090^IB105^IB122^IB141^IB142^IB143^IB144^IB145^IB149^IB161^IB162^IB163^
+3 ;;^IB312^IB329^IB330^IB331^IB332^IB333^IB334^IB337^IB338^IB339^IB340^IB341^IB342^IB343^
+4 ;;^IB800^IB801^IB802^IB803^IB804^IB805^IB806^IB807^IB808^IB809^IB810^IB811^IB812^IB813^IB814^
+5 ;;
+6 QUIT
