194 lines
7.0 KiB
Mathematica
194 lines
7.0 KiB
Mathematica
ONCPAT ;Hines OIFO/GWB - PATIENT IDENTIFICATION ;12/08/00
|
|
;;2.11;ONCOLOGY;**27,32,33,34,37,41,45**;Mar 07, 1995
|
|
W !
|
|
K DR
|
|
S DIE="^ONCO(160,",DA=ONCOD0,DR=""
|
|
S DR(1,160,1)="7 PLACE OF BIRTH............."
|
|
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.....................//NA"
|
|
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.....................: NA"""
|
|
S DR(1,160,21)="W !,"" RACE 4.....................: NA"""
|
|
S DR(1,160,22)="W !,"" RACE 5.....................: NA"""
|
|
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.....................//NA"
|
|
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.....................: NA"""
|
|
S DR(1,160,47)="W !,"" RACE 5.....................: NA"""
|
|
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.....................//NA"
|
|
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.....................: NA"""
|
|
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.....................//NA"
|
|
S DR(1,160,78)="9 SPANISH ORIGIN.............//^S X=""Non-Spanish, non-Hispanic"""
|
|
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,84)="51 PERSIAN GULF SERVICE.......//^S X=PGS"
|
|
S DR(1,160,85)="55 MIDDLE EAST SERVICE........//^S X=MES"
|
|
S DR(1,160,86)="56 SOMALIA SERVICE............//^S X=SS"
|
|
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,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"
|
|
D ^DIE
|
|
K DR
|
|
Q
|