ONCPAT.m

ONCPAT ;HINES OIFO/GWB - PATIENT IDENTIFICATION ;10/07/11

 ;;2.2;ONCOLOGY;**1,13,17,19**;Jul 31, 2013;Build 4

 ;

 W !

 K DR

 N DA

 S DIE="^ONCO(160,",DA=ONCOD0,DR=""

 S DR(1,160,1)="7    PLACE OF BIRTH............."

 S DR(1,160,1.5)="71    BIRTH SURNAME.............."

 S DR(1,160,2)="8    RACE 1.....................//^S X=RACE"

 S DR(1,160,3)="I X'=99 S Y=""@81"""

 S DR(1,160,4)="8.1////99"

 S DR(1,160,5)="8.2////99"

 S DR(1,160,6)="8.3////99"

 S DR(1,160,7)="8.4////99"

 S DR(1,160,8)="W !,""    RACE 2.....................: Unknown"""

 S DR(1,160,9)="W !,""    RACE 3.....................: Unknown"""

 S DR(1,160,10)="W !,""    RACE 4.....................: Unknown"""

 S DR(1,160,11)="W !,""    RACE 5.....................: Unknown"""

 S DR(1,160,12)="S Y=9"

 S DR(1,160,13)="@81"

 S DR(1,160,14)="8.1    RACE 2.....................//No additional races (Race 2 - Race 5)"

 S DR(1,160,15)="S Y=$S(X=88:""@8288"",X=99:""@8299"",X="""":""@8200"",1:""@82"")"

 S DR(1,160,16)="@8288"

 S DR(1,160,17)="8.2////88"

 S DR(1,160,18)="8.3////88"

 S DR(1,160,19)="8.4////88"

 S DR(1,160,20)="W !,""    RACE 3.....................: No additional races (Race 2 - Race 5)"""

 S DR(1,160,21)="W !,""    RACE 4.....................: No additional races (Race 2 - Race 5)"""

 S DR(1,160,22)="W !,""    RACE 5.....................: No additional races (Race 2 - Race 5)"""

 S DR(1,160,23)="S Y=9"

 S DR(1,160,24)="@8299"

 S DR(1,160,25)="8.2////99"

 S DR(1,160,26)="8.3////99"

 S DR(1,160,27)="8.4////99"

 S DR(1,160,28)="W !,""    RACE 3.....................: Unknown"""

 S DR(1,160,29)="W !,""    RACE 4.....................: Unknown"""

 S DR(1,160,30)="W !,""    RACE 5.....................: Unknown"""

 S DR(1,160,31)="S Y=9"

 S DR(1,160,32)="@8200"

 S DR(1,160,33)="8.2////@"

 S DR(1,160,34)="8.3////@"

 S DR(1,160,35)="8.4////@"

 S DR(1,160,36)="W !,""    RACE 3.....................:"""

 S DR(1,160,37)="W !,""    RACE 4.....................:"""

 S DR(1,160,38)="W !,""    RACE 5.....................:"""

 S DR(1,160,39)="S Y=9"

 S DR(1,160,40)="@82"

 S DR(1,160,41)="8.2    RACE 3.....................//No additional races (Race 2 - Race 5)"

 S DR(1,160,42)="S Y=$S(X=88:""@8388"",X=99:""@8399"",X="""":""@8300"",1:""@83"")"

 S DR(1,160,43)="@8388"

 S DR(1,160,44)="8.3////88"

 S DR(1,160,45)="8.4////88"

 S DR(1,160,46)="W !,""    RACE 4.....................: No additional races (Race 2 - Race 5)"""

 S DR(1,160,47)="W !,""    RACE 5.....................: No additional races (Race 2 - Race 5)"""

 S DR(1,160,48)="S Y=9"

 S DR(1,160,49)="@8399"

 S DR(1,160,50)="8.3////99"

 S DR(1,160,51)="8.4////99"

 S DR(1,160,52)="W !,""    RACE 4.....................: Unknown"""

 S DR(1,160,53)="W !,""    RACE 5.....................: Unknown"""

 S DR(1,160,54)="S Y=9"

 S DR(1,160,55)="@8300"

 S DR(1,160,56)="8.3////@"

 S DR(1,160,57)="8.4////@"

 S DR(1,160,58)="W !,""    RACE 4.....................:"""

 S DR(1,160,59)="W !,""    RACE 5.....................:"""

 S DR(1,160,60)="S Y=9"

 S DR(1,160,61)="@83"

 S DR(1,160,62)="8.3    RACE 4.....................//No additional races (Race 2 - Race 5)"

 S DR(1,160,63)="S Y=$S(X=88:""@8488"",X=99:""@8499"",X="""":""@8400"",1:""@84"")"

 S DR(1,160,64)="@8488"

 S DR(1,160,65)="8.4////88"

 S DR(1,160,66)="W !,""    RACE 5.....................: No additional races (Race 2 - Race 5)"""

 S DR(1,160,67)="S Y=9"

 S DR(1,160,68)="@8499"

 S DR(1,160,69)="8.4////99"

 S DR(1,160,70)="W !,""    RACE 5.....................: Unknown"""

 S DR(1,160,71)="S Y=9"

 S DR(1,160,72)="@8400"

 S DR(1,160,73)="8.4////@"

 S DR(1,160,74)="W !,""    RACE 5.....................:"""

 S DR(1,160,75)="S Y=9"

 S DR(1,160,76)="@84"

 S DR(1,160,77)="8.4    RACE 5.....................//No additional races (Race 2 - Race 5)"

 S DR(1,160,78)="9    SPANISH ORIGIN.............//"

 S DR(1,160,79)="10    SEX........................"

 S DR(1,160,80)="48    AGENT ORANGE EXPOSURE......//^S X=AOE"

 S DR(1,160,81)="50    IONIZING RADIATION EXPOSURE//^S X=IRE"

 S DR(1,160,82)="52    CHEMICAL EXPOSURE.........."

 S DR(1,160,83)="61    ASBESTOS EXPOSURE.........."

 S DR(1,160,83.1)="72    BURN PIT EXPOSURE.........."

 S DR(1,160,83.2)="73    OTHER TOXIC EXPOSURE......."

 S DR(1,160,84)="62    VIETNAM SERVICE............//^S X=VSI"

 S DR(1,160,85)="55    LEBANON SERVICE............//^S X=LSI"

 S DR(1,160,86)="63    GRENADA SERVICE............//^S X=GSI"

 S DR(1,160,86.1)="64    PANAMA SERVICE.............//^S X=PSI"

 S DR(1,160,86.2)="51    PERSIAN GULF SERVICE.......//^S X=PGS"

 S DR(1,160,86.3)="56    SOMALIA SERVICE............//^S X=SSI"

 S DR(1,160,86.4)="65    YUGOSLAVIA SERVICE.........//^S X=YSI"

 S DR(1,160,86.5)="67    AFGHANISTAN (OEF) SERVICE..//^S X=OEF"

 S DR(1,160,86.6)="66    IRAQ (OIF) SERVICE.........//^S X=OIF"

 S DR(1,160,87)="W ! K DIR S DIR(0)=""E"" D ^DIR"

 S DR(1,160,88)="I $D(DIRUT) S Y=""@99"""

 S DR(1,160,89)="W @IOF"

 S DR(1,160,90)="W !?4,""Patient name: "",ONCONAM,!"

 S DR(1,160,91)="D CC^ONCPAT1"

 S DR(1,160,92)="D ^ONCPL"

 S DR(1,160,93)="I $D(DIRUT) S Y=""@99"""

 S DR(1,160,93.1)="1006    SOURCE COMORBIDITY"

 S DR(1,160,94)="25    COMORBIDITY/COMPLICATION #1"

 S DR(1,160,95)="I X'="""" S Y=""@251"""

 S DR(1,160,96)="25.1////@"

 S DR(1,160,97)="25.2////@"

 S DR(1,160,98)="25.3////@"

 S DR(1,160,99)="25.4////@"

 S DR(1,160,100)="25.5////@"

 S DR(1,160,101)="25.6////@"

 S DR(1,160,102)="25.7////@"

 S DR(1,160,103)="25.8////@"

 S DR(1,160,104)="25.9////@"

 S DR(1,160,105)="D CC2^ONCPAT1"

 S DR(1,160,106)="S Y=""@99"""

 S DR(1,160,107)="@251"

 S DR(1,160,108)="25.1    COMORBIDITY/COMPLICATION #2"

 S DR(1,160,109)="I X'="""" S Y=""@252"""

 S DR(1,160,110)="25.2////@"

 S DR(1,160,111)="25.3////@"

 S DR(1,160,112)="25.4////@"

 S DR(1,160,113)="25.5////@"

 S DR(1,160,114)="25.6////@"

 S DR(1,160,115)="25.7////@"

 S DR(1,160,116)="25.8////@"

 S DR(1,160,117)="25.9////@"

 S DR(1,160,118)="D CC3^ONCPAT1"

 S DR(1,160,119)="S Y=""@99"""

 S DR(1,160,120)="@252"

 S DR(1,160,121)="25.2    COMORBIDITY/COMPLICATION #3"

 S DR(1,160,122)="I X'="""" S Y=""@253"""

 S DR(1,160,123)="25.3////@"

 S DR(1,160,124)="25.4////@"

 S DR(1,160,125)="25.5////@"

 S DR(1,160,126)="25.6////@"

 S DR(1,160,127)="25.7////@"

 S DR(1,160,128)="25.8////@"

 S DR(1,160,129)="25.9////@"

 S DR(1,160,130)="D CC4^ONCPAT1"

 S DR(1,160,131)="S Y=""@99"""

 S DR(1,160,132)="@253"

 S DR(1,160,133)="25.3    COMORBIDITY/COMPLICATION #4"

 S DR(1,160,134)="I X'="""" S Y=""@254"""

 S DR(1,160,135)="25.4////@"

 S DR(1,160,136)="25.5////@"

 S DR(1,160,137)="25.6////@"

 S DR(1,160,138)="25.7////@"

 S DR(1,160,139)="25.8////@"

 S DR(1,160,140)="25.9////@"

 S DR(1,160,141)="D CC5^ONCPAT1"

 S DR(1,160,142)="S Y=""@99"""

 S DR(1,160,143)="@254"

 S DR(1,160,144)="25.4    COMORBIDITY/COMPLICATION #5"

 S DR(1,160,145)="I X'="""" S Y=""@255"""

 S DR(1,160,146)="25.5////@"

 S DR(1,160,147)="25.6////@"

 S DR(1,160,148)="25.7////@"

 S DR(1,160,149)="25.8////@"

 S DR(1,160,150)="25.9////@"

 S DR(1,160,151)="D CC6^ONCPAT1"

 S DR(1,160,152)="S Y=""@99"""

 S DR(1,160,153)="@255"

 S DR(1,160,154)="25.5    COMORBIDITY/COMPLICATION #6"

 S DR(1,160,155)="I X'="""" S Y=""@256"""

 S DR(1,160,156)="25.6////@"

 S DR(1,160,157)="25.7////@"

 S DR(1,160,158)="25.8////@"

 S DR(1,160,159)="25.9////@"

 S DR(1,160,160)="D CC7^ONCPAT1"

 S DR(1,160,161)="S Y=""@99"""

 S DR(1,160,162)="@256"

 S DR(1,160,163)="25.6    COMORBIDITY/COMPLICATION #7"

 S DR(1,160,164)="I X'="""" S Y=""@257"""

 S DR(1,160,165)="25.7////@"

 S DR(1,160,166)="25.8////@"

 S DR(1,160,167)="25.9////@"

 S DR(1,160,168)="D CC8^ONCPAT1"

 S DR(1,160,169)="S Y=""@99"""

 S DR(1,160,170)="@257"

 S DR(1,160,171)="25.7    COMORBIDITY/COMPLICATION #8"

 S DR(1,160,172)="I X'="""" S Y=""@258"""

 S DR(1,160,173)="25.8////@"

 S DR(1,160,174)="25.9////@"

 S DR(1,160,175)="D CC9^ONCPAT1"

 S DR(1,160,176)="S Y=""@99"""

 S DR(1,160,177)="@258"

 S DR(1,160,178)="25.8    COMORBIDITY/COMPLICATION #9"

 S DR(1,160,179)="I X'="""" S Y=""@259"""

 S DR(1,160,180)="25.9////@"

 S DR(1,160,181)="D CC10^ONCPAT1"

 S DR(1,160,182)="S Y=""@99"""

 S DR(1,160,183)="@259"

 S DR(1,160,184)="25.9    COMORBIDITY/COMPLICATION #10"

 S DR(1,160,185)="@99"

 S DR(1,160,186)="W ! K DIR S DIR(0)=""E"" D ^DIR"

 S DR(1,160,187)="I $D(DIRUT) S Y=""@999"""

 S DR(1,160,188)="W @IOF"

 S DR(1,160,189)="W !?4,""Patient name: "",ONCONAM,!"

 S DR(1,160,190)="D SD^ONCPAT1 I ONCSDPMT'=1 S Y=""@999"""

 S DR(1,160,191)="25.91    SECONDARY DIAGNOSIS #1"

 S DR(1,160,192)="I X'="""" S Y=""@25911"""

 S DR(1,160,193)="D SDSTF2^ONCPAT1"

 S DR(1,160,194)="D SD2^ONCPAT1"

 S DR(1,160,195)="S Y=""@999"""

 S DR(1,160,196)="@25911"

 S DR(1,160,197)="25.92    SECONDARY DIAGNOSIS #2"

 S DR(1,160,198)="I X'="""" S Y=""@25921"""

 S DR(1,160,199)="D SDSTF3^ONCPAT1"

 S DR(1,160,200)="D SD3^ONCPAT1"

 S DR(1,160,201)="S Y=""@999"""

 S DR(1,160,202)="@25921"

 S DR(1,160,203)="25.93    SECONDARY DIAGNOSIS #3"

 S DR(1,160,204)="I X'="""" S Y=""@25931"""

 S DR(1,160,205)="D SDSTF4^ONCPAT1"

 S DR(1,160,206)="D SD4^ONCPAT1"

 S DR(1,160,207)="S Y=""@999"""

 S DR(1,160,208)="@25931"

 S DR(1,160,209)="25.94    SECONDARY DIAGNOSIS #4"

 S DR(1,160,210)="I X'="""" S Y=""@25941"""

 S DR(1,160,211)="D SDSTF5^ONCPAT1"

 S DR(1,160,212)="D SD5^ONCPAT1"

 S DR(1,160,213)="S Y=""@999"""

 S DR(1,160,214)="@25941"

 S DR(1,160,215)="25.95    SECONDARY DIAGNOSIS #5"

 S DR(1,160,216)="I X'="""" S Y=""@25951"""

 S DR(1,160,217)="D SDSTF6^ONCPAT1"

 S DR(1,160,218)="D SD6^ONCPAT1"

 S DR(1,160,219)="S Y=""@999"""

 S DR(1,160,220)="@25951"

 S DR(1,160,221)="25.96    SECONDARY DIAGNOSIS #6"

 S DR(1,160,222)="I X'="""" S Y=""@25961"""

 S DR(1,160,223)="D SDSTF7^ONCPAT1"

 S DR(1,160,224)="D SD7^ONCPAT1"

 S DR(1,160,225)="S Y=""@999"""

 S DR(1,160,226)="@25961"

 S DR(1,160,227)="25.97    SECONDARY DIAGNOSIS #7"

 S DR(1,160,228)="I X'="""" S Y=""@25971"""

 S DR(1,160,229)="D SDSTF8^ONCPAT1"

 S DR(1,160,230)="D SD8^ONCPAT1"

 S DR(1,160,231)="S Y=""@999"""

 S DR(1,160,232)="@25971"

 S DR(1,160,233)="25.98    SECONDARY DIAGNOSIS #8"

 S DR(1,160,234)="I X'="""" S Y=""@25981"""

 S DR(1,160,235)="D SDSTF9^ONCPAT1"

 S DR(1,160,236)="D SD9^ONCPAT1"

 S DR(1,160,237)="S Y=""@999"""

 S DR(1,160,238)="@25981"

 S DR(1,160,239)="25.99    SECONDARY DIAGNOSIS #9"

 S DR(1,160,240)="I X'="""" S Y=""@25991"""

 S DR(1,160,241)="D SDSTF10^ONCPAT1"

 S DR(1,160,242)="D SD10^ONCPAT1"

 S DR(1,160,243)="S Y=""@999"""

 S DR(1,160,244)="@25991"

 S DR(1,160,245)="25.9901    SECONDARY DIAGNOSIS #10"

 S DR(1,160,246)="@999"

 D ^DIE

 K AOE,DIE,DR,IRE,GSI,LSI,OEF,OIF,PGS,PSI,SSI,VSI,YSI,ONCSDPMT

 Q

 ;

CLEANUP ;Cleanup

 K ONCOD0

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCPAT   10793     printed  Oct 16, 2024@18:27:40                                                                                                                                                                                                     Page 2

ONCPAT    ;HINES OIFO/GWB - PATIENT IDENTIFICATION ;10/07/11

 +1       ;;2.2;ONCOLOGY;**1,13,17,19**;Jul 31, 2013;Build 4

 +2       ;

 +3        WRITE !

 +4        KILL DR

 +5        NEW DA

 +6        SET DIE="^ONCO(160,"

           SET DA=ONCOD0

           SET DR=""

 +7        SET DR(1,160,1)="7    PLACE OF BIRTH............."

 +8        SET DR(1,160,1.5)="71    BIRTH SURNAME.............."

 +9        SET DR(1,160,2)="8    RACE 1.....................//^S X=RACE"

 +10       SET DR(1,160,3)="I X'=99 S Y=""@81"""

 +11       SET DR(1,160,4)="8.1////99"

 +12       SET DR(1,160,5)="8.2////99"

 +13       SET DR(1,160,6)="8.3////99"

 +14       SET DR(1,160,7)="8.4////99"

 +15       SET DR(1,160,8)="W !,""    RACE 2.....................: Unknown"""

 +16       SET DR(1,160,9)="W !,""    RACE 3.....................: Unknown"""

 +17       SET DR(1,160,10)="W !,""    RACE 4.....................: Unknown"""

 +18       SET DR(1,160,11)="W !,""    RACE 5.....................: Unknown"""

 +19       SET DR(1,160,12)="S Y=9"

 +20       SET DR(1,160,13)="@81"

 +21       SET DR(1,160,14)="8.1    RACE 2.....................//No additional races (Race 2 - Race 5)"

 +22       SET DR(1,160,15)="S Y=$S(X=88:""@8288"",X=99:""@8299"",X="""":""@8200"",1:""@82"")"

 +23       SET DR(1,160,16)="@8288"

 +24       SET DR(1,160,17)="8.2////88"

 +25       SET DR(1,160,18)="8.3////88"

 +26       SET DR(1,160,19)="8.4////88"

 +27       SET DR(1,160,20)="W !,""    RACE 3.....................: No additional races (Race 2 - Race 5)"""

 +28       SET DR(1,160,21)="W !,""    RACE 4.....................: No additional races (Race 2 - Race 5)"""

 +29       SET DR(1,160,22)="W !,""    RACE 5.....................: No additional races (Race 2 - Race 5)"""

 +30       SET DR(1,160,23)="S Y=9"

 +31       SET DR(1,160,24)="@8299"

 +32       SET DR(1,160,25)="8.2////99"

 +33       SET DR(1,160,26)="8.3////99"

 +34       SET DR(1,160,27)="8.4////99"

 +35       SET DR(1,160,28)="W !,""    RACE 3.....................: Unknown"""

 +36       SET DR(1,160,29)="W !,""    RACE 4.....................: Unknown"""

 +37       SET DR(1,160,30)="W !,""    RACE 5.....................: Unknown"""

 +38       SET DR(1,160,31)="S Y=9"

 +39       SET DR(1,160,32)="@8200"

 +40       SET DR(1,160,33)="8.2////@"

 +41       SET DR(1,160,34)="8.3////@"

 +42       SET DR(1,160,35)="8.4////@"

 +43       SET DR(1,160,36)="W !,""    RACE 3.....................:"""

 +44       SET DR(1,160,37)="W !,""    RACE 4.....................:"""

 +45       SET DR(1,160,38)="W !,""    RACE 5.....................:"""

 +46       SET DR(1,160,39)="S Y=9"

 +47       SET DR(1,160,40)="@82"

 +48       SET DR(1,160,41)="8.2    RACE 3.....................//No additional races (Race 2 - Race 5)"

 +49       SET DR(1,160,42)="S Y=$S(X=88:""@8388"",X=99:""@8399"",X="""":""@8300"",1:""@83"")"

 +50       SET DR(1,160,43)="@8388"

 +51       SET DR(1,160,44)="8.3////88"

 +52       SET DR(1,160,45)="8.4////88"

 +53       SET DR(1,160,46)="W !,""    RACE 4.....................: No additional races (Race 2 - Race 5)"""

 +54       SET DR(1,160,47)="W !,""    RACE 5.....................: No additional races (Race 2 - Race 5)"""

 +55       SET DR(1,160,48)="S Y=9"

 +56       SET DR(1,160,49)="@8399"

 +57       SET DR(1,160,50)="8.3////99"

 +58       SET DR(1,160,51)="8.4////99"

 +59       SET DR(1,160,52)="W !,""    RACE 4.....................: Unknown"""

 +60       SET DR(1,160,53)="W !,""    RACE 5.....................: Unknown"""

 +61       SET DR(1,160,54)="S Y=9"

 +62       SET DR(1,160,55)="@8300"

 +63       SET DR(1,160,56)="8.3////@"

 +64       SET DR(1,160,57)="8.4////@"

 +65       SET DR(1,160,58)="W !,""    RACE 4.....................:"""

 +66       SET DR(1,160,59)="W !,""    RACE 5.....................:"""

 +67       SET DR(1,160,60)="S Y=9"

 +68       SET DR(1,160,61)="@83"

 +69       SET DR(1,160,62)="8.3    RACE 4.....................//No additional races (Race 2 - Race 5)"

 +70       SET DR(1,160,63)="S Y=$S(X=88:""@8488"",X=99:""@8499"",X="""":""@8400"",1:""@84"")"

 +71       SET DR(1,160,64)="@8488"

 +72       SET DR(1,160,65)="8.4////88"

 +73       SET DR(1,160,66)="W !,""    RACE 5.....................: No additional races (Race 2 - Race 5)"""

 +74       SET DR(1,160,67)="S Y=9"

 +75       SET DR(1,160,68)="@8499"

 +76       SET DR(1,160,69)="8.4////99"

 +77       SET DR(1,160,70)="W !,""    RACE 5.....................: Unknown"""

 +78       SET DR(1,160,71)="S Y=9"

 +79       SET DR(1,160,72)="@8400"

 +80       SET DR(1,160,73)="8.4////@"

 +81       SET DR(1,160,74)="W !,""    RACE 5.....................:"""

 +82       SET DR(1,160,75)="S Y=9"

 +83       SET DR(1,160,76)="@84"

 +84       SET DR(1,160,77)="8.4    RACE 5.....................//No additional races (Race 2 - Race 5)"

 +85       SET DR(1,160,78)="9    SPANISH ORIGIN.............//"

 +86       SET DR(1,160,79)="10    SEX........................"

 +87       SET DR(1,160,80)="48    AGENT ORANGE EXPOSURE......//^S X=AOE"

 +88       SET DR(1,160,81)="50    IONIZING RADIATION EXPOSURE//^S X=IRE"

 +89       SET DR(1,160,82)="52    CHEMICAL EXPOSURE.........."

 +90       SET DR(1,160,83)="61    ASBESTOS EXPOSURE.........."

 +91       SET DR(1,160,83.1)="72    BURN PIT EXPOSURE.........."

 +92       SET DR(1,160,83.2)="73    OTHER TOXIC EXPOSURE......."

 +93       SET DR(1,160,84)="62    VIETNAM SERVICE............//^S X=VSI"

 +94       SET DR(1,160,85)="55    LEBANON SERVICE............//^S X=LSI"

 +95       SET DR(1,160,86)="63    GRENADA SERVICE............//^S X=GSI"

 +96       SET DR(1,160,86.1)="64    PANAMA SERVICE.............//^S X=PSI"

 +97       SET DR(1,160,86.2)="51    PERSIAN GULF SERVICE.......//^S X=PGS"

 +98       SET DR(1,160,86.3)="56    SOMALIA SERVICE............//^S X=SSI"

 +99       SET DR(1,160,86.4)="65    YUGOSLAVIA SERVICE.........//^S X=YSI"

 +100      SET DR(1,160,86.5)="67    AFGHANISTAN (OEF) SERVICE..//^S X=OEF"

 +101      SET DR(1,160,86.6)="66    IRAQ (OIF) SERVICE.........//^S X=OIF"

 +102      SET DR(1,160,87)="W ! K DIR S DIR(0)=""E"" D ^DIR"

 +103      SET DR(1,160,88)="I $D(DIRUT) S Y=""@99"""

 +104      SET DR(1,160,89)="W @IOF"

 +105      SET DR(1,160,90)="W !?4,""Patient name: "",ONCONAM,!"

 +106      SET DR(1,160,91)="D CC^ONCPAT1"

 +107      SET DR(1,160,92)="D ^ONCPL"

 +108      SET DR(1,160,93)="I $D(DIRUT) S Y=""@99"""

 +109      SET DR(1,160,93.1)="1006    SOURCE COMORBIDITY"

 +110      SET DR(1,160,94)="25    COMORBIDITY/COMPLICATION #1"

 +111      SET DR(1,160,95)="I X'="""" S Y=""@251"""

 +112      SET DR(1,160,96)="25.1////@"

 +113      SET DR(1,160,97)="25.2////@"

 +114      SET DR(1,160,98)="25.3////@"

 +115      SET DR(1,160,99)="25.4////@"

 +116      SET DR(1,160,100)="25.5////@"

 +117      SET DR(1,160,101)="25.6////@"

 +118      SET DR(1,160,102)="25.7////@"

 +119      SET DR(1,160,103)="25.8////@"

 +120      SET DR(1,160,104)="25.9////@"

 +121      SET DR(1,160,105)="D CC2^ONCPAT1"

 +122      SET DR(1,160,106)="S Y=""@99"""

 +123      SET DR(1,160,107)="@251"

 +124      SET DR(1,160,108)="25.1    COMORBIDITY/COMPLICATION #2"

 +125      SET DR(1,160,109)="I X'="""" S Y=""@252"""

 +126      SET DR(1,160,110)="25.2////@"

 +127      SET DR(1,160,111)="25.3////@"

 +128      SET DR(1,160,112)="25.4////@"

 +129      SET DR(1,160,113)="25.5////@"

 +130      SET DR(1,160,114)="25.6////@"

 +131      SET DR(1,160,115)="25.7////@"

 +132      SET DR(1,160,116)="25.8////@"

 +133      SET DR(1,160,117)="25.9////@"

 +134      SET DR(1,160,118)="D CC3^ONCPAT1"

 +135      SET DR(1,160,119)="S Y=""@99"""

 +136      SET DR(1,160,120)="@252"

 +137      SET DR(1,160,121)="25.2    COMORBIDITY/COMPLICATION #3"

 +138      SET DR(1,160,122)="I X'="""" S Y=""@253"""

 +139      SET DR(1,160,123)="25.3////@"

 +140      SET DR(1,160,124)="25.4////@"

 +141      SET DR(1,160,125)="25.5////@"

 +142      SET DR(1,160,126)="25.6////@"

 +143      SET DR(1,160,127)="25.7////@"

 +144      SET DR(1,160,128)="25.8////@"

 +145      SET DR(1,160,129)="25.9////@"

 +146      SET DR(1,160,130)="D CC4^ONCPAT1"

 +147      SET DR(1,160,131)="S Y=""@99"""

 +148      SET DR(1,160,132)="@253"

 +149      SET DR(1,160,133)="25.3    COMORBIDITY/COMPLICATION #4"

 +150      SET DR(1,160,134)="I X'="""" S Y=""@254"""

 +151      SET DR(1,160,135)="25.4////@"

 +152      SET DR(1,160,136)="25.5////@"

 +153      SET DR(1,160,137)="25.6////@"

 +154      SET DR(1,160,138)="25.7////@"

 +155      SET DR(1,160,139)="25.8////@"

 +156      SET DR(1,160,140)="25.9////@"

 +157      SET DR(1,160,141)="D CC5^ONCPAT1"

 +158      SET DR(1,160,142)="S Y=""@99"""

 +159      SET DR(1,160,143)="@254"

 +160      SET DR(1,160,144)="25.4    COMORBIDITY/COMPLICATION #5"

 +161      SET DR(1,160,145)="I X'="""" S Y=""@255"""

 +162      SET DR(1,160,146)="25.5////@"

 +163      SET DR(1,160,147)="25.6////@"

 +164      SET DR(1,160,148)="25.7////@"

 +165      SET DR(1,160,149)="25.8////@"

 +166      SET DR(1,160,150)="25.9////@"

 +167      SET DR(1,160,151)="D CC6^ONCPAT1"

 +168      SET DR(1,160,152)="S Y=""@99"""

 +169      SET DR(1,160,153)="@255"

 +170      SET DR(1,160,154)="25.5    COMORBIDITY/COMPLICATION #6"

 +171      SET DR(1,160,155)="I X'="""" S Y=""@256"""

 +172      SET DR(1,160,156)="25.6////@"

 +173      SET DR(1,160,157)="25.7////@"

 +174      SET DR(1,160,158)="25.8////@"

 +175      SET DR(1,160,159)="25.9////@"

 +176      SET DR(1,160,160)="D CC7^ONCPAT1"

 +177      SET DR(1,160,161)="S Y=""@99"""

 +178      SET DR(1,160,162)="@256"

 +179      SET DR(1,160,163)="25.6    COMORBIDITY/COMPLICATION #7"

 +180      SET DR(1,160,164)="I X'="""" S Y=""@257"""

 +181      SET DR(1,160,165)="25.7////@"

 +182      SET DR(1,160,166)="25.8////@"

 +183      SET DR(1,160,167)="25.9////@"

 +184      SET DR(1,160,168)="D CC8^ONCPAT1"

 +185      SET DR(1,160,169)="S Y=""@99"""

 +186      SET DR(1,160,170)="@257"

 +187      SET DR(1,160,171)="25.7    COMORBIDITY/COMPLICATION #8"

 +188      SET DR(1,160,172)="I X'="""" S Y=""@258"""

 +189      SET DR(1,160,173)="25.8////@"

 +190      SET DR(1,160,174)="25.9////@"

 +191      SET DR(1,160,175)="D CC9^ONCPAT1"

 +192      SET DR(1,160,176)="S Y=""@99"""

 +193      SET DR(1,160,177)="@258"

 +194      SET DR(1,160,178)="25.8    COMORBIDITY/COMPLICATION #9"

 +195      SET DR(1,160,179)="I X'="""" S Y=""@259"""

 +196      SET DR(1,160,180)="25.9////@"

 +197      SET DR(1,160,181)="D CC10^ONCPAT1"

 +198      SET DR(1,160,182)="S Y=""@99"""

 +199      SET DR(1,160,183)="@259"

 +200      SET DR(1,160,184)="25.9    COMORBIDITY/COMPLICATION #10"

 +201      SET DR(1,160,185)="@99"

 +202      SET DR(1,160,186)="W ! K DIR S DIR(0)=""E"" D ^DIR"

 +203      SET DR(1,160,187)="I $D(DIRUT) S Y=""@999"""

 +204      SET DR(1,160,188)="W @IOF"

 +205      SET DR(1,160,189)="W !?4,""Patient name: "",ONCONAM,!"

 +206      SET DR(1,160,190)="D SD^ONCPAT1 I ONCSDPMT'=1 S Y=""@999"""

 +207      SET DR(1,160,191)="25.91    SECONDARY DIAGNOSIS #1"

 +208      SET DR(1,160,192)="I X'="""" S Y=""@25911"""

 +209      SET DR(1,160,193)="D SDSTF2^ONCPAT1"

 +210      SET DR(1,160,194)="D SD2^ONCPAT1"

 +211      SET DR(1,160,195)="S Y=""@999"""

 +212      SET DR(1,160,196)="@25911"

 +213      SET DR(1,160,197)="25.92    SECONDARY DIAGNOSIS #2"

 +214      SET DR(1,160,198)="I X'="""" S Y=""@25921"""

 +215      SET DR(1,160,199)="D SDSTF3^ONCPAT1"

 +216      SET DR(1,160,200)="D SD3^ONCPAT1"

 +217      SET DR(1,160,201)="S Y=""@999"""

 +218      SET DR(1,160,202)="@25921"

 +219      SET DR(1,160,203)="25.93    SECONDARY DIAGNOSIS #3"

 +220      SET DR(1,160,204)="I X'="""" S Y=""@25931"""

 +221      SET DR(1,160,205)="D SDSTF4^ONCPAT1"

 +222      SET DR(1,160,206)="D SD4^ONCPAT1"

 +223      SET DR(1,160,207)="S Y=""@999"""

 +224      SET DR(1,160,208)="@25931"

 +225      SET DR(1,160,209)="25.94    SECONDARY DIAGNOSIS #4"

 +226      SET DR(1,160,210)="I X'="""" S Y=""@25941"""

 +227      SET DR(1,160,211)="D SDSTF5^ONCPAT1"

 +228      SET DR(1,160,212)="D SD5^ONCPAT1"

 +229      SET DR(1,160,213)="S Y=""@999"""

 +230      SET DR(1,160,214)="@25941"

 +231      SET DR(1,160,215)="25.95    SECONDARY DIAGNOSIS #5"

 +232      SET DR(1,160,216)="I X'="""" S Y=""@25951"""

 +233      SET DR(1,160,217)="D SDSTF6^ONCPAT1"

 +234      SET DR(1,160,218)="D SD6^ONCPAT1"

 +235      SET DR(1,160,219)="S Y=""@999"""

 +236      SET DR(1,160,220)="@25951"

 +237      SET DR(1,160,221)="25.96    SECONDARY DIAGNOSIS #6"

 +238      SET DR(1,160,222)="I X'="""" S Y=""@25961"""

 +239      SET DR(1,160,223)="D SDSTF7^ONCPAT1"

 +240      SET DR(1,160,224)="D SD7^ONCPAT1"

 +241      SET DR(1,160,225)="S Y=""@999"""

 +242      SET DR(1,160,226)="@25961"

 +243      SET DR(1,160,227)="25.97    SECONDARY DIAGNOSIS #7"

 +244      SET DR(1,160,228)="I X'="""" S Y=""@25971"""

 +245      SET DR(1,160,229)="D SDSTF8^ONCPAT1"

 +246      SET DR(1,160,230)="D SD8^ONCPAT1"

 +247      SET DR(1,160,231)="S Y=""@999"""

 +248      SET DR(1,160,232)="@25971"

 +249      SET DR(1,160,233)="25.98    SECONDARY DIAGNOSIS #8"

 +250      SET DR(1,160,234)="I X'="""" S Y=""@25981"""

 +251      SET DR(1,160,235)="D SDSTF9^ONCPAT1"

 +252      SET DR(1,160,236)="D SD9^ONCPAT1"

 +253      SET DR(1,160,237)="S Y=""@999"""

 +254      SET DR(1,160,238)="@25981"

 +255      SET DR(1,160,239)="25.99    SECONDARY DIAGNOSIS #9"

 +256      SET DR(1,160,240)="I X'="""" S Y=""@25991"""

 +257      SET DR(1,160,241)="D SDSTF10^ONCPAT1"

 +258      SET DR(1,160,242)="D SD10^ONCPAT1"

 +259      SET DR(1,160,243)="S Y=""@999"""

 +260      SET DR(1,160,244)="@25991"

 +261      SET DR(1,160,245)="25.9901    SECONDARY DIAGNOSIS #10"

 +262      SET DR(1,160,246)="@999"

 +263      DO ^DIE

 +264      KILL AOE,DIE,DR,IRE,GSI,LSI,OEF,OIF,PGS,PSI,SSI,VSI,YSI,ONCSDPMT

 +265      QUIT 

 +266     ;

CLEANUP   ;Cleanup

 +1        KILL ONCOD0