ONCPAT ;HINES OIFO/GWB - PATIENT IDENTIFICATION ;10/07/11
;;2.2;ONCOLOGY;**1,13,17,19,20**;Jul 31, 2013;Build 5
;
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 EXPOSURE AGENT ORANGE......//^S X=AOE"
S DR(1,160,81)="50 EXPOSURE IONIZING RADIATION//^S X=IRE"
S DR(1,160,82)="52 EXPOSURE CHEMICAL..........//^S X=CEX"
S DR(1,160,83)="61 EXPOSURE ASBESTOS..........//^S X=AEX"
S DR(1,160,83.1)="72 EXPOSURE BURN PIT..........//^S X=BPE"
S DR(1,160,83.2)="73 EXPOSURE OTHER TOXIC.......//^S X=OTE"
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,CEX,AEX,BPE,OTE
Q
;
CLEANUP ;Cleanup
K ONCOD0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPAT 10856 printed Dec 13, 2024@02:27 Page 2
ONCPAT ;HINES OIFO/GWB - PATIENT IDENTIFICATION ;10/07/11
+1 ;;2.2;ONCOLOGY;**1,13,17,19,20**;Jul 31, 2013;Build 5
+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 EXPOSURE AGENT ORANGE......//^S X=AOE"
+88 SET DR(1,160,81)="50 EXPOSURE IONIZING RADIATION//^S X=IRE"
+89 SET DR(1,160,82)="52 EXPOSURE CHEMICAL..........//^S X=CEX"
+90 SET DR(1,160,83)="61 EXPOSURE ASBESTOS..........//^S X=AEX"
+91 SET DR(1,160,83.1)="72 EXPOSURE BURN PIT..........//^S X=BPE"
+92 SET DR(1,160,83.2)="73 EXPOSURE OTHER TOXIC.......//^S X=OTE"
+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,CEX,AEX,BPE,OTE
+265 QUIT
+266 ;
CLEANUP ;Cleanup
+1 KILL ONCOD0
+2 QUIT
