source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOANC5.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.3 KB
RevLine 
[613]1ONCOANC5 ;Hines OIFO/GWB - BUILDS FREE TEXT PORTION OF STATE REPORTING ;11 MAR 96
2 ;;2.11;ONCOLOGY;**1,25,26**;MAR 07, 1995
3SHTXT Q:AASTYPNC'="A" K AASTXB S $P(AASTXB," ",351)=""
4 S (AAS("S",1),AAS("S",2))=40,AAS("S",3)=100,AAS("S",4)=50
5 F CN=1:1:3 S AASY(CN)=$P($G(^ONCO(165.5,D0,8)),U,CN) D
6 . S AASY(CN)=AASY(CN)_$E(AASTXB,1,AAS("S",CN)-$L(AASY(CN)))
7 S AASY(4)=$P($G(^ONCO(165.5,D0,0)),U,17)
8 S:AASY(4)>0 AASY(4)=$E($P($G(^ONCO(160.19,AASY(4),0)),U,2),1,50)
9 S AASY(4)=AASY(4)_$E(AASTXB,1,AAS("S",4)-$L(AASY(4)))
10WP F CN=9,11,12,13,22 S AAS("S",CN)=250
11 S (AAS("S",10),AAS("S",17),AAS("S",18))=200
12 S (AAS("S",14),AAS("S",15),AAS("S",16))=150
13 S (AAS("S",20),AAS("S",21))=100,AAS("S",19)=350
14 F CN=9:1:22 S CNT=0,AASY(CN)="" D
15 .I '$D(^ONCO(165.5,D0,CN)) S AASY(CN)=$E(AASTXB,1,AAS("S",CN)) Q
16 .S CNT=0 F S CNT=$O(^ONCO(165.5,D0,CN,CNT)) Q:CNT'>0!($L(AASY(CN))'<AAS("S",CN)) D
17 ..S AAS(CN,CNT)=$G(^ONCO(165.5,D0,CN,CNT,0))
18 ..I $L(AASY(CN))+$L(AAS(CN,CNT))>AAS("S",CN) S AASY(CN)=AASY(CN)_$E(AAS(CN,CNT),1,AAS("S",CN)-$L(AASY(CN))) Q
19 ..S AASY(CN)=AASY(CN)_AAS(CN,CNT)
20 .S AASY(CN)=$E(AASY(CN)_$E(AASTXB,1,AAS("S",CN)-$L(AASY(CN))),1,AAS("S",CN))
21 K AAS
22SETTMP S ^TMP($J,D0,1075)=$E(AASTXB,1,75),^TMP($J,D0,1150)=$E(AASTXB,1,75)
23 S ^TMP($J,D0,1225)=$E(AASY(10),1,75)
24 S ^TMP($J,D0,1300)=$E(AASY(10),76,150)
25 S ^TMP($J,D0,1375)=$E(AASY(10),151,200)_$E(AASY(11),1,25)
26 S ^TMP($J,D0,1450)=$E(AASY(11),26,100)
27 S ^TMP($J,D0,1525)=$E(AASY(11),101,175)
28 S ^TMP($J,D0,1600)=$E(AASY(11),176,250)
29 S ^TMP($J,D0,1675)=$E(AASY(12),1,75)
30 S ^TMP($J,D0,1750)=$E(AASY(12),76,150)
31 S ^TMP($J,D0,1825)=$E(AASY(12),151,225)
32 S ^TMP($J,D0,1900)=$E(AASY(12),226,250)_$E(AASY(22),1,50)
33 S ^TMP($J,D0,1975)=$E(AASY(22),51,125)
34 S ^TMP($J,D0,2050)=$E(AASY(22),126,200)
35 S ^TMP($J,D0,2125)=$E(AASY(22),201,250)_$E(AASY(9),1,25)
36 S ^TMP($J,D0,2200)=$E(AASY(9),26,100)
37 S ^TMP($J,D0,2275)=$E(AASY(9),101,175)
38 S ^TMP($J,D0,2350)=$E(AASY(9),176,250)
39 S ^TMP($J,D0,2425)=$E(AASY(13),1,75)
40 S ^TMP($J,D0,2500)=$E(AASY(13),76,150)
41 S ^TMP($J,D0,2575)=$E(AASY(13),151,225)
42 S ^TMP($J,D0,2650)=$E(AASY(13),226,250)_$E(AASY(1),1,40)_$E(AASY(2),1,10)
43 S ^TMP($J,D0,2725)=$E(AASY(2),11,40)_$E(AASTXB,1,45)
44 S ^TMP($J,D0,2800)=$E(AASTXB,1,75)
45 S ^TMP($J,D0,2875)=$E(AASTXB,1,75)
46 S ^TMP($J,D0,2950)=$E(AASTXB,1,75)
47 S ^TMP($J,D0,3025)=$E(AASTXB,1,30)_$E(AASY(14),1,45)
48 S ^TMP($J,D0,3100)=$E(AASY(14),46,120)
49 S ^TMP($J,D0,3175)=$E(AASY(14),121,150)_$E(AASY(15),1,45)
50 S ^TMP($J,D0,3250)=$E(AASY(15),46,120)
51 S ^TMP($J,D0,3325)=$E(AASY(15),121,150)_$E(AASY(16),1,45)
52 S ^TMP($J,D0,3400)=$E(AASY(16),46,120)
53 S ^TMP($J,D0,3475)=$E(AASY(16),121,150)_$E(AASY(17),1,45)
54 S ^TMP($J,D0,3550)=$E(AASY(17),46,120)
55 S ^TMP($J,D0,3625)=$E(AASY(17),121,195)
56 S ^TMP($J,D0,3700)=$E(AASY(17),196,200)_$E(AASY(18),1,70)
57 S ^TMP($J,D0,3775)=$E(AASY(18),71,145)
58 S ^TMP($J,D0,3850)=$E(AASY(18),146,200)_$E(AASY(20),1,20)
59 S ^TMP($J,D0,3925)=$E(AASY(20),21,95)
60 S ^TMP($J,D0,4000)=$E(AASY(20),96,100)_$E(AASY(21),1,70)
61 S ^TMP($J,D0,4075)=$E(AASY(21),71,100)_$E(AASY(19),1,45)
62 S ^TMP($J,D0,4150)=$E(AASY(19),46,120)
63 S ^TMP($J,D0,4225)=$E(AASY(19),121,195)
64 S ^TMP($J,D0,4300)=$E(AASY(19),196,270)
65 S ^TMP($J,D0,4375)=$E(AASY(19),271,345)
66 S ^TMP($J,D0,4450)=$E(AASY(19),346,350)_$E(AASY(3),1,70)
67 S ^TMP($J,D0,4525)=$E(AASY(3),71,100)_$E(AASY(4),1,45)
68 S ^TMP($J,D0,4600)=$E(AASY(4),46,50)_$E(AASTXB,1,70)
69 S ^TMP($J,D0,4675)=$E(AASTXB,1,75)
70 K AAS,AASY,AASTXB,CN,CNT
Note: See TracBrowser for help on using the repository browser.