| 1 | ONCOANC1 ;Hines OIFO/GWB - CONTINUE ONCOANC2 ;02/01/96
|
|---|
| 2 | ;;2.11;ONCOLOGY;**1,6,25,26**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | AASTEOD ; STAGE/EXTENT OF DISEASE
|
|---|
| 5 | S AASEODS=$P(AAS1655("N2"),U,17) S AASEODS=$S(AASEODS="":9,AASEODS<0:9,AASEODS>9:9,AASEODS=8:9,1:AASEODS)
|
|---|
| 6 | S AASEODT=$P(AAS1655("N2"),U,9) S AASEODT=$S(AASEODT="":999,AASEODT[".":999,AASEODT<0:999,AASEODT>999:999,1:AASEODT)
|
|---|
| 7 | S:$L(AASEODT)<3 AASEODT=$E(AASZERO,1,3-$L(AASEODT))_AASEODT
|
|---|
| 8 | S AASEODE=$P(AAS1655("N2"),U,10) S AASEODE=$S(AASEODE="":" ",AASEODE<0:" ",AASEODE>99:" ",1:AASEODE)
|
|---|
| 9 | S:$L(AASEODE)<2 AASEODE=$E(AASZERO,1,2-$L(AASEODE))_AASEODE
|
|---|
| 10 | S AASEODL=$P(AAS1655("N2"),U,11) S AASEODL=$S(AASEODL="":" ",AASEODL<0:" ",AASEODL>9:" ",1:AASEODL)
|
|---|
| 11 | S AASNP=$P(AAS1655("N2"),U,12) S AASNP=$S(AASNP="":99,AASNP[".":99,AASNP<0:99,AASNP>99:99,1:AASNP)
|
|---|
| 12 | S:$L(AASNP)<2 AASNP=$E(AASZERO,1,2-$L(AASNP))_AASNP
|
|---|
| 13 | S AASNE=$P(AAS1655("N2"),U,13) S AASNE=$S(AASNE="":99,AASNE[".":99,AASNE<0:99,AASNE>99:99,1:AASNE)
|
|---|
| 14 | S:$L(AASNE)<2 AASNE=$E(AASZERO,1,2-$L(AASNE))_AASNE
|
|---|
| 15 | S AASTNME=$$EDT^ONCOANC3($E(AASDXDT,7,8)) ;(AASTNME=2
|
|---|
| 16 | N AASTC,AASNC,AASMC,AASAJSM,AASTC2,AASNC2,AASMC2,AASJSM2
|
|---|
| 17 | D TNM^ONCOANC3(.AASTC,.AASNC,.AASMC,.AASAJSM,.AASTC2,.AASNC2,.AASMC2,.AASJSM2)
|
|---|
| 18 | S AASITME=$$MET^ONCOANC3(AAS1655("N2"))
|
|---|
| 19 | S:$L(AASITME)<3 AASITME=AASITME_$E(AASBLNK,1,3-$L(AASITME))
|
|---|
| 20 | S AASRT=$P(AAS1655("N3"),U,28) S AASRT=$S(AASRT="":" ",AASRT<0:" ",AASRT>9:" ",1:AASRT)
|
|---|
| 21 | I AASRT>2&(AASRT<9) S AASRT=" "
|
|---|
| 22 | S AASTM1=$P(AAS1655("N24"),U,2) S AASTM1=$S(AASTM1="":" ",1:$P(^ONCO(164.15,AASTM1,0),U))
|
|---|
| 23 | S AASTM2=$P(AAS1655("N24"),U,3) S AASTM2=$S(AASTM2="":" ",1:$P(^ONCO(164.15,AASTM2,0),U))
|
|---|
| 24 | S ^TMP($J,D0,225)=^TMP($J,D0,225)_AASEODS_" "_AASEODT_AASEODE_AASEODL_AASNP_AASNE_$E(AASBLNK,1,19)_AASTC_AASNC_AASMC_AASAJSM_AASTC2_AASNC2_AASMC2_AASJSM2
|
|---|
| 25 | S ^TMP($J,D0,299)=AASTNME_AASITME_AASRT_$E(AASBLNK,1,4)_AASTM1_AASTM2_$E(AASBLNK,1,12)
|
|---|
| 26 | AASRXTR ; TREATMENT(RX)-ENTIRE(SUMMARY) FIRST COURSE
|
|---|
| 27 | S AASRTR=1
|
|---|
| 28 | S AASRDSR=$$AASDC^ONCOANC4($P(AAS1655("N3"),U))
|
|---|
| 29 | S AASRDRA=$$AASDC^ONCOANC4($P(AAS1655("N3"),U,4))
|
|---|
| 30 | S AASRDCH=$$AASDC^ONCOANC4($P(AAS1655("N3"),U,11))
|
|---|
| 31 | S AASRDHO=$$AASDC^ONCOANC4($P(AAS1655("N3"),U,14))
|
|---|
| 32 | S AASRDBR=$$AASDC^ONCOANC4($P(AAS1655("N3"),U,17))
|
|---|
| 33 | S AASRDOT=$$AASDC^ONCOANC4($P(AAS1655("N3"),U,23))
|
|---|
| 34 | S AASX=$O(^ONCO(165.5,"ATX",D0,0)) S:AASX'="" AASX=$E(AASX,1,7)
|
|---|
| 35 | S AASRXBDT=$$AASDC^ONCOANC4(AASX,"ZERO")
|
|---|
| 36 | S AASRXREA=$P(AAS1655("N3"),U,26) I AASRXREA=""!(AASRXREA<0)!(AASRXREA>9)!(AASRXREA>2&(AASRXREA<6)) S AASRXREA=9
|
|---|
| 37 | S AASRXCN=$P(AAS1655("N3"),U,10) I AASRXCN=""!(AASRXCN<0)!(AASRXCN>9)!(AASRXCN>1&(AASRXCN<7)) S AASRXCN=9
|
|---|
| 38 | S AASRXSEQ=$P(AAS1655("N3"),U,7) I AASRXSEQ=""!(AASRXSEQ<0)!(AASRXSEQ>6)!(AASRXSEQ=1) S AASRXSEQ=9
|
|---|
| 39 | S AASRDSB=$$AASDC^ONCOANC4($P(AAS1655("N5"),U))
|
|---|
| 40 | S ^TMP($J,D0,299)=^TMP($J,D0,299)_AASRTR_AASRDSR_AASRDRA_AASRDCH_AASRDHO_AASRDBR_AASRDOT
|
|---|
| 41 | D FOLLOW^ONCOANC3
|
|---|
| 42 | AASFLUP ; FOLLOW UP
|
|---|
| 43 | S AASDTLC=$$AASDC^ONCOANC4($P(AAS160("NF"),U))
|
|---|
| 44 | S ^TMP($J,D0,425)=^TMP($J,D0,425)_$E(AASBLNK,1,20)_AASDTLC
|
|---|
| 45 | S AASVSTA=$S($G(AASDTLC):$P(AAS160("NF"),U,2),1:" ") S:AASVSTA=""!(AASVSTA<0)!(AASVSTA>1) AASVSTA=1
|
|---|
| 46 | S AASCSTA=$S($G(AASDTLC):$P(AAS1655("N7"),U,6),1:" ") S AASCSTA=$S((AASCSTA="")!(AASCSTA<0)!(AASCSTA>5):9,(AASCSTA=4)!(AASCSTA=5):2,1:AASCSTA)
|
|---|
| 47 | S AASQS=$S($G(AASDTLC):$P(AAS160("NF"),U,5),1:" ") S:AASQS=""!(AASQS<0)!(AASQS>9)!(AASQS>4&(AASQS<8)) AASQS=9
|
|---|
| 48 | S AASROT=$P(AAS1655("N5"),U,2) I AASROT=""!(AASROT<0)!(AASROT>4) S AASROT=9
|
|---|
| 49 | S AASFSIT=$P(AAS1655("N5"),U,3) I AASFSIT=""!(AASFSIT<0)!(AASFSIT>9) S AASFSIT=9
|
|---|
| 50 | S:$L(AASFSIT)<3 AASFSIT=AASFSIT_$E(AASBLNK,1,3-$L(AASFSIT))
|
|---|
| 51 | ASSD ; CAUSE OF DEATH
|
|---|
| 52 | S AASCOD=$P(AAS160("N1"),U,3) S AASCOD=$S(AASCOD'="":$P($G(^ICD9(AASCOD,0)),U),1:"0000")
|
|---|
| 53 | I AASCOD["." S AASCOD=$P(AASCOD,".")_$P(AASCOD,".",2)
|
|---|
| 54 | S:$L(AASCOD)=3 AASCOD=AASCOD_9
|
|---|
| 55 | S:$L(AASCOD)<4 AASCOD=$E(AASZERO,1,4-$L(AASCOD))_AASCOD
|
|---|
| 56 | S:$L(AASCOD)>4 AASCOD=$E(AASCOD,1,4)
|
|---|
| 57 | I $E(AASCOD,4)="X"!($E(AASCOD,4)="-") S AASCOD=$E(AASCOD,1,3)_9
|
|---|
| 58 | S AASICDR=$S(AASCOD="0000":0,1:$P(AAS160("N1"),U,4))
|
|---|
| 59 | S:AASICDR="" AASICDR=0
|
|---|
| 60 | S ^TMP($J,D0,477)=AASVSTA_AASCSTA_AASQS_$E(AASBLNK,1,32)_AASRDSB_AASROT_AASFSIT_AASCOD_AASICDR
|
|---|
| 61 | S AASACDS=5
|
|---|
| 62 | S AASVNAM="VETAFFAIRS" ; vendor name
|
|---|
| 63 | S AASRVER=1 ; AACCR record version
|
|---|
| 64 | S ^TMP($J,D0,550)=$E(AASBLNK,1,45)_AASACDS_$E(AASBLNK,1,2)_AASVNAM_AASRVER_" "
|
|---|
| 65 | D ^ONCOANC5
|
|---|
| 66 | S MLHIX=MLHIX+1
|
|---|
| 67 | I $G(ONCOREP)=1 D TPREP^ONCOANC2,CU1P^ONCOANC9 Q
|
|---|
| 68 | I $G(ONCOREQ)=1 D REQREP^ONCOANC2,CU1P^ONCOANC9 Q
|
|---|
| 69 | F INDEX=76,149,225,299,352,425,477,550,628,706,784,850,925,1000 Q:AASTYPNC="I"&(INDEX>550) W ^TMP($J,D0,INDEX),"^",!
|
|---|
| 70 | I AASTYPNC="A" F INDEX=1075:75:4675 W ^TMP($J,D0,INDEX),"^",!
|
|---|
| 71 | W !!!
|
|---|
| 72 | D CU1P^ONCOANC9 ;K ^TMP($J)
|
|---|
| 73 | Q ;G AASRETN^ONCOANC0
|
|---|
| 74 | ;
|
|---|
| 75 | MLHTEST S X="" F I=76,149,225,299,352 S X=X_^TMP($J,D0,I)
|
|---|
| 76 | Q ;
|
|---|
