- 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 23, 2025@18:48:44 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
