ONCLNG.m

ONCLNG ;Hines OIFO/GWB - Lung histology exclusion table ;03/09/11

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;

 K ONCLUNG

 S:ONCED<7 ONCLUNG(82401)=""

 S:ONCED<7 ONCLUNG(82403)=""

 S:ONCED<7 ONCLUNG(82413)=""

 S:ONCED<7 ONCLUNG(82421)=""

 S:ONCED<7 ONCLUNG(82423)=""

 S:ONCED<7 ONCLUNG(82433)=""

 S ONCLUNG(82481)=""

 S ONCLUNG(86800)=""

 S ONCLUNG(86801)=""

 S ONCLUNG(86803)=""

 S ONCLUNG(86811)=""

 S ONCLUNG(86821)=""

 S ONCLUNG(86830)=""

 S ONCLUNG(86901)=""

 S ONCLUNG(86911)=""

 S ONCLUNG(86921)=""

 S ONCLUNG(86931)=""

 S ONCLUNG(86933)=""

 S ONCLUNG(87000)=""

 S ONCLUNG(87003)=""

 S ONCLUNG(87103)=""

 S ONCLUNG(87110)=""

 S ONCLUNG(87113)=""

 S ONCLUNG(87120)=""

 S ONCLUNG(87130)=""

 S ONCLUNG(88000)=""

 S ONCLUNG(88003)=""

 S ONCLUNG(88009)=""

 S ONCLUNG(88013)=""

 S ONCLUNG(88023)=""

 S ONCLUNG(88033)=""

 S ONCLUNG(88043)=""

 S ONCLUNG(88053)=""

 S ONCLUNG(88063)=""

 S ONCLUNG(88100)=""

 S ONCLUNG(88101)=""

 S ONCLUNG(88103)=""

 S ONCLUNG(88110)=""

 S ONCLUNG(88113)=""

 S ONCLUNG(88120)=""

 S ONCLUNG(88123)=""

 S ONCLUNG(88130)=""

 S ONCLUNG(88133)=""

 S ONCLUNG(88143)=""

 S ONCLUNG(88150)=""

 S ONCLUNG(88153)=""

 S ONCLUNG(88200)=""

 S ONCLUNG(88211)=""

 S ONCLUNG(88221)=""

 S ONCLUNG(88230)=""

 S ONCLUNG(88240)=""

 S ONCLUNG(88241)=""

 S ONCLUNG(88250)=""

 S ONCLUNG(88251)=""

 S ONCLUNG(88260)=""

 S ONCLUNG(88271)=""

 S ONCLUNG(88300)=""

 S ONCLUNG(88301)=""

 S ONCLUNG(88303)=""

 S ONCLUNG(88310)=""

 S ONCLUNG(88320)=""

 S ONCLUNG(88323)=""

 S ONCLUNG(88333)=""

 S ONCLUNG(88341)=""

 S ONCLUNG(88351)=""

 S ONCLUNG(88361)=""

 S ONCLUNG(88400)=""

 S ONCLUNG(88403)=""

 S ONCLUNG(88411)=""

 S ONCLUNG(88420)=""

 S ONCLUNG(88500)=""

 S ONCLUNG(88501)=""

 S ONCLUNG(88503)=""

 S ONCLUNG(88510)=""

 S ONCLUNG(88513)=""

 S ONCLUNG(88520)=""

 S ONCLUNG(88523)=""

 S ONCLUNG(88533)=""

 S ONCLUNG(88540)=""

 S ONCLUNG(88543)=""

 S ONCLUNG(88553)=""

 S ONCLUNG(88560)=""

 S ONCLUNG(88570)=""

 S ONCLUNG(88573)=""

 S ONCLUNG(88583)=""

 S ONCLUNG(88600)=""

 S ONCLUNG(88610)=""

 S ONCLUNG(88620)=""

 S ONCLUNG(88700)=""

 S ONCLUNG(88800)=""

 S ONCLUNG(88810)=""

 S ONCLUNG(88900)=""

 S ONCLUNG(88901)=""

 S ONCLUNG(88903)=""

 S ONCLUNG(88910)=""

 S ONCLUNG(88913)=""

 S ONCLUNG(88920)=""

 S ONCLUNG(88930)=""

 S ONCLUNG(88940)=""

 S ONCLUNG(88943)=""

 S ONCLUNG(88950)=""

 S ONCLUNG(88953)=""

 S ONCLUNG(88963)=""

 S ONCLUNG(88971)=""

 S ONCLUNG(88981)=""

 S ONCLUNG(89000)=""

 S ONCLUNG(89003)=""

 S ONCLUNG(89013)=""

 S ONCLUNG(89023)=""

 S ONCLUNG(89030)=""

 S ONCLUNG(89040)=""

 S ONCLUNG(89050)=""

 S ONCLUNG(89103)=""

 S ONCLUNG(89123)=""

 S ONCLUNG(89203)=""

 S ONCLUNG(89213)=""

 S ONCLUNG(89300)=""

 S ONCLUNG(89303)=""

 S ONCLUNG(89313)=""

 S ONCLUNG(89320)=""

 S ONCLUNG(89333)=""

 S ONCLUNG(89343)=""

 S ONCLUNG(89350)=""

 S ONCLUNG(89351)=""

 S ONCLUNG(89353)=""

 S ONCLUNG(89360)=""

 S ONCLUNG(89361)=""

 S ONCLUNG(89363)=""

 S:ONCED<7 ONCLUNG(89503)=""

 S ONCLUNG(89513)=""

 S ONCLUNG(89590)=""

 S ONCLUNG(89591)=""

 S ONCLUNG(89593)=""

 S ONCLUNG(89601)=""

 S ONCLUNG(89603)=""

 S ONCLUNG(89633)=""

 S ONCLUNG(89643)=""

 S ONCLUNG(89650)=""

 S ONCLUNG(89660)=""

 S ONCLUNG(89670)=""

 S ONCLUNG(89703)=""

 S ONCLUNG(89713)=""

 S ONCLUNG(89723)=""

 S ONCLUNG(89733)=""

 S ONCLUNG(89741)=""

 S:ONCED<7 ONCLUNG(89803)=""

 S:ONCED<7 ONCLUNG(89813)=""

 S ONCLUNG(89820)=""

 S ONCLUNG(89823)=""

 S ONCLUNG(89830)=""

 S ONCLUNG(89900)=""

 S ONCLUNG(89901)=""

 S ONCLUNG(89903)=""

 S ONCLUNG(89913)=""

 Q

 ;

CLEANUP ;Cleanup

 K ONCED

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCLNG   3623     printed  Nov 22, 2024@17:33:33                                                                                                                                                                                                      Page 2

ONCLNG    ;Hines OIFO/GWB - Lung histology exclusion table ;03/09/11

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

 +3        KILL ONCLUNG

 +4        if ONCED<7

               SET ONCLUNG(82401)=""

 +5        if ONCED<7

               SET ONCLUNG(82403)=""

 +6        if ONCED<7

               SET ONCLUNG(82413)=""

 +7        if ONCED<7

               SET ONCLUNG(82421)=""

 +8        if ONCED<7

               SET ONCLUNG(82423)=""

 +9        if ONCED<7

               SET ONCLUNG(82433)=""

 +10       SET ONCLUNG(82481)=""

 +11       SET ONCLUNG(86800)=""

 +12       SET ONCLUNG(86801)=""

 +13       SET ONCLUNG(86803)=""

 +14       SET ONCLUNG(86811)=""

 +15       SET ONCLUNG(86821)=""

 +16       SET ONCLUNG(86830)=""

 +17       SET ONCLUNG(86901)=""

 +18       SET ONCLUNG(86911)=""

 +19       SET ONCLUNG(86921)=""

 +20       SET ONCLUNG(86931)=""

 +21       SET ONCLUNG(86933)=""

 +22       SET ONCLUNG(87000)=""

 +23       SET ONCLUNG(87003)=""

 +24       SET ONCLUNG(87103)=""

 +25       SET ONCLUNG(87110)=""

 +26       SET ONCLUNG(87113)=""

 +27       SET ONCLUNG(87120)=""

 +28       SET ONCLUNG(87130)=""

 +29       SET ONCLUNG(88000)=""

 +30       SET ONCLUNG(88003)=""

 +31       SET ONCLUNG(88009)=""

 +32       SET ONCLUNG(88013)=""

 +33       SET ONCLUNG(88023)=""

 +34       SET ONCLUNG(88033)=""

 +35       SET ONCLUNG(88043)=""

 +36       SET ONCLUNG(88053)=""

 +37       SET ONCLUNG(88063)=""

 +38       SET ONCLUNG(88100)=""

 +39       SET ONCLUNG(88101)=""

 +40       SET ONCLUNG(88103)=""

 +41       SET ONCLUNG(88110)=""

 +42       SET ONCLUNG(88113)=""

 +43       SET ONCLUNG(88120)=""

 +44       SET ONCLUNG(88123)=""

 +45       SET ONCLUNG(88130)=""

 +46       SET ONCLUNG(88133)=""

 +47       SET ONCLUNG(88143)=""

 +48       SET ONCLUNG(88150)=""

 +49       SET ONCLUNG(88153)=""

 +50       SET ONCLUNG(88200)=""

 +51       SET ONCLUNG(88211)=""

 +52       SET ONCLUNG(88221)=""

 +53       SET ONCLUNG(88230)=""

 +54       SET ONCLUNG(88240)=""

 +55       SET ONCLUNG(88241)=""

 +56       SET ONCLUNG(88250)=""

 +57       SET ONCLUNG(88251)=""

 +58       SET ONCLUNG(88260)=""

 +59       SET ONCLUNG(88271)=""

 +60       SET ONCLUNG(88300)=""

 +61       SET ONCLUNG(88301)=""

 +62       SET ONCLUNG(88303)=""

 +63       SET ONCLUNG(88310)=""

 +64       SET ONCLUNG(88320)=""

 +65       SET ONCLUNG(88323)=""

 +66       SET ONCLUNG(88333)=""

 +67       SET ONCLUNG(88341)=""

 +68       SET ONCLUNG(88351)=""

 +69       SET ONCLUNG(88361)=""

 +70       SET ONCLUNG(88400)=""

 +71       SET ONCLUNG(88403)=""

 +72       SET ONCLUNG(88411)=""

 +73       SET ONCLUNG(88420)=""

 +74       SET ONCLUNG(88500)=""

 +75       SET ONCLUNG(88501)=""

 +76       SET ONCLUNG(88503)=""

 +77       SET ONCLUNG(88510)=""

 +78       SET ONCLUNG(88513)=""

 +79       SET ONCLUNG(88520)=""

 +80       SET ONCLUNG(88523)=""

 +81       SET ONCLUNG(88533)=""

 +82       SET ONCLUNG(88540)=""

 +83       SET ONCLUNG(88543)=""

 +84       SET ONCLUNG(88553)=""

 +85       SET ONCLUNG(88560)=""

 +86       SET ONCLUNG(88570)=""

 +87       SET ONCLUNG(88573)=""

 +88       SET ONCLUNG(88583)=""

 +89       SET ONCLUNG(88600)=""

 +90       SET ONCLUNG(88610)=""

 +91       SET ONCLUNG(88620)=""

 +92       SET ONCLUNG(88700)=""

 +93       SET ONCLUNG(88800)=""

 +94       SET ONCLUNG(88810)=""

 +95       SET ONCLUNG(88900)=""

 +96       SET ONCLUNG(88901)=""

 +97       SET ONCLUNG(88903)=""

 +98       SET ONCLUNG(88910)=""

 +99       SET ONCLUNG(88913)=""

 +100      SET ONCLUNG(88920)=""

 +101      SET ONCLUNG(88930)=""

 +102      SET ONCLUNG(88940)=""

 +103      SET ONCLUNG(88943)=""

 +104      SET ONCLUNG(88950)=""

 +105      SET ONCLUNG(88953)=""

 +106      SET ONCLUNG(88963)=""

 +107      SET ONCLUNG(88971)=""

 +108      SET ONCLUNG(88981)=""

 +109      SET ONCLUNG(89000)=""

 +110      SET ONCLUNG(89003)=""

 +111      SET ONCLUNG(89013)=""

 +112      SET ONCLUNG(89023)=""

 +113      SET ONCLUNG(89030)=""

 +114      SET ONCLUNG(89040)=""

 +115      SET ONCLUNG(89050)=""

 +116      SET ONCLUNG(89103)=""

 +117      SET ONCLUNG(89123)=""

 +118      SET ONCLUNG(89203)=""

 +119      SET ONCLUNG(89213)=""

 +120      SET ONCLUNG(89300)=""

 +121      SET ONCLUNG(89303)=""

 +122      SET ONCLUNG(89313)=""

 +123      SET ONCLUNG(89320)=""

 +124      SET ONCLUNG(89333)=""

 +125      SET ONCLUNG(89343)=""

 +126      SET ONCLUNG(89350)=""

 +127      SET ONCLUNG(89351)=""

 +128      SET ONCLUNG(89353)=""

 +129      SET ONCLUNG(89360)=""

 +130      SET ONCLUNG(89361)=""

 +131      SET ONCLUNG(89363)=""

 +132      if ONCED<7

               SET ONCLUNG(89503)=""

 +133      SET ONCLUNG(89513)=""

 +134      SET ONCLUNG(89590)=""

 +135      SET ONCLUNG(89591)=""

 +136      SET ONCLUNG(89593)=""

 +137      SET ONCLUNG(89601)=""

 +138      SET ONCLUNG(89603)=""

 +139      SET ONCLUNG(89633)=""

 +140      SET ONCLUNG(89643)=""

 +141      SET ONCLUNG(89650)=""

 +142      SET ONCLUNG(89660)=""

 +143      SET ONCLUNG(89670)=""

 +144      SET ONCLUNG(89703)=""

 +145      SET ONCLUNG(89713)=""

 +146      SET ONCLUNG(89723)=""

 +147      SET ONCLUNG(89733)=""

 +148      SET ONCLUNG(89741)=""

 +149      if ONCED<7

               SET ONCLUNG(89803)=""

 +150      if ONCED<7

               SET ONCLUNG(89813)=""

 +151      SET ONCLUNG(89820)=""

 +152      SET ONCLUNG(89823)=""

 +153      SET ONCLUNG(89830)=""

 +154      SET ONCLUNG(89900)=""

 +155      SET ONCLUNG(89901)=""

 +156      SET ONCLUNG(89903)=""

 +157      SET ONCLUNG(89913)=""

 +158      QUIT 

 +159     ;

CLEANUP   ;Cleanup

 +1        KILL ONCED