source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPOS6.m@ 1240

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

initial load of WorldVistAEHR
File size: 2.6 KB
RevLine 
[613]1ONCPOS6 ;HIRMFO/GWB-POST-INSTALL ROUTINE FOR PATCH ONC*2.11*6 08/26/96
2 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
3 ;
4 ;Convert Bladder PCE data from 166.1 -> 165.5
5 S IEN=0 F S IEN=$O(^ONCO(166.1,IEN)) Q:IEN'>0 D S DIK="^ONCO(166.1,",DA=IEN D ^DIK
6 .Q:'$D(^ONCO(165.5,IEN))
7 .F PIECE=2:1:19 I $P(^ONCO(166.1,IEN,0),U,PIECE)'="" S $P(^ONCO(165.5,IEN,"BLA1"),U,PIECE+16)=$P(^ONCO(166.1,IEN,0),U,PIECE)
8 .I $D(^ONCO(166.1,IEN,1)) D
9 ..F PIECE=1:1:11 I $P(^ONCO(166.1,IEN,1),U,PIECE)'="" S $P(^ONCO(165.5,IEN,"BLA1"),U,PIECE+35)=$P(^ONCO(166.1,IEN,1),U,PIECE)
10 .I $D(^ONCO(166.1,IEN,2)) D
11 ..F PIECE=1:1:41 I $P(^ONCO(166.1,IEN,2),U,PIECE)'="" S $P(^ONCO(165.5,IEN,"BLA2"),U,PIECE)=$P(^ONCO(166.1,IEN,2),U,PIECE)
12 .I $D(^ONCO(166.1,IEN,3)) D
13 ..I $P(^ONCO(166.1,IEN,3),U,1)'="" S $P(^ONCO(165.5,IEN,"BLA2"),U,42)=$P(^ONCO(166.1,IEN,3),U,1)
14 ..I $P(^ONCO(166.1,IEN,3),U,2)'="" S $P(^ONCO(165.5,IEN,7),U,12)=$P(^ONCO(166.1,IEN,3),U,2)
15 ..I $P(^ONCO(166.1,IEN,3),U,3)'="" S $P(^ONCO(165.5,IEN,7),U,13)=$P(^ONCO(166.1,IEN,3),U,3)
16 .I $D(^ONCO(166.1,IEN,4)) D
17 ..F PIECE=1:1:17 I $P(^ONCO(166.1,IEN,4),U,PIECE)'="" S $P(^ONCO(165.5,IEN,"BLA1"),U,PIECE)=$P(^ONCO(166.1,IEN,4),U,PIECE)
18 K IEN,PIECE
19BRM ;Shorten IMMUNOTHERAPY code 9 definition
20 S DIE="^ONCO(160.5,",DA=9,DR="1///Unknown if BRM therapy administered"
21 D ^DIE
22STAGE ;Split staging data between CLINICAL, PATHOLOGIC and OTHER
23 S IEN=0,CNT=0 F S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 I $G(^ONCO(165.5,IEN,27))'="Y" D S CNT=CNT+1 W:CNT#100=0 "."
24 .S SB=$P($G(^ONCO(165.5,IEN,2)),U,18)
25 .I (SB="P")!(SB="A") D
26 ..S $P(^ONCO(165.5,IEN,2.1),U,1)=$P($G(^ONCO(165.5,IEN,2)),U,25)
27 ..S $P(^ONCO(165.5,IEN,2.1),U,2)=$P($G(^ONCO(165.5,IEN,2)),U,26)
28 ..S $P(^ONCO(165.5,IEN,2.1),U,3)=$P($G(^ONCO(165.5,IEN,2)),U,27)
29 ..S $P(^ONCO(165.5,IEN,2.1),U,4)=$P($G(^ONCO(165.5,IEN,2)),U,20)
30 ..S $P(^ONCO(165.5,IEN,2.1),U,5)=$P($G(^ONCO(165.5,IEN,3)),U,32)
31 ..S $P(^ONCO(165.5,IEN,2),U,25)=""
32 ..S $P(^ONCO(165.5,IEN,2),U,26)=""
33 ..S $P(^ONCO(165.5,IEN,2),U,27)=""
34 ..S $P(^ONCO(165.5,IEN,2),U,20)=""
35 ..S $P(^ONCO(165.5,IEN,3),U,32)=""
36 .I SB="R" D
37 ..S $P(^ONCO(165.5,IEN,2.1),U,6)=$P($G(^ONCO(165.5,IEN,2)),U,25)
38 ..S $P(^ONCO(165.5,IEN,2.1),U,7)=$P($G(^ONCO(165.5,IEN,2)),U,26)
39 ..S $P(^ONCO(165.5,IEN,2.1),U,8)=$P($G(^ONCO(165.5,IEN,2)),U,27)
40 ..S $P(^ONCO(165.5,IEN,2.1),U,9)=$P($G(^ONCO(165.5,IEN,2)),U,20)
41 ..S $P(^ONCO(165.5,IEN,2.1),U,10)=$P($G(^ONCO(165.5,IEN,3)),U,32)
42 ..S $P(^ONCO(165.5,IEN,2),U,25)=""
43 ..S $P(^ONCO(165.5,IEN,2),U,26)=""
44 ..S $P(^ONCO(165.5,IEN,2),U,27)=""
45 ..S $P(^ONCO(165.5,IEN,2),U,20)=""
46 ..S $P(^ONCO(165.5,IEN,3),U,32)=""
47 .S $P(^ONCO(165.5,IEN,27),U,1)="Y"
48 Q
Note: See TracBrowser for help on using the repository browser.